Códigos de programação em Delphi

     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;

//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;