Pemrograman Delphi 6. Aplikasi Pengolahan Transaksi Penjualan Barang (Form Transaksi Pembelian Barang)


 

 

 

 

 

 

 

 

 

 

 

Kodingnya adalah :

Double klik Tombol Update lalu ketikkan listing koding berikut :


procedure TForm2.Button6Click(Sender: TObject);
var jumlah : integer;
stock:integer;
begin
adoquery5.SQL.Clear;
adoquery5.SQL.Add('Select * from djual WHERE no_faktur = "'+ edit1.Text +'" and kode_barang ="'+ DBLookupComboBox2.KeyValue+'" ');
adoquery5.Open;
if not adoquery5.Eof then
begin
adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from barang where kode_barang="'+DBLookupComboBox2.KeyValue+'"');
adoquery1.open;
jumlah := adoquery5.Fields[3].AsInteger + adoquery1.Fields[3].AsInteger;
stock := jumlah - strtoint(edit2.Text);

adoquery1.SQL.Clear;
adoquery1.SQL.Add('update barang set stock="'+inttostr(stock)+'" where kode_barang="'+DBLookupComboBox2.KeyValue+'"');
adoquery1.ExecSQL;

adoquery5.SQL.Clear;
adoquery5.SQL.Add('update penjualan set tgl_faktur="'+datetostr(DateTimePicker1.Date)+'", id_pembeli="'+ DBLookupComboBox1.KeyValue +'" where no_Faktur="'+edit1.Text+'"');
adoquery5.ExecSQL;

adoquery4.sql.Clear;
adoquery4.SQL.add('update djual set jumlah="'+ edit2.Text +
'", harga ="'+ edit3.Text +'" where no_Faktur="'+ edit1.Text +'" and kode_barang="'+ DBLookupComboBox2.KeyValue +'"');
adoquery4.ExecSQL;

adoquery1.SQL.Clear;
adoquery1.SQL.Add('select * from barang');
adoquery1.open;
end
else
begin
adoquery4.SQL.Clear;
adoquery4.SQL.Add('insert into Djual(no_faktur,kode_barang,jumlah,harga)values("'+edit1.text+'","'+DBLookupComboBox2.KeyValue+'","'+ edit2.Text +'","'+edit3.Text+'")');
adoquery4.ExecSQL;
tampildb();
end;
tampildb();
kosongbarang();
end;

2. Buatlah Procedure TAmpildb dan kosongbarang;

<strong>a. Procedure Tampil Database</strong>


procedure TForm2.tampildb();
begin
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;
end;

a. Procedure Kosong

procedure TForm2.kosongbarang();
begin
DBLookupComboBox2.KeyValue:='';
dbedit3.Text:='';
dbedit4.Text:='';
edit2.Text:='';
edit3.Text:='';
End;

3. Double Klik Pada Edit2 (Jumlah), lalu  rubah pada event di properties menjadi On KeyPress, selanjutnya ketik listing berikut :


procedure TForm2.Edit2KeyPress(Sender: TObject; var Key: Char);
VAR SISA:INTEGER;
begin
IF KEY=#13 THEN
BEGIN
 IF (ADOQUERY1.Fields[3].AsInteger < sTRTOINT(eDIT2.Text)) then
 BEGIN
 Application.MessageBox('DATA TIDAK CUKUP','cONTROL',MB_ICONSTOP);
 END;

 EDIT3.Text := INTTOSTR(STRTOINT(DBEDIT4.Text) * STRTOINT(EDIT2.TEXT));
 SISA:= ADOQUERY1.Fields[3].AsInteger - STRTOINT(EDIT2.Text);

 ADOQUERY6.Close;
 ADOQUERY6.SQL.CLEAR;
 ADOQUERY6.SQL.Add('UPDATE BARANG SET STOCK = "'+ inttostr(SISA) +'" WHERE KODE_BARANG = "'+ ADOQUERY1.Fields[0].ASSTRING +'"');
 ADOQUERY6.ExecSQL;
END;

4. Double klik Tombol Save, lalu ketikkan listing berikut :


procedure TForm2.Button3Click(Sender: TObject);
var i : integer;
begin
adoquery3.SQL.Clear;
adoquery3.SQL.add('insert into Penjualan(no_faktur,id_pembeli,tgl_faktur)values("'+ edit1.Text +'","'+DBLookupCombobox1.Text+'","'+DateToStr(DateTimePicker1.Date)+'")');
adoquery3.ExecSQL;

for i := 1 to SG.RowCount-1 do
begin
adoquery4.SQL.Clear;
adoquery4.SQL.Add('insert into Djual(no_faktur,kode_barang,jumlah,harga)values("'+edit1.text+'","'+ sg.Cells[1,i] +'","'+ edit2.Text +'","'+edit3.Text+'")');
adoquery4.ExecSQL;
end;
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)

About these ads

6 Responses

  1. pa maaf mau tanya koding pengolahan transaksi penjualan. kok gk nampil di layar yah…??? terimakasih

    • Koding yang mana yach,,,,, cobakan aja dulu yang transaksi pembelian…. cuma beda logika … untuk penjualan barangnya bertambah, …?

  2. mas..
    ini berpa form…??

  3. nyari pahala ny kok stengah2 mas,,.
    kodingny yg mna nich,.
    hadeeee

  4. good bro…!

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

Follow

Get every new post delivered to your Inbox.

%d bloggers like this: