Como criar tabelas em tempo de execu��o ?

Question

Pessoal, minha d�vida eh como eu posso criar tabelas (exemplo paradox) apartir do momento que eu executo meu sistema, assim quando eu tentar utilizar o programa em uma m�quina diferente, s� precisarei...

Fabio.hc · Answer

[b:7ef78fb08e]Criar uma tabela (DB, DBF) atrav�s do seu programa[/b:7ef78fb08e]
Inclua na se��o uses: dbTables, DB

procedure CriaTabelaClientes;
var
  Tabela: TTable;
begin
  Tabela := TTable.Create(Application);
  try
    Tabela.DatabaseName := �C:\�;
    { ou Tabela.DatabaseName := �NomeAlias�; }

    Tabela.TableName := �Clientes.DB�;
    Tabela.TableType := ttParadox; { ou ttDBase }

    { Somente Delphi4 }
    if Tabela.Exists then { Se a tabela j� existe... }
      Exit;
    {***}

    { Cria a tabela }
    Tabela.FieldDefs.Add(�Codigo�, ftInteger, 0, true);
    Tabela.FieldDefs.Add(�Nome�, ftString, 30, true);
    Tabela.FieldDefs.Add(�DataNasc�, ftDate, 0, false);
    Tabela.FieldDefs.Add(�RendaMes�, ftCurrency, 0, false);
    Tabela.FieldDefs.Add(�Ativo�, ftBoolean, 0, true);
    { etc, etc, etc }
    Tabela.CreateTable;

    { Cria os �ndices }
    Tabela.AddIndex(�ICodigo�, �Codigo�, [ixPrimary, ixUnique]);
    Tabela.AddIndex(�INome�, �Nome�, [ixCaseInsensitive]);
    { etc, etc, etc }
  finally
    Tabela.Free;
  end;
end;

Adeilson_alves · Answer

quando eu tiver acabado o projeto, eu te enviarei uma copia para quem sabe vc possa aprender ou avaliar......

Thiago Vidal · Answer

Para manipular o prompt do MS-Dos, uma solu��o quebra-galho que eu consegui foi criar um arquivo .BAT com a lista de comandos e depois executa-lo com a flag SW_HIDE no WinExec. Exemplo:

var
  ArqBat: TextFile;
begin
  AssignFile(ArqBat, �arquivo.bat�);
  Rewrite(ArqBat);
  WriteLN(ArqBat, �Primeiro comando do MS-Dos�);
  WriteLN(ArqBat, �Segundo comando do Ms-Dos�);
  ...
  CloseFile(ArqBat);
  WinExec(PChar(�arquivo.bat�), SW_HIDE); // Talvez tenha mais algum parametro, nao lembro de cabe�a.
  DeleteFile(�arquivo.bat�);
end;

F�rum Como criar tabelas em tempo de execu��o ? #222282