Fórum Mensagem de Aviso - LOCALIZAR !! #362606
17/08/2008
0
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
Curtir tópico
+ 0Posts
17/08/2008
Adriano_servitec
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
17/08/2008
Badboysjc
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
17/08/2008
Adriano_servitec
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
17/08/2008
Badboysjc
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
Clique aqui para fazer login e interagir na Comunidade :)