Manipulação de Registros e Formulários através de Herança

Agora vamos automatizar o form de consulta (FConsulta) com as procedures que  criamos anteriormente e também adicionar outros recursos.

Declare, na seção uses do form FConsulta, a biblioteca DbClient.

Na seção public, declare as seguintes variáveis:

Formulario : TForm; 

Tabela: TClientDataSet;

campo: string;

Agora vamos inserir nosso primeiro código. No evento OnKeyDown do form, coloque:

var i: integer;

begin

   //sai da tela de consulta

   if key = vk_escape then

      close;

   //insere registro

   if key = vk_f2 then

      dm.registros(1, formulario, tabela);

   //altera registro

   if key = vk_f3 then

      dm.registros(2, formulario, tabela);

   //excluir registro

   if key = vk_f4 then

      dm.registros(3, formulario, tabela);

   //filtra registro

   if key = vk_return then

   begin

      dm.filtra_registros(tabela, campo, edtpesquisa.text);

      //posiciona na aba correta

      for i := 0 to abas.tabs.count do

      begin

         abas.tabindex := i;

         if abas.tabs[abas.tabindex] = copy(edtpesquisa.text, 1, 1) then

            break;

      end;

   end;

O código acima verifica a tecla pressionada e executa as tarefas de pesquisa, inserção, exclusão ou alteração de dados. Caso a operação seja de filtragem de dados, é feita uma pesquisa utilizando a procedure filtra_registros e, após, através do loop for, através da primeira letra digitada em EdtPesquisa, o foco é passado para a aba correspondente.  O nome do formulário e da tabela que são passados como valores de parâmetros, são indicados no evento OnShow do form de consulta. Isso veremos daqui a pouco, pois agora temos que atribuir o código descrito acima a outros objetos do formulário.

Para isso, selecione simultaneamente os seguintes objetos: EdtPesquisa e Grade. Vá no Object Inspector, aba Events e procure o evento OnKeyDown. Aponte para FormKeyDown.

No evento OnActivate de FConsulta, vamos passar o foco e limpar o valores contidos em EdtPesquisa e digite as seguintes linhas de código:

//passa foco

edtpesquisa.setfocus;

//limpa edit

edtpesquisa.clear;

Vamos automatizar os actions criados no objeto ActionList. Clique duplamente no objeto ActionList1 e, na listas de actions que aparece na caixinha de lista, clique duplamente novamente no primeiro action (ac_insere) e insira o seguinte código no evento OnExecute:

//insere registro

dm.registros(1, formulario, tabela);

Faça o mesmo procedimento para os próximos actions, apenas mudando o valor da opção. Valor 2, corresponde a alteração e valor 3 a exclusão. No último action, ac_sair, digite o código abaixo:

//sai do form

 close;

No objeto Grade (Dbgrid), no seu evento OnDblClick digite:

//chama form

formulario.showmodal

O código acima chama o formulário que exibirá os dados (formulários de manutenção), no nosso caso, os formulários gerados a partir do modelo FManutencao.

O próximo passo é garantir com que ao clicarmos em qualquer um das abas do tabControl, seja realizada uma pesquisa pelo valor de cada aba. Para isso, vamos novamente utilizar a procedure filtra_registros, como mostrado a seguir:

   //filtra registros

   dm.filtra_registros(tabela, campo, abas.tabs[abas.tabindex]);

Temos agora que abrir a tabela, passando está como sendo o dataset para o datasource ds_origem. Após, através de uma chamada aos métodos presentes no evento OnChange do tabcontrol Abas, garantimos que as informações sejam filtradas e então exibidas no dbgrid.

No evento OnShow do formulário de consulta, devemos colocar as seguintes codificações:

  //abre tabela

  tabela.open;

  //aponta para tabela

  ds_origem.dataset := tabela;

  //filtra registros

  abaschange(nil);

O formulário de consulta está quase que totalmente automatizado Para concluir, devemos realizar agora devemos apenas fechar tabela. Para isso, vá no evento OnClose do formulário de consulte e digite:

//fecha tabela

tabela.close

Salve todas as alterações. Acabamos praticamente todo o processo, mas vamos criar um exemplo. Na mesma aplicação, vá em File > New > Other. Na caixa de diálogo, clique na aba Sistema, que é a aba referente aos arquivos pertencentes a este projeto. Você observará que todos os formulários criados estão ali.

Clique no formulário FConsulta e após sobre Ok. Será gerado um novo formulário com o nome de FConsulta1. Mude as seguintes propriedades desse form:

Name: FClientes

Caption: “Clientes”

Salve a unit do form com nome de uClientes. Vá no form FPrincipal, no ToolButton1, em seu evento OnClick, e digite:

//chama form

fclientes.showmodal

Vá novamente em File > New > Other, na aba Sistema e selecione agora FManutencao e clique em Ok. Um novo formulário modelo é criado. Mude as seguintes propriedades deste form:

Name: FManutencaoClientes

Caption: “Clientes [Manutenção]”

Agora salve essa unit com o nome de uManutencaoClientes. Ok, até aqui tudo legal, agora insira os campos contidos no clientdataset (Clientes), no DM, dentro do form de manutenção de clientes. Ele deverá parecido com o da figura a seguir: