membuat program databasenya dengan cara membuat table dengan menggunakan DATABASE DEKSTOP sehingga jika program menginginkan create table pada saat program runtime jadi tidak bisa. Saya mempunyai source
Nama databasenya adalah :dbdemos.
Field-fieldnya dalah Nama char(255),
procedure TForm1.Button1Click(Sender: TObject);
begin
with Query1 do
begin
DatabaseName := 'DBDemos';
with SQL do
begin
Clear;
Add('CREATE TABLE PDoxTbl.db (ID AUTOINC,');
Add('Name CHAR(255),');
Add('PRIMARY KEY(ID))');
ExecSQL;
Clear;
Add('CREATE INDEX ByName ON PDoxTbl.db (Name)');
ExecSQL;
end;
end;
end;