Buscar por:

Criando tabelas em tempo de execução ii

Código

{Criar um arquivo em tempo de execução é relativamente simples, você tem que criar uma instância do objeto TTable, esse objeto(de uma lida no Help TTable e suas propriedades e metodos) tem um método de criação e um de Criar tabela. 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 índices:

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}