3 de set. de 2010

Busca por Radio Button

Coloque coloque dois buttons no formulário, um de buscar e outro de atualizar e um edit, sem esquecer dos RadioButton
2ª No Button de  Buscar:
//Busca por Parâmetros
//OBS: Para realizar a busca sem RadioButton basta tirar a linha do IF somente.

DataModule.SQLDataSet.Close;
DataModule.ClientDataSet.Close;
 if (RadioButton1.Checked=true) then begin
DataModule.SQLDataSet.CommandText:='SELECT * FROM "NomedaTabela" WHERE "NomedoCampo" = :a';
DataModule.SQLDataSet.Params[0].Text:=edit1.Text;
DataModule.SQLDataSet.Open;
DataModule.ClientDataSet.open;
end;

//Busca por RadioButton com FILTER usando LIKE

if (RadioButton2.Checked=true) then  begin
DataModule.SQLDataSet.Filter:='NomedoCampo Like'+QuotedStr('%'+edit1.Text+'%')+'';
DataModule.SQLDataSet.Filtered:=True;
DataModule.SQLDataSet.open;
DataModule.ClientDataSet.open
end;

//Buscando pela data
 if (RadioButton3.Checked=true) then begin
DataModule.SQLDataSet.CommandText:='SELECT * FROM "NomedaTabela" WHERE "NomedoCampo" = :a';
DataModule.SQLDataSet.Params[0].AsDate:=StrToDate(edit1.text);
DataModule.SQLDataSet.Open;
DataModule.ClientDataSet.open;
end;



3º No button de Atualizar:

//Atualiza o SQLDataSet e o ClientDataSet
//Remove a busca por Filtro
DataModule.ClientDataSet.Filtered:=false;
//Remove a Busca por Parâmetros, atualizando a tabela
DataModule.ClientDataSet.Close;
DataModule.SQLDataSet.close;
DataModule.SQLDataSet.CommandText:='select * from "Alunos"';
DataModule.SQLDataSet.open;
DataModule.ClientDataSet.open;

//Limpa o que foi digitado no edit
edit1.clear;