Pemrograman Delphi 3. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Pelanggan)


Form Pelanggan :

Adapun langkah-langkah membuat kodingnya adalah :

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

2. Double klik tombol Save lalu ketikkan koding berikut :


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 :


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 :


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;

Related Post :
1. Delphi Programming 1. Transaction Processing Application Programs Sales of Goods
2. Delphi Programming 2. Product Sales Transaction Processing Application (Form Product)
3. Delphi Programming 3. Product Sales Transaction Processing Application (Form Costumer)
4. Delphi Programming 4.Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi)
5. Delphi Programming 5. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Distributor)
6. Delphi Programming 6. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi Pembelian Barang)
7. Delphi Programming 7. Pembuatan Laporan Daftar Barang dengan menggunakan Rave
8. Delphi Programming 8. Pembuatan Laporan Daftar Pelanggan dengan menggunakan Rave
9. Delphi Programming 9. Pembuatan Laporan Transaksi Pembelian Barang dengan menggunakan Rave (Master/Detail)
10. Delphi Programming 10. Pembuatan Laporan Transaksi PerTanggal dan PerPeriode dengan Menggunakan Rave (Tanggal + datetimePicker). Pemrograman Delphi 3. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Pelanggan)
4. Pemrograman Delphi 4. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi)

Related Post :
1. Delphi Programming 1. Transaction Processing Application Programs Sales of Goods
2. Delphi Programming 2. Product Sales Transaction Processing Application (Form Product)
3. Delphi Programming 3. Product Sales Transaction Processing Application (Form Costumer)
4. Delphi Programming 4.Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi)
5. Delphi Programming 5. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Distributor)
6. Delphi Programming 6. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi Pembelian Barang)
7. Delphi Programming 7. Pembuatan Laporan Daftar Barang dengan menggunakan Rave
8. Delphi Programming 8. Pembuatan Laporan Daftar Pelanggan dengan menggunakan Rave
9. Delphi Programming 9. Pembuatan Laporan Transaksi Pembelian Barang dengan menggunakan Rave (Master/Detail)
10. Delphi Programming 10. Pembuatan Laporan Transaksi PerTanggal dan PerPeriode dengan Menggunakan Rave (Tanggal + datetimePicker)

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: