Buscar por:

Criando tabelas em tempo de execução v

Código

If FileExists('c:contatoscontatos.db')=false then

begin

TableContatos.Close;

TableContatos.DatabaseName:='c:contatos';

TableContatos.TableName:='Contatos';

TableContatos.TableType:=ttParadox;

TableContatos.FieldDefs.Clear;

TableContatos.FieldDefs.Add('Cod',ftAutoInc,0,false);

TableContatos.FieldDefs.Add('Contato',ftString,50,false);

TableContatos.FieldDefs.Add('Telefone',ftString,12,false);

TableContatos.FieldDefs.Add('Curso',ftString,20,false);

TableContatos.FieldDefs.Add('Observacao',ftMemo,100,false);

TableContatos.IndexDefs.Clear;

TableContatos.IndexDefs.Add('iCod','Cod',[ixPrimary,ixUnique]);

TableContatos.IndexDefs.Add('iContato','Contato',[ixUnique]);

TableContatos.CreateTable;

TableContatos.Open;

ShowMessage('As tabelas foram criadas com êxito!');

end

else

begin

TableContatos.Close;

TableContatos.DataBaseName:='C:contatos';

TableContatos.TableName:='contatos.db';

TableContatos.Open;

end;