Install Komponen Zeos di Delphi 7

ZEOS merupakan salah satu komponen tambahan untuk Delphi yang berfungsi sebagai koneksi antara Delphi dengan database, seperti MySQL, PostgreSQL, SQLite, dan Oracle.
Untuk men-download komponen ZEOS silahkan lihat di bawah posting ini. Di sini saya akan menjelaskan, bagaimana cara menginstal komponen ZEOS di Delphi 7:



1. Ekstrak *. Rar dari ZeosDBO manapun Anda inginkan. Pastikan bahwa lokasi dari ZeosDBO folder TIDAK diubah.

2. Buka folder ZEOSDBO-6.6.6-stable, buka folder dan kemudian pilih paket.

3. Ada banyak pilihan paket yang didukung oleh ZEOSDBO-6.6.6-stable. Buka Delphi7 folder.

4. Cari jenis file paket delphi, dapat diurutkan berdasarkan jenis data dalam explorer.

5. Double-klik pada ZCore.bpl file, setelah file terbuka di Delphi7, kemudian klik Kompilasi.

6. Lakukan hal yang sama pada file (free sequence).

a. ZParseSQL.bpl
b. ZPlain.bpl
c. ZDbc.bpl
d. ZComponent.bpl

7. Double-klik pada ZComponentDesign file, kemudian klik Compile diteruskan ke klik Install. Tunggu beberapa saat, pesan yang ZeosDBO diinstal.


Setelah ZeosDBO berhasil diinstal, langkah terakhir adalah untuk menghubungkan file sumber dan membangun paket ke dalam lingkungan Delphi 7 Delphi 7, dengan cara:


1. Buka menu di Delphi 7  , pilih Tools -> Environment Options -> Library

2. Klik add pada Library Path, klik tombol [...]

3. Tambahkan dan cari direktori ZeosDBO. Tambahkan direktori ini ZEOSDBO-6.6.6-stable\src dan ZEOSDBO-6.6.6-stable\package\delphi7\build.

4. Klik OK kemudian close  Environment Options. Completed.

Menghapus DBGrid yang kosong di Delphi agar tidak error

procedure TForm1.Button1Click(Sender: TObject);
begin
If DM.ADOTableTes.RecordCount=0 then
begin MessageDlg('Data Kosong jadi tidak bisa dihapus',mtInformation,[mbOK],0)
end else
DM.ADOTableTes.Delete;
end;


Description:

- DM =  DataModule yang di Delphi, di mana kita meletakkan semua komponen dari koneksi
- ADOTableTes = Komponen ADOTable

Input hanya huruf di Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['a'..'z']) then
Key:=#0
end;


Description:

Script ini ditempatkan pada komponen "Edit1" on "Event: onkeypress"
Sehingga data hanya bisa input HURUF saja, sedangkan angka tidak dapat

Input hanya angka di Delphi

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not(Key in['0'..'9',#8]) then Key:=#0
end;

Description:

Script ini ditempatkan di komponen "Edit1" on "Events: onkeypress"
Sehingga data yang bisa diinputkan hanya ANGKA saja, sedangkan huruf tidak bisa.