Vou mandar o codigo da pesquisa:
as tabelas tr_
procedure TFrmPesqVerifRadar.bbtPesquisaClick(Sender: TObject);
begin
bbtnEditar.Enabled:= True;
if (EdtPesquisa.Text='') and (rdgProcura.ItemIndex<>4) then
begin
ShowMessage('Nenhum informação foi digitada');
bbtnEditar.Enabled:= False;
qryPesqFornec.Close;
dbgDivisoes.SelectedIndex := -1;
Exit;
end
else begin
Case rdgProcura.ItemIndex of
4:begin //Todos
qryPesqFornec.Close;
qryPesqFornec.SQL.Clear;
qryPesqFornec.SQL.Add('select vr.*, ir.*, mr.*, f.matr_func');
qryPesqFornec.SQL.Add('from tr_verificacao_radar vr,
tr_instrumento_radar ir, tr_modelo_radar mr, funcionario f');
qryPesqFornec.SQL.Add('where vr.cod_radar = ir.cod_radar');
qryPesqFornec.SQL.Add('and ir.cod_modelo = mr.cod_modelo');
qryPesqFornec.SQL.Add('and vr.cod_func = f.cod_func');
qryPesqFornec.SQL.Add('and vr.end_verificacao like '+
#39+'%'+EdtPesquisa.Text+'%'+ #39);
qryPesqFornec.Prepare;
qryPesqFornec.Open;
if not qryPesqFornec.IsEmpty then
begin
qryPesqFornec.First;
bbtnEditar.Enabled := True;
Selecionou:=True;
end
else
begin
MostrarCxDialogo('Nenhum registro foi encontrado',4);
dbgDivisoes.SelectedIndex:=-1;
bbtnEditar.Enabled := False;
Selecionou:=False;
end;
end; // FIM DO CASE SE = 4
0:begin //Marca
qryPesqFornec.Close;
qryPesqFornec.SQL.Clear;
qryPesqFornec.SQL.Add('select vr.*, ir.*, mr.*, f.matr_func');
qryPesqFornec.SQL.Add('from tr_verificacao_radar vr,
tr_instrumento_radar ir, tr_modelo_radar mr, funcionario f');
qryPesqFornec.SQL.Add('where vr.cod_radar = ir.cod_radar');
qryPesqFornec.SQL.Add('and ir.cod_modelo = mr.cod_modelo');
qryPesqFornec.SQL.Add('and vr.cod_func = f.cod_func');
qryPesqFornec.SQL.Add('and vr.num_certificado like '+
#39+'%'+EdtPesquisa.Text+'%'+ #39);
qryPesqFornec.Prepare;
qryPesqFornec.Open;
if not qryPesqFornec.IsEmpty then
begin
qryPesqFornec.First;
bbtnEditar.Enabled := true;
selecionou:=true;
end
else
begin
MostrarCxDialogo('Nenhum registro foi encontrado',4);
dbgDivisoes.SelectedIndex:=-1;
bbtnEditar.Enabled := false;
selecionou:=false;
end;
end; // FIM DO CASE SE = 0
1:begin // Modelo
qryPesqFornec.Close;
qryPesqFornec.SQL.Clear;
qryPesqFornec.SQL.Add('select vr.*, ir.*, mr.*, f.matr_func');
qryPesqFornec.SQL.Add('from tr_verificacao_radar vr,
tr_instrumento_radar ir, tr_modelo_radar mr, funcionario f');
qryPesqFornec.SQL.Add('where vr.cod_radar = ir.cod_radar');
qryPesqFornec.SQL.Add('and ir.cod_modelo = mr.cod_modelo');
qryPesqFornec.SQL.Add('and vr.cod_func = f.cod_func');
qryPesqFornec.SQL.Add('and vr.num_laudo like '+
#39+'%'+EdtPesquisa.Text+'%'+ #39);
qryPesqFornec.Prepare;
qryPesqFornec.Open;
if not qryPesqFornec.IsEmpty then
begin
qryPesqFornec.First;
bbtnEditar.Enabled := true;
selecionou:=true;
end
else
begin
MostrarCxDialogo('Nenhum registro foi encontrado',4);
dbgDivisoes.SelectedIndex:=-1;
bbtnEditar.Enabled := false;
selecionou:=false;
end;
end; // FIM DO CASE SE = 1
2:begin // Número Inmetro
qryPesqFornec.Close;
qryPesqFornec.SQL.Clear;
qryPesqFornec.SQL.Add('select vr.*, ir.*, mr.*, f.matr_func');
qryPesqFornec.SQL.Add('from tr_verificacao_radar vr,
tr_instrumento_radar ir, tr_modelo_radar mr, funcionario f');
qryPesqFornec.SQL.Add('where vr.cod_radar = ir.cod_radar');
qryPesqFornec.SQL.Add('and ir.cod_modelo = mr.cod_modelo');
qryPesqFornec.SQL.Add('and vr.cod_func = f.cod_func');
qryPesqFornec.SQL.Add('and ir.num_serie like '+
#39+'%'+EdtPesquisa.Text+'%'+ #39);
qryPesqFornec.Prepare;
qryPesqFornec.Open;
if not qryPesqFornec.IsEmpty then
begin
qryPesqFornec.First;
bbtnEditar.Enabled := true;
selecionou:=true;
end
else
begin
MostrarCxDialogo('Nenhum registro foi encontrado',4);
dbgDivisoes.SelectedIndex:=-1;
bbtnEditar.Enabled := false;
selecionou:=false;
end;
end; // FIM DO CASE SE = 2
3:begin // Número Série
qryPesqFornec.Close;
qryPesqFornec.SQL.Clear;
qryPesqFornec.SQL.Add('select vr.*, ir.*, mr.*, f.matr_func');
qryPesqFornec.SQL.Add('from tr_verificacao_radar vr,
tr_instrumento_radar ir, tr_modelo_radar mr, funcionario f');
qryPesqFornec.SQL.Add('where vr.cod_radar = ir.cod_radar');
qryPesqFornec.SQL.Add('and ir.cod_modelo = mr.cod_modelo');
qryPesqFornec.SQL.Add('and vr.cod_func = f.cod_func');
qryPesqFornec.SQL.Add('and ir.num_inmetro like '+
#39+'%'+EdtPesquisa.Text+'%'+ #39);
qryPesqFornec.Prepare;
qryPesqFornec.Open;
if not qryPesqFornec.IsEmpty then
begin
qryPesqFornec.First;
bbtnEditar.Enabled := true;
selecionou:=true;
end
else
begin
MostrarCxDialogo('Nenhum registro foi encontrado',4);
dbgDivisoes.SelectedIndex:=-1;
bbtnEditar.Enabled := false;
selecionou:=false;
end;
end; // FIM DO CASE SE = 3
end // FIM DO CASE
end;
end;
--- Em sex, 11/6/10, Eny Urias <enyur...@yahoo.com.br> escreveu:
De: Eny Urias <enyur...@yahoo.com.br>
Assunto: Res: [delphi-br] HELP
Para: delphi-br@yahoogrupos.com.br
Data: Sexta-feira, 11 de Junho de 2010, 17:02
Não entendi... pode especificar melhor?
--
Eny Trova Urias
"Somos o que repetitivamente fazemos, portanto, a excelência não é um feito,
mas um hábito"- Aristóteles
________________________________
De: OLIVAL CRISTIANO DA SILVA <olival.c...@yahoo.com.br>
Para: delphi-br@yahoogrupos.com.br
Enviadas: Sexta-feira, 11 de Junho de 2010 15:59:35
Assunto: [delphi-br] HELP
Galera to precisando de uma ajuda se puderem me ajudar,
a situacao é a seguinte:to fazendo uma pesquisa num banco de determinados
campos so que um vem em branco, mas quando seleciono para o form ele aparece,
alguem tem alguma ajuda
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
[As partes desta mensagem que não continham texto foram removidas]
