Mega Code Archive
Dinamik olarak paradox ve dbase dosyalarının program içerisinden oluşturulması
<![CDATA[
{Dinamik olarak bir Paradox tablosu nasıl oluşturulur
Normalde veritabanlarını Database Desktop benzeri arabirimler ile oluşturabilirsiniz.
Peki ya veritabanlarını kod ile oluşturmanız gerekirse?
Mesela ayni 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öz konusu 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 { alanlari 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'i fiziksel olarak oluştur }
CreateTable;
end;
]]>