Pemrograman Delphi 4. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi)


Form Transaksi :

Koding Programnya adalah :
1. Untuk Mengkoneksikan antara program dengan Database bisa dibaca terlebih dahulu Modul 8

2. Membuat koding pada edit1, sehingga apabila diinputkan no transaksi sistem akan mendeteksi data apakah ditemukan atau tidak, jika ditemukan maka seluruh data yang berhubungan dengan nomor transaksi tersebut akan ditampilkan adapun caranya adalah double klik Edit1, lalu ganti event dari change menjadi KeyPress pada properties dan ketikkan kodingnya sebagai berikut :


procedure TForm2.Edit1KeyPresbs(Sender: TObject; var Key: Char);
begin
if key=#13 then
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('select * from penjualan where no_faktur = "'+ edit1.text +'"');
adoquery3.Open;
if not adoquery3.Eof then
begin
Sg.Visible:=false;
dbgrid1.Visible:=true;
DateTimePicker1.Date := adoquery3.fields[2].AsDateTime;
datasource3.dataset := adoquery3;
DBLookupComboBox1.DataSource:=datasource3;
DBLookupComboBox1.DataField:='id_pembeli';

adoquery2.Close;
adoquery2.SQL.Clear;
adoquery2.SQL.add('select * from pelanggan where id_pembeli="'+ adoquery3.Fields[1].AsString +'"');
adoquery2.Open;
if not adoquery2.Eof then
begin
datasource2.DataSet := adoquery2;
dbedit1.DataSource:=datasource2;
dbedit1.DataField:='NAMA';
Dbedit2.datasource:=datasource2;
dbedit2.DataField:='Alamat';
end;

adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('select no_Faktur,kode_barang,harga,jumlah, (harga*jumlah) as total from djual where no_Faktur = "'+ edit1.text +'"');
adoquery4.Open;
datasource4.DataSet := adoquery4;
dbgrid1.DataSource := datasource4;

adoquery5.Close;
adoquery5.SQL.clear;
adoquery5.SQL.add('select sum(harga*jumlah) from djual where no_Faktur = "'+ edit1.text +'"');
adoquery5.Open;
edit4.Text := adoquery5.Fields[0].AsString;

button6.Visible:=true;
button7.Visible:=true;
dbedit3.Text:='';
dbedit4.Text:='';
edit2.Text:='';
edit3.Text :='';
DBLookupComboBox2.Enabled:=false;
dbedit3.Enabled:=false;
dbedit4.Enabled:=false;
end
else

begin
DBLookupComboBox1.Enabled:=true;
DBLookupComboBox2.Enabled:=true;
DBLookupComboBox1.SetFocus;
adoquery2.sql.clear;
adoquery2.SQL.Add('select * from pelanggan');
adoquery2.open;

datasource2.dataset := adoquery2;
DBLookupComboBox1.ListSource:=datasource2;
DBLookupComboBox1.ListField :='id_pembeli';
DBLookupComboBox1.KeyField:='id_pembeli';

adoquery1.sql.clear;
adoquery1.SQL.Add('select * from barang');
adoquery1.open;

datasource1.dataset := adoquery1;
DBLookupComboBox2.ListSource:=datasource1;
DBLookupComboBox2.KeyField:='kode_barang';

dbgrid1.Visible:=false;
sg.Visible:=true;

dbedit1.Text:='';
dbedit2.Text:='';
dbedit3.Text:='';
dbedit4.Text:='';
end;
end;
end;

3. Membuat koding pada tombol OK, double klik tombol OK lalu ketik koding berikut :

procedure TForm2.Button1Click(Sender: TObject);
var i,qty,tot:integer;
begin
sg.RowCount := sg.rowcount+1;
sg.cells[1,sg.RowCount-1]:=dblookupcombobox2.text;
sg.Cells[2,sg.RowCount-1]:=dbedit3.Text ;
sg.Cells[3,sg.rowcount-1]:=dbedit4.Text ;
Qty:=strtoint(edit2.Text);
sg.cells[4,sg.rowcount-1]:=edit2.text;
sg.Cells[5,sg.rowcount-1]:=edit3.Text;
tot:=0;
for i:=1 to sg.RowCount-1 do
begin
tot := tot + strtoint(sg.Cells[5,i]);
sg.Cells[0,i]:=inttostr(i);
end;
edit4.text := inttostr(tot);
end;

4. Membuat koding pada Edit2 untuk menghitung jumlah harga dari hasil perkalian harga barang x jumlah barang :

procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
var a,b,c,sisa:integer;
kodebrg:String;
begin
if key=#13 then
begin
if edit2.Text ='' then
begin
edit3.Text:='0';
edit2.SetFocus;
end
else
a:=strtoint(edit2.Text);
b:=strtoint(dbedit4.Text);
if a > adoquery1.Fields[3].AsInteger then
begin
Application.MessageBox('Data Tidak Mencukupi','Control',MB_ICONSTOP);
end
else
begin
C := a * b;
edit3.Text:=inttostr(c);
sisa := adoquery1.Fields[3].AsInteger - Strtoint(edit2.Text);
kodebrg:=dblookupcombobox2.text;
adoquery6.close;
adoquery6.sql.clear;
adoquery6.SQL.Add('update barang set stock="'+ inttostr(sisa) +'" where kode_barang="'+kodebrg+'"');
adoquery6.ExecSQL;
end;
end;
end;

5. Tambahkan tombol Hapus, lalu ketik program berikut untuk menghapus data :

procedure TForm2.Button7Click(Sender: TObject);
begin
adoquery3.Close;
adoquery3.SQL.Clear;
adoquery3.SQL.Add('delete from Penjualan where no_faktur = "'+ edit1.Text +'"');
adoquery3.ExecSQL;

adoquery4.Close;
adoquery4.SQL.Clear;
adoquery4.SQL.Add('delete from djual where no_faktur ="'+ edit1.Text +'"');
adoquery4.ExecSQL;

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)

One Response

  1. artikel bagus..
    kebetulan lagi bikin makalah tentang strategi penjualan
    izin copas
    makasih ya…

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: