Buscar por:

Usar botões ao invés de usar dbnavigator

Código

Estou desenvolvendo um sistema em Delphi e usando MySQL(SoftwareCell for RCell) e me deparei com a necessidade de usar Botões convencionais (Buttons da aba Standard) ao invés de DBNavigator (da aba Data Controls). Foi então que tive a idéia de usar procedimentos chamando procedimentos. Vamos á dica.

Requisitos:

Campos DBEdit's devidamente linkados com seus equivalentes na tabela desejada.

DBNavigator devidamente linkado com a tabela á ser usada.

Agora, insira os botões que voce deseja; podem ser: Salvar, Cancelar, Editar, Novo e Excluir.

Digamos que o botão "Salvar" foi o escolhido e que ele se chama "btSalvar",

O DBNavigator se chama dbnClientes (pode ser qualquer nome, nesse caso o DBNavigator comanda a transação de dados no Form "Clientes"), altere a propiedade "VISIBLE" do mesmo para "FALSE" (isso deixa o dbnClientes visível apenas no Form e invisível na execução).

Selecione o botão Salvar e na aba "EVENTS" do "Object Inspector" selecione o evento "OnClick" digite a linha seguinte:

dbnClientes.BtnClick(nbPost);

Isso faz com que ao clicar no botão Salvar (EVENTS->OnClick), seja mandado um clique (BtnClick) no botão inserir (nbPost) do dbnClientes. Agora é só aplicar o mesmo preceito, valendo lembrar que os Botões do DBNavigator são:

nbFirst         o  que se traduz por Primeiro (primeiro registro da tabela).

nbPrior         o  que se traduz por Anterior (registro anterior ao selecionado).

nbNext          o  que se traduz por Próximo (próximo registro ao selecionado).

nbInsert        o  que se traduz por Novo (inserir novo registro).

nbDelete        o  que se traduz por Apagar (apaga o registro selecionado).

nbEdit          o  que se traduz por Editar (permite alterar o regiistro corrente).

nbPost          o  que se traduz por Inserir (insere o dados dos DBEdit's na tabela).

nbCancel        o  que se traduz por Cancelar (interrompe a inserção/alteração e limpa os campos).

nbRefresh       o  que se traduz por Atualizar (atualiza os campos [me parece um pouco desnecessário]).

Podendo ficar dessa maneira, cada um no evento OnClick de seu respectivo botão:

dbnClientes.BtnClick(nbFirst);          //*Primeiro 

dbnClientes.BtnClick(nbPrior);          //*Anterior 

dbnClientes.BtnClick(nbNext);           //*Próximo 

dbnClientes.BtnClick(nbInsert);         //*Novo 

dbnClientes.BtnClick(nbDelete);         //*Apagar 

dbnClientes.BtnClick(nbEdit);           //*Editar 

dbnClientes.BtnClick(nbPost);           //*Inserir 

dbnClientes.BtnClick(nbCancel);         //*Cancelar 

dbnClientes.BtnClick(nbRefresh);        //*Atualizar

Bem, é somente isso por enquanto. Espero ter ajudado...

From: Rhads

rhads@hotmail.com