Botoes Avançar E Voltar

[Guest - Marcelo -]

olá...

eu gostaria de saber, como eu coloco dois botoes tipo assim:

<--- Voltar e Avançar --->

esses dois botoes vao passar os dados salvos no bd, e vao ser mostrados nos edits mesmo. gostaria de saber tb, alguma coisa sobra busca no banco de dados, to quebrando a cabeça aqui mais ainda não consegui sair do lugar. alguém pode me ajudar?

valeu pessoal :blink:

[Arlon]

Que tipo de busca você quer fazer, as do tipo filtragem? Por exemplo, buscar todos os registros em que o nome contém "Marcelo", é isso que você quer?

[Guest - Marcelo -]

pow, eu quero uma busca tipo assim, eu to fazendo um programinha pra locadora

qd eu digitar o nome cliente, tipo MARCELO e clicar em buscar, aparece todos os Marcelos cadastrados em um dbgrid. sacow?

valeu por me ajudar

Ass. Marcelo

[Corposemalma]

os botoes da pra fazer facilmente com os codigos:

tabela.next; e

tabela.prior

Quando a busca a maneira mais facil de fazer é utilizar o SQL

bom voce ver nossa sessao de links (la tem 3 links sobre o assunto com otimos tutoriais da linguagem SQL)...

Os componentes para utilizar sql variam com o tipo de tabelas que você usa

[Arlon]

pow, eu quero uma busca tipo assim, eu to fazendo um programinha pra locadora

qd eu digitar o nome cliente, tipo MARCELO e clicar em buscar, aparece todos os Marcelos cadastrados em um dbgrid. sacow?

valeu por me ajudar

Ass. Marcelo 

Uma maneira simples de se fazer isso:

procedure TFrmPesquisaNome.BtnOKClick(Sender: TObject);

begin

DM.QrConsClientes.Close;

DM.QrConsClientes.SQL.Text := 'Select * from Clientes ' +

'Where Upper(Cliente) Like :ClienteBusca';

DM.QrConsClientes.Params[0].AsString := UpperCase(Edit1.Text + '%');// ****

DM.QrConsClientes.open;

FrmConsClientes.ShowModal;

Close;

end;

**** com esse código se você tiver no banco um cara chamado Marcelo da Silva a consulta retorna esse registro, mesmo que você digite apenas Marcelo (ou então, apenas a letra M) na hora da consulta. Caso queira que o usuário digite o nome completo na busca ponha:

DM.QrConsClientes.Params[0].AsString := UpperCase(Edit1.Text);

e na linha do parâmetro do código do botão coloque: 'Where Upper(Cliente) =:ClienteBusca'

Qualquer coisa, poste aí.

[Corposemalma]

Ainda acho que assim fica mais completo:

DM.QrConsClientes.Params[0].AsString := UpperCase('%' + Edit1.Text + '%');

dessa maeira da pra procurar por sobrenomes tambem...

PO Arlon devia ter deixado o cara fazer um tuto basico de SQL

[Reloaded`]

pow, minha cabeça é muito pequena pra entra SQL

eu coloquei a query e o connectsql, como q faz?

nunca mexi com sql, nem faço ideia, fucei aki mais não fui muito feliz não.

valeu gente

[Arlon]

Ainda acho que assim fica mais completo:

DM.QrConsClientes.Params[0].AsString := UpperCase('%' + Edit1.Text + '%');

dessa maeira da pra procurar por sobrenomes tambem...

É, concordo contigo

PO Arlon devia ter deixado o cara fazer um tuto basico de SQL

não entendi.

[Reloaded`]

o problema é q eu qeuro aprender tudo de uma vez

ai fika meio dificil né... mais tudo o q eu aprendi ate hj foi assim

meio q no "desespero e rapidez", vamu ver no q da com o delphi

valeu pessoal do SB

6 são gente fina demais

[Corposemalma]

Resumindo você so vai passar os parametros da pesquisa pro query, e executar ele....

Depois disso pode acessar como se fosse uma tabela comum. Mas lembre que mudanças no query não modificam a tabela da qual ele fez a pesquisa

[Reloaded`]

QUOTE (Corposemalma @ Jul 5 2004, 11:06 AM)

Ainda acho que assim fica mais completo:

DM.QrConsClientes.Params[0].AsString := UpperCase('%' + Edit1.Text + '%');

dessa maeira da pra procurar por sobrenomes tambem...

eu não concordo não, sabe porque, porque tipo, se digitar A e tiver 3000 registros com contenha A em qualquer parte do NOME, vai jogar todos pra mim na tela, fika melhor assim mesmo:

DM.QrConsClientes.Params[0].AsString := UpperCase( Edit1.Text + '%');

mais eu fiz assim:

procedure TFormBusClien.SpeedButton1Click(Sender: TObject);

Var

  Like, Param: String;

begin

  if nome.Text <> ''  then

  begin

    with dmLocad.qrConsClientes do

    begin

      Close;

      SQL.Clear;

      Like := ' Like ';

        Case Tipo.ItemIndex  of

          0:

          begin

            Param := nome.Text;

            Like := ' = ';

          end;

          1:Param := #39 + UpperCase( nome.Text + '%') + #39;

      end;

      SQL.Text := 'Select * from TabCadClientes ' + 'Where ' + Tipo.Text + Like + Param;

      Open;

      DBGrid1.DataSource.DataSet.Active := true;

    end;

  end

  else Application.MessageBox('Preencha os campos antes de clicar em localizar!', 'Erro!', MB_ICONERROR + MB_OK);

end;

q ceis acham?

sem noção o tanto q eu cansei pra monta essa merda certim, mais valeu ...

valews galera

[Reloaded`]

ai galera valews, ta na paz aki ...

pode fechar o tópico ...

thank's