F�rum Consulta usando Edit e um DBGrid que serve para varias tabelas #453048

24/08/2013

Senhores, estou com um pequeno problema em levar inform��es para um form de pesquisa, funciona assim (na teoria) um form, tem apenas um edit e um dbgrid e um data source, assim que acesso um form onde de cadastro de caixa tenho que realizar pesquisa em diferentes tabela m�s independentimente, Exemplo..ORIGEM, CENTRO DE CUSTO, FUNCIONARIO etc. achei que seria coviniente apenas um from de pesquisa para elas e apenas delegar valores para o datasource e o filtros..

tentei assim..

No edit tem a pesquisa..este sria o codigo

   if Edit1.Text <> '' then
   begin
   TipoPesc := Campo + ' Like' + Quotedstr(Edit1.Text + '%');
   PescSQL('Select * from '+Tabela+' where ');
   end;

O campo e a Tabela s�o duas v�ri�veis do tipo string para que eu possa passar os valores externamente;.

O codigo para receber os parametros � este.

   Cursor:=crSQLWait;
   FPesquisacGlobal := TFPesquisacGlobal.Create(Self);
     try
        FPesquisacGlobal.ShowModal;
        Cursor := crDefault;
        Campo := 'DESCRICAO';
        Tabela := 'CONTA_MOVIMENTO';
        FPesquisacGlobal.Dts_PescGlobal.DataSet := Dts_PescContaMovimento.DataSet;
     finally
        FreeAndNil(FPesquisacGlobal);
     end;

no caso o campo que � a varialvel global que foi declarada � repons�vel pelo qual parte da tabea ser� feita a busca
no caso do Tabela..recebe o nome da tabela.

    procedure Edit1Change(Sender: TObject);
  private
    { Private declarations }
  public
      procedure PescSQL(txt: string);
    { Public declarations }
  end;

var
  FPesquisacGlobal: TFPesquisacGlobal;
  TipoPesc, Campo, Tabela: string;


implementation

uses
  DBClient, FCadCx;

{$R *.dfm}

procedure TFPesquisacGlobal.Edit1Change(Sender: TObject);
begin
   if Edit1.Text <> '' then
   begin
   TipoPesc := Campo + ' Like' + Quotedstr(Edit1.Text + '%');
   PescSQL('Select * from '+Tabela+' where ');
   end;
end;

procedure TFPesquisacGlobal.Edit1Enter(Sender: TObject);
begin

end;

procedure TFPesquisacGlobal.PescSQL(txt: string);
begin
  with TClientDataSet(Dts_PescGlobal.DataSet) do
  begin
    Close;
    CommandText:=txt+TipoPesc;
    Open;
  end;
end;

end.

e este � o codigo completo do sistema de busca..n�o d� erro m�s n�o funciona..vlw

Gilmar Moraes

Curtir t�pico

+ 0

Responder

Posts

24/08/2013

Gilmar Moraes

Descobri que as variaveis que coloquei depois da cria�� do form n�o est�o recebendo os valoes de defin�..algu�m saberia porque ?

Responder

Gostei + 0

24/08/2013

Gilmar Moraes

Descobri que as variaveis que coloquei depois da cria�� do form n�o est�o recebendo os valoes de defin�..algu�m saberia porque ?

Pura desaten��o minha..coisa boba mesmo a ordem estava errado..agora ficou assim.

   Cursor:=crSQLWait;
   FPesquisacGlobal := TFPesquisacGlobal.Create(Self);
     try
        Campo := 'DESCRICAO';
        Tabela := 'CONTA_MOVIMENTO';
        FPesquisacGlobal.Dts_PescGlobal.DataSet := Dts_PescContaMovimento.DataSet;
        FPesquisacGlobal.ShowModal;
        Cursor := crDefault;
     finally
        FreeAndNil(FPesquisacGlobal);
     end;
end;

agora � s� quest�o de est�tica..teria uma forma de o grid mostar apenas um determinado campo ? tipo o Campo DESCRI��O.

Responder

Gostei + 0

24/08/2013

Gilmar Moraes

Resolvido tambem. foi s� estudar um pouco o componente..vlw podem fechar o topico

   Cursor:=crSQLWait;
   FPesquisacGlobal := TFPesquisacGlobal.Create(Self);
     try
        Campo := 'DESCRICAO';
        Tabela := 'CONTA_MOVIMENTO';
        FPesquisacGlobal.Dts_PescGlobal.DataSet := Dts_PescContaMovimento.DataSet;
        FPesquisacGlobal.DBGrid4.Columns[0].FieldName := 'DESCRICAO';
        FPesquisacGlobal.DBGrid4.Columns[0].Width := 500;
        FPesquisacGlobal.ShowModal;
        Cursor := crDefault;
     finally
        FreeAndNil(FPesquisacGlobal);
     end;

Responder

Gostei + 0