Code: Select all
with TABLENAME do
begin
FileName := 'odbiorcy.db';
if not TableExists then
begin
FieldDefs.Clear;
FieldDefs.Add('indeks', ftString);
FieldDefs.Add('nazwa', ftString);
FieldDefs.Add('spi', ftFloat);
FieldDefs.Add('procspi', ftFloat);
FieldDefs.Add('spw', ftFloat);
FieldDefs.Add('procsp', ftFloat);
FieldDefs.Add('zwi', ftFloat);
FieldDefs.Add('proczwi', ftFloat);
FieldDefs.Add('zww', ftFloat);
FieldDefs.Add('proczww', ftFloat);
FieldDefs.Add('prodi', ftFloat);
FieldDefs.Add('prodw', ftFloat);
CreateTable;
end;
Open;
end;
[code]
Sory for my English...
Thank for yours time.