Ajudazinha com DBgrid...

Question

Boa tarde pessoal, estou com a seguinte d�vida: Estou fazendo uma procura de um cliente atrav�s de um ComboBox e, caso exista um cliente cadastrado, o resultado aparecer� num DBgrid. Depois, atrav�s d...

Dbezerra · Answer

ao abrir a query, ou sei lah o q, verifique se ela estah vazia, fazendo QUERY.ISEMPTY

isso retorna verdadeiro se a query estiver vazia...
se estiver vc simplesmente desabilita a dbgrid, fazendo DBGRID.ENABLED := False;
se retornar falso, naum esqueca de reabilitar a grid...

Valeu

Rogerio_fernando · Answer

[quote:347a75187e=�ginosam�]Boa tarde pessoal, estou com a seguinte d�vida: Estou fazendo uma procura de um cliente atrav�s de um ComboBox e, caso exista um cliente cadastrado, o resultado aparecer� num DBgrid. Depois, atrav�s de um clique no DBgrid, os dados deste cliente ser�o mostrados num outro Form. At� aqui, beleza, o programa est� funcionando sem problemas. Estou usando isto para mostrar o resultado:procedure TForm2.DBGrid1CellClick(Column: TColumn);begincombobox1.Text:=��;Form2.Close;end;A d�vida � a seguinte: [b:347a75187e][color=red:347a75187e]Como fa�o para bloquear o evento clique no DBgrid, caso a procura mostre um DBgrid vazio, ou seja nenhum nome encontrado?[/color:347a75187e][/b:347a75187e] Para quem ainda n�o entendeu, caso a pessoa d� um clique num DBgrid vazio o Form2 ser� fechado e o resultado ser� mostrado no Form1, s� que todos os dados estar�o em branco, o que � ruim, umavez que nesta situa��o, n�o ser� poss�vel Cadastrar, Alterar, etc...[color=blue:347a75187e]Ent�o, repetindo a minha d�vida:[/color:347a75187e][b:347a75187e][color=red:347a75187e]Como fa�o para bloquear o evento clique no DBgrid, casoa procura mostre um DBgrid vazio?[/color:347a75187e][/b:347a75187e]Pode ser alguma coisa tipo ShowMessage(�Este cliente n�o esta cadastrado�)Bom, se algu�m puder me ajudar agrade�o!  :([/quote:347a75187e]tente so abrir o form se o dbgrid nao estiver vazioassim     if dbgrid1 <> �� then begin       form.show     else      showmessage(nao foi possivel lo...

Ginosam · Answer

N�o deu certo Rog�rio! Aparece o seguinte:[Error] Unit2.pas(40): Incompatible types: �String� and �TDBGrid�...

Roberto_conetsys · Answer

Voce pode verificar se h� registro no dataset antes de mostrar o dbgridExemplo:dbgrid.enabled := tabela.recordcount>0;oudbgrid.visible :=  tabela.recordcount>0;...

Ginosam · Answer

Bom pessoal consegui fazendo isto aqui, aparentemente est� funcionando!

procedure TForm2.DBGrid1CellClick(Column: TColumn);
begin
if form1.Table1.RecordCount = 0 then
begin
ShowMessage(�Este cliente n�o existe�);
Edit1.Text:=��;
edit1.SetFocus;
DBgrid1.Visible:=false;
end
else
begin
edit1.SetFocus;
close;
end;
end;

Repare que tornei o DBgrid visible no evento onChange do
Edit1. veja:

procedure TForm2.Edit1Change(Sender: TObject);
begin
form1.Table1.Refresh;
DBgrid1.Visible:=true;
end;
Por enquanto obrigado pessoal! Surgiu uma nova d�vida, acho que agora � a �ltima... mas vou perguntar num outro bloco. At� +

Dbezerra · Answer

meu caro colega...eh tao simples, naum precisa complicar.apos abrir o seu dataset(query, table...), faca o seguinte:if table.empty thenbegin  dbgrid.enabled := False;  showmessage(�Cliente n�o encontrado�);endelse  dbgrid.enabled := True;dessa forma, caso a table esteja vazia, a grid ficarah desabilitada e o usuario naum vai poder clicar e, consequentemente, naum vai criar o formulario, certo?!valeu...