Contoh Program Database Stock Handphone pada Delphi

• Deskripsi Program

Program ini adalah program “DATABASE STOCK HANDPHONE” yang menggunakan komponen database didalamnya untuk menghubungkan ke Ms.Access. Program ini menggunakan 6 tombol dengan fungsi yang berbeda di setiap tombolnya yaitu Isi Lagi untuk membersihkan kolom pengisian data, Simpan untuk menyimpan data yang telah dimasukkan, Cari untuk mencari data yang sudah ada, Edit untuk mengedit data yang sudah ada, Hapus untuk menghapus data, dan Keluar untuk mengakhiri program.

• Interface Program

• Code Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); begin adoquery1.Append; adoquery1['No Seri']:=edit1.Text; adoquery1['Nama HP']:=edit2.Text; adoquery1['Tipe']:=edit3.Text; adoquery1['Harga Satuan']:=edit4.Text; adoquery1['Jumlah']:=edit5.Text; adoquery1.Post; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit1.SetFocus; end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin application.Terminate; end;
Button4	OnClick	procedure TForm1.Button4Click(Sender: TObject); begin if not adoquery1.Locate('No Seri',edit1.Text,[]) then messagedlg('"'+edit1.Text+'" Tidak Ditemukan',MTError,[mbok],0); end;
Button5	OnClick	procedure TForm1.Button5Click(Sender: TObject); begin adoquery1.Edit; end;
Button6	OnClick	procedure TForm1.Button6Click(Sender: TObject); begin adoquery1.Delete; showmessage('Data telah dihapus'); end;

• Output

 

Untuk download programnya, silahkan download (DISINI)