Follow Me Here

Link

Minggu, 30 Oktober 2011

download koneksi internet cepat

TUTORIAL VB


Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer
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 =’’;

11
kosong;
12
end;
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>

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

5
<p>end;</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'

5
else
6
jenis := 'P';

7
end;
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 =’’;

11
kosong;
12
end;
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 =’’;

11
kosong;
12
end;
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 =’’;

11
kosong;
12
end;
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;

21
end;
22
end;
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);

7
end;
8
end;
18. Mengisi Tombol Proses, dengan cara double klik tombol proses lalu ketik listing berikut :
01
procedure TFrmPinjam.Button1Click(Sender: TObject);
02
var

03
i,qty,tot:integer;
04


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

15
end;
16
end;

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


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

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

11
begin
12


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

53

54
end;

55
end;
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';

15
end;
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.
01
02
Implementation

03

04
{$R *.dfm}

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;

11

12
function MidStr

13
    (Const Str: String; From, Size: Word): String;
14
Begin

15
  MidStr := Copy(Str, From, Size)
16
end;

17

18
function LeftStr

19
    (Const Str: String; Size: Word): String;
20
Begin

21
  LeftStr := Copy(Str, 1, Size)
22
end;

23
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

13
  nomor := 1
14
else

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


45
end;

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:
  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;
  1. 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
  1. Klik menu Tools pada delphi, klik RAVE designer
  2. Klik file, Klik New
  3. Klik File, Klik New Data Object
  4. Klik Direct Dataview
  5. 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
  6. Klik finish
  7. Klik RVDatasetconnection1 (DT), lalu Klik Finish
  8. 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.
  1. Klik menu tools pada Rave, lalu klik Report Wizard, Klik Simple Table
  2. 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
  3. Untuk melihat hasil report dapat diklik menu File pada RAVE, lalu klik Execute report1 dan Klik OK
  4. Tutup laporan
  5. 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');

11
end
12
else


13
  showmessage('Data tidak ditemukan');
14
end;



Free Template Blogger collection template Hot Deals BERITA_wongANteng SEO theproperty-developer
 

Team Kakashi (Naruto, Sasuke dan Sakura)