FTP | CCD | Buscar | Trucos | Trabajo | Foros |
#1
|
|||
|
|||
Consultas
CONSULTA 1
Código:
SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil,Mueble.Amortizacion FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo WHERE %s=:Secelegida AND %s BETWEEN :Desde AND :Hasta ORDER BY Rubro.Nombre; Código:
SELECT Rubro.Nombre,Seccion.Nombre,Mueble.Descripcion,Mueble.Fechcomp,Mueble.Preccompra,Mueble.Fecbaja,Mueble.Precbaja,Mueble.Vresidual,Mueble.Amort_Acu,Mueble.añoresbutil, Mueble.Amortizacion FROM Mueble INNER JOIN Rubro ON Mueble.Rubro=Rubro.CodRub INNER JOIN Seccion ON Mueble.Seccion=Seccion.Codigo WHERE %s BETWEEN :Desde AND :Hasta ORDER BY %s; Código:
procedure TForm28.ListarClick(Sender: TObject); Var fmSQL:String; begin If Secelegida.Text<>'' Then begin ModeloDatos.Consulta1.Close; fmSQL:=Modelodatos.Consulta1.SQL.Text; Modelodatos.Consulta1.SQL.Text:=Format(fmSQL,['Seccion.Nombre','Fecbaja']); ModeloDatos.Consulta1.ParamByName('SECELEGIDA').AsString:=Secelegida.Text; ModeloDatos.Consulta1.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text); ModeloDatos.Consulta1.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text); ModeloDatos.Consulta1.Open; Form27:=TForm27.Create(Self); Form27.QRLabel13.Caption:=Secelegida.Text; Form27.ListadoBienUso.Preview; Form28.Close; end Else begin ModeloDatos.Consulta2.Close; fmSQL:=Modelodatos.Consulta2.SQL.Text; Modelodatos.Consulta2.SQL.Text:=Format(fmSQL,['Fecbaja','Seccion.Nombre']); ModeloDatos.Consulta2.ParamByName('DESDE').AsDate:=StrToDate(Desde.Text); ModeloDatos.Consulta2.ParamByName('HASTA').AsDate:=StrToDate(Hasta.Text); ModeloDatos.Consulta2.Open; Form14:=TForm14.Create(Self); Form14.QRLabel13.Caption:='TODAS'; Form14.ListadoBienUso.Preview; Form28.Close; end; end; Estoy trabajando con Delphi 5, Paradox 7, con el BDE. Gracias. Silvio.- |
|
|
|