�ݺ�ߣ

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

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;

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.

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 :
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)

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
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
else
Label3.Caption:= 'Anda memasukan inputan selain 10,20,30,40,50';

6
Masukan perintah berikut pada tombol ButtonCase :
case StrToInt(Edit1.Text) of
10:Label3.Caption := 'Anda Memasukan 10';
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
Button Caption For
Name ButtonFOR
Memo Name Memo1
Listbox Name Listbox1
Beri perintah pada tombol for seperti berikut :

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

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
ADOConnection Connected True
Name ADOConnection1
Login Prompt False
ConnectionString (lihat gambar dibawah)
ADOTable Connection ADOConnection1
TableName t_mhs
Name ADOTableMHS
Active True

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.

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

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 :
Name ADOConnection1
Login Prompt False
ConnectionString (seperti cara dimodul 3)

12
TableName t_mhs
Name ADOTableMHS
Active True
TableName t_jurusan
Name ADOTableJur
Active True
Dataset ADOTableMHS
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

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;

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

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
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;

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 :
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
Dataset ADOQueryMHS

17
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 :

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(Combo
BoxJur.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.Te
xt)+' WHERE NIM='+QuotedStr(EditNim.Text));
ExecSQL;
SQL.Clear;
Open;
end;
end;
procedure TForm1.ButtonFindClick(Sender: TObject);
begin

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;
else
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;
else
end;
end else
begin
MessageDlg('Kriteria pencarian belum
ditentukan!!',mtInformation,[mbOK],0)
end;
with ADOQueryMhs do
begin
end;
end;

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;
Open;
end;
end;
procedure TForm1.DBGridMHSCellClick(Column: TColumn);
begin
with ADOQueryMhs do
begin
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

21
EditNim.Text := '';
EditNama.Text := '';
EditNim.SetFocus;
end;
Simpan dan jalankan Aplikasi.

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 FilesBorlandDelphi7Bin klik open  OK.
Lihat pada Component pallete, apabila telah berhasil maka akan muncul QReport pada Component
Pallete.

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 :

24
QuickRep Dataset Form1.ADOQueryMhs
QRBand BandType rbPageHeader
Name QRBand1
QRBand BandType rbDetail
Name QRBand2
QRLabel Name QRLabel4
Caption LAPORAN DATA
MAHASISWA ITN NGALAM
Caption Nama
Caption NIM
Caption Jurusan
Caption NO
QRExpr Name QRExpr1
Expression COUNT
QRDBText Name QRDBText1
DataSet Form1.ADOQueryMhs
DataField NAMA
DataField NIM
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.

�ݺ�ߣ

Modul praktikum pbw

Recommended

More Related Content

What's hot (18)

Similar to Modul praktikum pbw (20)

Modul praktikum pbw