Borland Delphi 7 merupakan
bahasa pemrograman berbasis Windows. Delphi 7 dapat membantu untuk membuat
berbagai macam aplikasi yang berjalan di sistem operasi Windows, mulai dari
sebuah program sederhana sampai dengan program yang berbasiskan client/server
atau jaringan. Delphi, termasuk aplikasi yang dapat digunakan untuk mengolah
teks, grafik, angka, database dan aplikasi web.
Berikut ini sebagian kecil
dari banyak kelebihan Borland Delphi 7 :
Berbasis Object Oriented Programming (OOP). Setiap bagian yang ada pada program
dipandang sebagai suatu object yang mempunyai sifat-sifat yang dapat diubah dan
diatur.
Satu file .exe. Setelah program dirancang dalam IDE (Intergrated Development
Environment) Delphi, Delphi akan mengkompilasinya menjadi sebuah file
executable tunggal. Program yang dibuat dapat langsung didistribusikan dan
dijalankan pada komputer lain tanpa perlu menyertakan file DLL dari luar. Ini
merupakan sebuah kelebihan yang sangat berarti.
Borland Delphi 7 hadir bersama Borland Kylix 3 yang berbasiskan Linux, sehingga
memungkinkan programmer untuk membuat aplikasi multi-platform.
Memulai Delphi 7
Langkah awal untuk menjalankan program Borland Delphi 7, adalah sebagai berikut
:
Klik tombol Start yang terletak pada bagian Taskbar.
Pilih menu Programs 4 Borland Delphi 7, kemudian klik Delphi 7.
Akan tampil sebuah splash screen Borland Delphi 7. Tunggulah beberapa saat
sampai program Borland Delphi 7 tampil memenuhi layar monitor.
Bidang kerja Intergrated Development Environment (IDE) Delphi 7 akan tampil
memenuhi layar monitor Pada bidang inilah programmer dapat menumpahkan
kreativitasnya dalam membuat program.
Langkah Awal Pembuatan
Project
Pilih menu File New Application sehingga pada lembar kerja Delphi akan tampak
sebuah form kosong.
Simpan rancangan project aplikasi yang masih kosong tersebut dengan perintah
File Save All sehingga tampil kotak dialog Save Unit1 As. Pada bagian ini yang
perlu diperhatikan bahwa direktori penyimpanan file harus diubah pada bagian
Save in.
Selanjutnya masukkan nama unit pada bagian File Name dengan catatan nama unit
tidak boleh sama dengan nama Form Designer, kemudian klik Save.
Kotak dialog berikutnya yang akan muncul adalah kotak dialog Save Project1 As.
Kotak dialog ini digunakan untuk menentukan nama file Project yang diinginkan.
Setelah file Unit dan
Project disimpan, maka delphi akan membentuk file-file dengan ekstensi berikut
ini :
.dpr file Project yang berisi program utama dari aplikasi.
.pas file Unit yang digunakan untuk menangani kejadian (event) pada form.
.dfm file Form yang berisi daftar komponen berikut properti-propertinya.
.res file Resources yang berisi sebuh icon yang digunakan oleh project.
.dof file Options merupakan file yang berisi option-option dari suatu project
yang dinyatakan melalui perintah Options dari menu Project.
.dcu file Unit Object merupakan file unit (.pas) yang telah dikompilasi oleh
compiler yang akan dihubungkan dengan file eksekusi.
.exe file Executable yang dibentuk oleh kompiler dan merupakan file eksekusi
(executable) dari program aplikasi.
Dengan menekan Tombol Ctrl +
F12 atau Klik Menu View, Lalu Klik Unit maka akan ditampilkan :
Klik Prjakademik, lalu klik
OK, maka akan ditampilkan program sumber dari file Prjakademik.dpr sebagai
berikut :
program Prjakademik;
uses
Forms,
Uakademik in 'Uakademik.pas' {Form1};
{$R *.res}
begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.
Berikut ini sumber dari File
Akademik.pas :
unit Uakademik;
Interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,
Forms,
Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
Implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender:
TObject);
Begin
end;
end.
Penjelasan Listing Uakademik.pas
Sebuah unit ditandai dengan kata kunci unit yang diikuti nama unit dan
diletakkan pada baris pertama.
Pada dasarnya unit terdiri dari dua bagian utama, yaitu Interface dan
Implementasion.
Interface, merupakan tempat untuk mendeklarasikan kelas, prosedure, variabel
global atau konstanta global.
Implementation, bagian yang berisi implementasi kelas, prosedur atau fungsi
yang dideklarasikan pada bagian interface
Komponen Borland Delphi
Untuk dapat membuat program aplikasi, programmer harus meletakkan komponen-
komponen yang diambil dari component palatte serta mengatur tata letak
komponen-komponen tersebut pada bagian form designer.
1. Meletakkan komponen pada form designer.
2. Mengubah Properties komponen.
3. Mengubah komponen Event
4. Jenis-jenis komponen standar Delphi 7.
Component, Property, Method,
Event
Component merupakan sebuah objek pada Palette, : Objek adalah sebuah komponen
dalam Component Palette, atau sesuatu yang dibuat melalui kode-kode / bahasa
pemrograman
Property adalah sebuah nama/variabel milik sebuah objek/komponen misal Caption,
Text yang dapat diubah nilai baik melalui object Inspector atau melalui
program.
method adalah sebuah function/fungsi yang tergabung dalam sebuah objek. Contoh
ListBox (dapat berarti sebuah array of strings) yang memiliki Method (Clear)
yang membuat Listbox tersebut menjadi kosong.
Event adalah sebuah aksi pengguna (User Action) misal Mouse Click, KeyPressed.
Setiap Events diawali dengan kata ‘On’.
Contoh :
Nama event Nama method
OnClick .. Button1Click(Sender : Tobject)
OnKeyDown .. Button1KeyDown(Sender : Tobject)
OnMouseMove .. Button1MouseMove(Sender : Tobject)
Pernyataan Percabangan
Terdapat dua macam pernyataan percabangan bersyarat yang dapat digunakan, yaitu
if Dan Case
Percabangan Bersyarat if – then – else
Digunakan untuk menjalankan suatu pernyataan atau suatu blok pernyataan,
tergantung pada nilai yang diuji.
Contoh Penulisan :
If then
Atau
If then else
CASE … OF
… : Pemilihan N kasus
Digunakan untuk kondisi dengan banyak pencabangan. Syarat pencabangan pada
bentuk ini hanya boleh melibatkan satu buah parameter dengan tipe data bukan
Real. Pemeriksaan kondisi di sini lebih tepat disebutkan dalam hubungan relasi
samadengan (=). Dengan demikian bila parameter bernilai tertentu maka dilakukan
suatu aksi terkait, bila bernilai lain maka dilakukan aksi yang lain juga,
demikia seterusnya.
contoh penulisan :
Case Of
: ;
: ;
…
: ;
Else
End;
Pernyataan Pengulangan
Dalam menyelesaikan masalah, terkadang kita harus melakukan suatu proses yang
sama lebih dari satu kali. Untuk itu perlu dibuat suatu algoritma pengulangan.
Pascal memberikan tiga alternatif pengulangan, yaitu dengan For, While, atau
Repeat. Masing-masing memiliki karakteristik, yang akan dipelajari pada modul
ini. Ada dua hal yang penting dalam melakukan merancang perintah pengulangan,
yaitu:
• Inisialisasi awal.
• Nilai akhir pengulangan atau kondisi berhenti
Pengulangan While … do
Pernyataan ini bertugas mengulang satu pernyataan atau suatu blok pernyataan
atau selama (while) suatu kondisi (syarat) bernilai true. Penulisannya adalah
sebagai berikut :
while do
Program akan menguji
jika bernilai false, maka
tidak dilaksanakan dan perulangan berhenti, kemudian menjalankan baris
berikutnya.
Jika bernilai true maka
pernyataan akan dilaksanakan satu kali.
Pengulangan Repeat…Until
Pengulangan ini sama dengan
while do, dan biasanya digunakan jika jumlah pengulangan belum dapat ditentukan
pada saat program ditulis.
Perbedaan dengan while do
adalah kondisi dicek pada awal blok sementara untuk repeat… until dicek pada
akhir blok
Perbedaan lainnya adalah
while do mengulang pernyataan selama kondisi masih terpenuhi, tetapi pernyataan
repeat … until hanya akan mengulang pernyataan selama kondisi belum terpenuhi.
Pada repeat … until dapat
melakukan pengulangan lebih dari satu pernyataan, baik yang berupa kumpulan
pernyataan tunggal atau kumpulan blok pernyataan. Jadi bagian yang diulang
adalah segala sesuai yang berada antara pernyataan repeat…until.
Pengulangan For … do
Pengulangan ini paling
sederhana digunakan untuk melaksanakan pengulangan satu pernyataan atau satu
blok program beberapa kali yang ditentukan oleh nilai awal dan nilai akhir.
Dengan kata lain, jumlah pengulangan yang akan dikerjakan sudah diketahui.
For := to do ;
Atau
For := downto do ;
SUBRUTIN
Subroutin terdiri dari dua yaitu procedure dan fungsi, kedua subrutin ini
berisi beberapa pernyataan yang berfungsi untuk melakukan tugas tertentu.
Perbedaan dari kedua subrutin tersebut adalah bahwa fungsi (function) selalu
mengembalikan suatu nilai setelah dipanggil sedangkan prosedure
(procedure)tidak
Procedure
merupakan bagian program yang melaksanakan program tertentu pada saat dipanggil
dan kembali ke bagian pemangilnya.
contoh penulisannya :
Procedure nama_proc (Parameter1, parameter 2, …);
begin
end;
atau
Procedure latih (A : string);
begin
end;
Function
Merupakan bagian program yang melaksanakan proram tertentu pada saat di panggil
dan kembali ke bagian pemanggilnya dengan menghasilkan sebuah nilai. Contoh
penulisannya :
function Nama_func (Paramater1, parameter2, .. ):Tipe;
Begin
end;
atau
function latihan(A : Integer) : real;
begin
end;
UNIT
Sebuah program dibangun
berdasarkan modul kode-kode program yang disebut dengan unit. Setiap kita
membuat sebuah form, unti akan dibuat dengan sendirinya. Unit tersebut
berfungsi untuk mengatur serta mengendalikan segala sesuatu yang berhubungan
dengan form.
Unit memungkinkan bagi kita
untuk membagi program yang besar menjadi modul-modul yang dapat disunting
secara terpisah. Unit jenis ini dapat berisi kumpulan function atau procedure
yang telah dikompilasi yang dapat dipakai program aplikasi lain.
Program Aplikasi Perpustakaan
dengan Delphi + Ms. Access
Dalam membuat program
Aplikasi perpustakaan hal yang perlu dilakukan diawal adalah membuat Basis Data
dengan menggunakan Microsoft Access 2007, adapun langkah-langkahnya dapat
dilakukan dengan cara :
a. Mengaktifkan Micorosoft Access 2007, Dengan cara Klik Start, all program,
Microsoft access, klik Microsoft Access 2007.
b. Setelah Microsoft Access aktif, pada “Getting Started with Microsoft Office
Access, Klik blank Database, maka akan terbuka windows blank Database, tuliskan
nama file pada file name, lalu klik brows untuk menentukan lokasi file database
disimpan (D:\Persputakaan). Dan yang terakhir klik tombol Create.
c. Lembar kerja Access akan terbuka, kita cukup klik kanan pada Tabel1 dan klik
design view, buatlah nama table dengan nama Penerbit, dan klik OK, adapun isi
tabelnya adalah :
IDPenerbit Text field size : 5
NMPenerbit Text field size : 25
Alamat text field size : 30
d. Membuat table baru dapat
mengklik tombol menu Create, lalu klik table dan klik kanan pada table1 dan
klik design view, buatlah nama table dengan nama Buku, dan klik OK, adapun isi
tabelnya adalah :
IDBuku Text field size : 5
JdlBuku Text field size : 30
…
e. Lakukan langkah-langkah untuk membuat table baru dan isikan field-field
sesuai dengan table yang akan dibuat : adapun daftar table-table tersebut
adalah :
1. Tabel Anggota
ID_ANggota text 7
NAma text 50
Alamat text 50
Kelurahan text 50
Kecataman text 50
Kota text 25
No_telp text 12
Tmp_lhr text 25
Tgl_lhr Date
2. Tabel Buku
IDBUku text 5
Jdlbuku text 100
Pengarag text 50
Th_terbit text 4
Status text 20
3. Tabel DPinjam
ID_Pinjam text 5
Id_Buku text 5
4. Tabel Jenis_Buku
ID_Buku text 5
Jenis text 20
5. Tabel Peminjam
ID_Pinjam text 5
ID_ANggota text 7
Tgl_Pinjam date
Tgl_Kembali date
6. Penerbit_Buku
ID_penerbit text 5
NMPenerbit text 50
AlmPenerbit text 30
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access
Dalam membuat program
aplikasi dengan menggunakan Delphi 7.0 langkah pertama yang harus dilakukan
adalah dengan cara :
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Pada object Inspektor, pada bagian properties klik Caption, ketikkan Menu
Utama
3. masih pada object inspector, pada bagian properties, Klik name, ketikan
FrmMenu
4. Klik tombol menu File, Klik Save all, tentukan folder yang akan digunakan
untuk menyimpan program aplikasi, dan ganti unit1 pada file name, dengan Umenu,
lalu Tekan tombol save, dan selanjutnya adalah ganti project1 pada file name,
menjadi prjpustaka,lalu klik tombol Save.
Catatan :
Setiap kali ada penambahan form, selalu diganti caption dan name serta simpan
form tersebut baru melanjutkan pekerjaan.
5. Membuat Menu Utama
Langkah selanjutnya adalah membuat menu utama yaitu dengan cara, klik standard
pada component pallete, lalu klik MainMenu (Menus), gerakkan kursor pada form
(area kerja) dan klik di sembarang tempat. Dengan demikian maka object mainmenu
akan terletak pada form.
6. Klik kanan dengan mouse
pada objek mainmenu di form, lalu klik Menu designer, dengan demikian akan
ditampilkan windows designer.
7. Pada object inspector, di bagian properties, klik caption dan ketikkan File
lalu tekan enter.
8. Klik file pada windows designer, lalu klik kotak dibawahnya, klik caption
pada properties lalu ketikkan Penerbit, tekan enter. Klik kotak di bawah penerbit
pada windows designer lalu klik caption pada properties ketik buku dan
lanjutkan untuk menu-menu yang lain.
Gambar 1. windows designer
9. Tutup windows designer
dengan cara klik form menu.
10. Tambahkan satu buah form lagi dengan cara klik Project, new dan klik form,
Klik File, Klik Save, beri nama Upenerbit lalu klik Save.
11. Klik caption pada properties, lalu ketikan Input Penerbit, klik name pada
properties lalu ketik frmpenerbit
12. Klik menu View, klik Forms, lalu double klik FrmMenu, klik File pada form
menu, klik penerbit, ketikkan listing koding berikut :
Frmpenerbit.show
13. Jalankan program dengan
cara klik menu Run, klik Run atau dapat juga menekan tombol F9, lalu klik File
dan klik penerbit
Program Aplikasi Perpustakaan dengan Delphi +
Ms. Access
Karena project Prjpustaka
sebelumnya sudah dibuat, pada pada modul
4. Membuat Menu utama maka pada kesempatan ini
adalah melengkapi frmpenerbit yaitu dengan cara:
1. Mengaktifkan Delphi 7.0
dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi
7.
2. Klik menu File, klik Open
Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik
prjpustaka dan klik open
3. Klik menu View, lalu klik
forms dan double klik frmpenerbit, lengkapi form tersebut seperti gambar
berikut :
Gambar 1. Membuat form
penerbit
Catatan :
Form diatas terdiri dari :
Palette standard : Label,
Edit dan Button
Palette Data controls :
DBGrid
Palette ADO : Ado Connection
Palette DAtaAcces : DataSource
4. Mengkoneksikan database
Klik ADOQuery1 pada Form,
klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces
Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan
office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data
source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik
test connection.
Gambar 2. mengkoneksikan
Database M. Access
5. apabila test connection
tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup
semua windows koneksi dengan cara klik OK. kembali ke frmpenerbit.
6. Masih pada Adoquery1,
klik SQL pada properties, lalu ketikkan select * From penerbit. Dan Klik Active
pada properties ganti false menjadi true.
7. Mengaktifkan DataSource,
yaitu dengan cara klik Datasource pada form penerbit, lalu klik Dataset pilih
Adoquery1
8. Mengkoneksikan DBGrid
dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih
datasource1
9. Membuat Koding program
pada tombol Insert, double klik tombol insert ketikkan listing berikut :
01
|
procedure
TFrmpenerbit.Button1Click(Sender: TObject);
|
02
|
Begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.clear;
|
05
|
adoquery1.SQL.Add
('insert into penerbit(id_penerbit,penerbit,alamat) values ("'+
edit1.text +'","'+edit2.text+'","'+edit3.text+'")');
|
06
|
adoquery1.ExecSQL;
|
07
|
adoquery1.SQL.Clear;
|
08
|
adoquery1.SQL.add('Select
* from penerbit');
|
09
|
adoquery1.Open;
|
10
|
edit1.text
=’’;
|
10. Membuat Koding program pada
tombol update, double klik tombol update ketikkan listing berikut :
01
|
<p>procedure
TFrmpenerbit.Button2Click(Sender: TObject);</p>
|
02
|
<p>begin</p>
|
03
|
<p>adoquery1.Close;</p>
|
04
|
<p>adoquery1.SQL.Clear;</p>
|
05
|
<p>adoquery1.SQL.add('update
penerbit set penerbit ="'+ edit2.Text +'", alamat="'+
edit3.Text +'" where id_penerbit ="'+ edit1.Text
+'"');</p>
|
06
|
<p>adoquery1.ExecSQL;</p>
|
07
|
<p>adoquery1.SQL.clear;</p>
|
08
|
<p>adoquery1.SQL.Add('Select
* from penerbit');</p>
|
09
|
<p>adoquery1.Open;</p>
|
10
|
<p>edit1.text
=’’;</p>
|
11
|
<p>kosong;</p>
|
12
|
<p>end;</p>
|
11. Membuat Koding program
pada tombol Delete, double klik tombol delete ketikkan listing berikut :
01
|
<p>procedure
TFrmpenerbit.Button3Click(Sender: TObject);</p>
|
02
|
<p>begin</p>
|
03
|
<p>adoquery1.Close;</p>
|
04
|
<p>adoquery1.SQL.Clear;</p>
|
05
|
<p>adoquery1.SQL.add('delete
from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
|
06
|
<p>adoquery1.ExecSQL;</p>
|
07
|
<p>adoquery1.SQL.clear;</p>
|
08
|
<p>adoquery1.SQL.Add('Select
* from penerbit');</p>
|
09
|
<p>adoquery1.Open;</p>
|
10
|
<p>edit1.text
=’’;</p>
|
11
|
<p>kosong;</p>
|
12
|
<p>end;</p>
|
12. Membuat Koding program
pada tombol close, double klik tombol close ketikkan listing berikut :
1
|
<p>procedure
TFrmpenerbit.Button4Click(Sender: TObject);</p>
|
2
|
<p>begin</p>
|
3
|
<p>frmpenerbit.Close;</p>
|
4
|
<p>end;</p>
|
13. Membuat koding untuk
filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada
maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak
ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object
inspector dan double klik pada Onkeypress, lalu ketik listing berikut :
01
|
<p>procedure
TFrmpenerbit.Edit1KeyPress(Sender: TObject; var Key:
Char);</p>
|
02
|
<p>begin</p>
|
03
|
<p>if key=#13
then</p>
|
04
|
<p>begin</p>
|
05
|
<p>adoquery1.Close;</p>
|
06
|
<p>adoquery1.SQL.Clear;</p>
|
07
|
<p>adoquery1.SQL.add('select
* from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>
|
08
|
<p>adoquery1.open;</p>
|
09
|
<p>if not
adoquery1.Eof then</p>
|
10
|
<p>begin</p>
|
11
|
<p>
edit2.Text := adoquery1.Fields[1].AsString;</p>
|
12
|
<p>
edit3.Text := adoquery1.Fields[2].AsString;</p>
|
13
|
<p>end</p>
|
14
|
<p>else</p>
|
15
|
<p>
edit2.SetFocus;</p>
|
16
|
<p>end;</p>
|
14. Membuat procedure kosong,
ketik listing berikut :
1
|
<p>procedure
TFrmpenerbit.kosong();</p>
|
2
|
<p>begin</p>
|
3
|
<p>edit2.text
:='';</p>
|
4
|
<p>edit3.text
:='';</p>
|
15. Pada form Active
(OnActive) ketik listing berikut :
1
|
<p>procedure
TFrmpenerbit.FormActivate(Sender: TObject);</p>
|
2
|
<p>begin</p>
|
3
|
<p>edit1.text
='';</p>
|
4
|
<p>kosong;</p>
|
5
|
<p>@Ahmad</p>
|
6
|
<p>Selamat
Mencoba…</p>
|
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access
Karena project Prjpustaka
sebelumnya sudah dibuat, pada modul
4. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmanggota yaitu dengan cara:
1. Mengaktifkan Delphi 7.0
dengan cara, klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi
7.
2. Klik menu File, klik Open
Project, tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik
prjpustaka dan klik open
3. Klik Menu file, Klik New,
klik form, ganti caption pada properties dengan Input Data Anggota, dan pada
name ketikkan frmanggota.
4. Klik menu View, lalu klik
forms dan double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan
:
frmanggota.show;
5. Klik menu View, lalu klik
forms dan double klik frmanggota, lengkapi form tersebut seperti gambar berikut
:
Gambar 1. Membuat form
anggota
Catatan :
Form diatas terdiri dari :
Palette standard : Label,
Edit, Button dan RadioGroup (items diisi dengan laki-laki dan perempuan, column
diisi dengan 2)
Palette Data controls :
DBGrid
Palette ADO : Ado Connection
Palette DataAcces :
DataSource
Palette Win32 :
DatetimePicker
6. Mengkoneksikan database
Klik ADOQuery1 pada Form,
klik ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces
Database Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan
office XP dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data
source ketikkan : D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik
test connection.
Gambar 2. mengkoneksikan
Database M. Access
7. apabila test connection
tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup
semua windows koneksi dengan cara klik OK. kembali ke frmanggota.
8. Masih pada Adoquery1,
klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada
properties ganti false menjadi true.
9. Mengaktifkan DataSource,
yaitu dengan cara klik Datasource pada form anggota, lalu klik Dataset pilih
Adoquery1
10. Mengkoneksikan DBGrid
dengan Data, yaitu dengan cara klik DBGrid, lalu klik Datasource dan pilih
datasource1
11. Membuat koding pada pada
radiogroup dengan cara dauble klik radiogroup lalu ketik listing berikut :
1
|
procedure
TForm2.RadioGroup1Click(Sender: TObject);
|
2
|
Begin
|
3
|
if radiogroup1.ItemIndex
= 0 then
|
4
|
jenis
:= 'L'
|
12. Membuat Koding program
pada tombol Insert, double klik tombol insert ketikkan listing berikut :
01
|
procedure
TFrmanggota.Button1Click(Sender: TObject);
|
02
|
begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.clear;
|
05
|
adoquery1.SQL.Add
('insert into anggota(idanggota,nama,tgl_lhr,jenis) values ("'+
edit1.text
+'","'+edit2.text+'","'+jenis+'","'+datetostr(datetimepicker1.date)+'")');
|
06
|
adoquery1.ExecSQL;
|
07
|
adoquery1.SQL.Clear;
|
08
|
adoquery1.SQL.add('Select
* from anggota');
|
09
|
adoquery1.Open;
|
10
|
edit1.text
=’’;
|
13. Membuat Koding program
pada tombol update, double klik tombol update ketikkan listing berikut :
01
|
procedure
TFrmanggota.Button2Click(Sender: TObject);
|
02
|
begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.Clear;
|
05
|
adoquery1.SQL.add('update
anggota set nama ="'+ edit2.Text +'", jenis="'+ jenis
+'", tgl_lhr =”’+ datetostr(datetimepicker1.date) +’” where id_anggota
="'+ edit1.Text +'"');
|
06
|
adoquery1.ExecSQL;
|
07
|
adoquery1.SQL.clear;
|
08
|
adoquery1.SQL.Add('Select
* from anggota');
|
09
|
adoquery1.Open;
|
10
|
edit1.text
=’’;
|
14. Membuat Koding program
pada tombol Delete, double klik tombol delete ketikkan listing berikut :
01
|
procedure
TFrmanggota.Button3Click(Sender: TObject);
|
02
|
begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.Clear;
|
05
|
adoquery1.SQL.add('delete
from anggota where idanggota ="'+ edit1.Text +'"');
|
06
|
adoquery1.ExecSQL;
|
07
|
adoquery1.SQL.clear;
|
08
|
adoquery1.SQL.Add('Select
* from anggota');
|
09
|
adoquery1.Open;
|
10
|
edit1.text
=’’;
|
15. Membuat Koding program
pada tombol close, double klik tombol close ketikkan listing berikut :
1
|
procedure
TFrmanggota.Button4Click(Sender: TObject);
|
2
|
begin
|
3
|
frmanggota.Close;
|
4
|
end;
|
16. Membuat koding untuk
filter pada edit1, apabila dimasukkan data dan ternyata data tersebut sudah ada
maka akan ditampilkan datanya tetapi kalau belum ada maka kursor akan bergerak
ke edit2. adapun caranya adalah klik edit1, lalu klik Events pada object
inspector dan double klik pada Onkeypress, lalu ketik listing berikut :
01
|
procedure
TFrmanggota.Edit1KeyPress(Sender: TObject; var Key: Char);
|
02
|
begin
|
03
|
if key=#13
then
|
04
|
begin
|
05
|
adoquery1.Close;
|
06
|
adoquery1.SQL.Clear;
|
07
|
adoquery1.SQL.add('select
* from anggota where idanggota ="'+ edit1.Text +'"');
|
08
|
adoquery1.open;
|
09
|
if not
adoquery1.Eof then
|
10
|
begin
|
11
|
edit2.Text
:= adoquery1.Fields[1].AsString;
|
12
|
edit3.Text
:= adoquery1.Fields[2].AsString;
|
13
|
if adoquery1.Fields[3].AsString
= 'L' then
|
14
|
radiogroup1.ItemIndex
:=0
|
15
|
else
|
16
|
radiogroup1.ItemIndex
:=1;
|
17
|
datetimepicker1.DateTime
:= adoquery1.Fields[4].AsDateTime;
|
18
|
end
|
19
|
else
|
20
|
edit2.SetFocus;
|
17. Membuat procedure
kosong, ketik listing berikut :
1
|
procedure
TFrmanggota.kosong();
|
2
|
begin
|
3
|
edit2.text
:='';
|
4
|
end;
|
18. Pada form Active
(OnActive) ketik listing berikut :
1
|
procedure
TFrmanggota.FormActivate(Sender: TObject);
|
2
|
begin
|
3
|
edit1.text
='';
|
4
|
kosong;
|
Posted on January 6, 2010 by ahmadrizal
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access 2007
Ahmad Rizal Abidin, M.Kom
Karena project Prjpustaka
sebelumnya sudah dibuat,pada modul
4. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmBuku yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan
project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan
Input Data Buku, dan pada name ketikkan frmBuku.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada
frmmenu, klik Buku dan ketikkan :
frmbuku.show;
5. Klik menu View, lalu klik
forms dan double klik frmbuku, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form Buku
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access 2007
Karena project Prjpustaka sebelumnya sudah dibuat,pada modul
4. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmBuku yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan
project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan
Input Data Buku, dan pada name ketikkan frmBuku.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada
frmmenu, klik Buku dan ketikkan :
frmbuku.show;
5. Klik menu View, lalu klik
forms dan double klik frmbuku, lengkapi form tersebut seperti gambar berikut :
Gambar 1. Membuat form Buku
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access 2007
Karena project Prjpustaka sebelumnya sudah dibuat, pada modul
4. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmpinjam yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan
project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan
Input Data Transaksi Peminjaman, dan pada name ketikkan frmpinjam.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik Transaksi pada
frmmenu, klik peminjaman dan ketikkan :
frmpinjam.show;
5. Klik menu View, lalu klik
forms dan double klik frmpeminjam, lengkapi form tersebut seperti gambar
berikut :
Gambar 1. Membuat form Transaksi Peminjaman Buku
Catatan :
Form diatas terdiri dari :
Palette DataControl : bblookupcombobox, DBedit
Palette standard : panel, Label, Edit, Button
Palette Additional : StringGrid
Palette ADO : Ado Connection dan ADOquery
Palette DataAcces : DataSource
Palette Win32 : DatetimePicker
6. Mengkoneksikan database
dengan menggunakan Adoconnection
Klik ADOconnection pada Form, klik ConnectionString (…), klik Build, Klik
Microsoft Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007)
tetapi kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test
connection
Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb,
dan yang terakhir klik test connection.
Gambar 2. mengkoneksikan Database M. Access
7. apabila test connection
tampil keterangan tes connection succeeded, maka koneksinya sudah benar, tutup
semua windows koneksi dengan cara klik OK. kembali ke frmpinjam.
8. Klik Adoquery1, klik Adoconnection pada proterties: lalu pilih
ADOConnection1, dan klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada properties ganti false menjadi true.
9. Klik Adoquery2, klik Adoconnection pada proterties: lalu pilih ADOConnection1,
dan klik SQL pada properties, lalu ketikkan :
select * From Buku
Dan Klik Active pada properties ganti false menjadi true.
Untuk Adoquery3 dan
ADOquery4 hanya properties untuk Adoconnection : ADOConnection1.
10. Mengaktifkan
DataSource1, yaitu dengan cara klik Datasource1 pada form pinjam, lalu klik
Dataset pilih Adoquery1
11. Mengaktifkan DataSource2, yaitu dengan cara klik Datasource2 pada form
pinjam, lalu klik Dataset pilih Adoquery2
12. Mengaktifkan DBLookupComboBox1, dengan cara klik DBLookupcombobox1, dan
klik listssource : pilih DataSource1, ListField isi dengan IDAnggota, dan untuk
keyfield isi dengan IDAnggota.
13. Mengaktifkan DBEdit1, dengan cara klik DBEdit1, lalu klik Datasource pada
properties, lalu pilih datasource1 dan datafilednya nama
14. Mengaktifkan DBLookupComboBox2, dengan cara klik DBLookupcombobox2, dan
klik listssource : pilih DataSource2, ListField isi dengan IDBuku, dan untuk
keyfield isi dengan IDBuku
15. Mengaktifkan DBEdit2, dengan cara klik DBEdit2, lalu klik Datasource pada
properties, pilih datasource2 dan datafilednya JudulBuku
16. Mengaktifkan DBEdit3, dengan cara klik DBEdit3, lalu klik Datasource pada
properties, pilih datasource2 dan datafilednya Pengarang
17. Mengisi Edit2, dengan cara double klik Edit2 pada form pinjam, ganti events
dengan OnKeypress, lalu ketik listing berikut :
1
|
procedure
TFrmPinjam.Edit3KeyPress(Sender: TObject; var Key: Char);
|
2
|
Begin
|
3
|
if not
((key >= '0') and (key
<= '9') or (key=#8)) then
|
4
|
begin
|
5
|
key:=#0;
|
6
|
Application.Messagebox('maaf
hanya angka','Cek Input',mb_iconstop);
|
18. Mengisi Tombol Proses,
dengan cara double klik tombol proses lalu ketik listing berikut :
01
|
procedure
TFrmPinjam.Button1Click(Sender: TObject);
|
02
|
var
|
05
|
begin
|
06
|
sg.RowCount
:= sg.rowcount+1;
|
07
|
sg.cells[1,sg.RowCount-1]:=dblookupcombobox2.text;
|
08
|
sg.Cells[2,sg.RowCount-1]:=dbedit2.Text
;
|
09
|
sg.Cells[3,sg.rowcount-1]:=dbedit3.Text
;
|
10
|
qty:=strtoint(edit3.Text);
|
11
|
sg.cells[4,sg.rowcount-1]:=edit3.text;
|
12
|
tot:=0;
|
13
|
for i:=1
to sg.RowCount-1 do
|
14
|
begin
|
15
|
tot
:= tot + strtoint(sg.Cells[4,i]);
|
16
|
sg.Cells[0,i]:=inttostr(i);
|
17
|
end;
|
18
|
edit4.text
:= inttostr(tot);
|
19. Mengisi tombol Hapus,
dengan cara double klik tombol hapus lalu ketik listing berikut :
procedure
TFrmPinjam.Button5Click(Sender: TObject);
begin
sg.RowCount := sg.rowcount-1;
end;
20. Mengisi tombol Save,
dengan cara double klik tombol save lalu ketik listing berikut :
01
|
procedure
TFrmPinjam.Button2Click(Sender: TObject);
|
02
|
var i
:integer;
|
03
|
begin
|
04
|
if messagedlg('Yakin
akan disimpan',mtinformation,[mbyes,mbno],0)=mryes then
|
05
|
begin
|
06
|
adoquery4.sql.Clear;
|
07
|
adoquery4.sql.add
('insert into pinjam(id_pinjam,id_anggota,tgl_pinjam)values ("'+
edit1.Text +'","'+ dblookupcombobox1.Text +'","'+
datetostr(dt.date) +'")');
|
08
|
adoquery4.execsql;
|
09
|
|
10
|
for i
:=1 to sg.RowCount-1 do
|
11
|
begin
|
12
|
adoquery3.SQL.Clear;
|
13
|
adoquery3.sql.add('insert
into dpinjam(id_pinjam,id_buku,jumlah) values ("'+ edit1.Text
+'","'+ sg.Cells[1,i] +'","'+ sg.cells[4,i] +'")');
|
14
|
adoquery3.ExecSQL
;
|
21. Membuat Koding program
pada tombol close, double klik tombol close ketikkan listing berikut :
procedure TFrmpinjam.Button4Click(Sender: TObject);
begin
frmpinjam.Close;
end;
22. Pada form Create
(OnCreate) ketik listing berikut :
01
|
procedure
TFrmPinjam.FormCreate(Sender: TObject);
|
02
|
begin
|
03
|
edit2.text:=datetostr(dt.Date);
|
04
|
edit6.Text:=datetostr(dt2.Date);
|
05
|
sg.RowCount
:=1;
|
06
|
sg.ColCount:=5;
|
07
|
sg.Cells[0,0]:='No';
|
08
|
sg.Cells[1,0]:='Kode
Buku';
|
09
|
sg.Cells[2,0]:='Judul
buku';
|
10
|
sg.Cells[3,0]:='Pengarang';
|
11
|
sg.Cells[4,0]:='Qty';
|
12
|
|
13
|
sg.ColWidths
[0]:=40;
|
14
|
sg.ColWidths
[1]:=60;
|
15
|
sg.ColWidths
[2]:=80;
|
16
|
sg.Colwidths[3]:=80;
|
17
|
sg.colwidths[4]:=60;
|
18
|
|
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access 2007
Karena project Prjpustaka
sebelumnya sudah dibuat, pada modul
4.
Membuat menu, maka pada kesempatan ini
adalah melengkapi frmkembali yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan
project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan
Input Data Transaksi Pengembalian, dan pada name ketikkan frmkembali.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik Transaksi pada
frmmenu, klik Pengembalian dan ketikkan :
frmkembali.show;
5. Klik menu View, lalu klik forms dan double klik frmkembali, lengkapi form
tersebut seperti gambar berikut :
Gambar 1. Membuat form Transaksi Pengembalian Buku
Adapun koding selengkapnya adalah :
a. Buatlah variable seperti di bawah ini :
b. Membuat Koding pada Form Activate
procedure TFrmKembali.FormActivate(Sender: TObject);
begin
edit1.SetFocus;
end;
c. Membuat Koding pada Form Create
01
|
procedure
TFrmKembali.FormCreate(Sender: TObject);
|
02
|
Begin
|
03
|
edit1.Text
:='';
|
04
|
edit6.Text
:= '1000';
|
05
|
edit2.Enabled
:= false;
|
06
|
edit3.Enabled
:= false;
|
07
|
edit4.Enabled
:= false;
|
08
|
edit5.Enabled
:= false;
|
09
|
edit6.Enabled
:= false;
|
10
|
edit7.Enabled
:= false;
|
11
|
edit8.Enabled
:= false;
|
12
|
datetimepicker1.Enabled
:= false;
|
d. Buat koding pada edit1
dengan menggunakan event on keypress
01
|
procedure TFrmKembali.Edit1KeyPress(Sender:
TObject; var Key: Char);
|
02
|
var tgl
:tdatetime;
|
03
|
begin
|
04
|
if key=#13 then
|
05
|
begin
|
06
|
adoquery1.Close;
|
07
|
adoquery1.SQL.Clear;
|
08
|
adoquery1.SQL.add('Select
* from pinjam where id_pinjam="'+ edit1.Text +'"');
|
09
|
adoquery1.open;
|
10
|
if not adoquery1.Eof then
|
13
|
//menghitung
tanggal tempo
|
14
|
decodedate(datetimepicker1.DateTime,thn,bln,hari);
|
15
|
hari
:= hari + 5;
|
16
|
tanggal
:= encodedate(thn,bln,hari);
|
17
|
edit2.Text
:= formatdatetime('dd/mm/yyyy',tanggal);
|
18
|
|
19
|
edit3.Text
:= adoquery1.Fields[1].AsString;
|
20
|
tgl
:= adoquery1.Fields[3].AsDateTime;
|
21
|
if datetostr(tgl)
<> '' then
|
22
|
begin
|
23
|
button1.Enabled
:= false;
|
24
|
datetimepicker2.enabled
:= false;
|
25
|
showmessage('Buku
Sudah dikembalikan');
|
26
|
end;
|
27
|
|
28
|
datetimepicker1.Date
:= adoquery1.Fields[2].AsDateTime;
|
29
|
datetimepicker2.date
:= adoquery1.fields[3].asdatetime;
|
30
|
|
31
|
//menselect
data pada id anggota
|
32
|
adoquery2.close;
|
33
|
adoquery2.SQL.clear;
|
34
|
adoquery2.SQL.add('select
* from Anggota where id_Anggota = "'+ edit3.Text +'"');
|
35
|
adoquery2.Open;
|
36
|
if not adoquery2.Eof then
|
37
|
begin
|
38
|
edit4.text
:= adoquery2.Fields[1].AsString;
|
39
|
edit5.Text
:= adoquery2.Fields[2].AsString;
|
40
|
end;
|
41
|
|
42
|
//menampilkan
data buku pada datagrid
|
43
|
adoquery3.Close;
|
44
|
adoquery3.SQL.Clear;
|
45
|
adoquery3.SQL.add('select
dpinjam.id_pinjam,dpinjam.id_buku,buku.judulbuku,jumlah from dpinjam,buku
where dpinjam.id_buku = buku.kode and id_pinjam ="' + edit1.Text
+'"');
|
46
|
adoquery3.open;
|
47
|
if not adoquery3.eof then
|
48
|
datasource1.dataset
:= adoquery3;
|
49
|
DBGrid1.DataSource
:= datasource1;
|
50
|
end
|
51
|
else
|
52
|
showmessage('data
tidak ditemukan');
|
e. Membuat koding pada
datetimepicker2 dengan menggunakan event change
01
|
procedure
TFrmKembali.DateTimePicker2Change(Sender: TObject);
|
02
|
Begin
|
03
|
edit8.text:='0';
|
04
|
edit7.Text
:='0';
|
05
|
tgl1
:= datetimepicker1.Date;
|
06
|
tgl2
:= datetimepicker2.date;
|
07
|
if (tgl2
> tanggal) then
|
08
|
begin
|
09
|
lama
:=trunc(tgl2 - tgl1);
|
10
|
edit7.Text
:= inttostr(lama);
|
11
|
edit8.text
:= inttostr(strtoint(edit6.text) * lama);
|
12
|
end
|
13
|
else
|
14
|
edit7.Text
:= '0';
|
f. Membuat koding pada
tombol prosess button1
procedure TFrmKembali.Button1Click(Sender: TObject);
begin
01
|
adoquery1.Close;
|
02
|
adoquery1.SQL.clear;
|
03
|
adoquery1.SQL.add('update
pinjam set tgl_kembali = "'+ datetostr(datetimepicker2.date)+'",
tgl_tempo = "'+ edit2.text +'" where id_pinjam ="'+ edit1.text
+'"');
|
04
|
adoquery1.ExecSQL;
|
05
|
showmessage('Data
Sudah terupdate');
|
06
|
edit1.Text
:= '';
|
07
|
edit2.text
:= '';
|
08
|
edit3.text
:= '';
|
09
|
edit4.text
:= '';
|
10
|
edit5.text
:= '';
|
11
|
edit6.text
:= '';
|
12
|
edit7.text
:= '';
|
13
|
edit8.text
:= '';
|
14
|
end;
|
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access 2007
Karena project Prjpustaka sebelumnya
sudah dibuat dan From peminjaman pun sudah dibuat pada modul 8 , maka pada kesempatan ini adalah melengkapi frmpinjam
yaitu dengan cara:
Membuat nomor pinjam secara
otomatis yang terdiri dari 9 digit yang dihasilkan dengan proses :
Dua digit pertama adalah
tahun
Dua digit kedua adalah bulan
Lima digit terakhir adalah nomor urut
Sehingga menghasilkan nomor : 100100001
Adapun langkah-langkahnya
adalah :
1. Membuat fungsi rightstr dengan cara mengetikan koding secara langsung diluar
procedure di bawah implementation.
05
|
function RightStr
|
06
|
(Const
Str: String; Size: Word): String;
|
07
|
Begin
|
08
|
if Size
> Length(Str) then Size := Length(Str) ;
|
09
|
RightStr
:= Copy(Str, Length(Str)-Size+1, Size)
|
10
|
end;
|
13
|
(Const
Str: String; From, Size: Word): String;
|
14
|
Begin
|
15
|
MidStr
:= Copy(Str, From, Size)
|
16
|
end;
|
19
|
(Const
Str: String; Size: Word): String;
|
20
|
Begin
|
21
|
LeftStr
:= Copy(Str, 1, Size)
|
22
|
end;
|
2. Membuat koding pada Form
Create sebagai berikut :
01
|
procedure
TFrmPinjam.FormCreate(Sender: TObject);
|
02
|
var i,nomor:
integer;
|
03
|
nom,no
: string;
|
04
|
begin
|
05
|
|
06
|
//Membuat
Nomor peminjaman secara otomatis
|
07
|
decodedate(date,Thn,Bln,hari);
|
08
|
adoquery5.Close;
|
09
|
adoquery5.SQL.clear;
|
10
|
adoquery5.SQL.add('Select
* from pinjam');
|
11
|
adoquery5.open;
|
12
|
if adoquery5.RecordCount
= 0 then
|
15
|
Begin
|
16
|
nom
:= rightstr(inttostr((adoquery5.fields[0].AsInteger)),5);
|
17
|
nomor
:= strtoint(nom) + 1;
|
18
|
end;
|
19
|
no:='0';
|
20
|
for i
:= 1 to (4 - length(inttostr(nomor))) do
|
21
|
begin
|
22
|
no
:= no + '0';
|
23
|
end;
|
24
|
edit1.text
:= rightstr(inttostr(thn),2) + rightstr(('0'+inttostr(bln)),2)+no+
inttostr(nomor);
|
25
|
|
26
|
//untuk
menghitung tanggal tempo
|
27
|
decodedate(date,Thn,Bln,hari);
|
28
|
hari
:= hari + 5;
|
29
|
tanggal
:= encodedate(thn,bln,hari);
|
30
|
edit2.Text
:= formatdatetime('DD/MM/yyyy',tanggal) ;
|
31
|
sg.RowCount
:=1;
|
32
|
sg.ColCount:=5;
|
33
|
sg.Cells[0,0]:='No';
|
34
|
sg.Cells[1,0]:='Kode
Buku';
|
35
|
sg.Cells[2,0]:='Judul
buku';
|
36
|
sg.Cells[3,0]:='Pengarang';
|
37
|
sg.Cells[4,0]:='Qty';
|
38
|
|
39
|
sg.ColWidths
[0]:=40;
|
40
|
sg.ColWidths
[1]:=60;
|
41
|
sg.ColWidths
[2]:=80;
|
42
|
sg.Colwidths[3]:=80;
|
43
|
sg.colwidths[4]:=60;
|
44
|
|
Program Aplikasi Perpustakaan dengan Delphi +
Ms. Access
Form Cetak Anggota
Karena project Prjpustaka
sebelumnya sudah dibuat, pada modul 2. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmanggota yaitu dengan cara:
- Mengaktifkan Delphi 7.0 dengan cara,
klik Start, Klik All Program, Klik Borland Delphi 7, Klik Delphi 7.
- Klik menu File, klik Open Project,
tentukan folder tempat anda menyimpan project PRjpustaka, lalu klik
prjpustaka dan klik open
- Klik Menu file, Klik New, klik form,
ganti caption pada properties dengan Cetak Data Anggota, dan pada
name ketikkan frmcetakanggota.
- Klik menu View, lalu klik forms dan
double klik frmenu, klik file pada frmmenu, klik anggota dan ketikkan :
frmcetakanggota.show;
- Klik menu View, lalu klik forms dan
double klik frmcetakanggota, lengkapi form tersebut seperti gambar berikut
:
Gambar 1. Membuat form Cetak
Anggota
Catatan :
Form disamping terdiri dari
:
Ado connection, ADoQuery dan Dataset
Button1 untuk cetak dan Button2 untuk Cancel
Untuk membuat laporan kita menggunakan dua komponen pallete RAVE yaitu :
RVProject
dan RVDataSetConnection
Mengkoneksikan database
Klik ADOQuery1 pada Form, klik
ConnectionString (…), klik Build, Klik Microsoft Office 12.0 Acces Database
Engine OLEDB Provider (untuk office 2007) tetapi kalau menggunakan office XP
dapat dipilih Microsoft jet OLEDB 4.0, test connection
Dan klik next, pada data source ketikkan :
D:\perpustakaan\perpustakaan.accdb, dan yang terakhir klik test connection.
Apabila test connection tampil keterangan tes connection succeeded, maka
koneksinya sudah benar, tutup semua windows koneksi dengan cara klik OK.
kembali ke frmCetakanggota.
Masih pada Adoquery1, klik SQL pada
properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada
properties ganti false menjadi true.
Mengaktifkan DataSource, yaitu dengan cara
klik Datasource pada form anggota, lalu klik Dataset pilih Adoquery1
Mengkoneksikan RVDataSetConnection
dengan dataset, dengan cara klik RVDataSetConnection, pada properties klik
Dataset, lalu pilih AdoQuery1
Langkah-langkah
membuat laporan dengan menggunakan RAVE
- Klik menu Tools pada delphi, klik RAVE
designer
- Klik file, Klik New
- Klik File, Klik New Data Object
- Klik Direct Dataview
- Apabila sebelumnya pernah membuat
laporan dengan rave, maka akan ditampilkan pesan “Warning! Duplicate
Design-time Data Connections found with name “RvDataSetConnection1”. Lalu
klik Ok dan klik tombol Next
- Klik finish
- Klik RVDatasetconnection1 (DT), lalu
Klik Finish
- Untuk memastikan data yang akan
dibuatkan reportnya dapat dilihat pada sudut kanan lembar kerja Rave yaitu
seperti gambar berikut, dengan cara klik Data view Dictionary, Klik
Dataview.
- Klik menu tools pada Rave, lalu klik
Report Wizard, Klik Simple Table
- Klik Dataview1 dan Klik Next, Klik All
(untuk mengikutsertakan seluruh data yang ada pada table) atau klik field
tertentu saja yang akan ditampilkan, lalu klik Next, Klik Next, Klik next
dan yang terakhir klik Generate
- Untuk melihat hasil report dapat
diklik menu File pada RAVE, lalu klik Execute report1 dan Klik OK
- Tutup laporan
- Klik Menu file pada RAVE, lalu Klik
Save As, perintah ini untuk menyimpan Report, tentukan folder sama dengan
project Delphi disimpan, beri nama file dengan nama PRJAnggota.rav, lalu
Klik Save
10. Kembali Menu
Project Delphi
11. Klik RVProject1,
lalu pada properties klik ProjectFile, Klik tombol titik-titik, pilih file
report yang akan ditampilkan (PRJanggota.rav) dan klik OK
12. Selanjutnya adalah
Double klik pada tombol Cetak dan ketikkan koding sebagai berikut :
01
|
procedure
TFrmCetBuku.Button1Click(Sender: TObject);
|
02
|
Begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.clear;
|
05
|
adoquery1.SQL.Add('select
kode, judulbuku from Anggota');
|
06
|
adoquery1.Open;
|
07
|
adoquery1.Active
:= true;
|
08
|
RVproject1.Execute;
|
09
|
RVproject1.ExecuteReport('prjbuku.rav');
|
10
|
end;
|
Program Aplikasi
Perpustakaan dengan Delphi + Ms. Access
Form Cetak Buku Berdasarkan ID Penerbit
Karena project Prjpustaka
sebelumnya sudah dibuat, pada modul 2. Membuat menu, maka pada kesempatan ini
adalah melengkapi frmanggota yaitu dengan cara:
1. Mengaktifkan Delphi 7.0 dengan cara, klik Start, Klik All Program, Klik
Borland Delphi 7, Klik Delphi 7.
2. Klik menu File, klik Open Project, tentukan folder tempat anda menyimpan
project PRjpustaka, lalu klik prjpustaka dan klik open
3. Klik Menu file, Klik New, klik form, ganti caption pada properties dengan
Cetak Data Anggota, dan pada name ketikkan frmcetakanggota.
4. Klik menu View, lalu klik forms dan double klik frmenu, klik file pada
frmmenu, klik anggota dan ketikkan :
frmcetakanggota.show;
5. Klik menu View, lalu klik
forms dan double klik frmcetakanggota, lengkapi form tersebut seperti gambar
berikut :
Gambar 1. Membuat form Cetak Buku Per Penerbit
Catatan :
Form diatas terdiri dari :
Groupbox, Edit1 dan label1
Ado connection, ADoQuery dan Dataset
Button1 untuk cetak dan Button2 untuk Cancel
Untuk membuat laporan kita menggunakan dua komponen pallete RAVE yaitu
RVProject dan RVDataSetConnection
6. Mengkoneksikan database
Klik ADOQuery1 pada Form, klik ConnectionString (…), klik Build, Klik Microsoft
Office 12.0 Acces Database Engine OLEDB Provider (untuk office 2007) tetapi
kalau menggunakan office XP dapat dipilih Microsoft jet OLEDB 4.0, test
connection
Dan klik next, pada data source ketikkan : D:\perpustakaan\perpustakaan.accdb,
dan yang terakhir klik test connection. Apabila test connection tampil keterangan
tes connection succeeded, maka koneksinya sudah benar, tutup semua windows
koneksi dengan cara klik OK. kembali ke frmCetakanggota.
7. Masih pada Adoquery1, klik SQL pada properties, lalu ketikkan :
select * From anggota
Dan Klik Active pada properties ganti false menjadi true.
8. Mengaktifkan DataSource, yaitu dengan cara klik Datasource pada form
anggota, lalu klik Dataset pilih Adoquery1
9. Mengkoneksikan RVDataSetConnection dengan dataset, dengan cara klik
RVDataSetConnection, pada properties klik Dataset, lalu pilih AdoQuery1
Langkah-langkah membuat laporan dengan menggunakan RAVE Klik Disini… Klik Disinisi… untuk Rave
Setelah selesai membuat Report dengan Rave dilanjutkan dengan
10. Kembali Menu Project Delphi pada form Cetak
11. Klik RVProject1, lalu pada properties klik ProjectFile, Klik tombol
titik-titik, pilih file report yang akan ditampilkan (PRJanggota.rav) dan klik
OK
12. Selanjutnya adalah Double klik pada tombol Cetak dan ketikkan koding
sebagai berikut :
01
|
procedure
TForm1.Button1Click(Sender: TObject);
|
02
|
Begin
|
03
|
adoquery1.Close;
|
04
|
adoquery1.SQL.Clear;
|
05
|
adoquery1.SQL.add('select
* from Penerbit,buku where penerbit.id_penerbit = buku.id_penerbit and
buku.id_penerbit = "'+ edit1.Text +'"');
|
06
|
adoquery1.Open;
|
07
|
if not
adoquery1.Eof then
|
08
|
begin
|
09
|
rvproject1.Execute;
|
10
|
rvproject1.ExecuteReport('prjbukupenerbit.rav');
|
13
|
showmessage('Data
tidak ditemukan');
|
14
|
end;
|
Free Template Blogger
collection template
Hot Deals
BERITA_wongANteng
SEO
theproperty-developer