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;



method di atas melakukan instruksi copy file image dari openImageDialogs ke direktori yang sudah ditentukan yaitu



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

..

..

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

dbpath.Text := dir;



memunculkan gambar pada komponen image :



procedure TForm1.DBpathChange(Sender: TObject);

begin

if fileexists(dbpath.Text) then

begin

image1.Picture.LoadFromFile(dbpath.Text);

end else

begin

image1.Picture.LoadFromFile(extractfiledir(application.ExeName) + '\gambar\nophoto.jpg');

end;

end;



dari Dbedit yang berisi image location dan dengan even onChange komponen image me load image dari path yang tertera pada Dbedit.



Nah... sekian tips dari saya silahkan donlod source lengkapnya disini

trimakasiih... semoga bermanfaat....