DBF создание таблицы

564

23 июля 2003 года

alex_lv

21 / / 20.04.2000

Вот создается таблица и заполняется значениями

procedure TMainForm.FormCreate(Sender: TObject);
var
Table1:TTable;
Table2:TTable;
i:integer;

begin
GetDir(0, Dir);

if (DirectoryExists(Dir + '\Base') = false) then
begin
CreateDir(Dir + '\Base');
end;

Table1:=TTable.Create(nil);

with Table1 do
begin
TableName:=Dir + '\Base\tovar';
TableType:=ttDBase;

with FieldDefs do
begin
Add('idtovar',ftInteger,0);
//Add('idtovar',ftAutoInc,0,false);
Add('tovar_kod',ftInteger,0);
Add('strixkod',ftString,13);
Add('tovar_name',ftString,30);
Add('price',ftBCD,0,);
Add('edizm',ftInteger,0);
Add('kolvo',ftBCD,0);
Add('tovar_otde',ftInteger,0);
Add('tovar_grou',ftInteger,0);
Add('postavid',ftInteger,0);
Add('tovar_nalo',ftInteger,0);
Add('free_price',ftInteger,0);
Add('zapret_sel',ftInteger,0);
Add('kolvo_sell',ftBCD,0);
Add('marker',ftInteger,0);
end;
with IndexDefs do
begin
//Add('idtov','idtovar',[ixPrimary]);
end;

if not Exists then
begin
CreateTable;
Open;
for i:= 0 to 1000 do
Table1.InsertRecord([i,1,'222','333',0,0,0,0,0,0,0,0,0,0,0]);
Close;
end;
end;

4.7K

28 июля 2003 года

Diman-VZXK

5 / / 09.07.2003

Ответом на подобные мессаги ИМХО может быть только одно - RTFM! Это же ВЕЗДЕ описано.

455

28 июля 2003 года

vitorg

55 / / 20.05.2000

А ответом на твою мессагу - "не можешь сам помочь, так не мешай другим!"