Delphi - Ayuda con IBQquery, DBGrid

 
Vista:

Ayuda con IBQquery, DBGrid

Publicado por Oscar (42 intervenciones) el 23/05/2006 19:25:54
Saludos.

Mi consulta es la siguiente :

Tengo un formulario que contiene un IBQuery, y un dbgrid, y segun yo quiero
puedo listar los campos de cualquier tabla a mi gusto segun la consulta. pero como hago si necesito que un campo 'IMPORTE'
1.- se muestre con simbolo de pesos. y
2.- de ser posible, con negritas ..

Cualquier ayuda gracias de antemano.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Solucion.

Publicado por Oscar (42 intervenciones) el 23/05/2006 22:40:33
Saludos
ya me conteste solo :

La manera de resolverlo fue hacer lo siguiente :

function TfrmElijeTipo.ShowCostos(Cve : integer) : boolean;
var
Campos, Comando : String;
i : integer;
Campo2 : TCurrencyField;
Campo1 : TDateField;
Campo3 : TStringField;
Campo4 : TIntegerField;
begin
btnCancelar.Visible := false;
btnAceptar.OnClick := ProcCerrar;
btnAceptar.Left := (self.Width-btnAceptar.width) div 2;
if(Cve>0) then
begin
Campo1 := TDateField.Create(Ibquery1);
Campo1.FieldName := 'FECHA';
Campo1.DataSet := IBQuery1;

Campo2 := TCurrencyField.Create(IBQuery1);
Campo2.FieldName := 'IMPORTE';
Campo2.currency := true;
Campo2.DataSet := IBQuery1;

Campo3 := TStringField.Create(Ibquery1);
Campo3.FieldName := 'CVE_EMPLEADO';
Campo3.DataSet := IBQuery1;

Campo4 := TIntegerField.Create(IBquery1);
Campo4.FieldName := 'CVE_COSTO';
Campo4.DataSet := IBQuery1;

Campos := 'CVE_COSTO, FECHA, IMPORTE, CVE_EMPLEADO';
Comando := 'SELECT ' +CAMPOS + ' FROM COSTOS_SERV WHERE CVE_SERVICIO IN ( ' +
' SELECT CVE_SERVICIO FROM SERVICIOS WHERE CVE_ACTIVO=%d ) ';
Comando := Format(Comando, [Cve]);
Comando := Comando + ' ORDER BY FECHA DESC';
doSelect(Ibquery1, Comando);
DBgrid1.Columns.Items[1].Font.style :=[fsBold];
end;
Result := Showmodal = mrOk;
end;
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar