🚀 go-pugleaf

Przyklad wystarczy za 1000 slow :
Procedure TForm1.CreateMagazyn;
begin
    { TABELA MAGAZYN }
  with TTable.Create(Self) do
  begin
    DatabaseName:=DST_DIR;
    TableName := 'GMAGAZYN';
    TableType := ttDbase;

    with FieldDefs do
    begin
      Clear;
      Add('ID_MAG'       , ftAutoInc,  0 , True) ;
      Add('NAZWA_MAT'    , ftString,  50 , True) ;
      Add('ILOSC'        , ftFloat ,   0 , True) ;
      Add('KATEGORIA'    , ftString,   2 , False);
      Add('STAN_AWAR'    , ftFloat,    0 , False);
      Add('UWAGI'        , ftMemo  ,   0 , False);
    end;
      with IndexDefs do
      begin
      Clear;
      Add('ID PRODUKTU', 'ID_MAG', []);
      Add('NAZWA MATERIALU', 'NAZWA_MAT', []);
      end;
    try
    CreateTable;
    finally
    Free;
    end
  end;
end;

Zorro napisał(a) w wiadomości: <7f7deh$ueq$1@dino.wsi.edu.pl>...
>Czesc.
>Jak utworzyc z poziomu programu nowa tabele Dbase wraz z indeksami.
>Odpowiedzi kierowac na adres:
>
>zorro@wsi.edu.pl
>
>
>