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.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;
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;
DataModule.SQLDataSet.CommandText:='SELECT * FROM "NomedaTabela" WHERE "NomedoCampo" = :a';
DataModule.SQLDataSet.Params[0].AsDate:=StrToDate(edit1.text);
//Buscando pela data
if (RadioButton3.Checked=true) then beginDataModule.SQLDataSet.CommandText:='SELECT * FROM "NomedaTabela" WHERE "NomedoCampo" = :a';
DataModule.SQLDataSet.Params[0].AsDate:=StrToDate(edit1.text);
DataModule.SQLDataSet.Open;
DataModule.ClientDataSet.open;
end;
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;
Nenhum comentário:
Postar um comentário
poker texas hold
zune software
картриджи для hp
data recovery service
mobile software
заправить картридж
покупка использованных картриджей
картриджи canon
картриджи canon