Ane cuma mau share ilmu dikit aja nih gan. Ane ada informasi untuk buat aplikasi pengisian aplikasi sederhana pake Delphi 7 dengan database desktop. Langsung aja yah gan, gini ni cara yang ane tau :
Pertama-tama kita install dulu Delphi 7 nya, kalo udah terinstal di computer agan, agan buka delphinya. Klik start, all program, Borland Delphi 7, trus database desktop. Gini neh tampilannya :
Trus agan pilih tools, alias manager, trus buat alias baru dengan cara klik tombol New. Trus agan buat nama alias yang agan mau di text field database alias. Owh iya gan, alias pada database desktop ini adalah database untuk nyimpen table yang mau dibuat ntar. Lanjuut gan..trus agak klik ok.
Udah jadi neh aliasnya, sekarag tinggal buat tabelnya gan..caranya, klik file, new, table. Okok aj terus gan sampe ktemu yg ginian :
Nah, trus agan buat deh, kolom-kolom apa aja yang mau agan buat. Untuk kasus yang ane mau bahas, kita buat dlu NIM, Nama, Fak (bukan omongan jorok lho gan ;p), trus Prod, trus Alamat, trus TTL, trus Jenkel, trus Goldar, trus Foto, trus udaaah,,,hehe. Gini neh tampilannya :
Langkah selanjutnya, kita buka aplikasi Delphi 7nya. Trus klik file, new, application. Trus agan buat gini gan :
Tuh ada panel sama edit, tempatnya ada di bar standard, trus agan buat juga combobox di bar standard juga. Trus ada maskedit di bar additional, trus agan buat panel satu lagi untuk tempat foto, trus agan tambahin Image di bar additional. Trus agan kasih button deh..hehe,,
Agan juga harus kasih OpenPictureDialog yang ada di bar dialog, trus agan kasih nama OPDgambar. Trus agan kasih juga Table sama Query nya di bar BDE. Ude gan??
Trus agan setting dlu neeh,, satu-satu ya..
Pertama dari Table BDEya dulu gan :
DatabaseNamenya : sesuai nama alias yang agan buat tadi
TableNamenya : sesuai dengan nama table yang agan buat tadi jugaa
Yang kedua Querynya gan :
DatabaseNamenya : juga sama dengan nama alias yang agan buat tadi
Namenya gan : QKTM (terserah agan)
Ude gan??
Trus agan kasih nama tiga button tadi
Button simpan dengan BSimpan, button batal dengan BBatal, n button cari dengan BCari
Trus agan klik 2 kali di button simpan, Trus agan ketik diantara begin sama end; gini :
FKTM.TbKTM.Append;
FKTM.TbKTM.FieldByName('NIM').AsString:=ENIM.Text;
FKTM.TbKTM.FieldByName('Nama').AsString:=ENama.Text;
FKTM.TbKTM.FieldByName('Fak').AsString:=CFak.Text;
FKTM.TbKTM.FieldByName('Prod').AsString:=CProd.Text;
FKTM.TbKTM.FieldByName('Alamat').AsString:=EAlamat.Text;
FKTM.TbKTM.FieldByName('TTL').AsString:=MTTL.Text;
FKTM.TbKTM.FieldByName('Jenkel').AsString:=CJenkel.Text;
FKTM.TbKTM.FieldByName('Goldar').AsString:=CGol.Text;
FKTM.TbKTM.FieldByName('Foto').Assign(Igambar.Picture);
FKTM.TbKTM.Post;
FKTM.TbKTM.Refresh;
showmessage('Tersimpan');
Trus agan klik 2 kali juga di button batal, sama prosedurnya kaya bsimpan :
Close; (itu doank… :D)
Trus agan buat lagi di button cari ya gan, gini neeh :
if OPDgambar.Execute then
begin
Igambar.Visible:=True;
Igambar.Picture.LoadFromFile(OPDgambar.Filename);
end;
trus agan run deh,, selamat mencoba yaaa gaaan.. :)
maaf ane Cuma tau dikit, mau bagi-bagi pengetahuan aja.. :D
