Criando Aplicativo Delphi 2009-2010

http://ww ht tp://ww w.planetadelphi.com w.planetadelphi.com.br/artigo/150/curso-delphi-%E2%80%93-criando-u .br/artigo/150/curso-delphi-%E2%80%93-criando-um ma-aplicacaoa-aplicacao-do-inicio-ao-fim do-inicio-ao-fim---parte-1/ ---parte-1/

Curso Delphi – Criando uma Aplicaç Ap licação ão do Início ao fim

Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim

Iremos começar nosso artigo, primeiro primeiro falando dos requisitos re quisitos necessários, primeiro primeiro requisito é o banco b anco de dados da dos firebird, que pode ser encontrado em www.firebase.com.br , e também o IbExpert, que é a ferramenta para manipular o banco de dados firebird e interbase, o ibExpert pode ser adquirido no seguinte endereço www.firebase.com.br Crie uma pasta chamada SisCom e uma subpasta chamada Banco e abra o IbExpert e dê um clique no botão , Create Database e preencha a tela de acordo coma tela a seguir:

Obs.: o Password é masterkey

10/11/2011 15 11

1d 1


Tecle em Ok e preencha a tela de acordo com a tela a seguir:

Tecle em Ok e registre o Banco de dados no IbExpert. No Database Explorer selecione a opção tables e com o botão direito do mouse selecione a opção New Table ou tecle Ctrl+N e em New Table coloque CLIENTE e nos Field, preencha como a tabela abaixo:

para marcar o PK, basta teclar a barra de spaço. Aqui estamos denominando que o campo IDCLIENTE é chave primária. Obs.:

10/11/2011 15 13

1d 1


Tecle em Ok e preencha a tela de acordo com a tela a seguir:

Tecle em Ok e registre o Banco de dados no IbExpert. No Database Explorer selecione a opção tables e com o botão direito do mouse selecione a opção New Table ou tecle Ctrl+N e em New Table coloque CLIENTE e nos Field, preencha como a tabela abaixo:

para marcar o PK, basta teclar a barra de spaço. Aqui estamos denominando que o campo IDCLIENTE é chave primária. Obs.:

10/11/2011 15 13

1d 1

http://www.planetadelphi.com.br/artigo/150/curso-delphi-%E2%80%93-criando-uma-aplicacao-do-inicio-ao-fim---parte-1/ Chave Primária

É um atributo que permite identificar identificar uma única ocorrência ocorrênc ia de um registro em uma uma tabela. tab ela. Desta forma, seu conteúdo conteú do deve ser único, exclusi exc lusivo vo e im imutável utável para cada lilinha nha da Tabela. Todos Todos os demais atributos da entidade devem depender unicamente deste atributo. Caso não exista um atributo que possa assumir a posição de chave primária, é preciso criá-lo. Veja Veja que nem todo campo é uma boa chave. c have. Normal Normalmente mente utilizamos utilizamos campos numéricos por serem se rem localizados localizados mais rapidamente pelos bancos de dados. da dos. Valores Valores alfanuméricos grandes têm acesso mais lento. Desta forma, fica claro que toda tabela deve conter uma chave primária, mas é lógico que toda regra tem a sua exceção. Eventualmente uma chave primária pode conter mais de um atributo. Neste caso, a chave conterá mais de um atributo, mas será considerada a chave da tabela. A união dos dois atributos é que deve garantir o acesso a uma única linha da entidade. Este caso de chave primária é chamado de Chave Concatenada. Crie uma nova tabela e dê o nome de PRODUTO e preencha de acordo com a tabela a seguir:

Crie um nova tabela e dê o nome de PEDIDO e preencha de acordo com a tabela a seguir:

Crie um nova tabela e dê o nome de ITENS:

Tipos de Dados

O banco de dados firebird possui vários tipos tipos de dados que são suportados por ele. Abordaremos Aborda remos os tipos de dados que podem serem usados no firebird.

10/11/2011 15 14

1d 1

http://www.planetadelphi.com.br/artigo/150/curso-delphi-%E2%80%93-criando-uma-aplicacao-do-inicio-ao-fim---parte-1/ Char e Varchar

Os tipos CHAR e VARCHAR são usados para armazenar armazenar informações informações textuais (letras, números, caracteres especiais e etc). A diferença entre os dois tipos é que o CHAR sempre recupera a string armazenada com espaços à direita, mesmo mesmo que você voc ê não util ut iliz izee todo o espaço defini def inido do para o campo. Já o VARCHAR VARCHAR recupera a string sem espaços, ou seja, com co m o mesmo mesmo tamanho que q ue foi inserida. O uso de campos CHAR é recomendado quando os valores têm seu tamanho determinado previamente como, por exempl exe mplo, o, para armazenar CEPs ou siglas siglas de UFs. DATE:

O Campo Date serve para armazenar Data.

TIME:

O Campo Tim Timee serve para armazenar a hora.

TIMESTAMP:

É a união do campo Date com o Time. Time.

O tipo INTEGER armazena INTEGER armazena valores inteiros com sinal; ocupa 32 bits e permite uma faixa de valores entre - 2.147.483.648 e 2.147.483.647. O tipo SMALLINT também armazena inteiros com sinal, sinal, mas ocupa 16 bits, permitindo uma uma de -32.768 -32 .768 até 32.767. 32 .767. INTEGER e SMALLINT:

FLOAT:

O Campo FLOAT FLOAT é utilizado utilizado para armazenar valores de d e ponto flutuante; flutuant e; ocupam ocu pam 32 bits.

É um Float duplo. É armazenado em 64 bits, o que permite uma faixa maior de valores. Assim, Assim, como o Float, o tipo DOUBLE DOUBLE PRECISION P RECISION sofre sofre com c om problemas de precisão, pois também utiliza a metodologia do IEEE. DOUBLE PRECISION:

Os tipos de dados NUMERIC e DECIMAL são os mais indicados indicados para pa ra armazenar valores fracionários, nos quais a precisão é im importante portante na recuperação recup eração dos dados. Ambos os tipos NUMERIC NUMERIC e DECIMAL são declarados com dois parâmetros: precision precision e scale. sca le. O parâmetro scale (escala) (esca la) determina quantos dígitos dígi tos depois da vírg vírgula ula serão armazenados. O parâmetro pa râmetro precisio prec isionn especifica e specifica o número máxim máximoo de dígi dígitos, tos, tanto inteiros como fracionários. frac ionários. BLOB: Você Você pode armazenar desde d esde textos sim simples ples até arquivos binários. Teoricamente o campo BLOB não tem limite limite de tamanho. Na Na prática prática,, claro, este tamanho pode ser limitado por outros fatores como, por exemplo, o espaço disponível em disco. NUMERIC E DECIMAL:

Acabamos de fazermos nosso banco de dados SisCom, SisCom, colocamos apenas quatro tabelas, tabe las, e estamos definindo que todo pedido terá que ter um cliente, esse cliente c liente é alimentado alimentado pelo pe lo campos IDCLIENTE. E os pedidos terão seus itens que originaram originaram da tabela de produto e será reconhec reconhecido ido pelo campo IDPRODUTO. IDPRODUTO. Conclusão:

Até o próximo artigo de continuação.

10/11/2011 15 14

1d 1

http://ww w.planetadelphi.com.br/artigo/152/curso-delphi-%E2%80%93-criando-uma-aplicacao-do-inicio-ao-fim---parte-1/

Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 2

Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 2

Nesse nosso segundo artigo iremos criar o nosso menu, estarei ut ilizando o componente Ribbon, esse componente nos permite criar uma menu muito interessante que é similar com o do Word 2007, esse componente começou no Delphi 2009. Neste artigo estarei utilizando o Delphi 2010, você poderá fazer o donwload no site da codegear https://downloads.embarcadero.com/free/delphi você precisa ser registrado no site para fazer o download. Inicie o Delphi e clique em File, New, Vcl form Application

Salve a aplicação clicando no botão Save all, salve-o formulário como UfrmPrincipal na pasta SisCom e o projeto salve-o como SisCom. Mude a propriedade Caption para SisCom e a propriedade name para frmPrincipal do nosso formulário. Coloque no formulário o componente ActionManager da paleta Additional e logo em seguida o componente ImageList da paleta Image e dê dois clique sobre o componente e na tela que se abre clique em Add e vá ao diretório C:\Program Files\Common Files\CodeGear Shared\Images\GlyFX\Icons\XP\BMP\16x16 neste endereço você encontrará muitos ícones que você pode utilizar, escolha alguns e clique em abrir. Selecione o componente ActionManager e mude a propriedade images para ImageList1. Dê dois cliques sobre o componente ActionManager e na tela que se abre clique no botão propriedades:

10/11/2011 15 16

New Action e mude as seguintes

1d 1


Clique no botão

New Action e mude as seguintes propriedades:

Selecione o (No Category) e clique no botão

Clique no botão



Feche o ActionManager e clique com o botão direito do mouse no menu superior do componente Ribbon como demonstra a figura abaixo:

10/11/2011 15 17

1d 1


Escolha Add Tab e mude a propriedade Caption para Cadastro. Dentro do tab criado clique como o botão direito do mouse e abrirá a seguinte tela:

Escolha Add Group e mude a propriedade Caption para Cadastro. Adicione mais um Tab e mude a propriedade Capition para Pedidos e adicione mais um grupo e mude a propriedade caption para Pedidos. Agora abra o ActionManager e selecione a categoria Cadastro e arraste à ação Cliente para o grupo de Cadastro como mostra a figura a seguir:

faça o mesmo com à ação Produto, e arraste para o grupo Pedidos as ações PDF e Consulta Pedidos. Selecione o componente Ribbon e mude a propriedade Caption para SisCom – Sistema Comercial. Com o botão direito do mouse sobre o componente Ribbon escolha a opção Add Application Menu, ele irá criar um atalho para que o usuário acesse os itens mais recentes.

10/11/2011 15 18

1d 1


Sua aplicação deverá ficar assim:

Podemos perceber que a criação de menus é muito simples, é algo intuitivo, você poderá usar também um Main Menu, ou um toobar, mas resolvi escolher o que é de mais recente no Delphi. Espero que vocês estejam gostando e por favor, me dê um feedback para que eu possa ir melhorando os próximos artigos. Conclusão:

10/11/2011 15 18

1d 1

http://www.planetadelphi.com.br/artigo/153/curso-delphi-%E2%80%93-criando-uma-aplicacao-do-inicio-ao-fim---parte-1/


Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 3 Conectando com o Banco de Dados Siscom.fdb

Neste artigo estarei mostrando como fazer a conexão com o banco de dados, para isso irei utilizar a tecnologia de acesso a dados DbExpress, tecnologia esta que é unidirecional. O que vem a ser o UNIDIRECIONAL, interpretado por muitas pessoas como "o problema" no momento de desenvolver um projeto? A única navegação permitida que podemos realizar em um DataSet do dbExpress é a navegação do tipo IR AO PRÓXIMO (o comando Next de uma query por e xemplo), ou seja, ir de registro a registro do início para o final do DataSet. Além disso, estes DataSets nos permitem apenas a visualização dos dados para leitura (dados contidos em uma base de dados relacional). Com essas características temos, ao meu ver, a principal característica dos DataSets dbExpress. Eles são extremamente leves (ou seja, observamos uma alta performance de acesso a banco de dados, pois não existem tarefas extras para suportar o cursor bidirecional, buffering de registros, entre muitos outros). Neste momento, vale "lançar" uma observação interessante. Se tentarmos editar, ou excluir, ou inserir um registro no dbExpress será gerada uma exceção! Vamos enfim fazer a conexão. Vá em File, New, Other, Delphi files e escolha Data Module ou tecle F6 e aparecerá o ID Inseght, digite Data Module e escolha a opção Data Module no new itens. Isto só será possível se estiver usando o Delphi 2010, esse é um novo recurso do mesmo. Mude a propriedade name para dmPrincipal e salve-o como UdmPrincipal. No Data Explorer a sua direita selecione a opção firebird e clique com o botão direito do mouse como demonstra a figura a seguir:

10/11/2011 15 20

1d 1


Escolha Add New Connection e preencha a tela que se abre de acordo com a tela a seguir:

Dê OK. E Dê dois clique na opção Firebird e escolha a conexão ConexaoSisCom clicando com o botão direito do mouse e na tela que se abre escolha Modify Connection, na tela que abre preencha a tela de acordo com a figura a seguir:

O Password é masterkey, tecle em Test Connection para testar a conexão, se dê tudo certo, tecle em ok, pronto a nossa conexão já está pronta. Para terminar basta arrastar a conexão para o data module deixando-o dmPrincipal assim:

Caso você esteja utilizando uma versão anterior ao Delphi 2009, basta colocar o componente SqlConnection no data module e dar dois clique no mesmo e preencha a tela que se abre como mostra a figura 03. Conclusão: Neste

artigo procurei mostrar como fazer a conexão, e como funcionar a tecnologia de acesso a dados DbExpress, no próximo artigo irei fazer o formulário modelo, que servirá de base para os nossos formulários. Caso tenham alguma dúvida, meu e-mail é [email protected]. 10/11/2011 15 21

1d 1


Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 4 Formulário Modelo

Neste artigo irei criar um formulário que servirá como padrão, ou seja, iremos herdar deste formulário, para criarmos os formulários de cadastro de cliente e produto, para que não precisemos fazer vários formulários diferentes, isto serve também para o usuário se identificar melhor com o layout do formulário. Crie um novo formulário em File, New, Form – Delphi e salve-o com UfrmModelo e mude a propriedade name para frmModelo. Coloque um componente panel da paleta standard e apague o conteúdo da propredade caption e mude a propriedade align para altop. Adicione ao panel sete componentes Bitbtn da paleta additional. Coloque um componente ImageList da paleta Win32 e dê dois clique sobre o mesmo e tecle no botão Add e coloque algumas figuras a sua escolha da pasta C:\Program Files\Common Files\CodeGear Shared\Images\GlyFX\Icons \XP\BMP\16x16 Coloque agora no formulário um DataSource da paleta DataAccess e mude a propriedade name para DTS, logo depois Coloque o componente BalloonHint da paleta Additional e por fim um ActionList da paleta Standard. Selecione o componente ActionList e mude a propriedade images para ImageList1, dê dois clique no ActionList e tecle na setinha para baixo do lado do botão New Action e abrirá a seguinte tela:

Escolha New Standard Action ou tecle Ctrl+Ins, na tela que se abre escolha os itens selecionados na tela a seguir:

Selecione os itens marcados dentro do dataset. Qual é a idéia aqui? A idéia e fazer o controle dos botões direto no ActionList, assim ele irá controlar os botões, ou seja, se o usuário clicar no botão novo ele desabilita automaticamente o botões excluir, os botões funcionaram de acordo com o estado da tabela. Assim que

10/11/2011 15 24

1d 1


automaticamente o botões excluir, os botões funcionaram de acordo com o estado da tabela. Assim que selecionar os itens clique em Ok e selecione a primeira ação e mude as seguintes propriedades:

Selecione o primeiro botão e mude as seguintes propriedades:

10/11/2011 15 25

1d 1


Selecione o primeiro botão e mude as seguintes propriedades:

O formulário deverá ficar assim:

10/11/2011 15 28

1d 1


Vamos agora implementar os botões, dê dois clique no componente ActionList e selecione a ação AC_Novo e dê dois clique sobre ela e abrirá o editor de código do Delphi, coloque o seguinte código a seguir: view sourceprint? 1.procedure TfrmModelo.AC_NovoExecute(Sender: TObject); 2.begin 3.

DTS.DataSet.Append;

4.end;

Na ação AC_Alterar coloque o seguinte código: view sourceprint? 1.procedure TfrmModelo.AC_AlterarExecute(Sender: TObject); 2.begin 3.

DTS.DataSet.Edit;

4.end;

Na ação AC_Excluir coloque o seguinte código: view sourceprint? 01.procedure TfrmModelo.AC_ExcluirExecute(Sender: TObject); 02.begin 03.

if not DTS.DataSet.IsEmpty then

04.

begin

05.

DTS.DataSet.Delete;

06.

if DTS.DataSet is TClientDataSet then

07.

TClientDataSet(DTS.DataSet).ApplyUpdates(0);

08.

end;

09.end;

Nesta ação excluir verificamos se o registro existe através da propriedade IsEmpty, logo depois apagamos o mesmo pelo delete e logo depois gravamos no banco a exclusão usando o método ApplyUpdates. Na ação AC_Cancelar coloque o seguinte código: view sourceprint? 1.procedure TfrmModelo.AC_CancelarExecute(Sender: TObject); 2.begin 3.

TClientDataSet(DTS.DataSet).CancelUpdates;

4.end;

Na ação AC_Gravar coloque o seguinte código: view sourceprint? 1.procedure TfrmModelo.AC_GravarExecute(Sender: TObject); 2.begin 3.

TClientDataSet(DTS.DataSet).ApplyUpdates(0);

4.end;

Crie duas novas ações no actionList e dê o nome de Pesquisa e Sair, Implemente o último botão com a ação sair , colocando assim: view sourceprint? 1.procedure TfrmModelo.AC_SairExecute(Sender: TObject); 2.begin 3.

Close;

4.end;

10/11/2011 15 31

1d 1


A ação do botão pesquisar implementaremos futuramente. Vamos imaginar uma situação, o usuário está digitando um novo registro, de repe nde ele deseja fechar o formulário sem antes salvar ou cancelar, nós não deixaremos que isso aconteça, para isso selecione o frmModelo e no evento onClose coloque o seguinte código: view sourceprint? 01.procedure TfrmModelo.FormClose(Sender: TObject; var Action: TCloseAction); 02.begin 03. if dts.state in [dsEdit, dsInsert] then 04. begin 05. Action:= caNone; 06. ShowMessage('É necessário Você Salvar ou Cancelar. '); 07. frmModelo.SetFocus; 08. end; 09.end;

Neste código estou verificando se o Dataset está em estado de edição ou inserção, caso ele esteja, eu não permito que o usuário feche o formulário. Na próximo artigo, estarei falando sobre o formulário de cadastro de cliente e formulário. Abraço e até lá. Rubens Antunes

10/11/2011 15 31

- Autor do Livro: Delphi – Faça Uma Aplicação Comercial

1d 1


Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 5 Formulário Cadastro

Olá nesse quinto artigo, estarei escrevendo sobre o formulário de cadastro de Cliente e Produto. Vamos construí-lo. Abra o Delphi e vá em File, New, Other e abrirá o repositório do Delphi, o que vamos fazer aqui é herdar o formulário modelo, para aproveitarmos as mesmas funcionalidades, sem precisarmos digitá-las novamente. Com o repositório aberto escolha a opção inheritable items, podemos perceber que a direita a pareceu o formulário modelo, dê dois clique no mesmo e salve-o formulário como UfrmCadCliente e mude as seguintes propriedades:

Antes de continuarmos, precisamos criar os componentes que irão dar manutenção ao formulário, para isso vá me File, New, Other e em Delphi Files escolha Data Module, dê o nome de dmCliente e salve-o c omo UdmCliente. Tecle em Alf + f11 e na tela que se abre escolha UdmPrincipal, ou seja estamos instanciando o dat a module dmPrincipal para que possamos fazer uso dele. Adicione em nosso data module o componente SqlDataSet da Paleta DbExpress e mude as seguintes propriedades: SqlConnection : dmPrincipal.ConexaoSisCom Obs.: Caso não apareça nada a frente do SqlConnection você deve apenas abrir o dmPrincipal Name: sdsCadCliente CommandText: Clique na reticências a frente e na tela que se abre digite assim:

view sourceprint? 01.select 02.BAIRRO, 03.CELULAR, 04.CEP, 05.CIDADE, 06.CPF_CNPJ, 07.ENDERECO, 08.IDCLIENTE, 09.NOME, 10.RG_INSC, 11.TELEFONE1, 12.TELEFONE2, 13.UF 14.from CLIENTE 15.Where IDCLIENTE =:pIDCLIENTE

10/11/2011 15 33

1d 1


Isto é uma instrução SQL, que nos retorna apenas um cliente por vez, devido a sua clausula where, que vai buscar a chave primária da tabela. Essa clausula cria um parâmetro chamado pIDCLIENTE, esse parâmetro será alimentado com isso o select nos retorna o registro desejado. Clique em OK e abra a propriedade Params, abrirá a seguinte tela:

Este é o nosso parâmetro, selecione o parâmetro e mude as seguintes propriedades:

DataSetProvider:

Este componente é responsável em transformar o SQL em DataPacket, o qual o Clientdataset

entende. Coloque no Data Module um DataSetProvider da paleta DataAccess e altere as seguintes propriedades:

Esse é o cara! O melhor componente do Delphi, as pesquisas são feitas em milésimos de segundos, ele recebe as informações provindas do DataSetProvider, ele só entende o formato DataPacket. Podemos também guardar informações XML nele e trabalhar desconectado, ou seja, o usuário está realizando uma venda, de repente o servidor cai, imediatamente ele salva os arquivos e um XML e depois atualiza o banco de dados. Coloque no Data Module um ClientDataSet da paleta DataAccess e altere as seguintes propriedades: ClientDataSet:

Dê dois clique no componente cdsCadCliene e abrirá o fields Editor com o botão direito do mouse escolha add all fields, e todos os campos apareceram. Selecione agora o formulário frmCadCliente e selecione o campo IDCLIENTE no fields editor e arraste-o para o formulário. Continue arrastando todos os campos deixando o formulário de acordo com a figura a seguir:

10/11/2011 15 33

1d 1


Podemos perceber que ele criou um novo DataSource, mas nós não iremos faze uso do mesmo, por isso apague-o e selecione o comoponente DTS e mude a sua propriedade DataSet para dmCliente.cdsCadCliente, caso não esteja aparecendo nada na propriedade DataSet, você deve instanciar o formulário clicando em Alt+F11 e na tela que se abre escolha dmCliente. Selecione agora todos os DbEdit e altere a propriedade DataSource para DTS. Selecione o formulário frmCadCliente e vá no evento OnCreate e coloque o seguinte código: view sourceprint? 1.procedure TfrmCadCliente.FormCreate(Sender: TObject); 2.begin 3.inherited; 4.dmCliente:=TdmCliente.Create(self); 5.dmCliente.cdsCadCliente.Open; 6.end;

Aqui estamos criando o data Module dmCliente e logo depois abrindo o ClientDataSet. Selecione agora o formulário frmPrincipal e dê dois cliques no Action Maneger escolha a opção Cadastro e dê dois clique na opção cliente e coloque o seguinte código: view sourceprint? 01.procedure TfrmPrincipal.AC_ClienteExecute(Sender: TObject); 02.begin 03.try 04.frmCadCliente:=TfrmCadCliente.create(self); 05.frmCadCliente.ShowModal; 06.finally 07.freeAndNil(frmCadCliente); 08.end; 09.end;

Você precisa também instanciar o frmCadCliente no formulário principal, para isso clique em Alt+F11 e na te la que se abre escolha frmCadCliente. Ok, Você pode Salvar o projeto e executá-lo e inserir novos registros, alterá-los e gravá-los O formulário de cadastro de Produto é do mesmo jeito, como forma de aprendizado esse formulário vou deixar para você mesmo fazê-lo, ele seguirá o mesmo padrão do formulário de cadastro de cliente. No próximo artigo estarei falando de pesquisa, ou seja, como visualizar os dados já cadastra dos. Até o próximo.

10/11/2011 15 34

1d 1


Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 6 Pesquisa

Neste artigo irei mostrar como fazer pesquisa no Delphi, é algo muito simples e interessante. Iremos começar utilizando Filtro, na continuidade do curso irei demonstrar como criar um ClientDataSet dinâmico. Abra o Data Module dmCliente e adicione no mesmo o componente Sqldataset da paleta DbExpress e tecle Alt+F11 e instancie em nosso data module o UdmPrincipal, logo depois na propriedade SqlConnection do sqldataSet escolha dmPrincipal.ConexaoSisCom, e mude a propriedade name para sdsPesqCliente, fazendo isso tecle na reticências em frente a propriedade CommandText e na tela que se abre, preencha de acordo com os dados a seguir: view sourceprint? 01.select 02.NOME, 03.BAIRRO, 04.CELULAR, 05.CEP, 06.CIDADE, 07.CPF_CNPJ, 08.ENDERECO, 09.IDCLIENTE, 10.RG_INSC, 11.TELEFONE1, 12.TELEFONE2, 13.UF 14.from CLIENTE

Neste select estamos trazendo todos os registros da tabela cliente. Adicione em nosso data module dmcliente o componente DataSetProvider e altere as seguintes propriedades:

Adicione também um ClientDataSet e altere as seguintes propriedades:

Após Conectarmos os componentes crie um novo formulário em File/new/Form –Delphi e mude a propriedade name para frmPesquisa e salve-o como UfrmPesquisa. Adicione em nosso formulário um Combobox da paleta Standard e altere a propriedade name para cbbCampos, este componente receberá todos os campos de nossa tabela cliente, adicione também um label da paleta Standard e mude a propriedade Caption para Escolha Um Campo. Coloque também um Edit da paleta Standard e mude a propriedade name para edtPesquisar e depois um label logo em cima do edtPesquisar e mude a propriedade caption para Valor a Pesquisar. Coloque um DbGrid e mude a propriedade name para dbgPesquisa. Coloque um DataSource e mude a propriedade name para Dts. Seu formulário deverá ficar assim:

10/11/2011 15 36

1d 1


DataSource e mude a propriedade name para Dts. Seu formulário deverá ficar assim:

Vamos agora codificar, selecione o formulário frmPesquisa e no evento OnShow coloque o seguinte código: view sourceprint? 01.procedure TfrmPesquisa.FormShow(Sender: TObject); 02.var 03.I: Integer; 04.begin 05.for I := 0 to (Dts.DataSet.FieldCount)-1 do 06.begin 07.if Dts.DataSet.Fields[I].DataType in [ftString,ftWideString,ftFixedChar] then 08.cbbCampos.Items.Add(Dts.DataSet.Fields[I].FieldName); 09.end; 10.end;

Este evento é disparado assim que o formulário for criado. Ele traz todos os campos da tabela, representado pelo for, a propriedade FieldCount, representa a total de campos e o -1 para percorrer todos os campos, logo em seguida fazemos uma condicional, ou seja, queremos apensas os c ampos do tipo String ou Char representado pelo DataType, ou seja o tipo do campo, se ele for verdadeiro ele adicionará através da propriedade add os campos na propriedade items, a mesma que possue no comboBox. já o Dts.DataSet.Fields[I].fieldName é o nome do campo provindo do DataSet.

10/11/2011 15 37

1d 1


Selecione o EdtPesquisar e coloque o seguinte código no evento OnKeyPress: view sourceprint? 01.procedure TfrmPesquisa.edtPesquisarKeyPress(Sender: TObject; var Key: Char); 02.begin 03.1. if key = #13 then // #13 é o símbolo que representa a tecla Enter 04.2. begin 05.3. if (cbbCampos.Text <> EmptyStr) and //Verifico se o comboBox foi preenchido 06.4. (edtPesquisar.Text <> EmptyStr) then //verifico se o edtPesquisar possue algum valor 07.5. begin 08.6. Dts.DataSet.Filter := 'Upper('+cbbCampos.Text+') like '+ //Passo os valores a 09.pesquisar na propriede Filter 10.7. QuotedStr(UpperCase(edtPesquisar.Text)+'%'); 11.8. Dts.DataSet.Filtered := True; //Ativo a propriedade Fieltered 12.9. if not Dts.DataSet.Active then //Se o filtro não estiver ativo, eu apenas abro o DataSet 13.10. Dts.DataSet.Open; 14.11. end; 15.12. end; 16.end;

Eu determino que assim que o usuário teclar Enter o código será executado. linha 3 e 4: Verifico se o comboBox está vazio e o edit também, se ele estiver ele irá sair do if. Linha 6: Passamos a instrução SQL pra o filtro. Linha 8: Apenas ativo o filtro. Linha 9 e 10: Se o filtro não estiver ativo, apenas abro a tabela; linha 1:

Selecione agora o DbgPesquisa e coloque o seguinte código no evento OnClose: view sourceprint? 1.procedure TfrmPesquisa.dbgPesquisaDblClick(Sender: TObject); 2.begin 3.Close; 4.end;

No formulário frmCadCliente na Ação Pesquisar coloque o seguinte código: view sourceprint? 01.procedure TfrmCadCliente.AC_PesquisarExecute(Sender: TObject); 02.begin 03.inherited; 04.try 05.frmPesquisa:=TfrmPesquisa.Create(self); 06.frmPesquisa.Dts.DataSet:=dmCliente.cdsPesqCliente; 07.frmPesquisa.ShowModal; 08.finally 09.With dmcliente.cdsCadCliente do 10.begin 11.Close; 12.FetchParams; 13.Params.ParamByName('pIDCLIENTE').AsInteger:= 14.dmCliente.cdsPesqClienteIDCLIENTE.AsInteger; 15.Open; 16.end; 17.freeAndNil(frmPesquisa); 18.end; 19.end;

10/11/2011 15 38

1d 1


Neste código estamos criando o formulário frmPesquisa e logo depois passando o qual o Dataset que ele irá utilizar, ou seja, você pode criar o cadastro de Produto e utilizar o mesmo formulário de pesquisa, trocando apenas o Dataset do DataSource. Execute a aplicação. Como forma de aprendizado crie o formulário de cadastro de produto, ele seguirá o mesmo padrão do formulário de cadastro de cliente e na hora de pesquisar basta apenas na hora de chamar o formulário de pesquisa mudar o Dataset do nosso DataSource Dts. Conclusão: Neste artigo eu procurei fazer algo simples, mas com bastante produtividade, uma vez que os dados já estão em memória não há a necessidade de pesquisarmos mais no banco de dados, sendo que, quando precisarmos fazer uma busca mais detalhada, aí sim teremos que usar as instruções SQL. No próximo artigo estarei escrevendo sobre campo autoIncremento, Abraço e até lá. Por: Rubens Antunes Autor do Livro: Delphi – Faça Uma Aplicação Comercial

10/11/2011 15 39

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 7 Campo Auto incremento e Captura de erros

Olá, nesse artigo estarei escrevendo sobre campo auto incremento, como criar e como utilizar esse campo. Podemos perceber que o campo código do cliente precisa ser colocado na mão, ou seja, não existe nenhum método para alimentar o código automaticamente, para isso iremos utilizar o generators. Abra o IbExpert e selecione o nosso banco de dados SisCom.fdb e logo depois clique em generators e tecle Ctrl+N ele criará um novo generator, em name mude para Gen_IDCliente e em value coloque 100, pronto, o nosso generator já está criado e alimentado, a nossa contagem começará de 100. Precisamos de uma tabela que sirva para armazenar o valor temporariamente, crie um nova tabela com o nome de código e campo ID do tipo integer, coloque apenas um registro com número 1. Retornando ao Delphi, abra o Data Module dmCliente e adicione o componente SqldataSet da paleta DbExpress e altere as seguintes propriedades:

Esta instrução SQL nos retorna o último generator mais 1 através do Gen_ID. Dê dois clique no sdsNovoID e adicione o campo NOVOID no Fields editor. Selecione o componente cdsCadCliente e vá no evento OnNewRecord e digita o seguinte código: view sourceprint? 1.procedure TdmCliente.cdsCadClienteNewRecord(DataSet: TDataSet); 2.begin 3.sdsNovoID.Close; 4.sdsNovoID.Open; 5.cdsCadClienteIDCLIENTE.AsInteger:=sdsNovoIDNOVOID.AsInteger; 6.end;

Como podemos perceber, criar um campo auto incremento é muito simples, ou seja, o generator armazena um determinado valor e este select apenas busca esse valor e acrescentar mais 1.

10/11/2011 15 42

1d 1


Captura de Erros

O ClientDataSet tem erros silenciosos, ou seja, ele deixa de gravar e não avisa, para isso precisamos fazer que ele nos avise. Iremos utilizar o evento OnReconcileError do ClientDataset, vamos fazer um exemplo selecione o cdscadcliente e no Field editor aberto selecione o campo ENDERECO e passe para true a propriedade Required, ou seja, estamos exigindo que o usuário não deixe em branco o campo ENDERECO, agora com cdscadCliente selecionado vá no evento OnReconcileError e coloque o seguinte código: view sourceprint? 1.procedure TdmCliente.cdsCadClienteReconcileError(DataSet: TCustomClientDataSet; 2.E: EReconcileError; UpdateKind: TUpdateKind; var Action: TReconcileAction); 3.begin 4.

ShowMessage(E.Message);

5.end;

Posicione o mouse em cima do ShowMessage e tecle Ctrl+Shift+A e coloque a unit Dialogs em nosso projeto. Execute a aplicação e inclua um novo cliente sem colocar dado nenhum no endereço ele dará a mensagem de erro:

Existe melhores maneiras de tratar os erros, ou seja, traduzindo as mensagens para português, mas a intenção deste artigo é apenas você conhecer como tratar erros. Conclusão: Neste artigo estou mostrando como criar um campo auto incremento e como utilizá-lo e como tratar erros no ClientDataSet, no próximo artigo estarei demonstrando como criar Relacionamentos. Abraço e até lá.

10/11/2011 15 42

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 8 Relacionamento

Vamos criar o relacionamento do nosso projeto, mas o que é um relacionamento? É quando uma tabela fica depedente da outra, ou melhor é quando uma tabela pai tem vários filhos, e aonde pai vai os filhos iram. Crie um novo data module em File, New, Other, Delphi Files e escolha Data Module, Dê o nome de dmPedido e salve-o como UdmPedido. Tabela Pai

Adicione ao data module o componente sqldataset e mude as seguintes propriedades:

Obs.: Caso não apareça nada na propriedade SqlConnection você deve instanciar o data module dmPrincipal

clicando em Alt+F11. Adicione agora em nosso data module dmPedido o componente DataSetProvider e mude as seguintes propriedades:

Adicione o componente ClientDataSet e mude as seguintes propriedades:

Tabela Filho

10/11/2011 15 45

1d 1


Adicionem um componente SqldataSet e mude as seguintes propriedades:

Um fator importante que na tabela de itens não haverá DataSetProvider, iremos passar as informações através da propriedade DataSetField do ClientDataSet. Adicione então o componente ClientDataSet e mude a propriedade name para cdsItens. O Relacionamento se dar através da clausula Where da instrução Sql, podemos perceber que as duas instruções são idênticas. Aqui estamos pedindo que nos traga todos os itens o qual o IDPEDIDO seja igual ao da tabela sdsCadPedido. Para que o ClientDataSet entenda esse relacionamento precisamos de um DataSource para fazer esse ligamento. Adicione então um DataSource e mude a propriedade name para dtsRelacionamento. Vamos definir agora o parâmetro, selecione o componente sdsCadPedido e dê dois clique na propriedade Params e configure de acordo a tela a seguir:

Faça o mesmo com o componente sdsItens. Selecione agora o componente dtsRelacionamento e mude a propriedade dataset para sdsCadPedido. Selecione o componente sdsItens e mude a propriedade DataSource para dtsRelaciomanento. A idéia é ligarmos o dtsRelacionamento ao sdsCadPedido e o sdsItens ligálo ao dtsRelacionamento, ou seja, tudo irá passar pelo DataSource. Dê dois clique no componente cdsCadPedido e abrirá o Field Editor, com o botão direito do mouse escolha add Fields e perceberá que abrirá uma caixa com novo campo do tipo DataSet, selecione esse novo campo e dê OK. Como disse anteriormente ele criou um campo do tipo dataset, ou seja, todos os campos da tabela sdsItens estão dentro deste dataset, com isso ele usará apenas uma transação para as duas tabelas. Para finalizarmos o relacionamento selecione o componente cdsItens e mude a propriedade DataSetField para cdsCadPedidosdsItens, ok agora coloque todos os campos no Field editor do cdsItens. Conclusão: Neste artigo podemos aprender como fazer um relacionamento NastedDataSet, o qual utilizamos apenas uma transação, este tipo de relacionamento é o mais seguro, sabendo que o banco de dados grava as informações de acordo a instrução SQL, ele obedecerá a risca o que vem da clausula where. No próximo artigo estarei montando a tela de vendas. Abraços e até lá.

10/11/2011 15 45

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 9 Tela de Pedido

No artigo anterior fizemos o nosso relacionamento, neste artigo estarei montando a tela de vendas. Crie um novo formulário e mude a propriedade name para frmCadVenda e salve-o como UfrmCadVenda. Adicione um panel e mude a propriedade Align para Altop, adicione mais um panel e mude a propriedade align alLeft, Adicione um DbGrid e mude a propriedade align para alClient e mude a propriedade name para DBGitens. Adicione dois DataSource e mude as seguintes propriedades:

Obs.: Caso não apareça nada na propriedade DataSet, você terá

que teclar Alt+F11 para instanciar.

Nota: O DataSource é o grande responsável para visualização dos dados provindos de um DataSet como o ClientDataSet e SqlDataSet, ele que permite a visualização num DbGrid ou qualquer outro componente de visualização de dados. Abra o Data Module dmPedido e dê dois clique no componente cdsCadPedido e arraste para o primeiro panel os campos IDCLIENTE, IDPEDIDO E DATA, o campo VALOR, arraste-o para o panel2. Selecione o DbGrid e mude a propriedade DataSource para dtsItens e logo depois dê dois clique no DbGrid e na tela que se abre escolha o botão Add all Fields. Selecione o campo IDPRODUTO e mude a propriedade caption que está dentro da opção Title para CÓDIGO , o campo TOTITEN para TOTAL e UNITARIO para UNITÁRIO. Você também pode mudar as posições que você deseja que apareça no DbGrid, alterar a fonte, o tamanho da grid e da fonte dentro da grid, mudando cores também. Selecione todos os campos e marque a propriedade ReadOnly, essa propriedade não permite que faça qualquer operação no Dbgrid, ou seja, o DbGrid está servindo apenas para visualizar os dados.

10/11/2011 15 46

1d 1


Com o cdsItens ativado arraste para o panel 2 o campo QUANTIDADE e UNITARIO. Sua tela de vendas deverá ficar assim:

Podemos perceber nesta tela que nos falta o nome do cliente e do produto, no próximo artigo estarei mostrando como fazer isso usando Joins e também utilizando o evento OnValidate do campo. Este foi apenas um artigo para montar nossa tela de vendas simples, sugiro a você a melhorar essa tela colocando imagens e explorando melhor as propriedades dos panels e dbGrids. Conclusão:

Abraços e até a próxima.

10/11/2011 15 47

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 10 Join e OnValidate

Neste artigo estarei demonstrando como trabalhar com Join e com o evento OnValidate. Abrindo o data module dmPedido, selecione o componente sdsCadPedido e dê dois clique na propriedade command Text e mude a instrução Sql de acordo com o quadro a seguir: view sourceprint? 01.select 02.PED.DATA, 03.PED.IDCLIENTE, 04.PED.IDPEDIDO, 05.PED.VALOR, 06.CLI.NOME 07.from PEDIDO PED 08.Inner Join CLIENTE CLI ON CLI.IDCLIENTE = PED.IDCLIENTE 09.Where IDPEDIDO =:pIDPEDIDO

Existem dois tipos de Join o Inner Join que obriga que ele encontre o dado e o left Join que não, o dado pode ou não existir, Poderíamos mudar o Inner Join para Left Join. Dê dois clique no componente sdsCadPedido e com o botão direito do mouse escolha add all fields, caso dê algum erro você precisará reconfigurar a propriedade params, e logo depois você perceberá que aparecerá o campo nome, provindo da tabela CLIENTE. O Join faz a união de duas tabelas, para que você utilize os campos que desejar da outra tabela. Coloque em nosso data Module dmPedido um novo SqlDataSet e mude as seguintes propriedades:

10/11/2011 15 48

1d 1


Dê dois clique no componente cdsCadPedido e selecione o campo IDCLIENTE e dê dois clique no evento OnValidate e coloque o seguinte código: view sourceprint? 01.procedure TdmPedido.cdsCadPedidoIDCLIENTEValidate(Sender: TField); 02.

begin

03.

With sdsInfoCliente do

04.

begin

05.

Close;

06.

Params.ParamByName('IDCLIENTE').AsInteger:=

07.

cdsCadPedidoIDCLIENTE.AsInteger;

08.

Open;

09.

cdsCadPedidoNOME.AsString:=FieldByName('NOME').AsString;

10.

end;

11.end;

No código anterior estamos localizando o cliente e atribuindo ao campo NOME do Join com o nome do cliente que localizamos. Para te starmos vá ao formulário frmCadVenda adicione um botão e coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.BitBtn1Click(Sender: TObject); 2.begin 3.

dmPedido.cdsCadPedido.Open;

4.

dmPedido.cdsCadPedido.Append;

5.end; Nota:

Você deve colocar o campo NOME no Field Editor do Clientdataset cdscadPedido.

Execute a aplicação e digite no IDCLIENTE um código já existente em sua tabela de Cliente e veja o resultado:

Ao sair do campo IDCLIENTE ele trará o nome do cliente, muitos programadores utilizam o evento OnExit do próprio campo, ele surte o mesmo efeito, com a seguinte diferença, no OnExit só aparecerá o nome assim que o usuário sair do campo, já o OnValidate também, mas ele quando recebe o código ele também é disparado, assim quando fizermos nossa pesquisa de cliente ele nos será muito útil.

10/11/2011 15 49

1d 1


Assim como fizemos com o componente sdsCadPedido faça o mesmo com o componente sdsItens e mude a sua instrução Sql de acordo com a quadro a seguir: view sourceprint? 01.select 02.ITEN.IDPEDIDO, 03.ITEN.IDPRODUTO, 04.ITEN.QUANTIDADE, 05.ITEN.TOTALITEN, 06.ITEN.UNITARIO, 07.PROD.PRODUTO 08.from ITENS ITEN 09.Inner Join PRODUTO PROD ON PROD.IDPRODUTO = ITEN.IDPRODUTO 10.Where IDPEDIDO =:pIDPEDIDO

Quando coloco a palavra ITEN, antes do campo é porque estou dando um apelido para tabela, poderia usar somente o nome da tabela. Nota:

Adicione em nosso data module dmPedido mais um SqldataSet e mude as seguintes propriedades:

Ok, fizemos o nosso join, agora podemos fazer nossa pesquisa no evento OnValidate e trazer o nome do produto, vamos a prática: Dê dois clique no componente cdsItens e selecione o campo IDPRODUTO e adicione o seguinte código no evento OnValidate: view sourceprint? 01.procedure TdmPedido.cdsItensIDPRODUTOValidate(Sender: TField); 02.begin 03.

With sdsInfoProduto do

04.

begin

05.

Close;

06.

Params.ParamByName('pIDPRODUTO').AsInteger:=

07.

cdsItensIDPRODUTO.AsInteger;

08.

Open;

09.

cdsItensPRODUTO.AsString:=FieldByName('PRODUTO').AsString;

10.

end;

11.end;

Adicione Produtos a tabela de PRODUTO e execute a aplicação, só não esqueça de dar qualquer código ao campo IDPEDIDO, para não dar erro, já que as duas tabelas estão ligadas pelo relacionamento.

10/11/2011 15 50

1d 1


Veja como ficou a execução do projeto:

Neste artigo procurei mostrar a utilização de Joins e do evento OnValidate, você pode melhorar e aprofundar mais essa idéia. Busco neste curso dar uma base de sustentação para todos, para chegarmos ao mesmo nível. Maiores informações vocês podem adquirir no meu livro – Delphi – Faça Uma Aplicação Comercial, muito obrigado e até o próximo artigo onde mostrarei como selecionar os clientes e os produtos em uma tela de pesquisa. Conclusão:

10/11/2011 15 51

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Neste artigo irei demonstrar como adicionar em nosso formulário de venda o cliente e os produtos, vamos fazer uma pesquisa no próprio formulário de vendas, apenas mandando ficar visível ou não uma Dbgrid e um Edit. Vamos a prática. Abra o formulário de frmCadVendas e adicione um edit exatamente em cima DbEdit7, a onde é mostrado o nome do cliente, e mude a propriedade name para edtCliente, logo abaixo coloque um Dbgrid e mude a propriedade name para dbgCliente e mude a propriedade visible para false, abra o data module dmPedido e adicione o componente SqlDataset e mude as seguintes propriedades:

Adicione um componente DataSetProvider e mude as seguintes propriedades:

Adicione um componente ClientDataSet e mude as seguintes propriedades:

Feito isso, retorne ao formulário frmCadVenda e adicione o componente DataSource e mude as seguintes propriedades:

Selecione o o Edit edtCliente e coloque o seguinte código no evento OnkeyPress: view sourceprint? 01.procedure TfrmCadVenda.edtClienteKeyPress(Sender: TObject; var Key: Char); 02.begin 03.

With dmPedido.cdsPesqCliente do

04.

begin

05.

Close;

06.

FetchParams;

07.

Params.ParamByName('NOME').AsString:=edtCliente.Text+'%';

08. 09.

Open; end;

10.end;

10/11/2011 15 52

1d 1


Aqui estamos alimentando o parâmetro NOME em nossa instrução SQL dentro do evento OnKeyPress que assim que o usuário começar a digitar o nome do cliente ele irá começar a busca. No evento OnClick do edtNome coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.edtClienteClick(Sender: TObject); 2.begin 3.

dbgCliente.Visible:=True;

4.end;

Assim que o usuário acessar o edtNome ele tornará visível o nosso dbgrid.. Execute a aplicação e veja como ficou a nossa pesquisa na figura a seguir:

Agora vamos selecionar o cliente. Iremos criar uma procedure, para podermos acessar de qualquer evento. No nosso formulário frmCadVenda na declaração Private coloque o seguinte código: view sourceprint? 1.private 2.

procedure escolha;

3.

{ Private declarations }

4.

public

5.

{ Public declarations }

Tecle Ctrl+Shift+C para implementar a procedure e coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.escolha; 2.begin 3.

dbgCliente.Visible:=False; // Torna o DbGrid Invisível

4.

edtCliente.Visible:=False; // Torna o edit invisível

5.

dmPedido.cdsCadPedido.Append; // Lança um novo registro em branco na tabela

6.

dmPedido.cdsCadPedidoIDCLIENTE.AsInteger:= // Alimenta o campo IDCliente

7.

dmPedido.cdsPesqClienteIDCLIENTE.AsInteger;

8.end;

10/11/2011 15 53

1d 1


No evento OnDblCllick do DbGrid dbgCliente coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.dienteDblClick(Sender: TObject); 2.begin 3.

Escolha; // Aciona a procedure Escolha

4.end;

No evento OnKeyPress do DbGrid dbgCliente coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.dbgClienteKeyPress(Sender: TObject; var Key: Char); 2.begin 3.

if key = #13 then // #13 é a representação da tecla Enter, o key é a chave

4.

Escolha;

5.end;

Execute a aplicação e veja como ficou o nosso formulário. Inserindo Produto

Vamos inserir agora o produto, para isso, iremos fazer uso do botão cbsEllipsis presente dentro do Dbgrid,. Dê dois cliques no Dbgrid de itens a abrirá a seguinte caixa:

Selecione a coluna PRODUTO e mude a propriedade ButtonStyle para cbsEllipsis, ok, já criamos o botão para fazermos uso do mesmo;

10/11/2011 15 53

1d 1

http://ww w.planetadelphi.com.br/artigo/168/curso-delphi-%E2%80%93-criando-uma-aplicacao-do-inicio-ao-fim---parte-1/ Criando Formulário

Vamos criar um novo formulário para pesquisar o produto, para isso vá em File, new e form – Delphi e mude as seguintes propriedades:

Salve o formulário como UfrmPesqProduto e deixe o formulário como a figura a seguir:

Abra o data module dmPedido o coloque os seguintes componentes e mude suas propriedades:

Retorne ao formulário frmPesqProduto e adicione um DataSource em nosso formulário e mude as seguintes propriedades:

Obs.:

Caso não apareça nada na propriedade DataSet, você deve clicar em Alt+F11 e colar a unit UdmPedido.

10/11/2011 15 54

1d 1


Selecione o edit edtPesquisa e no evento OnKeypress, coloque o seguinte código: view sourceprint? 01.procedure TfrmPesqProduto.edtPesquisarKeyPress(Sender: TObject; var Key: Char); 02.begin 03.

With dmPedido.cdsPesqProduto do

04.

begin

05.

Close;

06.

FetchParams;

07.

Params.ParamByName('PRODUTO').AsString:=edtPesquisar.Text+'%';

08.

Open;

09.

end;

10.end;

A pesquisa acima é como as outras que já fizemos. Agora selecione o dbGrid e colque o seguinte código no evento OnDblClick: view sourceprint? 1.procedure TfrmPesqProduto.DBGrid1DblClick(Sender: TObject); 2.begin 3.

Close;

4.end;

No evento OnkeyPress: view sourceprint? 1.procedure TfrmPesqProduto.DBGrid1KeyPress(Sender: TObject; var Key: Char); 2.begin 3.

if key = #13 then

4.

Close;

5.end;

Agora iremos chamar o formulário frmPesqProduto, para isso, retorne ao frmCadVenda e selecione o DbGrid de itens e no evento OnEditBurttonClick coloque o seguinte código: view sourceprint? 01.procedure TfrmCadVenda.DBGrid1EditButtonClick(Sender: TObject); 02.begin 03.

try

04.

frmPesqProduto:=TfrmPesqProduto.Create(self);

05.

frmPesqProduto.ShowModal;

06.

finally

07.

With dmPedido.cdsItens do

08.

begin

09.

Open;

10.

Append;

11.

FieldByName('IDPRODUTO').AsInteger:=dmPedido.cdsPesqProdutoIDPRODUTO.AsInteger;

12.

FieldByName('PRODUTO').AsString:=dmPedido.cdsPesqProdutoPRODUTO.AsString;

13.

end;

14.

freeAndNIl(frmPesqProduto);

15.

end;

16.end;

Aqui estamos chamando o formulário de pesquisa de produto assim que fechá-lo, eu recebo na tabela de itens o produto selecionado pelo usuário.

10/11/2011 15 55

1d 1


No evento OnCreate do formulário frmCadVenda coloque o seguinte código: view sourceprint? 1.procedure TfrmCadVenda.FormCreate(Sender: TObject); 2.begin 3.

if not assigned(dmPedido) then

4.

dmPedido:=TdmPedido.Create(self);

5.dmPedido.cdsCadPedido.Open; 6.end;

No menu principal, clique em Project, Options e deixe os formulários e data modules como a figura a seguir:

Salve a aplicação a execute. Fico por aqui no próximo artigo vamos melhorar a aparência do nosso formulário de vendas e criarmos o número do pedido.

10/11/2011 15 56

1d 1



Rubens Antunes Rubens Antunes, Autor do Livro Delphi Faça uma Aplicação Comercial e Desenvolvedor Delphi desde de 2004. Curso Delphi – Criando uma Aplicação do Início ao fim - Parte 12 Somando Valores e Campo Auto Incremento

Neste artigo irei demonstrar como somar o total dos itens e total do pedido, para isso iremos utilizar um campo agreggate e o evento OnValidate de alguns campos. Irei utilizar um campo auto incremento, para adicionarmos o numero do pedido. É um evento do campo, ou seja, quando o campo recebe um determinado valor ele dispara o evento, para validar o campo. OnValidate:

Vamos utilizar esse evento para validarmos a quantidade e o valor unitário de cada item do nosso pedido, assim que ele receber a quantidade ele irá multiplicar pelo valor unitário, dando assim o total daquele item. Abra o data module dmPedido e abra o cdsItens e selecione o campo quantidade e no Object Inspector selecione a aba Events e escolha o evento OnValidate e coloque o seguinte código: view sourceprint? 01.procedure TdmPedido.cdsItensQUANTIDADEValidate(Sender: TField); 02.begin 03.


04.

begin

05.

cdsItensTOTALITEN.AsFloat:=0;

06.

cdsItensTOTALITEN.AsFloat:=

07.

cdsItensUNITARIO.AsFloat * dmPedido.cdsItensQUANTIDADE.AsFloat;

08.

end;

09.end;

Entendendo o código: Primeiro zeramos o campo TOTALITEN, caso ele possua algum valor, logo depois

multiplicamos o campo UNITÁRIO pela QUANTIDADE e atribuímos o resultado ao campo TOTALITEN. Vamos fazer o mesmo procedimento ao campo UNITARIO, adicionando o mesmo código anterior. view sourceprint? 01.procedure TdmPedido.cdsItensUNITARIOValidate(Sender: TField); 02.begin 03.


04.

begin

05.

cdsItensTOTALITEN.AsFloat:=0;

06.

cdsItensTOTALITEN.AsFloat:=

07.

cdsItensUNITARIO.AsFloat * dmPedido.cdsItensQUANTIDADE.AsFloat;

08.

end;

09.end;

10/11/2011 15 57

1d 1


Assim se o usuário colocar a quant idade ou valor unitário ele irá multiplicar. Agreggate: Este é um campo criado em memória para agregar valores, ou seja, precisamos saber qual o total do pedido, este campo agreggate irá somar todos os valores do campo TOTALITEN.

Abra o data module dmPedido e abra o cdsItens tecle com o botão direito do mouse sobre o field editor e escolha a opção New Field e preencha de acordo com a tela a seguir:

Dê OK e perceba que no Field Editor ele criou um novo campo totalpedido, mas percebemos também que este campo está separado dos outros, como demonstra a figura a seguir:

Selecione o campo totalpedido e mude a propriedade Active para True, feche o Field Editor e selecione o cdsItens e mude a propriedade AgreggatesActive para True. Ok acabemos de criar e configurar o campo agreggate, agora vamos faze uso deste campo, para isso abra o formulário frmCadVenda e selecione o DbEdit que representa o campo valor e mude a propriedade DataSource para dtsItens e a propriedade DataField para totalpedido. Pronto nosso campo agreggate está criado e já estamos fazendo uso do mesmo. Execute a aplicação

10/11/2011 15 57

1d 1


totalpedido. Pronto nosso campo agreggate está criado e já estamos fazendo uso do mesmo. Execute a aplicação e veja como ficou na figura a seguir:

Podemos perceber que assim que adicionamos um novo item e colocamos a quantidade e o valor unitário o campo totalpedido não recebe valor algum, isso ocorre porque o campo agreggate só começa a somar assim que o registro é validado, para resolvermos isso vamos colocar um código no evento OnExit do DbEdit da QUANTIDADE, coloque assim: view sourceprint? 1.procedure TfrmCadVenda.DBEdit5Exit(Sender: TObject); 2.begin 3.

dmPedido.cdsitens.next;

4.end;

Faça o mesmo no DbEdit UNITARIO: view sourceprint? 1.procedure TfrmCadVenda.DBEdit6Exit(Sender: TObject); 2.begin 3.

dmPedido.cdsitens.next;

4.end;

O que acabei de fazer é mandar ele ir para o próximo iten, mas como não há o próximo iten ele passa o registro de estado de edição para navegação, assim o campo agreggate é validado. CAMPO AUTOINCREMENTO

Tenho recebido muitos emails me pedindo para implementar o campo auto incremento do pedido, é muito simples. Vamos criar um generator no banco de dados que nos servirá como referência.

10/11/2011 15 58

1d 1


Abra o IBExpert e selecione o nosso campo e na opção Generators dê Ctrl+N para gerarmos um novo generator, preencha a tela a seguir de acordo com a figura abaixo:

10/11/2011 16 00

1d 1


Precisamos criar uma tabela para receber o valor do generator temporariamente, crie uma tabela chamada codigo e crie um campo chamado ID, preencha um único registro com um número qualquer, como demonstra a figura a seguir:

Retorne ao Delphi e no nosso data module dmpedido coloque mais um SqlDataSet e mude as seguintes propriedades:

Vamos entender essa instrução SQL, Selecionamos através da fu nção Gen_ID do firebird o generator GEN_CODPEDIDO, e adicionamos mais um ao valor do generator e atribuímos este valor ao campo NOVOID, a tabela código, nos serve apenas para gerar essa instrução SQL.

10/11/2011 16 01

1d 1

Criando Aplicativo Delphi 2009-2010

Recommend Documents