Identitas dosen Suherman, ST Address : Cilegon Mobile : 087 877 486 821 Email :
[email protected] Ym : leeput Blog : http://leeput.wordpress.com http://suherman628.wordpress.com
POKOK BAHASAN PEMROGRAMAN DATABASE DELPHI Tujuan Pembelajaran Khusus (TPK):
Setelah mempelajari pokok bahasan DataBase, maka mahasiswa dapat mendemonstrasikan tentang membuat project aplikasi dengan database access dengan benar (C3)
1
Report
Adalah proses pembuatan laporan yang akan dijadikan sebagai informasi dalam bentuk cetakan baik dalam bentuk view (layar) maupun cetak printer
Dalam membuat report di Delphi 7 yaitu dengan menggunakan fasilitas Tab Report yang biasa diletakan pada akhir Tab Namun dalam Delphi 7 fasilitas ini belum terdaftar pada Tab. Tapi harus kita install terlebih dahulu Adapun langkahlangkah-langkah penginstalan adalah sebagai berikut :
2
Klik menu Component pilih Install Packagest… Klik tombol Add Masuk ke Drive C Masuk ke Program Files Masuk ke Borland Delphi 7 Bin Pilih file dclqrt 70.bpl Klik Open Klik OK Dari langkah di atas, maka akan terbentuk Tab Report di akhir Tab
Mulai Praktek
Buat Database simpan dengan nama : Report.mdb Buat tabel simpan dengan nama : Pelanggan, Pelanggan, dengan struktur : FieldName No_plg Nama_plg Alamat
DataType Text Text Text
FieldSize 5 (PK) 25 30
3
Buat tabel simpan dengan nama : Barang, dengan struktur : FieldName Kd_Brg Nama_brg Harga
DataType Text Text Currency
FieldSize 5 (PK) 25
Buat tabel simpan dengan nama : Transaksi, dengan struktur : FieldName No_faktur No_Plg Kd_Brg Tgl_Jual Banyak
DataType Text Text Text Date/Time Number
FieldSize 10 (PK) 5 5 Byte
4
Buat project baru, simpan dengan nama unit : UReport dan project : PReport Buat desain pada form1 sbb :
5
Membuat Report Data Pelanggan
Tempatkan Adoconnection1 koneksikan dengan database Report Tambahkan form baru (form2) simpan dengan nama unit : URPlg Perhatikan gambar terlebih dahulu
Adoquery QuickRep
qrSysData QRShape
QrLabel
Blok Page Header Blok Title Blok Detail qrSysData
QRDBText
6
Ikuti langkahlangkah-langkah berikut : Letakan Adoquery1 ubah name : QPLG - isi property Connection dengan : Form1.Adoconnection1 - isi property SQL dengan perintah : SELECT * FROM PELANGGAN - Ubah Active : True Letakan komponen QuickRep (Tab Report), ubah Name : QRPelanggan isi property DataSet : QPLG pilih property [+] Bands klik Tanda [+], ubah :
HasPageHeader : True HasTitle : True HasDetail : True dari perintah di atas, maka akan terbentuk blok-blok : Blok Page Header, Blok Title, Blok Detail
7
Page Header digunakan untuk menampilkan judul halaman atas Title biasanya digunakan untuk menampilkan judul-judul kolom pada data yang akan di cetak Detail digunakan untuk menampilkan data yang dari tabel
Lebarkan ukuran Page Header dengan cara klik blok page header, kemudian pada bagian titik hitam bawah drag dan tarik kebawah (sesuaikan ukurannya) Letakan QRShape pada blok Page Header, atur lebar dan panjangnya seperti pada gambar Letakan QrLabel ubah caption : Halaman : Letakan QrLabel ubah caption : Tanggal Cetak :
8
Letakan dalam kotak QrSysData ubah property Data : qrsPageNumber simpan di samping kanan Halaman : Letakan dalam kotak QrSysData ubah property Data : qrsDate simpan di samping kanan Tanggal Cetak
Letakan pada blok Title QrLabel ubah Caption : NO Lakukan hal yang sama untuk KODE, NAMA PELANGGAN, dan ALAMAT Klik blok Title pilih property [+]Frame klik tanda [+] ubah DrawBottom : True
9
Letakan pada blok Detail di bawah NO komponen QrSysData ubah property data : qrsDetailNo Pada blok Detail, Letakan komponen QrDBText di bawah KODE, isi property: - DataSet : QPLG - DataField : No_Plg
Lakukan hal yang sama untuk Nama_plg dan Alamat Bila telah selesai… selesai…. Aktifkan form1 pilih menu Laporan Pilih Data Pelanggan, Pelanggan, isi dengan kode berikut : form2.QRPelanggan.Preview; RUN.. Bila ada pertanyaan pilih Yes RUN, kembali… kembali…bila tidak ada kesalahan Pilih menu Laporan LaporanData Pelanggan
10
Membuat Report Data Barang
Buat form baru (form3) simpan unit dengan nama : URBrg Buat desain dan aturan yang sama dengan Report Data Pelanggan dan sesuaikan dengan data barang
Membuat Report Data Transaksi
Buat form baru (form4) simpan dengan nama unit : URTrans Letakan Adoquery1, ubah property : - Name : QPLG - Connection : form1.AdoConnection1 - SQL : SELECT * FROM PELANGGAN - Active : True
11
Letakan Adoquery1, ubah property : - Name : QBRG - Connection : form1.AdoConnection1 - SQL : SELECT * FROM BARANG - Active : True
Letakan Adoquery1, isi property : - Name : QTrans - Connection : form1.Adoconnection1 - SQL : SELECT * FROM TRANSAKSI T, PELANGGAN P, BARANG B WHERE (T.NO_PLG=P.NO_PLG) AND (T.KD_BRG=B.KD_BRG) - Active : True
12
Klik 2x QTrans Klik kanan pada kotak pilih Add All Fields Perhatikan Field yang muncul, Bila yang berawalan B. maka milik tabel Barang, P. milik Tabel pelanggan dan T. atau yang tidak ada awalan, maka itu milik tabel Transaksi
Letakan QuickRep, ubah property : - Name : RTrans - DataSet : QTrans - [+]Bands ubah HasPageDetail dan HasPageHeader menjadi True Letakan komponen QrGroup pilih property Expression klik […] - Klik tombol [Database Field] - Pilih tabel QTRans - Pilih T.No_plg - OK
13
Perintah tadi dimaksudkan untuk menampilkan cetakan per Group berdasarkan No_Plg QRGroup merupakan komponen yang akan menjadikan hasil cetakan di tampilkan dalam bentuk group
Letakan komponen QRBand Aktifkan QRGroup pilih property [+]Footer Band dan isi dengan QRBand1 Dari hasil di atas, maka akan terbentuk footer Qgroup yang nanti akan digunakan untuk menampilkan Summary dari Jumlah
14
Supaya hasil cetakan ditampilkan dalam bentuk LandScape… - Klik kanan pada QuickRep (RTrans) - Pilih Report Setting - Pada kotak Paper Size dari Portrait ubah menjadi LandScape
Mulai dari blok QRGroup Letakan komponen QRLabel dan ubah masing-masing captionnya (yang tercetak tebal) seperti pada gambar berikut :
15
Letakan QRDBText di samping KODE PELANGGAN, isi property : - Dataset : QTrans - Datafield : T.No_Plg Lakukan hal yang sama untuk Nama dan Alamat
16
Beralih ke blok Detail Letakan komponen QRDBText dan atur masing-masing koneksinya dari Tabel QTrans untuk : Faktur, Tgl-Jual, KD-BRG, Nama barang, Harga, dan Banyak
Sedangkan untuk Jumlah, ikuti perintah ini : - Letakan komponen QRExpr - Pilih property Expression, klik […] - Pada kotak Enter Expression, isi dg: QTRANS.Harga*QTRANS.banyak - OK
17
Beralih ke Group Footer - Letakan komponen QRExpr, pilih property Expression klik […], pada kotak Enter Expression isi dengan perintah berikut : SUM(QTRANS.Harga*QTRANS.banyak) - Pilih property Reset After Print ubah menjadi True
Property Reset After Print adalah untuk me reset ulang penjumlahan dari perhitungan yang telah dilakukan oleh Group Selesai
18
Aktifkan form1 pilih menu Laporan Data Transaksi, isi dengan kode berikut : form4.RTrans.Preview; RUN… bila tidak ada kesalahan Lihat hasilnya
TERIMA KASIH Wassalam……………………..
19
