contoh Program database dengan gambar(Delphi7 & MSAccess)

kali ini saya akan memberi contoh program database disertai tampilan image di setiap data..

mungkin anda akan mengira prosedur dari program yang akan saya contohkan adalah dengan menyimpan file binary image kedalam table database bertipe data BOLB… bisa juga sih make cara seperti itu dan sudah banyak yang mbahas ..

yang akan saya bahas disini yaitu menampilkan gambar atau image dari local direktori yang sudah ditentukan dalam suatu komputer…

dengan kata lain di dalam database yang akan kita simpan bukan binary file dari image tetapi path image atau image location…

mengapa saya memilih cara seperti ini???

soalnyaaa.. menyimpan binary file kedalam database akan memberi penambahan kerja server, belum lagi kita load image dari database ke program kita… gak mau kan databse server kita down??

nah maka dari itu lebih aman kita make cara seperti ini… langsung saja gak usah basa basi… baca penjelasan dibawah…

saya hanya akan menjelaskan point terpentingnya…

procedure TForm1.Button1Click(Sender: TObject);

begin

if op.Execute then

begin

dir := extractfiledir(application.ExeName) + ‘\gambar\’ + extractfilename(op.FileName);

if fileexists(dir) then

begin

showmessage(‘file sudah ada’);

end else

begin

copyfile(pchar(op.FileName), pchar(dir), false);

dbpath.Text := dir;

end;

end;

end;

Menulis konfigurasi program di File *.ini

Wah.. lama gak nulis nih… mumpung gak sibuk… nulis aaah….

Sering sekali kita membuat program yang konfigurasi/setting program nya bisa di ubah saat runtime… dann gak mungkin kan kita menyimpan setting/konfigurasi tsb kedalam database???? rasanya kurang efektif jika melakukan hal itu…

maka lebih simple dan efektif simpan aja setting program tmen” di file *.ini, berikut tutornya..

pertama tambahkan uses pada unit anda… jangan lupa ya ini penting….

uses inifiles;

kemudian tambahakan variable bernilai TInifile

var ini:TIniFile;

setelah itu kita buat filenya dengan method

ini := TIniFile.Create(extractfiledir(application.ExeName) + ‘\Setting.ini’);

statement ExtractFileDir digunakan untuk melakukan ekstraksi atau mendapatkan directory location pada FileName yang sudah ditentukan… kemudian
statement Application.Exename yaitu mendapatkan letak file excutable(*.exe) dari program anda..

jadi nantinya file Setting.ini akan terletak pada direktori yang sama dengan aplikasi anda…

Menulis pada File *.ini :

ini.WriteString(‘Setting’, ‘Panjang_form’, ‘233′);

setelah di run akan menghasilkan

Membaca pada File *.ini :

ini.ReadString(‘Setting’, ‘Panjang_form’, ”);

method tersebut akan mengembalikan pada value Panjang_form yang tadi sudah ditulis… dan bertipe data String..

nah… begitulah caranya… mudah kan…..

kalo ada pertanyaan kirim email atau tulis comment aj…

selamat belajaar…

program akses registry “Registry Tweaking”

Iseng iseng .. gak ada kerjaan yaudah..aplod program ini saja… ini adalah program yang aku buat untuk mempermudah merubah registry value.. dari pada susah-susah .. harus buka regedit.. nyari keynya gak ktmu ktemu.. hahahah.. nih aku bkinin tool utk mempermudah akses dan ngoprek registry windows… bikinnya sendiri.. seperti biasa yaa pake Delphi 7,.. hehehe

berikut scrin sutnya

seperti yang anda lihat… disana terdapat banyak check box.. dan beberapa tombol.. untuk mengoperasikannya tinggal check value yang akan dirubah dan pencet tombol OK… tinggal restart… dan .. jrengg jreng.. perubahan yang dilakukan telah nampak… hehe…

kali ini gak saya sedia in source nya… soalnya … mungkin temen-tmen dah pada pinter… dan juga dah banyak yang bahas tentang akses registry di windows…

saya harapkan jangan gunakan program ini untuk njahilin komputer teman anda.. tidak baik atuh.. hehe

langsung aj nih sedot program jadinya

Registry Tweaking

terimakasih.. semoga bermanfaat…

Program Database “perpustakaan” – delphi 7 dengan MS Access

akhirnyaa.. haha.. jadi jugak.. masih seperti yang kemarin, ini saya bikin program database perpustakaan, tapii.. dengan database nya make MS Access struktur dari program nya sendiri beda dengan yang kemaren dan lebih komplit, dilengkapi dengan fasilitas :

1. Copy database file

2. kalender(jelek bgt kalendernya) )

3. pencarian data

4. pembuatan Report

coding program nya sendiriii.. yaa biasalaah.. semrawutt.. haha.. maklum masih amatir sampai sekarang…

nih skrin sutnya

bnyk bgt godaan wktu bkin nih program.. :’( musuh yg paling menakutkan adalah malas dan game!!!!… jadi bagi temen-temen jangan malas yaah… main game sih boleh aja.. tapiii inget.. jangan sampe kecanduan spti say ini … karena apa.. gak ada gunanya bgt… cuma ngabisin duit doank.. )

doain aku yaa supaya bisa terus berkarya… hohoho… thx all

nih link download nya…

perpustakaan(msacces)

semoga bermanfaat… keep spirittt !!

Membuat Komponen Sederhana Delphi (Non-visual) “YLink”

Alhamdulillah…. walaopun masih amat sangat sederhana akhirnya aku bisa buat komponenku sendiri heehe…. aku bingung … setelah aku buat program database perpustakaan yang kemaren ntu.. enaknya buat apa lagi yaaaa… hmmmmm… mulanya aku mau buat artikel tentang “Windows PowerShell Programming” trus aku mulae nyari-nyari referensi gitu… setelah dapet semua referensinya.. aku pelajarin… huh ternyata bagiku yang masih amatir ini.. “Windows Powershell” sulit dipahami… hiks..

Kemudian aku putus asa.. dan lagi-lagi pelampiasanku adalah Delphi … hahaha .. kubuka lagi deh artikel-artikel tentang Delphi di computerku… dari sekian banyak artikel ntu aku baca “Membuat Komponen Sendiri dengan Delphi 6” karangannya mas Wisnu Widiarta.. hohoho terbesitlah sebuah ide utk buat komponen sendiri…. karena aku suka banget yang namanya internetan… aku buat deh komponen ini..

komponen ini adalah komponen Non Visual komponennya sendiri aku beri nama YLink, klik link dibawah untuk melanjutkan membaca