Delphi: 2016

Membuat Komentar atau Keterangan Delphi

Untuk membuat komentar atau Keterangan di script delphi, digunakan tanda sbb :

1. { tulis komentar di sini }

2. (* tulis komentar di sini *)

3. // tulis komentar di sini

Install ZeosDBO pada Delphi7

ZeosDBO (Zeos Database Object) adalah database component Delphi utk ke database mysql, oracle, firebird, dll. Pada instalasi ini saya akan menunjukan cara instalasi pada Delphi 7. Di Delphi versi lebih baru sudah ada DBExpress utk koneksi ke database ini (mysql misalnya) tetapi hanya bersifat 1 arah (forward) dan perlu client dataset utk menggunakannya agar bisa 2 arah. Karena alasan ini, saya masih lebih memilih ZeosDBO dibanding component bawaan Delphi.
Langkah-langkah instalasi:

Download ZeosLib di website nya.
Extract lah file tersebut dan copy lah ke directory delphi 7 anda. (mis: C:\Program Files\Borland\Delphi7\ZEOSDBO-6.6.6-stable)
Sekarang buka lah Delphi 7
Bukalah file ZeosDbo.bpg melalui menu File > Open… kemudian browse ke folder tadi, dan cari folder packages\delphi7 kemudian arahkan ke file tsb.
Buka Project Manager. (Shortcut: Ctrl+Alt+F11 atau dari Menu: View > Project Manager).
Pilih salah satu project (file .bpl) di Project Manager, dan klik kanan, pilih Build All From Here.
Pilih bagian ZComponentDesign, klik kanan, pilih Install.
Buka menu Tools > Environtment Options, pilih Tab Library. Tekan Tombol […] di Library Path.
Akan muncul sebuah dialog dg judul “Directories”, tekan tombol […] di bagian agak ke bawah.
Arahkan ke folder zeosdb tadi, dan pilih folder build yg merupakan hasil compile dari komponen yg ingin kita install. (C:\Program Files\Borland\Delphi7\ZEOSDBO-6.6.6-stable\packages\delphi7\build)
Kemudian tekan tombol “Add”.
“OK”, “OK”, semua dialog otomatis tertutup. Instalasi telah selesai. Anda bisa melihat di tab component sekarang ada tab dg nama “Zeos Access“.

Penggunaan ZeosDBO ini masih membutuhkan library database yg bersangkutan. Biasanya ketika kita install database server sudah ada disertakan filenya. contohnya utk mysql, file library nya adalah: libmysql.dll. Karena saya menggunakan windows XP, kurang lebih lokasinya ada di: C:\Program Files\MySQL\MySQL Server 5.5\lib\libmysql.dll. Aplikasi yg kita buat dengan zeosdbo ini nanti tidak membutuhkan instalasi mysql di komputer target. Ini yg saya sukai dari delphi, dimana hasil aplikasi yg kita buat begitu independent dan tidak membutuhkan proses instalasi di customer kita, cukup copy & paste saja. Jadi cukup kita sertakan file .dll tadi beserta file .exe buatan kita dalam folder yg sama, aplikasi kita sudah berjalan lancar. Jika tidak ingin menaruh dalam folder yg sama dg file .exe, file library .dll tadi bisa ditaruh di windows path spt C:\Windows, however saya lebih suka solusi yg pertama tadi karena lebih clean dan portable.

Cara lain :

Langkah-langkah menginstall Zeos :

Pada master Zeos, buka folder Packages >> pilih versi delphi yang sesuai, cari file ZeosDbo.bpg(Borland Project Group) dan double klik.
Compile dengan cara : Menu Project >> Compile All Project
Install dengan cara : klik menu run/F9 (Jika ada error, abaikan saja)
Close all project
Buka file ZComponentDesign.dpk(Delphi Package) yang terdapat pada folder yang sama dengan ZeosDbo.bpg, lalu compile, setelah itu install.
Copy semua file *.dcu yang ada pada folder build yang ada pada folder yang sama dengan ZeosDbo.bpg, ke program files >> Borland >> Delphi7(sesuai versi delphi) >> Lib
Jika database yang digunakan MYSQL, Copy semua file *.dll yang ada pada folder Lib >> MySQL yang ada pada folder master Zeos ini, ke C:\\Windows\System atau System32.

Semoga berhasil.
source : https://shadinata.wordpress.com/2011/12/03/install-zeosdbo-pada-delphi-7/
http://adeisti.blogspot.co.id/2008/07/cara-install-zeos.html

Koneksi database Ms Access Delphi 7 melalui ADO

- Buka Delphi 7 pilih bagian ADO
- Ambil ADOConnection dan ADOTable, masukkan kedalam form. ADOConnection digunakan untuk melakukan koneksi dengan database (Ms Acces) yang telah dibuat. ADOTable digunakan untuk mengambil tabel yang ada di database. ADOTable dapat disetting field-filed yang ada di tabel. ADOTable terkoneksi dengan ADOConnection

- Pilih Data Access , ambil Data Source masukkan ke dalam form, Data Source digunakan untuk pengambilan data field tabel. Data Source terkoneksi langsung dengan ADOTable.

- Double klik ADOConnection setelah klik Build

- Pilih seperti gambar di atas lalu klik Next

- Pilih lokasi database Ms Access yang telah dibuat kemudian lakukan Test Connection untuk melihat database telah terkoneksi apa belum.
Apabila database Ms Acces memiliki password maka isikan password lalu klik Next untuk melanjutkan

- Pilih ADOConnection , atur properties seperti gambar di atas.
Connected di atur true agar selalu terkoneksi dengan database
Name di beri nama agar mempermudah pengaturan

- Klik ADOTable atur properties seperti gambar di atas.
Active dugunakan untuk mengaktifkan pengambilan tabel
Name memberi nama ADOTAble
TableDirect digubakan untuk pengambilan tabel secra langsung
TableName digunakan untuk memberi nama tabel, dalam satu database seing terdiri banyak tabel dan query. Karena satu ADOTabel hanya dapart memanggil satu tabel dalam satu waktu dan ADOConnetion dalam keadaan terkoneksi ( Connected= true)

- Klik Data Source, pada bagian porperties kir bawah atur seperti gambar di atas.
DataSet digunakan untuk mengambil field data tabel di ADOTable yaitu table1

Berikut cara menampilkan tabel database.

- Pilih Data Controls pilih DBGrid, masukkan kedalam form

- Properties dbgrid di kiri bawah, lengkapi seperti gambar di atas. apabila sudah benar akan tampil nama field dari tabel tersebut. jika tidak periksa kembali ADOConnection nilai connected=true dan ADOTable active=true.

- Double klik ADOTable lalu pilih Add all fields

- Setelah nama fields muncul atur di porperties kiri bawah, Visible = False artinya field tidak ditampilkan, True sebaliknya.

- untuk mengatur lebar kolom fields , Size = 30 yang tampil sebelumnya 255

- Setelah diatur fields nya akna terlihat seperti gambar di atas.

- Selesai jangan lupa untuk menyimpan perubhan tadi.

source : http://digishared.blogspot.co.id/2011/10/koneksi-database-acces-dengan-delphi-7.html

- pilih bagian ADO

- ambil ADOConnection dan ADOTable dan masukkan ke dalam form

- ADOConnection digunakan untuk melakukan koneksi dengan file database yang telah dibuat, untuk membuat file database dapat dilihat disini

- ADOTable digunakan untuk mengambil table yang ada di dalam database. pada ADOTable dapat disetting nilai field yang terdapat pada table database yang diambil. ADOTable terkoneksi dengan ADOConnection

Cara Instal Komponen Delphi

Dengan Mengandalkan Komponen Default Bawaan Delphi 7 saya kira aplikasi yang kita buat akan monoton (itu-itu saja). oleh karenanya sering kali kita akan di hadapkan untuk menginstall komponen-komponen tambahan untuk Delphi

Secara umum, Ekstensi komponen yang sering saya jumpai adalah sebagai berikut :

Komponen dengan Ekstensi *.DPK (Delphi Package) dan *.PAS
Contoh : Alpha Skin, DBGRIDEh, ZEOS

Komponen dengan Ekstensi *.PAS
Contoh : MyMD5

Komponen dengan Ekstensi *.EXE (Installer)
Contoh : DevExpress, FastReport, SuiPack

Dari ketiga Ekstensi komponen diatas, dapat kita simpulkan bahwa komponen yang paling mudah di install tentu saja ekstensi *.exe yang sudah jadi satu paket instalasi. namun bagaimana menginstall komponen *.DPK dan *.Pas ? Caranya adalah sebagai berikut.

Untuk Komponen yang ada File *.DPK dan *.PAS nya Caranya Sebagai Berikut

1. Persiapkan Komponen yang akan anda install dan jalankan IDE Delphi anda

2. Pilih Menu Komponen -> Install Komponen -> Pilih Tab Into New Package

3. Pada Unit File Name, Browse Lokasi Komponen Anda (Cari File *.PAS (Blok Semua). Ingat sesuaikan dengan versi Delphi Anda !)

4. Pada Package File Name, Browse Lokasi Komponen Anda (Cari File *.DPK. Ingat sesuaikan dengan versi Delphi Anda !)

5. OK (Kalo Ada Warning Klik Yes Aja) :)

6. Periksa Pallete IDE Delphi Anda (Biasanya akan muncul di Pallete terakhir)

Note :
Untuk Komponen *.PAS saja, Lakukan Langkah 1 Sampai 3 Pada cara di atas. Untuk Package File Name nya Silahkan Isi Manual (Ketik Sendiri).

source : http://delphitutor.blogspot.co.id/2013/09/cara-mudah-install-komponen-di-delphi.html

7.Aplikasi Perpustakaan-Form Buku (Delphi7)

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

Source : https://ahmadrizal.wordpress.com/2010/01/06/modul-5-membuat-form-buku-pada-delphi-7-0/

3.Aplikasi Perpustakaan-Membuat Database (Delphi7)

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

Source : https://ahmadrizal.wordpress.com/2009/12/30/modul-3-membuat-database-dengan-menggunakan-microsoft-acces-2007/

5.Aplikasi Perpustakaan-Form Penerbit (Delphi7)

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 :

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 :

procedure TFrmpenerbit.Button1Click(Sender: TObject);

begin

adoquery1.Close;

adoquery1.SQL.clear;

adoquery1.SQL.Add ('insert into penerbit(id_penerbit,penerbit,alamat) values ("'+ edit1.text +'","'+edit2.text+'","'+edit3.text+'")');

adoquery1.ExecSQL;

adoquery1.SQL.Clear;

adoquery1.SQL.add('Select * from penerbit');

adoquery1.Open;

edit1.text =’’;

kosong;

end;

10. Membuat Koding program pada tombol update, double klik tombol update ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button2Click(Sender: TObject);</p>

<p>begin</p>

<p>adoquery1.Close;</p>

<p>adoquery1.SQL.Clear;</p>

<p>adoquery1.SQL.add('update penerbit set penerbit ="'+ edit2.Text +'", alamat="'+ edit3.Text +'" where id_penerbit ="'+ edit1.Text +'"');</p>

<p>adoquery1.ExecSQL;</p>

<p>adoquery1.SQL.clear;</p>

<p>adoquery1.SQL.Add('Select * from penerbit');</p>

<p>adoquery1.Open;</p>

<p>edit1.text =’’;</p>

<p>kosong;</p>

<p>end;</p>

11. Membuat Koding program pada tombol Delete, double klik tombol delete ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button3Click(Sender: TObject);</p>

<p>begin</p>

<p>adoquery1.Close;</p>

<p>adoquery1.SQL.Clear;</p>

<p>adoquery1.SQL.add('delete from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>

<p>adoquery1.ExecSQL;</p>

<p>adoquery1.SQL.clear;</p>

<p>adoquery1.SQL.Add('Select * from penerbit');</p>

<p>adoquery1.Open;</p>

<p>edit1.text =’’;</p>

<p>kosong;</p>

<p>end;</p>

12. Membuat Koding program pada tombol close, double klik tombol close ketikkan listing berikut :

<p>procedure TFrmpenerbit.Button4Click(Sender: TObject);</p>

<p>begin</p>

<p>frmpenerbit.Close;</p>

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

<p>procedure TFrmpenerbit.Edit1KeyPress(Sender: TObject; var Key: Char);</p>

<p>begin</p>

<p>if key=#13 then</p>

<p>begin</p>

<p>adoquery1.Close;</p>

<p>adoquery1.SQL.Clear;</p>

<p>adoquery1.SQL.add('select * from penerbit where id_penerbit ="'+ edit1.Text +'"');</p>

<p>adoquery1.open;</p>

<p>if not adoquery1.Eof then</p>

<p>begin</p>

<p>  edit2.Text := adoquery1.Fields[1].AsString;</p>

<p>  edit3.Text := adoquery1.Fields[2].AsString;</p>

<p>end</p>

<p>else</p>

<p>  edit2.SetFocus;</p>

<p>end;</p>

<p>end;</p>

14. Membuat procedure kosong, ketik listing berikut :

<p>procedure TFrmpenerbit.kosong();</p>

<p>begin</p>

<p>edit2.text :='';</p>

<p>edit3.text :='';</p>

<p>end;</p>

15. Pada form Active (OnActive) ketik listing berikut :

<p>procedure TFrmpenerbit.FormActivate(Sender: TObject);</p>

<p>begin</p>

<p>edit1.text ='';</p>

<p>kosong;</p>

<p>@Ahmad</p>

<p>Selamat Mencoba…</p>

Source: https://ahmadrizal.wordpress.com/2009/12/30/modul-5-membuat-form-penerbit-pada-delphi-7-0/