Transferência de dados através de arquivos .txt - Parte III

Transferência de dados através de arquivos .txt - Parte III

Criaremos um novo projeto para a geração do arquivo de transferência, será um programa bem simples, pois ficará mais fácil a colocação da rotina de geração dentro de um projeto, fazendo-se apenas algumas poucas modificações.

Crie um projeto no Delphi, no formulário mude as propriedades:

Após configurar o formulário coloque os componentes abaixo descriminados e mude as propriedades informadas:

TBitBtn (Additional)

TProgressBar (Win32)

Criando o acesso ao bando de dados

Iremos agora configurar o acesso ao banco de dados.  Nesse projeto utilizaremos os componentes dbExpress para a comunicação entre SGBD e o nosso projeto, mas nada impede o uso de outra biblioteca de acesso.

1.       Coloque um componente TSQLConnection – dbExpress (figura )

1.1.   Mude a propriedade Name para SQLConnec;

1.2.   Dê um clique duplo sobre o componente para abrir o editor de conexões:

1.2.1.       Clique no botão  (Add Connection);

1.2.2.       Mudes as propriedades Driver Name e Connection Name respectivamente para Interbase e ClubeDelphi_Transf, logo em seguida clique no botão OK.  Com isso acabamos de criar uma nova conexão com o nome de ClubeDelphi_Transf que irá usar os drivers do Interbase para se conectar com o SGBD;

1.2.3.       Com a nova conexão marcada altere as propriedades Database para ClubeDelphi_Transf.fdb* e SQLDialect para 3 logo em seguida feche o editor de conexões clicando no botão OK;

* Estamos colocando a base junto ao executável, por esse motivo não precisamos informar o endereço, caso contrario seria necessário informar o caminho completo onde se encontra a mesma e só após colocaríamos o nome da base de dados.

Ex.: 192.168.0.1:/ClubeDelphi/ClubeDelphi_Transf.fdb

1.3.   No Object Inspector altere a propriedade LoginPrompt para False.

2.       Coloque um componente TSQLQuery – dbExpress (figura )

2.1.   Mude a propriedade Name para SQLQuery;

2.2.   Altere a propriedade SQLConnection para SQLConnec.

3.       Coloque um componente TDataSetProvider – Data Access (figura )

3.1.   Mude a propriedade Name para DataSetProv;

3.2.   Altere a propriedade DataSet para SQLQuery.

4.       Coloque um componente TClientDataSet – Data Access (figura )

4.1.   Mude a propriedade Name para ClientDataSet;

4.2.   Altere a propriedade ProviderName para DataSetProv.

O formulário deverá está semelhante a da Figura 1.

Figura 1 – Formulário de transferência

Entrando com código para gerar o arquivo de transferência

Agora para concluir o programa de transferência de dados devemos entrar com o código...

Devido tamanho, esta parte continua no próximo artigo. Obrigado!!!