Mega Code Archive
Kod ile bir paradox tablosu nasıl oluşturulur
<![CDATA[
Normalde veritabanlarını Database Desktop benzeri arabirimler ile oluşturabilirsiniz.
Peki ya veritabanlarını kod ile oluşturmanız gerekirse? Mesela aynı veritabanından
birden çok oluşturmanız gerektiğinde? Veya programınızın veritabanı dosyaları
bozulduğunda yenilenmeleri gerektiğinde? Daha birçok durum sözkonusu olabilir.
Aşağıda 3 basit alana sahip bir paradox veritabanını nasıl oluşturabileceğinizi
görebilirsiniz.
var
Table1 : TTable;
begin
Table1 := TTable.Create(Self);
with Table1 do
begin
DatabaseName := 'C:\Temp'; { istediğiniz dizin }
TableName := 'KISI';
TableType := ttParadox;
with FieldDefs do
begin { alanları belirt }
Add('Ad', ftString, 25, False);
Add('Yas', ftInteger, 0, True);
Add('Kilo', ftFloat, 0, False);
end;
{ primary index'i oluştur }
IndexDefs.Add('MainIndex','IntField',
[ixPrimary, ixUnique]);
{ table'ı fiziksel olarak oluştur }
CreateTable;
end;
]]>