MODUL 1
PENGENALAN DELPHI 7.0
1.1 Lingkungan Kerja Delphi
Object
Inspector
|
Unit
Editor
|
Object Tree
View
|
Form
Designer
|
Component
Palette
|
Ada 5 form penting dalam lingkungan kerja Delphi, seperti
yang ditunjukkan dalam gambar yaitu Component
Palette, Object Inspector, Object Tree View, Form Designer, dan Unit Editor.
Component Palette, disini
terletak komponen-komponen yang akan digunakan dalam membangun aplikasi,
terdiri dari banyak Tab yang mana
komponen ini bisa ditambahkan lagi dari menu component, atau ditambahkan
melalui aplikasi pihak ketiga, contohnya Raize Component atau SUIPack. Untuk
menggunakannya cukup klik komponen
yang diinginkan kemudian klik pada
Form Designer di Form yang
diinginkan.
Object Inspector,
pada form ini terdapat 2 bagian atau Tab,
yaitu Properties dan Events. Tab Properties berisikan
pengaturan komponen, isinya tergantung pada komponen yang sedang dipilih. Events berisikan daftar kejadian pemicu
untuk komponen melakukan perintah tertentu.
Object Tree View,
berisikan daftar komponen yang diletakkan pada Form Designer. Form ini sangat berguna ketika sudah terlalu banyak
komponen yang diletakkan ataupun komponen sudah tertumpuk sehingga tidak
terlihat, melalui form ini akan mempermudah dalam mencari komponen.
Form Designer adalah
ibarat kanvas tempat meletakkan komponen-komponen yang akan dipakai dalam
aplikasi.
Unit Editor
adalah tempat mengisikan perintah-perintah yang akan digunakan dalam aplikasi,
setiap form akan memiliki 1 unit yang mana tiap unit berisikan perintah yang
dikelompokkan kedalam prosedur, jadi 1
form ada 1 unit seberapapun
banyaknya komponen yang digunakan.
1.2 Praktek I
Susunlah komponen Delphi seperti berikut:
Sebagai mana kita
ketahui rumus menghitung luas persegi panjang adalah Luas=panjang*lebar, dan
rumus menghitung keliling adalah Keliling=2*(p+l), nah kita punya edit1 sebagai
panjang, edit2 sebagai lebar maka untuk menghitung luas kurang lebih adalah :
edit3.text:=edit1.text*edit2.text
yang maksudnya adalah
isi teks pada edit3 adalah perkalian dari teks pada edit1 dan edit2, akan
tetapi karena text merupakan tipe data String dan tidak bisa dlakukan perkalian
maka perlu ada konversi dari String ke Integer (StrToInt) maka kita buat dulu
variabel panjang dan lebar yang bertipe data Integer, pada tombol luas klik 2x
dan isi seperti ini
procedure TForm1.Button1Click(Sender: TObject);
var panjang,lebar,luas:Integer;
begin
panjang:=StrToInt(Edit1.Text);{mengubah teks pada edit kedalam
variabel integer panjang}
lebar:=StrToInt(Edit2.Text);
luas:=panjang*lebar; {rumus menghitung luas}
Edit3.Text:=IntToStr(luas);{ menampilkan luas ke edit3}
end;
maka ketika aplikasi
dijalankan kita isi panjang dan lebar kemudian klik tombol luas maka akan
tampil seperti berikut
1.3 Tugas I
1.
Isi coding untuk tombol keliling
2.
File apa saja yang tercipta ketika menyimpan
program diatas
MODUL 2
PERCABANGAN
2.1 Prinsip Percabangan
Percabangan dalam Delphi sebagaimana dalam Pascal memiliki
sintaks sebagai berikut:
If kondisi
then pernyataan;
If kondisi
then
Pernyataan1
Else
Pernyataan2;
If kondisi1
then
Pernyataan1
Else if kondisi2
then
Pernyataan2
Else
Pernyataan3;
Perlu
diperhatikan adalah titik koma pada
sintaks if hanya satu dan terletak diakhir sintaks, kecuali
ketika ada lebih dari 1 pernyataan
dalam satu kondisi maka sintaksnya adalah sebagai berikut:
If kondisi1
then
Begin
Pernyataan1;
Pernyataan2;
End
Else if kondisi2
then
Begin
Pernyataan3;
Pernyataan4;
End
Else
Begin
Pernyataan5;
Pernyataan6;
End;
2.2 Praktek II
Buat aplikasi baru dengan komponen seperti pada gambar:
1.
Label 3 Buah
2.
Edit 2 Buah
3.
Button 3 Buah
No
|
Komponen
|
Properties
|
Value
|
1
|
Label1
|
Caption
|
Nama
|
Font Size
|
10
|
||
2
|
Label2
|
Caption
|
Nilai
|
Font Size
|
10
|
||
3
|
Label3
|
Caption
|
(kosongkan)
|
Font Size
|
10
|
||
4
|
Edit1
|
Text
|
(kosongkan)
|
5
|
Edit2
|
Text
|
(kosongkan)
|
6
|
Button1
|
Caption
|
Proses
|
7
|
Button2
|
Caption
|
Baru
|
8
|
Button3
|
Caption
|
Keluar
|
Tombol
Proses akan berisi proses pengubahan nilai angka menjadi nilai huruf, tombol
baru untuk membersihkan edit, dan tombol keluar untuk menutup aplikasi.
procedure
TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
nilai:=strtoint(edit2.Text);
if nilai<40 then
label3.Caption:='E'
else if nilai<55 then
label3.Caption:='D'
else if nilai<70 then
label3.Caption:='C'
else if nilai<80 then
label3.Caption:='B'
else if nilai<=100 then
label3.Caption:='A'
else
label3.caption:=’Error’;
end;
procedure TForm1.Button2Click(Sender:
TObject);
begin
edit1.Clear;
edit2.Text:='';
label3.Caption:='';
end;
procedure
TForm1.Button3Click(Sender: TObject);
begin
application.Terminate;
end;
2.3 Tugas II
Tambahkan
satu buah label sebagai keterangan dengan ketentuan:
Nilai<40 =
Sangat Kurang
Nilai<55 =
Kurang
Nilai<70 =
Cukup
Nilai<80 = Baik
Nilai<=100 =
Sangat Baik
MODUL 3
PERCABANGAN (2)
3.1 Percabangan Untuk Berbagai Macam Komponen
Percabangan dapat digunakan sebagai control berbagai macam
komponen dalam Delphi, misalnya pada combobox, radiobutton, dan checkbox.
ComboBox
digunakan untuk memilih SATU data
dari banyak item yang bersifat teks, yang mana itemnya lebih mudah untuk
ditambahkan nantinya tanpa harus membongkar projek, item bisa diisi melalui properties
ataupun bersumber dari database. Kontrolnya bisa berupa itemindex atau text
langsung. Contoh pada pemilihan pendidikan terakhir, ‘SD Sederajat’, ‘SMP
Sederajat’ , ‘SMA Sederajat’, ‘D1’, ‘D2’, ‘D3’, ‘S1’, ‘S2’, dan ‘S3’.
CheckBox
digunakan untuk memilih BANYAK data
dari item, yang mana mencentang salah satu item tidak akan menghapus centang di
item lainnya asalkan berada dalam satu GroupBox,
kecuali untuk kasus tertentu. Kontrol yang digunakan adalah
checkbox1.checked:=[Boolean True/False]. Contohnya pada data Kelengkapan
Berkas, misalnya ada 3 checkbox yang
isinya adalah ‘Ijazah’, ‘SKCK’, ’Transkrip Nilai’.
RadioButton sama
seperti combobox yang digunakan untuk memilih SATU data dari banyak item, begitu salah satu item dipilih maka
item lain tidak terpilih, hanya saja RadioButton biasanya digunakan untuk data
yang lebih sedikit dan lebih susah untuk menambahkan itemnya tanpa membongkar
projeknya dan diletakkan dalam satu RadioGroup.
Kontrolnya berupa RadioGroup1.itemindex:=[Integer]. Contohnya pada pemilihan
Jenis Kelamin, item RadioGroup adalah ‘Laki-laki’ dan ‘Perempuan’.
3.2 Praktek III
Buat form seperti diatas, combobox harus fixed, checkbox
dalam groupbox, radiobutton dalam radiogroup.
Combobox1 -> Properties -> Style = CsOwnerDrawFixed
Combobox1 -> Properties -> Items = {isi itemnya}
GroupBox1 -> Letakkan CheckBox1, CheckBox2, dan CheckBox3
CheckBox1 -> Properties -> Caption = D
CheckBox2 -> Properties -> Caption = E
CheckBox3 -> Properties -> Caption = F
RadioGroup1 -> Properties -> Items = {isi itemnya}
DateTimePicker1 -> Properties -> Format = dd-MMM-yyy
Button1 -> Properties -> Caption = Proses
Button2 -> Properties -> Caption = Bersih
procedure
TForm1.FormShow(Sender: TObject);
begin
memo1.Clear;
combobox1.ItemIndex:=-1;
checkbox1.Checked:=false;
checkbox2.Checked:=false;
checkbox3.Checked:=false;
radiogroup1.ItemIndex:=-1;
datetimepicker1.DateTime:=now;
end;
procedure
TForm1.Button2Click(Sender: TObject);
begin
formshow(sender);
end;
procedure
TForm1.Button1Click(Sender: TObject);
var
a,b:string;
begin
a:='';
if
checkbox1.Checked=true then
a:=a+checkbox1.Caption;
if
checkbox2.Checked=true then
a:=a+checkbox2.Caption;
if
checkbox3.Checked=true then
a:=a+checkbox3.Caption;
b:='';
if
radiogroup1.Itemindex=-1 then
b:=''
else if radiogroup1.Itemindex=0
then
b:='G'
else if
radiogroup1.itemindex=1 then
b:='H'
else
b:='I';
memo1.Lines.Add(formatdatetime('dd-MMM-yyy',datetimepicker1.datetime)+' -
'+combobox1.Text+' '+a+' '+b);
end;
3.3 Tugas III
Buatlah sebuah VALIDASI,
apabila yang akan tampil adalah huruf ‘B H’ atau ‘B F’ maka tampilkan pesan
“SENSOR !!”
MessageDlg(‘SENSOR !!’,mtWarning,[mbOK],0);
Petunjuk:
Pada kedua kasus diatas, ketika ditekan tombol Proses maka
akan tampil Dialog Warning
MODUL 4
PEMROGRAMAN BASIS DATA
4.1 Koneksi Delphi ke Ms Access dengan ADO
Program Ms Access sebagai aplikasi pembangun basis data bisa
dikoneksikan dan dikontrol menggunakan Delphi. Dengan dikontrol Delphi aplikasi
basis data bisa dibuat dengan tampilan lebih baik dan dikendalikan validasinya
sehingga meminimalisir kemungkinan terjadinya kesalahan (error).
Agar Delphi dan Access bisa terhubung, bisa digunakan
komponen ADOConnection dari tab ADO, sedangkan untuk mengakses tabelnya
ada banyak teknik, bagi yang sudah terbiasa menggunakan Query bisa memakai ADOQuery, bagi yang belum terbiasa bisa
juga menggunakan ADOTable atau ADODataset.
ADODataset
|
ADOTable
|
ADOQuery
|
ADOConnection
|
Untuk komponen juga ada bermacam-macam teknik, bisa
menggunakan komponen yang sudah diajarkan, atau bisa juga menggunakan komponen
yang terhubung langsung dengan basis data, komponen ini terletak pada tab Data Control.
Tiap ADOTable/ADODataset/ADOQuery dihubungkan dengan
ADOConnection, sedangkan untuk komponen sebelum dihubungkan dengan
ADOTable/ADODataset/ADOQuery harus melalui komponen DataSource yang berada di tab Data Access.
Untuk praktikum 4 akan menggunakan ADOTable dan komponen dari tab Data
Control.
4.2 Praktek IV
1.
Buat folder Perpus.
2.
Jalankan Program Microsoft Access
3.
Buat Database Baru
4.
Pilih folder tempat meletakkan file tersebut,
dalam hal ini letakkan di folder Perpus yang sudah dibuat tadi.
5.
Isi nama file database, misalnya DBPerpus kemudian ganti tipe filenya
menjadi Microsoft Office Access
Databases (2002-2003) format (*.mdb), karena Delphi hanya membaca format *.mdb, kemudian create
6.
Klik tombol Design
View (untuk membuat table berikutnya bisa klik tab Create lalu pilih Table)
7.
Isi nama tabelnya TBuku
8.
Isi fieldnya seperti berikut
Field Name jangan
menggunakan spasi, Field Size isi dibawah, Description boleh ditulis boleh
tidak.
9.
Save lalu tutup Microsoft Access.
10. Buka
Delphi
11. Untuk
memulai mebuat program maka kita harus terlebih dahulu membuat projectnya.
File –> new –> application
12. Kemudian
File –> Save Project As.. simpan unit1 menjadi uBuku.pas, unit ini nantinya
akan dipakai untuk form master buku, untuk menyimpan project, dan simpan dengan
nama Perpus.dpr dan harus satu
folder dengan database berada.
13. Menu
File -> New -> Data Module -> ganti name menjadi DM
14. Pasang
Komponen ADOConnection di Data Module
15. Klik
2x (Double Click) ADOConnection maka akan tampil
16. Klik
Build maka akan tampil
Pilih Microsoft
Jet 4.0 OLE DB Provider -> Next, ketik nama file database tadi
DBPerpus.mdb -> OK, Bisa dicoba Test Connection dulu untuk memastikan bahwa
database sudah terkoneksi, jika masih error pastikan Project Delphi berada
dalam satu folder dengan file DBPerpus.mdb.
17. Atur
Properties pada ADOConnection
Komponen
|
Properties
|
Value
|
Keterangan
|
ADOConection
|
Name
|
CON
|
Mengubah nama menjadi ‘CON’
|
Login Prompt
|
False
|
Agar tidak ditanyakan User dan Pass
|
|
Connected
|
true
|
Status ‘Terkoneksi’
|
18. Save,
simpan dengan nama UDM.pas
19. Kembali
ke Form1, File -> Use Unit (Alt+F11) -> Pilih UDM, ini untuk
menghubungkan dengan Data Module yang sudah dibuat tadi, kemudian atur
propertiesnya
Komponen
|
Properties
|
Value
|
Keterangan
|
Form1
|
Name
|
FBuku
|
Mengubah nama menjadi ‘FBuku’
|
Caption
|
Data Buku
|
Tampil tulisan ‘Data Buku’
|
20. Tambahkan
ADOTable (Tab ADO), Data Source (Tab Data Access), 5 buah Label (Tab Standard),
4 DBEdit (Tab Data Controls), 1 DBGrid (Tab Data Controls), 6 Button (Tab
Standard)
21. Atur
properties dan values-nya
Komponen
|
Properties
|
Value
|
Keterangan
|
ADOTable1
|
Connection
|
DM.CON
|
Menghubungkan dengan ADOConnection (CON) di Data Module (DM), diisi
dengan diketik, jika terjadi error buka (Shift+F12) dulu DM nya kemudian kembali ke FBuku
|
Name
|
ADOTBuku
|
Mengganti nama
|
|
Table Name
|
TBuku
|
Pilih Table yang akan diakses
|
|
Active
|
True
|
Mengaktifkan table yang diakses
|
|
DataSource1
|
Name
|
DSBuku
|
Mengganti nama
|
DataSet
|
ADOTBuku
|
Menghubungkan dengan ADOTable
|
|
DBEdit1
|
Name
|
EdKodeBuku
|
Mengganti nama
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
KodeBuku
|
Memilih Field
|
|
DBEdit2
|
Name
|
EdJudulBuku
|
Mengganti nama
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
JudulBuku
|
Memilih Field
|
|
DBEdit3
|
Name
|
EdPengarang
|
Mengganti nama
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
Pengarang
|
Memilih Field
|
|
DBEdit4
|
Name
|
EdTahun
|
Mengganti nama
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
DataField
|
Tahun
|
Memilih Field
|
|
DBGrid1
|
Name
|
GBuku
|
Mengganti nama
|
DataSource
|
DSBuku
|
Menghubungkan dengan DS
|
|
Label1
|
Name
|
Status
|
Akan digunakan sebagai pembeda antara ‘Simpan Tambah’ dan ‘Simpan Ubah’
|
Visible
|
False
|
||
Label2
|
Caption
|
Kode Buku
|
|
Label3
|
Caption
|
Judul Buku
|
|
Label4
|
Caption
|
Pengarang
|
|
Label5
|
Caption
|
Tahun
|
|
Button1
|
Name
|
bTambah
|
|
Caption
|
TAMBAH
|
||
Button2
|
Name
|
bUbah
|
|
Caption
|
UBAH
|
||
Button3
|
Name
|
bSimpan
|
|
Caption
|
SIMPAN
|
||
Button4
|
Name
|
bHapus
|
|
Caption
|
HAPUS
|
||
Button5
|
Name
|
bBatal
|
|
Caption
|
BATAL
|
||
Button6
|
Name
|
bTutup
|
|
Caption
|
TUTUP
|
22. Coba
Jalankan (Run/F9), jika terjadi error seperti berikut
Jangan Panik.. Klik OK Kemudian pada menu Run ->
Program Reset (Ctrl+F2),
Lalu Project -> Options (Shift + Ctrl + F11)
Geser (Drag) DM ke atas FBuku, kemudian OK, Coba Jalankan
Lagi
23. Isi
Tombol bTambah : ADOTBuku.append;
24. Isi
Tombol bUbah : ADOTBuku.edit;
25. Isi
Tombol bSimpan : ADOTBuku.post;
26. Isi
Tombol bHapus : ADOTBuku.delete;
27. Isi
Tombol bBatal : ADOTBuku.cancel;
28. Isi
Tombol bTutup : close;
29. Jalankan
from http://aman-auliarahman.blogspot.com/2012/10/totorial-cara-pemula-belajar-program.html
Tidak ada komentar:
Posting Komentar