8/18/2019 Modul 4 Delphi

1/8

Hal : 4-1

Membuat Program Penjualan

Buatlah tabel barang seperti berikut :

Simpan dengan nama BARANG.DB

Buatlah Program Input Data Barang Berdasarkan Dari atas :

MODUL 4

8/18/2019 Modul 4 Delphi

2/8

Hal : 4-2

- Pada Tab BDE Tambahkan Komponen Table ganti properti Name dengan TBBARANG, lalu

properti TABLENAME pilih BARANG.DB, dan properti Active isikan True

- Pada Tab Data Acces Tambahkan Komponen DataSource ganti properti Name dengan

DSBARANG, Lalu Properti Dataset pilih TBBARANG

- Pada Tab Data Controls tambahkan DBgrid ganti Properti DataSource dengan DSBarang

Simpan Unit dengan Ubarang Dan Project dengan Penjualan

Kita Mulai Menuliskan Source Kode Progam

8/18/2019 Modul 4 Delphi

3/8

Hal : 4-3

8/18/2019 Modul 4 Delphi

4/8

Hal : 4-4

8/18/2019 Modul 4 Delphi

5/8

Hal : 4-5

Membuat Laporan Barang :

1. Buatlah Form baru dan simpan dengan nama  ULAPBARANG

2. Tambahkak objek MAINMENU dari tab standar

3.   Double Klik Mainmenu dan tambahkan menu seperti berikut :

4. Tambahkan objek Table dari tab BDE, Ganti properti name dengan Tbbarang, properti

Tablename Barang.db dan Properti Active ganti dengan true

5. Tambahkan Objek QuickRep dari tab Qreport, ganti properti Dataset dengan Tbbarang,

6. Ganti Properti Band Seperti Berikut :

8/18/2019 Modul 4 Delphi

6/8

Hal : 4-6

Sehingga tampilan QuickRep Seperti Berikut

7. Selanjutnya Pilih PageHeader ubah properti HasChild dengan True, Maka gambarnya seperti

berikut:

8. Pada Detail letakan objek QrSysData dari tab QReport Lalu ganti Properti Data dengan QrsDetailNo

9. Tambahkan componen QRDBText Lalu ganti Properti DataSet dengan Tbbarang dan Properti

DataField dengan field  KDBRG

8/18/2019 Modul 4 Delphi

7/8

Hal : 4-7

10. Lakukan hal yang untuk semua field

11. Pada HasChild tambahkan component QrLabel dan ganti Caption sesuai dengan judul dari Field

Laporan Pada Bagian Detail

12. Pada Page Header tambahkan component QrLabel dan ganti Caption seperti gambar Berikut :

13. Pada Summary tambahkan component QRSysdata lalu ganti Properti Data dengan QRSDate,

Tambahkan QrLabel untuk membuat keterangan dari penanggung jawab laporan

14. Pada PageFooter Tambahkan Componen QrSysdata lalu ganti properti Data dengan

QrSPageNumber

15. Klik Detail Ganti Properti Frame Seperti Berikut ;

Lakukan hal yang sama pada Child

16. Pada Detail tambahkan Componen QrShape untuk membuat garis pembatas Antar Field lalu ganti

Properti Shape dengan QRSVerLine

17. Bentuk Akhir Laporan Barang

8/18/2019 Modul 4 Delphi

8/8

Hal : 4-8

Masukan Rumus pada Preview, Print dan Keluar