Código
Depois disso é só definir as propriedades da nova tabela ...}
DatabaseName := 'c:lista';
TableName := 'Produtos.dbf';
TableType := ttDbase;
os campos da tabela ...
Add('codigo', ftString,7, false);
Add('Nome', ftString, 45, false);
e os indices ...
Add('prod1', 'codigo', []);
Add('prod2', 'Fornecedor', []);
com todos os dados devidamente setados ...
CreateTable;
Procedure TMainForm.Inicializa;
var
Table1 : TTable;
begin
{ Criar componente TTable }
Table1 := TTable.create(Application);
{ Definições de Campos e criação do arquivo }
with Table1 do
begin
DatabaseName := 'c:lista';
TableName := 'Produtos.dbf';
TableType := ttDbase;
with FieldDefs do
begin
Clear;
Add('codigo', ftString,7, false);
Add('Nome', ftString, 45, false);
Add('Fornecedor', ftString, 5,false );
Add('Custo', ftCurrency, 0, false );
Add('Venda', ftCurrency, 0, false );
end;
with IndexDefs do
begin
Clear;
Add('prod1', 'codigo', []);
Add('prod2', 'Fornecedor', []);
end;
CreateTable;
end;
end;
{Utilizando o tipo ftCurrency, formato de valores do sistema financeiro o Delphi cria um campo Dbase com N,20,4}
Planeta Delphi - www.planetadelphi.com.br - Todos os direitos reservados | Copyright 2001-2009