How to Install ZEOS in Delphi 7

ZEOS is one additional component for Delphi that serves as a connection between Delphi with database, like MySQL, PostgreSQL, SQLite, and Oracle.
to download ZEOS components please see below this post. Here I will explain, how do I install this ZEOS components in Delphi 7:

1. Extract *. Rar from ZeosDBO wherever you want. Ensure that the location of the folder ZeosDBO NOT be changed.

2. Open the folder ZEOSDBO-6.6.6-stable, open the folder and then select the package.

3. There are many package options are supported by ZEOSDBO-6.6.6-stable. Open the folder delphi7.

4. Find the file type delphi package, can be sorted based on the data type in explorer.

5. Double-click on the file ZCore.bpl, after an open file in Delphi7, then click Compile.

6. Do the same on the files (free sequence).
a. ZParseSQL.bpl
b. ZPlain.bpl
c. ZDbc.bpl
d. ZComponent.bpl

7. Double-click on the file ZComponentDesign, then click Compile forwarded to click Install. Wait a moment, a message that ZeosDBO installed.

After ZeosDBO successfully installed, the last step is to link the source files and build of the package into the enviroment Delphi 7 Delphi 7, by the way:

1. Delphi 7 in the main menu, select Tools -> Environment Options -> Library

2. Add the directory in the Library Path, click the button to the right [...]

3. Write or search the directory ZeosDBO. Important directory is the directory ZEOSDBO-6.6.6-stable \ src and ZEOSDBO-6.6.6-stable \ package \ delphi7 \ build.

4. Click OK and close the Environment Options. Completed.

Deleting a blank script for DBGrid in Delphi is not 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 who are at Delphi, where we put all the components of the connection
- ADOTableTes = Component ADOTable

Input Script Font is only for the Delphi

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


Description:

This script is placed on the component "Edit1" on "Events: onkeypress"
So the data can be input only CAPITALS only, while the figure can not be

Script only to Input Numbers in Delphi

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

Description:

This script is placed on the component "Edit1" on "Events: onkeypress"
So the data can be input only NUMBERS only, while the letter could not