Aplikasi Penjualan Barang

1. Buat database dan table
Database name : db_penjualan_dini <- nama database kita
Table name : tbl_barang_dini<- nama table kita



Table name : tbl_pembelian_dini



2. Buat Halaman Menu Utama (Main Menu)
Name : MainMenu1

 
3. Buat Halaman Datamodul
File > New > Other > Delphi Files > Data Module
Name : DataModule_penjualan


Masukan Komponen koneksi database


a. ADOConnectionpenjualan
Atur Property
 ConnectionString
 Login Prompt > False
 Connected > True
b. ADOQuery_barang
 Connection > ADOConnectionpenjualan
 SQL > select * from tbl_barang_dini <- nama table kita
 Active > True
c. DataSource_barang
 DataSet > ADOQuery_barang
d. ADOQuery_pembelian
 Connection > ADOConnectionpenjualan
 SQL > select * from tbl_pembelian_dini
 Active > True
e. DataSource_pembelian
 DataSet > ADOQuery_pembelian
4. Buat Form Input Barang
Name : Form_barang / sesuai nama form kita

Form_barang hubungakan dengan DataModule_penjualan ( File > Use Unit )
DataModule_penjualan hubungkan dengan Form_data ( File > Use Unit )

5. Buat Form Tampilan Data Barang
Name : form_databarang / sesuai nama form kita

Lakukan Pengaturan Proferty DBGrid:
DataSource > DataModule_penjualan

6. Form_databarang hubungakan dengan DataModule_penjualan ( File > Use Unit )
DataModule_penjualan hubungkan dengan Form_databarang ( File > Use Unit )

7. Procedure pada Button New


8. Procedure pada tombol OK di Form_barang
var sqlsimpan_barang:string;
begin
sqlsimpan_barang:='INSERT INTO tbl_barang_dini(kode_barang,nama_barang,jenis_barang,harga_barang,stok_barang)Values(:pkode,:pnama,:pjenis,:pharga,:pstok)';

DataModule_penjualan.ADOQuery_barang.SQL.Clear;
DataModule_penjualan.ADOQuery_barang.SQL.Add(sqlsimpan_barang);
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pkode').Value:=Edit1.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pnama').Value:=Edit2.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pjenis').Value:=ComboBox1.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pharga').Value:=Edit3.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pstok').Value:=Edit4.Text;
DataModule_penjualan.ADOQuery_barang.ExecSQL;

//refres data
DataModule_penjualan.ADOQuery_barang.Active:=False;
DataModule_penjualan.ADOQuery_barang.SQL.Text:='SELECT * FROM tbl_barang_dini';
DataModule_penjualan.ADOQuery_barang.Active:=True;
Form_barang.Close;
end;

9. Buat Form Edit Barang
Name : formedit_barang / sesuai nama form kita

Hubungkan formedit_barang dengan DataModule_penjualan
Hubungkan DataModule_penjualan dengan formedit_barang

10. Procedure pada tombol Edit di Form_databarang / sesuai nama form kita


11. Procedure tombol OK di formedit_barang / sesuai nama form kita

procedure Tformedit_barang.BitBtn1Click(Sender: TObject);
var jawabconf:integer;
sqledit_barang:string;
begin
jawabconf:=MessageDlg('Apakah data sudah benar?',mtConfirmation,[mbYes,mbNo],0);
if jawabconf<>6 then exit;
sqledit_barang:='update tbl_barang_dini SET nama_barang=:pnama,jenis_barang=:pjenis,harga_barang=:pharga,stok_barang=:pstok WHERE kode_barang=:pkode';

//menampilkan data pada dbgrid
DataModule_penjualan.ADOQuery_barang.SQL.Clear;
DataModule_penjualan.ADOQuery_barang.SQL.Add(sqledit_barang);
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pkode').Value:=Edit1.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pnama').Value:=Edit2.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pjenis').Value:=ComboBox1.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pharga').Value:=Edit3.Text;
DataModule_penjualan.ADOQuery_barang.Parameters.ParamByName('pstok').Value:=Edit4.Text;
DataModule_penjualan.ADOQuery_barang.ExecSQL;

//refres data
DataModule_penjualan.ADOQuery_barang.Active:=False;
DataModule_penjualan.ADOQuery_barang.SQL.Text:='SELECT * FROM tbl_barang_dini';
DataModule_penjualan.ADOQuery_barang.Active:=True;
formedit_barang.Close;
end;

12. Procedure Hapus di Form_databarang / sesuai nama form kita


Selamat mencoba by : bona
Copy @ Dini hari Pertiwi