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

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

Projeto para receber os dados

Agora devemos criar um projeto para receber o arquivo que foi gerado.  Assim como o projeto anterior deixaremos ele simples, para que possa, caso deseje, colocar essa rotina em um projeto seu com poucas alterações.

No novo projeto mude as seguintes propriedades do formulário:

Coloque os componentes abaixo e mude as propriedades solicitadas :

TBitBtn (Additional)

TPanel  (Standard)

Acesso ao bando de dados

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_Rec, logo em seguida clique no botão OK;

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

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

1.4.   A propriedade Connected deve ficar True.

2.       Coloque um componente TSQLQuery – dbExpress (figura )

2.1.   Mude a propriedade Name para SQLQCliente;

2.2.   Na propriedade SQL digite “select * from CLIENTE”;

2.3.   Altere a propriedade SQLConnection para SQLConnec;

2.4.   Dê um clique duplo sobre o TSQLQuery para abrir editor de campos:

2.4.1.       Clique com o botão direito do mouse sobre o editor de campos e selecione a opção Add all Fields;

2.4.2.       Altere as propriedades dos campos como mostrado abaixo:

Campo Codigo

Campo CPF

Campos Nome, Ender, Bairro, Cidade, UF, DtNasc

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

3.1.   Mude a propriedade Name para DSPCliente;

3.2.   Altere a propriedade DataSet para SQLQCliente;

3.3.   Coloque upWhereKeyOnly na propriedade UpdateMode.

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

4.1.   Mude a propriedade Name para CDSCliente;

4.2.   Altere a propriedade ProviderName para DSPCliente;

4.3.   Coloque True na propriedade Active.

5.       Coloque um componente TDataSource – Data Access (figura )

5.1.   Mude a propriedade Name para DSCliente;

5.2.   Altere a propriedade DataSet para CDSCliente.

6.       Coloque um componente TSQLQuery – dbExpress (figura )

6.1.   Mude a propriedade Name para SQLQProduto;

6.2.   Na propriedade SQL digite “select * from PRODUTO”;

6.3.   Altere a propriedade SQLConnection para SQLConnec;

6.4.   Dê um clique duplo sobre o TSQLQuery para abrir editor de campos:

6.4.1.       Clique com o botão direito do mouse sobre o editor de campos e selecione a opção Add all Fields;

6.4.2.       Altere as propriedades dos campos como mostrado abaixo:

Campo Codigo

Campos Descr, Valor

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

7.1.   Mude a propriedade Name para DSPProduto;

7.2.   Altere a propriedade DataSet para SQLQProduto

7.3.   Coloque upWhereKeyOnly na propriedade UpdateMode.

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

8.1.   Mude a propriedade Name para CDSProduto;

8.2.   Altere a propriedade ProviderName para DSPProduto;

8.3.   Coloque True na propriedade Active.

9.       Coloque um componente TDataSource – Data Access (figura )

9.1.   Mude a propriedade Name para DSProduto;

9.2.   Altere a propriedade DataSet para CDSProduto.

Para visualizar os dados que armazenados nas tabelas colocaremos dois TDBGrid – Data Controls (figura ).  Após a colocação dos dois TDBGrid altere as propriedade indicadas:

TDBGrid1

TDBGrid2

Figura 2 – Formulário de recebimento