Muitas vezes quando desenvolvo alguma aplicação em Delphi esqueço alguns códigos muito simples, não sei se isso acontece contigo também , mas para que se torne mais fácil o acesso a esses códigos estou colocando-os neste post.
//Código de busca por locate:
DM.CDSCidade.Locate('cidnome', edit1.Text,[lopartialkey, locaseinsensitive]);
//Código de busca por radio button:
begin
DM.sqldpedido.CLOSE;
dm.Cdspedido.close;
if (radiobutton1.Checked=true) then begin
DM.sqldpedido.commandtext:='SELECT * FROM "Pedidos" WHERE "PedNumero" = :a';
DM.sqldpedido.PARAMS[0].TEXT:=EDIT1.TEXT;
DM.sqldpedido.OPEN;
dm.cdspedido.open;
end;
if (radiobutton2.Checked = true) then begin
DM.sqldpedido.commandtext:='SELECT * FROM "Pedidos" WHERE "PedObservacao" = :a';
DM.sqldpedido.PARAMS[0].TEXT:=EDIT1.TEXT;
DM.sqldpedido.OPEN;
dm.cdspedido.open;
end;
//Busca por data
dm.cdsmatricula.close;
dm.dsmatricula.close;
//Se a pesquisa for por Radio Button basta colocar o código a seguir e descomentalo:
dm.cdspedido.close;
dm.SQLDSpedido.close;
if (RadioButton2.Checked=true) then begin
dm.SQLDSpedido.CommandText:='SELECT * FROM pedido WHERE Dtapedido = :a';
dm.SQLDSpedido.Params[0].asdate:=strtodate(edit1.Text);
dm.SQLDSpedido.Open;
dm.CDSpedido.open;
//Busca por data
dm.cdsmatricula.close;
dm.dsmatricula.close;
//Se a pesquisa for por Radio Button basta colocar o código a seguir e descomentalo:
dm.cdspedido.close;
dm.SQLDSpedido.close;
if (RadioButton2.Checked=true) then begin
dm.SQLDSpedido.CommandText:='SELECT * FROM pedido WHERE Dtapedido = :a';
dm.SQLDSpedido.Params[0].asdate:=strtodate(edit1.Text);
dm.SQLDSpedido.Open;
dm.CDSpedido.open;
//Código para impresão de relatório do Rave:
dm.RVPpedidos.ExecuteReport('RPTpedidos');
//Código para atualizar formulário:
begin
dm.CDSPedido.Filtered:=false;
dm.SQLDPedido.Close;
dm.CDSPedido.Close;
dm.SQLDpedido.commandtext :='Select * from pedido';
dm.SQLDpedido.Open;
dm.CDSpedido.open;
end;
