Cita:
Empezado por daragor
como hago para indicar distintos tipos de consultas a un solo objeto TSQLQuery?
|
Es que, en mi opinión, eso es una mala práctica. Cada consulta debe verse como un objeto en sí: clientes, recibos, agregaCliente, agregaRecibo, etc. Todos representados por un Query localizado en un DataModule.
Es preferible gastar unos cuantos bytes más en recursos usando múltiples querys que tratar de economizar reusando un sólo query.
Así, por ejemplo, tu consulta de este hilo estaría representada por un query qryAgregaCompra con el siguiente texto en su propedad SQL:
Código SQL
[-]
insert into compras (fec,paga,mon,esta) values(:fecha,
ago, :monto, :estatus)';
Al momento de agregar una compra simplemente suples los valores:
Código Delphi
[-]
qryCompras.ParamByName('fecha').AsDate := Fecha;
qryCompras.ParamByName('pago').AsFloat := 0;
qryCompras.ParamByName('monto').AsString := Total.Text;
qryCompras.ParamByName('estatus').AsString := 'CARGADA';
qryCompras.ExecSQL;
quedándote, según yo, un código mucho más limpio.
// Saludos