Mensagem de Aviso - LOCALIZAR !!

Delphi

17/08/2008

Boa Tarde !!

Quando uso o locate fica facil colocar o IF e mostrar uma mensagem para o usuario avisando por exemplo que o cliente não foi localizado, agora a qestão é como fazer isto usando CDS.

Segue o código abaixo.

DMConsultas.cdsConsultaTelefone.Close;
DMConsultas.cdsConsultaTelefone.Params[1].AsString := edtDDD.Text;
DMConsultas.cdsConsultaTelefone.Params[0].AsString := edtTelefone.Text;
DMConsultas.cdsConsultaTelefone.Open;

Gostaria de mostrar uma mensagem para o usuário quando o registro não for localizado.

Alguem sabe como fazer !!

Obrigado.


Badboysjc

Badboysjc

Curtidas 0

Respostas

Adriano_servitec

Adriano_servitec

17/08/2008

Boa Tarde !! Quando uso o locate fica facil colocar o IF e mostrar uma mensagem para o usuario avisando por exemplo que o cliente não foi localizado, agora a qestão é como fazer isto usando CDS. Segue o código abaixo. DMConsultas.cdsConsultaTelefone.Close; DMConsultas.cdsConsultaTelefone.Params[1].AsString := edtDDD.Text; DMConsultas.cdsConsultaTelefone.Params[0].AsString := edtTelefone.Text; DMConsultas.cdsConsultaTelefone.Open; Gostaria de mostrar uma mensagem para o usuário quando o registro não for localizado. Alguem sabe como fazer !! Obrigado.


Acho que com um IsEmpty funciona logo abaixo do Open do cds

if DMConsultas.cdsConsultaTelefone.IsEmpty then
begin
         MessageDlg(´Não localizado. Digite outro.´, mtInformation, [MbOk],0);
end;


Não estou lembrado agora se é if isEmpty ou if not IsEmpty

Veja ai, qualquer coisa post novamente


GOSTEI 0
Badboysjc

Badboysjc

17/08/2008

[quote:ced94ac138=´badboysjc´]Boa Tarde !! Quando uso o locate fica facil colocar o IF e mostrar uma mensagem para o usuario avisando por exemplo que o cliente não foi localizado, agora a qestão é como fazer isto usando CDS. Segue o código abaixo. DMConsultas.cdsConsultaTelefone.Close; DMConsultas.cdsConsultaTelefone.Params[1].AsString := edtDDD.Text; DMConsultas.cdsConsultaTelefone.Params[0].AsString := edtTelefone.Text; DMConsultas.cdsConsultaTelefone.Open; Gostaria de mostrar uma mensagem para o usuário quando o registro não for localizado. Alguem sabe como fazer !! Obrigado.


Acho que com um IsEmpty funciona logo abaixo do Open do cds

if DMConsultas.cdsConsultaTelefone.IsEmpty then
begin
         MessageDlg(´Não localizado. Digite outro.´, mtInformation, [MbOk],0);
end;


Não estou lembrado agora se é if isEmpty ou if not IsEmpty

Veja ai, qualquer coisa post novamente[/quote:ced94ac138]

Adriano,

Não funcionou, estou usando CDS, com commandtext passando por parametros, então na verdade é uma SQL no CDS.

Ele esta executando um comando SQL.


GOSTEI 0
Adriano_servitec

Adriano_servitec

17/08/2008

Também uso cds, olhe um exemplo que eu uso aqui

procedure TFAltDear.MaskEdit1Exit(Sender: TObject);
begin
  With dm.CDSDEAR do
  begin
    Close;
    Params[0].AsString:=MaskEdit1.Text;
    Open;
    if not isempty then
    begin
      label36.Caption:=Params[0].asString
    end else
    begin
      MessageDLG(´Numero do Controle do DEAR não cadastrado´, mtWarning, [mbOk], 0);
      MaskEdit1.SetFocus;
      Abort;
    end;
  end;
  dsDEAR.AutoEdit:=True;
  DBEdit1.SetFocus;
end;



GOSTEI 0
Badboysjc

Badboysjc

17/08/2008

Também uso cds, olhe um exemplo que eu uso aqui 
procedure TFAltDear.MaskEdit1Exit(Sender: TObject);
begin
  With dm.CDSDEAR do
  begin
    Close;
    Params[0].AsString:=MaskEdit1.Text;
    Open;
    if not isempty then
    begin
      label36.Caption:=Params[0].asString
    end else
    begin
      MessageDLG(´Numero do Controle do DEAR não cadastrado´, mtWarning, [mbOk], 0);
      MaskEdit1.SetFocus;
      Abort;
    end;
  end;
  dsDEAR.AutoEdit:=True;
  DBEdit1.SetFocus;
end;


procedure TfrmVendas.edtTelefoneExit(Sender: TObject);
begin
With DMConsultas.cdsConsultaTelefone do
begin
Close;
Params[1].AsString := edtDDD.Text;
Params[0].AsString := edtTelefone.Text;
Open;
if isempty then
begin
MessageDLG(´Telefone informado não foi localizado...´, mtWarning, [mbOk], 0);
edtDDD.SetFocus;
Abort;
end;
end;
end;

Adriano, Boa Tarde !!

Obrigado de novo cara, funcionou legal, muito obrigado mesmo.

Vou adaptar meus códigos para este procedimento agora.

Abraços.


GOSTEI 0
POSTAR