ActiveDelphi

7megas

unit Receita;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Mask, DBCtrls, Buttons, ExtCtrls;

type
TReceitas = class(TForm)
LabCodigo: TLabel;
LabNome: TLabel;
dbCodigo: TDBEdit;
dbNome: TDBEdit;
BntIncluir: TBitBtn;
BntAlterar: TBitBtn;
BntExcluir: TBitBtn;
LabValor: TLabel;
LabSenha: TLabel;
Edit1: TEdit;
BntFechar: TBitBtn;
LabReceitas: TLabel;
EdtLembrete: TEdit;
MemHistorico: TMemo;
LabHistorico: TLabel;
ListBox1: TListBox;
GrupGrupo: TGroupBox;
EditGrupo: TEdit;
BntLancar: TBitBtn;
BntSalvar: TBitBtn;
BnCancelar: TBitBtn;
BntCancelar: TButton;
RdgValores: TRadioGroup;
RbtAtivar: TRadioButton;
CkbAtivacao: TCheckBox;
CbxValor: TComboBox;
procedure BntFecharClick(Sender: TObject);
procedure BntIncluirClick(Sender: TObject);
procedure BntAlterarClick(Sender: TObject);
procedure BntExcluirClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Receitas: TReceitas;

implementation

uses uPlanodeContas, uTabelas, uTelaPrincipal, uCalendaro, uDespesas;

{$R *.dfm}

procedure TReceitas.BntFecharClick(Sender: TObject);
begin
Close;
end;

procedure TReceitas.BntIncluirClick(Sender: TObject);
begin
dmTabela.sdsPlanodeContas.Append;

end;

procedure TReceitas.BntAlterarClick(Sender: TObject);
begin
dmTabela.sdsPlanodeContas.Edit;

end;

procedure TReceitas.BntExcluirClick(Sender: TObject);
begin
// 6 = Sim
// 7 = Nao

if Application.MessageBox('Deseja Excluir o Registro Atual?','Aviso',MB_YESNO+MB_ICONQUESTION+MB_DEFBUTTON2)=6 then
begin
try
dmTabela.sdsPlanodeContas.Delete;
dmTabela.sdsPlanodeContas.ApplyUpdates(3);
Application.MessageBox('Apagado com Sucesso.','Aviso',MB_OK+MB_ICONEXCLAMATION);

except
Application.MessageBox('Registro nao foi Apagado.','Atencao',MB_OK+MB_ICONEXCLAMATION);

end;
end.

BrunoMoreyra · Enviada: Sex Jul 30, 2010 2:27 pm Assunto: Re: Qual o problema nesse codigo?

Boa tarde,

pelo o que eu vi, o problema está no evento OnClick do objeto BtExcluir, abriu um bloco de comando com o begin, e não foi finalizado.

BrunoMoreyra · Enviada: Sex Jul 30, 2010 2:29 pm Assunto: Re: Qual o problema nesse codigo?

Boa tarde,

pelo o que eu vi, o problema está no evento OnClick do objeto BtExcluir, abriu um bloco de comando com o begin, e não foi finalizado.

7megas · Enviada: Sex Jul 30, 2010 2:33 pm Assunto:

PROBLEMA RESOLVIDO!!!

johnny-walker · Enviada: Sex Jul 30, 2010 2:48 pm Assunto:

de uma olhada nisto se te atende:

http://www.activedelphi.com.br/forum/viewtopic.php?t=54630&postdays=0&postorder=asc&highlight=applyupdates&start=0
http://www.activedelphi.com.br/forum/viewtopic.php?t=55615&highlight=applyupdates
http://www.activedelphi.com.br/forum/viewtopic.php?t=53952&highlight=applyupdates
http://www.activedelphi.com.br/forum/viewtopic.php?t=49518&highlight=applyupdates

bye
_________________
P.O.W.E.R B.Y D.E.L.P.H.I