Fórum ajuda num programa #215383

19/02/2004

0

oi... sou novo por aki...
e novato no delphi tb, apesar de não gostar tanto da programação... sou mais voltado ao webdesign...
so q estou desenvolvendo um programa a minha empresa e estou com duvidas... espero que me ajudem

1ª- estou precisando fazer uma busca no banco de dados para q seja exibido numa dbgrid... como posso fazer isso em ao escrever algo numa edit1 e ao pressionar o botao seja feito essa pesquisa e me mostre o resultado na dbgrid...


2ª- o cadastro eh um relatorio, check list... e preciso imprimi-lo... coloquei ja tdo sobre um panel so q panel não aceita a função print ou printer... e eu so quero imprimir essa parte não o form inteiro
tem como??


grato


Vktor

Vktor

Responder

Posts

19/02/2004

Karepa

Coloque os componentes Query, Data Source, Edit, DbGrid e Button no seu form.

Associe o Data Source a Query.
Coloque a linha de instrução no SQL da Query
Exemplo : Select * from clientes where nome like :nome
Defina o parametro Nome como String;
associe o dbgrid com o datasource.

No Evento on click do botão, informe

with query do
begin
Close;
ParamByName(´NOME´).AsString := Edit1.Text;
Open;
end;

caso queira que conforme a sua digitação, o grid seja montado, deves incluir no evento OnChange do Edit1 a linha de comando.
// Por motivos de performance, não recomendo esta utilização.
with query do
begin
Close;
ParamByName(´NOME´).AsString := Edit1.Text;
Open;
end;


Responder

Gostei + 0

19/02/2004

Vktor

ta eu fiz no query

Select *
from check.db
where Caixa Postal like Caixa Postal

Onde defino pra string?

no botão...
with query do
begin
Close;
ParamByName(´NOME´).AsString := Edit1.Text;
Open;
end;

da
[Error] Unit1.pas(284): Declaration expected but ´WITH´ found

:/


Responder

Gostei + 0

19/02/2004

Karepa

Select *
from check.db
where Caixa_Postal like :Caixa_Postal

// deve ser :Parametro.

defina na propriedade parameters do query, que o parametro e string.

no botão, deve ficar :

....(Chamada normal da procedure)
begin

with query do
begin
Close;
ParamByName(´CAIXA_POSTAL´).AsString := ´¬´+Edit1.Text+´¬´;
Open;
end;

end;


Nota :

o ´¬´+Edit1.Text+´¬´

diz para o query, que o conteudo digitado deve constar no campo caixa postal.


Responder

Gostei + 0

19/02/2004

Vktor

fiz tdas etapas deu certo...
porem qdo clico no botao não acontece nada
???!!!?!!?!?!?!?!!


Responder

Gostei + 0

19/02/2004

Vktor

dboa consegui... eh q eskeci de ligar o query com a tabela
vlww abraço


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar