function ProcuraValor(tabela, campo: string; valor: Variant): boolean;
begin
Criar uma query;
Atribuir a ela o componente de conexão;
Criar o SQL: 'select ' + campo + ' from ' + tabela + ' where...';
Abrir a Query;
Verificar o Tipo do Campo;
Procurar na tabela pelo valor com TypeCast:
Retornar se achou ou não;
end.
function LocalizaCodigo(Tabela, Campo, Codigo: string): boolean;
begin
QueryLocaliza.Active := False;
QueryLocaliza.SQL.Clear;
QueryLocaliza.SQL.Add('select ' + campo + ' from ' + Tabela);
QueryLocaliza.SQL.Add('where ' + Campo + ' = ' + quotedstr(Codigo));
try
QueryLocaliza.Active := True;
result := not QueryLocaliza.IsEmpty;
finally
QueryLocaliza.Active := False;
end;
end;
procedure TF_GrProd.DBECodExit(Sender: TObject);
var
argumento:string;
begin
argumento:=DBECod.Text;
try
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select GR_CODIGO from GR_PROD where GR_CODIGO = argumento;');
IBQuery1.Active:=True;
IBQuery1.Open;
MessageDlg('Código já cadastrado.',mtError,[mbOK],0);
ShowMessage(argumento);
except
on Exception do
DBEDesc.SetFocus;
end;
end;
procedure TF_GrProd.DBECodExit(Sender: TObject);
var
argumento: string;
begin
argumento := TDBEdit(Sender).Text;
try
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select GR_CODIGO from GR_PROD where GR_CODIGO = ' + argumento + ';');
try
IBQuery1.Active := True;
if not IBQuery1.IsEmpty then
begin
MessageDlg('Código já cadastrado.', mtError, [mbOK], 0);
TDBEdit(Sender).SetFocus;
end;
finally
IBQuery1.Active := False;
end;
except
DBEDesc.SetFocus;
end;
end;AdNuXquais componentes vc estaria usando nesse caso?
vlw!
Try
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select GR_CODIGO from GR_PROD where GR_CODIGO =' + argumento + ';');
Try
IBQuery1.Active:=True ;
IBQuery1.Open;
============> if not IBQuery1.IsEmpty then
begin
beep;
MessageDlg('Código já cadastrado.', mtError, [mbOK], 0);
TDBEdit(Sender).SetFocus;
end;//not if
finally
//IBQuery1.Active:=False;
//DBEDesc.SetFocus;
ShowMessage('passa por aki!!');
end; //try2
except
//ShowMessage(argumento);
DBEDesc.SetFocus;
end;//try1
procedure TF_GrProd.DBECodExit(Sender: TObject);
var
argumento:string;
i:integer;
begin
argumento:=DBECod.Text;
if DBECod.Text='' then
begin
beep;
MessageDlg('Digite um Valor Váido.', mtError, [mbOK], 0);
DBECod.SetFocus;
end//if principal
else
begin
IBQuery1.Close;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('select GR_CODIGO from GR_PROD where GR_CODIGO =' + argumento + ';');
Try
IBQuery1.Active:=True;
if not IBQuery1.IsEmpty then
begin
beep;
MessageDlg('Código já cadastrado.', mtError, [mbOK], 0);
DBECod.SetFocus;
end;//not if
finally
IBQuery1.Active:=False;
end; //try+finally
end;//else if principal
end;//procedure
argumento:=DBECod.Text;
if CDS_GrProdGR_CODIGO.Text='' then
begin
beep;
MessageDlg('Digite um Valor Váido.', mtError, [mbOK], 0);
DBECod.SetFocus;
end
Fazer pergunta