Formulário de Despesas

- Pressione a tecla Shift+F12.
- Na lista selecione a unit dmDespesa.

>

Selecione a Guia BDE. Coloque o componente Table e altere as propriedades:
Name: tbDespesa
Databasename: Selecione o aliás Despesa
TableName: Selecione a tabela Despesa.DB.

Selecione a Guia Data Access. Coloque o componente Data Source e altere as propriedades:
Name: dsDespesa
DataSet: tbDespesa

Deixe o formulário de acordo com a imagem abaixo:

Observação: O combo do cliente é da Guia Data Control / DBLookupComboBox. Para isso as propriedades que você deverá configurar, são:
- Name: cmbCliente
- DataSource: dmDespesa.dsDespesa
- DataField: CodCliente
- ListSource: dmDespesa.dsCliente
- ListField: Nome
- KeyField: Codigo

Codificando os botões

Primeiro:
dmDespesa.tbDespesa.First
Anterior:
dmDespesa.tbDespesa.Prior
Próximo:
dmDespesa.tbDespesa.Next
Último:
dmDespesa.tbDespesa.Last

Novo:
dmDespesa.tbDespesa.Insert;
btnNovo.Enabled:=False;
btnEditar.Enabled := False;
btnExcluir.Enabled :=False;
btnSalvar.Enabled:= True;
dbeCliente.SetFocus;
Editar:
dmDespesa.tbDespesa.Edit;
btnEditar.Enabled := False;
btnNovo.Enabled := False;
btnExcluir.Enabled := False;
btnSalvar.Enabled := True;
pnlDados.Enabled := True;
dbeCliente.SetFocus;
Salvar:
if Application.MessageBox('Deseja Salvar ?','Salvar', mb_YesNo + mb_IconQuestion) = idYes then
dmDespesa.tbDespesa.Post //Salva (atualiza) o registro na tabela
else
dmDespesa.tbDespesa.Cancel; //Cancela o Insert ou Edit
btnNovo.Enabled := True;
btnEditar.Enabled := True;
btnExcluir.Enabled := True;
btnSalvar.Enabled := False;
pnlDados.Enabled := False;
Excluir:
if Application.MessageBox('Deseja Excluir ?','Excluir', mb_YesNo + mb_IconQuestion) = idYes then
dmDespesa.tbDespesa.Delete;
Cancelar:
dmDespesa.tbDespesa.Cancel;
btnNovo.Enabled := True;
btnEditar.Enabled := True;
btnExcluir.Enabled := True;
btnSalvar.Enabled := False;
pnlDados.Enabled := False;
Sair:
Close;

Abrindo a tabela

- Selecione a Guia Events
- Selecione onShow
- Dê um duplo clique dentro da caixa branca e na janela de código digite:
dmDespesa.tbDespesa.Open;
dmDespesa.tbCliente.Open;

Fechando a tabela

- Selecione onClose
- Dê um duplo clique dentro da caixa branca e na janela de código digite:
dmDespesa.tbDespesa.Close;
dmDespesa.tbCliente.Close;

 

1