ajuda num programa
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
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
Curtidas 0
Respostas
Karepa
19/02/2004
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;
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;
GOSTEI 0
Vktor
19/02/2004
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
:/
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
:/
GOSTEI 0
Karepa
19/02/2004
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.
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.
GOSTEI 0
Vktor
19/02/2004
fiz tdas etapas deu certo...
porem qdo clico no botao não acontece nada
???!!!?!!?!?!?!?!!
porem qdo clico no botao não acontece nada
???!!!?!!?!?!?!?!!
GOSTEI 0
Vktor
19/02/2004
dboa consegui... eh q eskeci de ligar o query com a tabela
vlww abraço
vlww abraço
GOSTEI 0