3.Aplikasi Penjualan Barang-Form Pelanggan (Delphi7)

Adapun langkah-langkah membuat kodingnya adalah :

1. Koneksikan adoconnection ke database, dan adoquery, serta datasource,

2. Double klik tombol Save lalu ketikkan koding berikut :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

procedure TForm3.Button1Click(Sender: TObject); begin  adoquery1.SQL.Clear;  adoquery1.sql.Add('insert into pelanggan(id_pembeli,nama,tgl_lhr,alamat,kota,notelp)values("'+edit1.Text+'","'+edit2.Text+'","'+datetostr(datetimepicker1.date)+'","'+edit3.Text+'","'+edit4.Text+'","'+edit5.Text+'")');  adoquery1.ExecSQL;  adoquery1.SQL.Clear;  adoquery1.SQL.Add('select * from pelanggan');  adoquery1.Open;  datasource1.DataSet:=adoquery1;  dbgrid1.DataSource:=datasource1;  edit1.Text:='';  edit2.Text:='';  edit3.Text:='';  edit4.Text:='';  edit5.Text:='';  edit1.SetFocus; end;

3. double klik pada tombol update lalu ketik listing berikut :

1 2 3 4 5 6

procedure TForm3.Button3Click(Sender: TObject); begin  adoquery1.SQL.Clear;  adoquery1.SQL.Add('delete from pelanggan where id_pembeli="'+edit1.Text+'"');  adoquery1.ExecSQL; end;

4. double klik pada tombol update lalu ketik listing berikut :

1 2 3 4 5 6 7 8 9 10

procedure TForm3.Button2Click(Sender: TObject); begin adoquery1.sql.clear; adoquery1.SQL.add('update pelanggan set nama="'+edit2.Text + '",tgl_lhr ="'+ datetostr(datetimepicker1.DateTime) + '",alamat ="'+edit3.Text +'",kota="'+edit4.Text+'",notelp="'+ edit5.Text+'" where id_pembeli="'+edit1.text+'"'); adoquery1.ExecSQL; selekos; end;

Source : https://ahmadrizal.wordpress.com/2010/12/16/pemrograman-delphi-3-aplikasi-pengolahan-transaksi-penjualan-barang-form-pelanggan-2/