How to make a table
lazarus / 16-Databases

----------------------------------------------------------------------
Thomas Colvin · 2017-09-17 14:29

In Borland Delphi 3 have Database Wizard and can make tables.

How do I make a table in Lazarus?

Thanks, Thomas

----------------------------------------------------------------------
Handoko · 2017-09-17 14:58

You can search the web for free database tools. For dbf database, you
can try CDBF Explorer 0.60 or MyDbf Studio 0.4 Beta. Both are free, I
use them.

http://www.softpedia.com/get/Internet/Servers/Database-Utils/CDBF-
Explorer.shtml
http://mydbfstudio.altervista.org/

I prefer to generate the table files manually if my program can't find
them when starting. Here is my code for generating dbf tables:

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i procedure
DataFilePrepare;var  NewFieldDefs: TDbfFieldDefs;  NewFieldDef:
TDbfFieldDef;  isRestructureNeeded: Boolean;  Z: Integer;begin  with
frmMain.Database, NewFieldDef do  begin     // Create table and first
field if the table isn't existed    if
(not(FileExists(FilePathFull+DirectorySeparator+TableName))) then   
begin      FieldDefs.Add('GROUPID', ftInteger, 0, True);     
CreateTable;    end;     // Create all remain fields if they're not
existed    Open;    isRestructureNeeded := False;    NewFieldDefs :=
TDbfFieldDefs.Create(frmMain);    NewFieldDefs.Assign(DbfFieldDefs); 
 Z := FieldIndex('SORTID');    if (Z < 0) then    begin     
NewFieldDef := NewFieldDefs.AddFieldDef;      FieldName := 'SORTID'; 
   FieldType := ftInteger;      Required := True;     
isRestructureNeeded := True;    end;    Z := FieldIndex('DATE');    if
(Z < 0) then    begin      NewFieldDef := NewFieldDefs.AddFieldDef;  
  FieldName := 'DATE';      FieldType := ftDate;      Required :=
False;      isRestructureNeeded := True;    end;    Z :=
FieldIndex('TEXT');    if (Z < 0) then    begin      NewFieldDef :=
NewFieldDefs.AddFieldDef;      FieldName := 'TEXT';      FieldType :=
ftString;      Size := 60;      Required := False;     
isRestructureNeeded := True;    end;    Z := FieldIndex('MEMO');    if
(Z < 0) then    begin      NewFieldDef := NewFieldDefs.AddFieldDef;  
  FieldName := 'MEMO';      FieldType := ftMemo;      Required :=
False;      isRestructureNeeded := True;    end;    Close;     //
Restructure the table if new field is added    if
(isRestructureNeeded) then    begin     
RestructureTable(NewFieldDefs, True);      DeleteFile((FilePathFull+Di
rectorySeparator+DataFileName+'_bck.dbf'));    end;   
NewFieldDefs.Free;   end;end;