...
Estrutura das tabelas personalizadas
Tabela U_CTRLIMPORTACAO (log das transações)
Coluna | USUARIO |
Descrição completa/reduzida | Usuário |
Dica para usuário | Usuário que fez a importação |
Tipo da coluna | Texto |
Tamanho máximo | 20 caracteres |
|
|
Coluna | DATAHORA |
Descrição completa/reduzida | Data e Hora |
Dica para usuário | Data e hora na qual a importação foi feita |
Tipo da coluna | Data/Hora |
Tamanho máximo |
|
|
|
Coluna | ARQUIVOTXT |
Descrição completa/reduzida | Arquivo .TXT |
Dica para usuário | Descrição da conversão |
Tipo da coluna | Texto |
Tamanho máximo | 250 caracteres |
Tabela U_IMPORTATXT (tabela que guardará os dados a serem exportados e importados)
Coluna | NOME |
|---|---|
Descrição completa/reduzida | Nome |
Dica para usuário | Nome a ser importado |
Tipo da coluna | Texto |
Tamanho máximo | 45 |
|
|
Coluna | |
Descrição completa/reduzida | |
Dica para usuário | email a ser importado |
Tipo da coluna | Texto |
Tamanho máximo | 100 |
|
|
Coluna | CELULAR |
Descrição completa/reduzida | Celular |
Dica para usuário | Celular a ser importado |
Tipo da coluna | Texto |
Tamanho máximo | 14 |
|
|
Coluna | DOCUMENTO1 |
Descrição completa/reduzida | Documento 1 |
Dica para usuário | Documento 1 a ser importado |
Tipo da coluna | Texto |
Tamanho máximo | 11 |
|
|
Coluna | DOCUMENTO2 |
Descrição completa/reduzida | Documento 2 |
Dica para usuário | Documento 2 a ser importado |
Tipo da coluna | Texto |
Tamanho máximo | 14 |
...
Começaremos o desenvolvimento do script pela unit cPrinc que será é a unit principal. Ela será a primeira a ser executada quando o script for invocado.
Código:
| Code Block |
|---|
uses
// Importa a unit do formulário
uImportaDados;
var
// declara o objeto que herdará todas as características do formulário
form : TfrmImportaDados;
begin
// inicia o ciclo de vida do script
try
// cria o formulário com o nome form
form := TfrmImportaDados.Create(nil);
// aguarda o resultado das ações no formulário por meio do modalresult
if form.ShowModal = mrOk then
begin
end;
finally
// destrói o formulário no final do ciclo de vida do script
form.Free;
end;
end; |
...