Array
(
)

Pesquisa com RadioGroup..

Peninha
   - 14 set 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
Clique na imagem para abrir em uma nova janela


Rômulo Barros
   - 14 set 2004

#Código

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


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


Peninha
   - 14 set 2004

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