Dinamik olarak bir Paradox tablosu nasil olusturulur
Normalde veritabanlarini Database Desktop benzeri arabirimler ile olusturabilirsiniz.
Peki ya veritabanlarini kod ile olusturmaniz gerekirse?
Mesela ayni veritabanindan birden cok olusturmaniz gerektiginde?
Veya programinizin veritabani dosyalari bozuldugunda yenilenmeleri gerektiginde?
Daha bircok durum sözkonusu olabilir.
Asagida 3 basit alana sahip bir paradox veritabanini nasil olusturabileceginizi
görebilirsiniz.
var
Table1 : TTable;
begin
Table1 := TTable.Create(Self);
with Table1 do
begin
DatabaseName := 'C:\Temp'; { istediginiz dizin }
TableName := 'KISI';
TableType := ttParadox;
with FieldDefs do
begin { alanlari belirt }
Add('Ad', ftString, 25, False);
Add('Yas', ftInteger, 0, True);
Add('Kilo', ftFloat, 0, False);
end;
{ primary index'i olustur }
IndexDefs.Add('MainIndex','IntField',
[ixPrimary, ixUnique]);
{ table'i fiziksel olarak olustur }
CreateTable;
end;