Pesquisa com RadioGroup..

14/09/2004

Ola pessoal quero fazer uma pesquisa com este form:

Coloquei um radiogroup com três opções (Numero OS, Nome e Telefone)
Tenho estes campos em uma tabela chamada Tab_abertura_Os.
Quero que quando selecione uma das opções acima relatada e assim que seja digitada uma informação um formulario que já trabalha com esta tabela possa ser aberta para que seja feita as alterações desejadas.
Sera que é possivel isto.
Erivan Marinho
[img][/img]


Peninha

Respostas

14/09/2004

Rômulo Barros

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  Case RadioGroup1.ItemIndex Of
     0 :         // NumeroOs;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´NumeroOs´,EditOpcao.Text,[&93;))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
     1 :         //  Nome;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´Nome´,EditOpcao.Text,&91;&93;))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
     2 :         // Telefone;
       Begin
          If(DataModule.Tab_abertura_Os.Locate(´Telefone´,EditOpcao.Text,&91;&93;))Then
          Begin
             DataModule.Tab_abertura_Os.Edit;
             FormularioParaEdicao.Show;
          End;
       End;
  End;
end;


:wink: :wink: :wink: :wink: :wink: :wink: :wink:


Responder Citar

14/09/2004

Peninha

Bom amigo agradeço-lhe muito pela ajuda, muito obrigado mesmo.
Erivan Marinho


Responder Citar