Database Dengan Delphi (Program Penjualan Mobil)

I.         Deskripsi Program

Program ini merupakan program penyimpanan data penjualan mobil dengan menggunakan database. Di dalam program ini terdapat fungsi penyimpanan, pencarian, penghapusan dan pengeditan data dalam database. Selain ittu pada program juga di tampilkan table yang berisi data yang terdapat dalam database.

II.      Interface Program

      

III.         Coding Program

Nama Komponen	Event	Perintah
Button1	OnClick	procedure TForm1.Button1Click(Sender: TObject); begin edit1.Clear; edit2.Clear; edit3.Clear; edit4.Clear; edit5.Clear; edit1.SetFocus; end;
Button2	OnClick	procedure TForm1.Button2Click(Sender: TObject); begin if (edit5.Text<>'Lunas') or (edit5.Text<>'Cicilan') then begin showmessage('Masukkan "Lunas" atau "Cicilan" dalam data pembayaran'); edit5.clear; edit5.SetFocus; end else if not ADOquery1.Locate('Kode',Edit1.text, [lopartialkey]) =true then begin ADOquery1.Append; ADOquery1.FieldByName('No_Polisi').AsString:=Edit1.Text; ADOquery1.FieldByName('Nama_Pembeli').AsString:=Edit2.Text; ADOquery1.FieldByName('Merk_Mobil').AsString:=edit3.Text; ADOquery1.FieldByName('Harga').AsString:=Edit4.Text; ADOquery1.FieldByName('Pembayaran').AsString:=Edit5.Text; ADOquery1.Post; end  else    showmessage ('Maaf, data barang sudah ada'); end;
Button3	OnClick	procedure TForm1.Button3Click(Sender: TObject); begin   if not ADOquery1.Locate('No_Polisi',Edit1.text,[]) then   begin     messagedlg ('"'+edit1.Text+'" tidak ditemukan',MTerror,[mbok],0)   end   else begin     ADOquery1.edit;     ADOquery1['No_Polisi']:=edit1.Text;     ADOquery1['Nama_Pembeli']:=edit2.Text;     ADOquery1['Merk_Mobil']:=edit3.Text;     ADOquery1['Harga_Mobil']:=edit4.Text;     ADOquery1['Pembayaran']:=edit5.Text;     ADOquery1.Post;   end; end;
Button4	OnClick	procedure TForm1.Button4Click(Sender: TObject); begin   if not ADOquery1.Locate('No_Polisi',Edit1.text,[]) then   begin     showmessage('Data tidak ditemukan!');   end   else     begin if MessageDlg('Apakah anda ingin menghapus data ?'  ,mtWarning,[mbYes,mbNo],0) = mryes then     begin     ADOquery1.Delete;     showmessage('Data telah dihapus!');     end     else     end; end;
Button5	OnClick	procedure TForm1.Button5Click(Sender: TObject); begin rvproject1.execute; rvproject1.ExecuteReport('foto.rav'); end;
Button6	OnClick	procedure TForm1.Button6Click(Sender: TObject); begin application.Terminate; end;
Button10	OnClick	procedure TForm1.Button10Click(Sender: TObject); var   strsql : string; begin   strsql := 'select * from Table1 where No_Polisi like"' +edit1.Text+'%"';   ADOquery1.SQL.Clear;   ADOquery1.SQL.Add(strsql);   ADOquery1.Close;   ADOquery1.Open; end;

IV. Output

 

 

 

 

 Program bisa di download di sini