Fórum Erro no CDS #371445

  procedure TForm1.btnIncluirClick(Sender: TObject);
  begin
     ClientDataSet1.Append;
  end;

  procedure TForm1.btnEditarClick(Sender: TObject);
  begin
     ClientDataSet1.Edit;
  end;

  procedure TForm1.btnExcluirClick(Sender: TObject);
  begin
     if MessageBox(Handle, PChar(´Deseja excluir o registros´), ´Exclusão´, MB_YESNO + MB_ICONQUESTION) = IDYES then
     ClientDataSet1.Delete;
  end;

  procedure TForm1.btnSalvarClick(Sender: TObject);
  begin
     ClientDataSet1.Post;
  end;

  procedure TForm1.btnCancelarClick(Sender: TObject);
  begin
     ClientDataSet1.Cancel;
  end;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var mens: String;
    TD: TTransactionDesc;
begin
   mens := ´Salvando dados no Banco.´ + #13;
   mens := mens + ´Se houver falha na conexão,´ + 13;
   mens := mens + ´O form não será fechado´ + 13;
   TD.TransactionID := 1;
   TD.IsolationLevel := xilREADCOMMITTED;
   SQLConnection1.StartTransaction(TD);
   try
     MessageBox(Handle, PChar(mens),´Fechando form e salvando dados´,MB_OK);
     ClientDataSet1.ApplyUpdates(0);
     SQLConnection1.Commit(TD);
     CanClose := True; // Aqui permite o fechamento do Form.
   except
     MessageBox(Handle, PChar(´Houve erro na conexão com o banco´),´falha na conexão´,MB_OK);
     SQLConnection1.Rollback(TD);
     CanClose := False; // Aque evita o fechamento do Form;
   end;
end;

 Align = alCustom;
 BorderStyle = bsDialog;
 Height = 124;
 Name = frmMaskInputBox;
 Position = poScreenCenter;
 Width = 347;
 WindowState = wsNormal; 

 Primeiro BitBtn

 Caption = OK;
 Kind = bkOk  // aqui ele já configura a imagem
 ModalResult = mrOk;
 Name = btnOk;

 Segundo BitBtn

 Caption = Sair // poderia ser Sancelar, porém seu professor pediu Sair
 Kind = bkCancel;
 ModalResult = mrCancel;
 Name = btnCancel

  type
    TfrmMaskInputBox = class(TForm)
      MaskEdit: TMaskEdit;
      lblPrompt: TLabel;
      btnOK: TBitBtn;
      btnCancel: TBitBtn;
    private
       { Private declarations }
    public
       { Public declarations }
       Value: string; // aqui voce declara essa variável.
    end;

  procedure TfrmMaskInputBox.btnOKClick(Sender: TObject);
  var I: Integer;
  begin
  if MaskEdit.EditMask = ´´ then
     Value := MaskEdit.Text
  else
     for I := 1 to Length(MaskEdit.Text) do
         if MaskEdit.Text[I] <> ´ ´ then
             Value := Value + MaskEdit.Text[I]
         else begin
             Value := ´Não foi preenchida todas as casas númericas´ + 13;
             Value := Value + ´Preencha todas as casas númericas´;
             Application.MessageBox(PChar(Value), ´Erro´, MB_OK + MB_ICONERROR);
             Value := ´´;
             ModalResult := mrCancel;
             Break;
         end;
  end;

  procedure TfrmMaskInputBox.btnCancelClick(Sender: TObject);
  begin
    Value := ´´;
  end;

 unit Unit1;

 interface

 implementation

 end.

unit Biblio;

interface

uses
  Windows, SysUtils, Forms, Controls, MaskInputBox;

type
  TMsgs = (msgAviso, msgErro);

var
  UserLog, Perfil, Mens, Box: string;

procedure Mensagem(APrompt, ACaption: string; Msg: TMsgs);
function YesNo(APrompt, ACaption: string): boolean;
function MaskInputBox(const ACaption, APrompt, AMask: string): string;

implementation

procedure Mensagem(APrompt, ACaption: string; Msg: TMsgs);
var Flags: Integer;
begin
 if Msg = msgAviso then
    Flags := MB_OK + MB_ICONWARNING + MB_APPLMODAL
 else
    Flags := MB_OK + MB_ICONERROR + MB_APPLMODAL;
 Application.MessageBox(PChar(APrompt),PChar(ACaption),Flags);
end;

function YesNo(APrompt, ACaption: string): boolean;
var Resp, Flags: Integer;
begin
 Flags := MB_YESNO + MB_ICONQUESTION + MB_APPLMODAL;
 Resp := Application.MessageBox(PChar(APrompt),PChar(ACaption),Flags);
 if Resp = IDYES then Result := True else Result := False;
end;

function MaskInputBox(const ACaption, APrompt, AMask: string): string;
begin
  Application.CreateForm(TfrmMaskInputBox, frmMaskInputBox);
  with frmMaskInputBox do
  try
    Caption := ACaption;
    lblPrompt.Caption := APrompt;
    if AMask = ´*´ then begin
       MaskEdit.PasswordChar := ´*´;
       MaskEdit.EditMask := ´´;
    end else begin
       MaskEdit.PasswordChar := #0;
       MaskEdit.EditMask := AMask;
    end;
    if ShowModal = mrOk then
       Result := Value;
  finally
    FreeAndNil(frmMaskInputBox);
  end;
end;

end.

  procedure TfrmPesquisa.btnPesquisaClick(Sender: TObject);
  begin
      Box := MaskInputBox(´Pesquisando o campo Lookup, ´Digite um valor para o Lookup´, ´´);
      if Box  = ´´ then
         Mensagem(´Campo em branco ou operação cancelada´,´Abortando pesquisa´,msgErro)
      else
         with SQlQuery1 do begin
            Close;
            SQL.Clear;
            SQL.Add(´Select * From Tabela ´);
            SQL.Add(´Where Campo = :CAMPO´);
            ParamByName(´CAMPO´).AsString := Box;
            Open;
            if Eof then
               Mensagem(´Registro não encontrado´,´Pesquisa encerrada sem sucesso´,msgAviso);
    end;