Post on 13-Aug-2015
MODUL PRAKTIKUM
PEMROGRAMAN BERBASIS WINDOWS
LABORATORIUM PEMROGRAMAN KOMPUTER &
MULTIMEDIA
JURUSAN TEKNIK ELEKTRO
KONSENTRASI TEKNIK KOMPUTER
FAKULTAS TEKNOLOGI INDUSTRI
INSTITUT TEKNOLOGI NASIONAL
MALANG
2012
Laboratorium Pemrograman Komputer dan Multimedia | 2012
1
MODUL 1
Nama Percobaan : Pengenalan Borland Delphi 7.0
Tujuan : Mampu mengetahui dan Mengoperasikan komponen-komponen dasar
pemrograman berbasis windows dengan Delphi.
Materi :
Integrated Development Environtment (IDE)
IDE merupakan bagian dari Delphi yang digunakan untuk menciptakan aplikasi. Melalui IDE inilah
pemrogram secara visual merancang tampilan untuk pemakai dan menuliskan kode. Gambar di bawah
menunjukkan bagian-bagian IDE Delphi.
Component Pallete
Form Designer
Code Explorer
Object Inspector
Menu
Laboratorium Pemrograman Komputer dan Multimedia | 2012
2
Menu
Menu pada Delphi memiliki kegunaan seperti menu pada Aplikasi windows lainnya, dari
Menu ini kita dapat menjalankan program, menyimpan program dsb.
Component Pallete
Komponen-komponen pada Delphi terdapat pada Component Pallete ini, untuk
mengetahui nama dari komponen anda dapat melihatnya dengan cara menaruh kursor
tepat pada komponen tersebut.
Form Designer
Merupakan tempat dimana anda dapat merancang jendela aplikasi, dengan cara
meletakkan yang diambil dari Component Pallete.
Code Explorer
Tempat kode progrom ditempatkan.
Membuat Program Sederhana Dengan Delphi 7
1. Komponen Button dan Edit
Buat aplikasi baru dengan memilih menu File New Application. Pilih komponen Button dari
Component Pallete Standart sebanyak 2 buah. Kemudian tambahkan juga komponen Edit dan Label.
Nama Komponen Propertis Nilai Properti
Button Caption OK
Name ButtonOK
Button Caption Keluar
Name ButtonClose
Edit Text
Name Edit1
Label Caption Ini Namaku Bos
Klik ganda pada ButtonOK dan masukkan perintah diantara begin dan end;
Edit1.Text := 'Isi dengan Nama Anda';
Klik ganda pada ButtonClose dan masukan perintah :
Application.Terminate;
Laboratorium Pemrograman Komputer dan Multimedia | 2012
3
Simpan program dengan memilih File Save All atau Shift+Ctrl+S lalu beri nama program sesuai
keinginan anda. Kemudian jalankan Aplikasi dengan menekan tombol Run atau tekan tombol F9. Tips : Untuk mempermudah dan mempercepat dalam penulisan kode program, gunakan tombol shortcut caranya sebagai berikut. Tekan : Ctrl + Space.
Laboratorium Pemrograman Komputer dan Multimedia | 2012
4
MODUL 2
Nama Percobaan : Percabangan dan Pengulangan
Tujuan : Mampu mengetahui dan menerapkan percabangan dan pengulangan
pada aplikasi yang dibangun.
Materi :
a. Percabangan
Dengan pernyataan Percabangan, program anda dapat melompat kebaris lain. Pada dasarnya ada
dua macam pernyataan percabangan pada Delphi, yaitu pernyataan if dan case.
1. Pernyataan if .. else
Pernyataan if .. else digunakan untuk menguji sebuah kondisi. Bila kondisi yang diuji terpenuhi,
program akan menjalankan pernyataan-pernyataan terntentu; dan bila kondisi yang diuji salah,
program akan menjalankan penyataan-pernyataan lain.
Percobaan 2.1
Gunakan komponen-komponen pada table dibawah ini :
Nama Komponen Propertis Nilai Properti
Button Caption Pilihan Saya
Name Button1
RadioGroup Caption Makanan Pokok
Name RadioGroup1
Items Roti, Nasi
Klik ganda pada tombol ‘Pilihan saya’ dan masukkan perintah seperti berikut;
if RadioGroup1.ItemIndex=0 then MessageDlg('Saya Suka ROTIIIII BOSS',mtConfirmation,mbOKCancel,0) else if RadioGroup1.ItemIndex=1 then MessageDlg('Saya Suka NASIIII BOSS',mtConfirmation,mbOKCancel,0)
Laboratorium Pemrograman Komputer dan Multimedia | 2012
5
else MessageDlg('Saya Tidak Suka Semuanya',mtConfirmation,mbOKCancel,0) end;
Kemudian simpan dan jalankan program dengan menekakan tombol Run. Catatan : Sebelum
pernyataan else tidak diperbolehkan ada tanda ( ; ).
2. Pernyataan case
Pernyataan case digunakan untuk menyederhanakan konstruksi if .. else if yang terlalu banyak.
Percobaan 2.2
Gunakan komponen-komponen pada table dibawah ini :
Nama Komponen Propertis Nilai Properti
Button Caption If .. Else
Name ButtonIf
Button Caption Case
Name ButtonCase
Edit Text
Name Edit1
Label1 Caption Masukan Nilai PBW
Label2 Caption Kriteria
Label3 Caption
Klik ganda pada ButtonIf, beri perintah seperti berikut :
if StrToInt(Edit1.Text)=10 then Label3.Caption:= 'Anda Memasukan 10' else if StrToInt(Edit1.Text)=20 then Label3.Caption:= 'Anda Memasukan 20' else if StrToInt(Edit1.Text)=30 then Label3.Caption:= 'Anda Memasukan 30' else if StrToInt(Edit1.Text)=40 then Label3.Caption:= 'Anda Memasukan 40' else if StrToInt(Edit1.Text)=50 then Label3.Caption:= 'Anda Memasukan 50' else Label3.Caption:= 'Anda memasukan inputan selain 10,20,30,40,50';
Laboratorium Pemrograman Komputer dan Multimedia | 2012
6
Masukan perintah berikut pada tombol ButtonCase :
case StrToInt(Edit1.Text) of 10:Label3.Caption := 'Anda Memasukan 10'; 20:Label3.Caption := 'Anda Memasukan 20'; 30:Label3.Caption := 'Anda Memasukan 30'; 40:Label3.Caption := 'Anda Memasukan 40'; 50:Label3.Caption := 'Anda Memasukan 50'; else Label3.Caption:= 'Anda memasukan inputan selain 10,20,30,40,50'; end;
Jalankan program dan lihat hasilnya.
b. Pengulangan
Pernyataan pengulangan digunakan untuk menjalankan satu atau beberapa pernyataan sebanyak
beberapa kali. Dengan kata lain anda dapat menjalankan beberapa pernyataan hanya dengan
menuliskan pernyataan tersebut satu kali saja, dalam praktikum kali ini hanya akan dibahas
pernyataan perulangan dengan for saja.
1. Pernyataan For
Pernyataan ini digunakan bila sudah diketahui berapa kali akan mengulang satu atau beberapa
pernyataan.
Percobaan 2.3
Gunakan komponen-komponen pada table dibawah ini :
Nama Komponen Propertis Nilai Properti
Button Caption For
Name ButtonFOR
Memo Name Memo1
Listbox Name Listbox1
Beri perintah pada tombol for seperti berikut :
Laboratorium Pemrograman Komputer dan Multimedia | 2012
7
procedure TForm1.ButtonFORClick(Sender: TObject); var a: integer; begin Memo1.Clear; // menghilangkan isi dari memo for a:=1 to 4 do begin ListBox1.Items.Add('FOR dengan delphi pake listbox bos'); Memo1.Lines.Add('FOR dengan delphi pake memo bos'); end; end;
Setelah semua script selesai dituliskan selanjutnya simpan dan jalankan aplikasi.
Tips : untuk menuliskan perintah percabangan dan perulangan agar lebih cepat gunakan tombol
shortcut kombinasi seperti berikut. Tekan : Ctrl + J
Laboratorium Pemrograman Komputer dan Multimedia | 2012
8
MODUL 3
Nama Percobaan : Mengakses Database (Microsoft Access) dengan Delphi (Dasar).
Tujuan : Mampu mengetahui dan menerapkan cara memanipulasi database
melalui Delphi dengan Wizard.
Materi :
a. Membuat Database Sederhana dengan Microsoft Access
Membuat database dengan Microsoft Access dan simpan dalam satu folder dimana aplikasi
disimpan, buat database dengan nama db_kampus dengan satu table dengan nama table t_mhs
dengan field seperti pada table dibawah ini :
Nama Field Data Type Field Size Primary Key
NIM Text 8 *
NAMA Text 20
JURUSAN Text 25
b. Mengkoneksikan Database dengan Delphi
Pemrograman database dengan Delphi memerlukan suatu mesin basis data. Mesin tersebut bisa
menggunakan BDE (Borland Database Engine) atau mesin basis data buatan Microsoft, yaitu ADO
(ActiveX Data Objects). Baik BDE maupun ADO memiliki kelebihan dan kekurangan masing-
masing. Secara umum, jika ingin mengakses tabel paradox atau dBase, maka gunakan BDE, tetapi
jika ingin mengakses tabel Access atau SQL Server maka gunakan ADO. Pada praktikum ini hanya
dipraktekkan cara mengakses database dengan menggunakan ADO dan menggunakan database
Access. Untuk dapat mengakses database, maka antara database dengan Delphi harus
terkoneksi.
Percobaan 3.1 :
Gunakan komponen-kompoen berikut ini untuk membuat koneksi dan mengakses database
Access dengan delphi
Nama Komponen Propertis Nilai Properti
ADOConnection Connected True
Name ADOConnection1
Login Prompt False
ConnectionString (lihat gambar dibawah)
ADOTable Connection ADOConnection1
TableName t_mhs
Name ADOTableMHS
Active True
Laboratorium Pemrograman Komputer dan Multimedia | 2012
9
DataSource Name DataSourceMHS
Dataset ADOTableMHS
DBGrid DataSource DataSourceMHS
Name DBGridMHS
DBNavigator DataSource DataSourceMHS
Name DBNavigatorMHS
Untuk ConnectionString pada ADOConnection klik tanda . Setelah itu akan muncul kotak
dialog, pilih Use Connection String dan klik tombol Built… , pada dialog Data Link Propertis pilih
tab Provider dan pilih Microsoft Jet 4.0 Ole DB Provider klik tombol Next >>. Pilih database dan
kosongkan isi pada User Name. Untuk mencoba apakah koneksi kita berhasil atau tidak klik pada
tombol Test Connection, apabila berhasil maka akan muncul Pesan dialog yang menerangan
koneksi berhasil.
Laboratorium Pemrograman Komputer dan Multimedia | 2012
10
Komponen ADOConnection digunakan untuk menghubungkan Program dan Database yang
nantikan akan diproses. Sedangkan ADOTable digunakan untuk mengakses table dari database.
Komponen DataSource digunakan untuk menjembatani Form tampilan pengguna dengan
komponen dataset yang mewakili dari database. Penggunaan Navigator ini untuk berpindah kursor
pada record yangdipilih. Setelah semua konfigurasi telah selesai maka selanjutnya Simpan dan
jalankankan aplikasi.
Tips : pada tab Connection hilangkan lokasi root folder database sehingga akan berisi nama
databasenya saja. Hal ini digunakan untuk mempermudah menjalankan aplikasi apabila aplikasi
dijalankan dikomputer yang berbeda.
Lokasi file Database
Laboratorium Pemrograman Komputer dan Multimedia | 2012
11
MODUL 4
Nama Percobaan : Mengakses Database (Microsoft Access) dengan Delphi (lebih lanjut)
Tujuan : Mampu mengetahui dan menerapkan cara memanipulasi database
melalui Delphi dengan ADOTable dan ADOQuery.
Materi :
a. Menambahkan Tabel
Tambahkan satu table lagi pada database yang telah dibuat, tambahkan table t_jurusan dengan
field seperti gambar dibawah ini :
Nama Field Data Type Field Size Primary Key
JURUSAN Text 25 *
Setelah table terbentuk selanjutnya relasikan table t_mhs dengan table t_jurusan (One-to-Money)
seperti gambar dibawah ini :
b. Pembuatan Aplikasi database Sederhana (CRUD) Menggunakan komponen ADOTable.
Pada percobaan pembuatan aplikasi ini akan menjalankan perintah-perintah dasar untuk
mengakses database diantaranya Create, Read, Update dan Delete (CRUD). Dengan
menggunakan komponen-komponen lain diantaranya Edit, Button, ComboBox dan lain sebagainya.
Kita gunakan komponen ini karena dalam percobaan kali ini untuk memanipulasi data digunakan
koding bukan melalui wizard atau DBNavigator. Seperti terlihat pada table dan gambar dibawah ini :
Nama Komponen Propertis Nilai Properti
ADOConnection Connected True
Name ADOConnection1
Login Prompt False
ConnectionString (seperti cara dimodul 3)
ADOTable Connection ADOConnection1
Laboratorium Pemrograman Komputer dan Multimedia | 2012
12
TableName t_mhs
Name ADOTableMHS
Active True
ADOTable Connection ADOConnection1
TableName t_jurusan
Name ADOTableJur
Active True
DataSource Name DataSourceMHS
Dataset ADOTableMHS
DBGrid DataSource DataSourceMHS
Name DBGridMHS
ComboBox Name ComboBoxJur
ComboBox Name ComboBoxFind
Edit Name EditNama
Edit Name EditNIM
Edit Name EditFind
Button Name ButtonFind
Name ButtonFirst
Name ButtonPrev
Name ButtonNext
Name ButtonLast
Name ButtonAdd
Name ButtonSave
Name ButtonEdit
Name ButtonDel
XPManifest Name XPManifest1
Laboratorium Pemrograman Komputer dan Multimedia | 2012
13
Pada aplikasi ini ditambahkan beberapa Procedure baru yakni Procedure Fresh dan Procedure
Bersih (contoh penerapan procedure). Seperti terlihat pada gambar dibawah :
Tambahkan perintah pada Form di events onCreate atau klik dua kali pada Form berikut perintah
programnya :
ADOTableMHS.GetFieldNames(ComboBoxFind.Items); with ComboBoxJur do begin Items.clear; with ADOTableJur do while not eof do begin items.add(ADOTableJur.Fields[0].AsString); Next; end; end;
Laboratorium Pemrograman Komputer dan Multimedia | 2012
14
Agar inputan pada EditNIM tidak dapat di isi dengan huruf dan hanya dapat diisi dengan angka,
gunakan perintah berikut pada event onKeyPress :
if not(Key in['0'..'9',#8,#10]) then Key := #0;
begitu juga sebaliknya pada nama agar inputan nama tidak dapat diisi dengan angka maka gunakan
perintah seperti dibawah ini pada event onKeyPress pada EditNama :
if (Key in['0'..'9',#8,#10]) then Key := #0;
Selanjutnya masukan perintah-perintah berikut berturut-turut pada tombol Add, Edit,Save,Delete dll :
procedure TForm1.ButtonAddClick(Sender: TObject); begin bersih(Sender); end; procedure TForm1.ButtonEditClick(Sender: TObject); begin with ADOTableMHS do begin Edit; FieldByName('NIM').AsString := EditNim.Text; FieldByName('NAMA').AsString := EditNama.Text; FieldByName('JURUSAN').AsString := ComboBoxJur.Text; Post; fres(Self); bersih(Self); end; end; procedure TForm1.ButtonDelClick(Sender: TObject); var pesan: String; begin pesan:='Anda Yakin Nama ' + ADOTableMHS.Fields[1].AsString + ' Dihapus'; if (Application.MessageBox(Pchar(pesan),'Info',MB_YESNO or MB_ICONWARNING)= IDYES) then begin ADOTableMHS.Delete; end; fres(Self); end; procedure TForm1.ButtonFindClick(Sender: TObject); begin with ADOTableMHS do begin if ComboBoxFind.Text = 'NIM' then ADOTableMHS.Locate('NIM',EditFind.Text,[]) else if ComboBoxFind.Text = 'NAMA' then
Laboratorium Pemrograman Komputer dan Multimedia | 2012
15
ADOTableMHS.Locate('NAMA',EditFind.Text,[]) else if ComboBoxFind.Text = 'JURUSAN' then ADOTableMHS.Locate('JURUSAN',EditFind.Text,[]) else begin MessageDlg('Kriteria Pencarian Kosong',mtError,mbOKCancel,0); EditFind.SetFocus; end; end; with ADOTableMHS do begin EditNim.Text := Fields[0].AsString; EditNama.Text := Fields[1].AsString; ComboBoxJur.Text := Fields[2].AsString; end; end; procedure TForm1.ButtonFirstClick(Sender: TObject); begin ADOTableMHS.First; end; procedure TForm1.ButtonPrevClick(Sender: TObject); begin ADOTableMHS.Prior; end; procedure TForm1.ButtonNextClick(Sender: TObject); begin ADOTableMHS.Next; end; procedure TForm1.ButtonLastClick(Sender: TObject); begin ADOTableMHS.Last; end; procedure TForm1.DBGridMHSCellClick(Column: TColumn); begin with ADOTableMHS do begin EditNim.Text := Fields[0].AsString; EditNama.Text := Fields[1].AsString; ComboBoxJur.Text := Fields[2].AsString; end; end; procedure TForm1.ButtonSaveClick(Sender: TObject); begin with ADOTableMHS do begin Append; FieldByName('NIM').AsString := EditNim.Text; FieldByName('NAMA').AsString := EditNama.Text; FieldByName('JURUSAN').AsString := ComboBoxJur.Text;
Laboratorium Pemrograman Komputer dan Multimedia | 2012
16
Post; fres(Self); bersih(Self); end; end; end.
c. Pembuatan Aplikasi database Sederhana (CRUD) dengan perintah SQL dan Menggunakan
komponen ADOQuery.
Dengan suatu Query kita bisa mengakses beberapa table sebagai suatu kesatuan. Di Delphi kita
bias mengggunakan komponen ADOQuery untuk mengeksekusi perintah SQL dalam mengakses
maupun memanipulasi data, selain itu banyak kemudahan yang di peroleh jika menggunakan suatu
query. Dalam percobaan pembuatan aplikasi dengan menggunakan komponen ADOQuery ini akan
digunakan perintah-perintah dasar Structur Query Language (SQL). Sebagai contoh berikut ini
perintah-perintah dasar SQL :
Menampilkan isi table :
SELECT nama_field1, nama_field2 FROM nama_tabel
Perintah tambah data :
INSERT INTO nama_tabel VALUES isi_tabel
Perintah edit atau ubah data :
UPDATE nama_tabel SET nama_field=isi_field WHERE nama_field(kunci)=isi
Perintah hapus data :
DELETE FROM nama_tabel WHERE nama_field=isi
Gunakan komponen seperti yang tertera pada table dibawah ini :
Nama Komponen Propertis Nilai Properti
ADOConnection Connected True
Name ADOConnection1
Login Prompt False
ConnectionString (seperti cara dimodul 3)
ADOQuery Connection ADOConnection1
Name ADOQueryMHS
Active True
SQL SELECT * FROM t_mhs
ADOQuery Connection ADOConnection1
Name ADOQueryJur
Active True
SQL SELECT * FROM t_jurusan
DataSource Name DataSourceMHS
Dataset ADOQueryMHS
Laboratorium Pemrograman Komputer dan Multimedia | 2012
17
DBGrid DataSource DataSourceMHS
Name DBGridMHS
ComboBox Name ComboBoxJur
ComboBox Name ComboBoxFind
Edit Name EditNama
Edit Name EditNim
Edit Name EditFind
Button Name ButtonFind
Name ButtonFirst
Name ButtonPrev
Name ButtonNext
Name ButtonLast
Name ButtonAdd
Name ButtonSave
Name ButtonEdit
Name ButtonDel
XPManifest Name XPManifest1
Tampilan dari form aplikasi :
Laboratorium Pemrograman Komputer dan Multimedia | 2012
18
Atur koneksi pada ADOConnection seperti pada modul 3. Dan isikan juga perintah SQL pada
propertis SQL dari ADOQuery seperti tertera pada table diatas.
Beikut perintah pada masing-masing tombol :
procedure TForm1.FormCreate(Sender: TObject); begin ADOQueryMhs.GetFieldNames(ComboBoxFind.Items); with ComboBoxJur do begin Items.clear; with ADOQueryJur do while not eof do begin items.add(ADOQueryJur.Fields[0].AsString); Next; end; end; end; procedure TForm1.ButtonSaveClick(Sender: TObject); begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('INSERT INTO t_mhs VALUES ('+QuotedStr(EditNim.Text)+','+QuotedStr(EditNama.Text)+','+QuotedStr(ComboBoxJur.Text)+')'); ExecSQL; SQL.Clear; SQL.Add('SELECT *FROM t_mhs'); Open; end; end; procedure TForm1.ButtonEditClick(Sender: TObject); begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('UPDATE t_mhs SET NAMA='+QuotedStr(EditNama.Text)+',JURUSAN='+QuotedStr(ComboBoxJur.Text)+' WHERE NIM='+QuotedStr(EditNim.Text)); ExecSQL; SQL.Clear; SQL.Add('SELECT *FROM t_mhs'); Open; end; end; procedure TForm1.ButtonFindClick(Sender: TObject); begin
Laboratorium Pemrograman Komputer dan Multimedia | 2012
19
if ComboBoxFind.Text='NIM' then begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('SELECT * FROM t_mhs WHERE NIM='+QuotedStr(EditFind.Text)+''); Open; if ADOQueryMhs.RecordCount<>0 then MessageDlg('Data Ditemukan',mtInformation,[mbOK],0) else MessageDlg('Data Tidak Ditemukan',mtInformation,[mbOK],0); end; end else if ComboBoxFind.Text='NAMA' then begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('SELECT * FROM t_mhs WHERE NAMA LIKE '+QuotedStr('%'+EditFind.Text+'%')+''); Open; if ADOQueryMhs.RecordCount<>0 then MessageDlg('Data Ditemukan',mtInformation,[mbOK],0) else MessageDlg('Data Tidak Ditemukan',mtInformation,[mbOK],0); end; end else if ComboBoxFind.Text='JURUSAN' then begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('SELECT * FROM t_mhs WHERE JURUSAN='+QuotedStr(EditFind.Text)+''); Open; if ADOQueryMhs.RecordCount<>0 then MessageDlg('Data Ditemukan',mtInformation,[mbOK],0) else MessageDlg('Data Tidak Ditemukan',mtInformation,[mbOK],0); end; end else begin MessageDlg('Kriteria pencarian belum ditentukan!!',mtInformation,[mbOK],0) end; with ADOQueryMhs do begin EditNim.Text := Fields[0].AsString; EditNama.Text := Fields[1].AsString; ComboBoxJur.Text := Fields[2].AsString; end; end;
Laboratorium Pemrograman Komputer dan Multimedia | 2012
20
procedure TForm1.ButtonDeleteClick(Sender: TObject); begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('DELETE FROM t_mhs WHERE NIM='+QuotedStr(EditNim.Text)); ExecSQL; SQL.Clear; SQL.Add('SELECT *FROM t_mhs'); Open; end; end; procedure TForm1.DBGridMHSCellClick(Column: TColumn); begin with ADOQueryMhs do begin EditNim.Text := Fields[0].AsString; EditNama.Text := Fields[1].AsString; ComboBoxJur.Text := Fields[2].AsString; end; end; procedure TForm1.ButtonAllClick(Sender: TObject); begin with ADOQueryMhs do begin SQL.Clear; SQL.Add('SELECT * FROM t_mhs'); Open; end; end; procedure TForm1.ButtonFirstClick(Sender: TObject); begin ADOQueryMhs.First; end; procedure TForm1.ButtonPrevClick(Sender: TObject); begin ADOQueryMhs.Prior; end; procedure TForm1.ButtonNextClick(Sender: TObject); begin ADOQueryMhs.Next; end; procedure TForm1.ButtonLastClick(Sender: TObject); begin ADOQueryMhs.Last; end; procedure TForm1.ButtonAddClick(Sender: TObject); begin
Laboratorium Pemrograman Komputer dan Multimedia | 2012
21
EditNim.Text := ''; EditNama.Text := ''; EditNim.SetFocus; end;
Simpan dan jalankan Aplikasi.
Laboratorium Pemrograman Komputer dan Multimedia | 2012
22
MODUL 5
Nama Percobaan : Membuat Laporan sederhana
Tujuan : Mampu mengetahui dan menerapkan cara membuat laporan dengan
Quick Report.
Materi :
a. Instal Quick Report
Pada Delphi 7 terdapat 2 komponen untuk membuat Laporan / Report yaitu : RaveReport dan Quick
Report. Pada praktikum ini yang digunakan adalah Quick Report. Pada Delphi 7 sendiri Komponen
Quick Report sudah tidak tersedia pada komponen pallete, sehingga untuk menggunakannya harus
terlebih dahulu di instal. Berikut langkah-langkah untuk menginstallnya :
Masuk menu Component Instal Packages… klik tombol Add… cari file dclqrt70.bpl di
directory C:\Program Files\Borland\Delphi7\Bin klik open OK.
Lihat pada Component pallete, apabila telah berhasil maka akan muncul QReport pada Component
Pallete.
Laboratorium Pemrograman Komputer dan Multimedia | 2012
23
b. Membuat Report / Laporan Sederhana dengan QuickReport
Pada percobaan sebelumnya dengan ADOQuery tambahkan Button baru dengan nama ButtonQR
dan caption Report ,serta tambahkan Form baru. File New Form.
Klik 2 kali pada ButtonQR beri perintah :
Form2.QuickRep1.Preview;
Sebelum mengatur propertis dari tiap-tiap komponen QuickReport, tambahkan perintah Uses pada
masing-masing Unit1 dan Unit2 seperti pada gambar dibawah :
Pada Unit1 tambahkan uses Unit2 begitu juga sebaliknya, fungsi dari Uses untuk memudahkan
dalam pengaksesan pada Form dengan Form lainnya karena saling terhubung. Pada Form baru
tersebut tambahkan komponen-komponen pada quickreport, seperti pada table dibawah ini :
Laboratorium Pemrograman Komputer dan Multimedia | 2012
24
Nama Komponen Propertis Nilai Properti
QuickRep Dataset Form1.ADOQueryMhs
QRBand BandType rbPageHeader
Name QRBand1
QRBand BandType rbDetail
Name QRBand2
QRLabel Name QRLabel4
Caption LAPORAN DATA MAHASISWA ITN NGALAM
QRLabel Name QRLabel1
Caption Nama
QRLabel Name QRLabel2
Caption NIM
QRLabel Name QRLabel3
Caption Jurusan
QRLabel Name QRLabel5
Caption NO
QRExpr Name QRExpr1
Expression COUNT
QRDBText Name QRDBText1
DataSet Form1.ADOQueryMhs
DataField NAMA
QRDBText Name QRDBText2
DataSet Form1.ADOQueryMhs
DataField NIM
QRDBText Name QRDBText3
DataSet Form1.ADOQueryMhs
DataField JURUSAN
Letakkan semua komponen QRDBText dan QRExpr pada QRBand2 dengan BandType rbDetail. Tanpa menjalankan program kita dapat melihat tampilan dari report yang kita buat, Klik kanan pada QuickRep Preview .
Simpan dan Jalankan aplikasi satu persatu.