first commit (2002-04-24)
This commit is contained in:
561
cap_gestion/capg_qrLabonados.dfm
Normal file
561
cap_gestion/capg_qrLabonados.dfm
Normal file
@ -0,0 +1,561 @@
|
||||
object qrLAbonados: TqrLAbonados
|
||||
Left = 190
|
||||
Top = 133
|
||||
Width = 803
|
||||
Height = 636
|
||||
Caption = 'qrLAbonados'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Scaled = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object QuickRep1: TQuickRep
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 794
|
||||
Height = 1123
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
DataSet = TbAbonados
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
Functions.Strings = (
|
||||
'PAGENUMBER'
|
||||
'COLUMNNUMBER'
|
||||
'REPORTTITLE')
|
||||
Functions.DATA = (
|
||||
'0'
|
||||
'0'
|
||||
#39#39)
|
||||
Options = [FirstPageHeader, LastPageFooter]
|
||||
Page.Columns = 1
|
||||
Page.Orientation = poPortrait
|
||||
Page.PaperSize = A4
|
||||
Page.Values = (
|
||||
100
|
||||
2970
|
||||
100
|
||||
2100
|
||||
100
|
||||
100
|
||||
0)
|
||||
PrinterSettings.Copies = 1
|
||||
PrinterSettings.Duplex = False
|
||||
PrinterSettings.FirstPage = 0
|
||||
PrinterSettings.LastPage = 0
|
||||
PrinterSettings.OutputBin = Auto
|
||||
PrintIfEmpty = True
|
||||
SnapToGrid = True
|
||||
Units = MM
|
||||
Zoom = 100
|
||||
object QRBand1: TQRBand
|
||||
Left = 38
|
||||
Top = 38
|
||||
Width = 718
|
||||
Height = 40
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
AlignToBottom = False
|
||||
Color = clWhite
|
||||
ForceNewColumn = False
|
||||
ForceNewPage = False
|
||||
Size.Values = (
|
||||
105.833333333333
|
||||
1899.70833333333)
|
||||
BandType = rbTitle
|
||||
object QRLabel1: TQRLabel
|
||||
Left = 208
|
||||
Top = 0
|
||||
Width = 294
|
||||
Height = 37
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
97.8958333333333
|
||||
550.333333333333
|
||||
0
|
||||
777.875)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Caption = 'Listado de Abonados'
|
||||
Color = clWhite
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -32
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 24
|
||||
end
|
||||
end
|
||||
object QRBand2: TQRBand
|
||||
Left = 38
|
||||
Top = 118
|
||||
Width = 718
|
||||
Height = 27
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
AlignToBottom = False
|
||||
Color = clWhite
|
||||
ForceNewColumn = False
|
||||
ForceNewPage = False
|
||||
Size.Values = (
|
||||
71.4375
|
||||
1899.70833333333)
|
||||
BandType = rbDetail
|
||||
object QRExpr1: TQRExpr
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 94
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
21.1666666666667
|
||||
21.1666666666667
|
||||
248.708333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbAbonados.ida'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr2: TQRExpr
|
||||
Left = 56
|
||||
Top = 8
|
||||
Width = 94
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
148.166666666667
|
||||
21.1666666666667
|
||||
248.708333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbAbonados.dni'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr3: TQRExpr
|
||||
Left = 152
|
||||
Top = 8
|
||||
Width = 287
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
402.166666666667
|
||||
21.1666666666667
|
||||
759.354166666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbAbonados.nombre + '#39' '#39' + TbAbonados.apellidos'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr4: TQRExpr
|
||||
Left = 416
|
||||
Top = 8
|
||||
Width = 301
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
1100.66666666667
|
||||
21.1666666666667
|
||||
796.395833333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Color = clWhite
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbAbonados.telefono1 + '#39' '#39' + TbAbonados.telefono2'
|
||||
FontSize = 10
|
||||
end
|
||||
end
|
||||
object QRSubDetail1: TQRSubDetail
|
||||
Left = 38
|
||||
Top = 145
|
||||
Width = 718
|
||||
Height = 24
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
AlignToBottom = False
|
||||
Color = clWhite
|
||||
ForceNewColumn = False
|
||||
ForceNewPage = False
|
||||
LinkBand = QRBand2
|
||||
Size.Values = (
|
||||
63.5
|
||||
1899.70833333333)
|
||||
Master = QuickRep1
|
||||
DataSet = TbVehiculos
|
||||
PrintBefore = False
|
||||
PrintIfEmpty = True
|
||||
object QRExpr5: TQRExpr
|
||||
Left = 64
|
||||
Top = 0
|
||||
Width = 115
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
169.333333333333
|
||||
0
|
||||
304.270833333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsItalic]
|
||||
Color = clWhite
|
||||
ParentFont = False
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbVehiculos.idCard'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr6: TQRExpr
|
||||
Left = 152
|
||||
Top = 0
|
||||
Width = 131
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
402.166666666667
|
||||
0
|
||||
346.604166666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsItalic]
|
||||
Color = clWhite
|
||||
ParentFont = False
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbVehiculos.matricula'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr7: TQRExpr
|
||||
Left = 288
|
||||
Top = 0
|
||||
Width = 106
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
762
|
||||
0
|
||||
280.458333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsItalic]
|
||||
Color = clWhite
|
||||
ParentFont = False
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbVehiculos.color'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr8: TQRExpr
|
||||
Left = 392
|
||||
Top = 0
|
||||
Width = 120
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
1037.16666666667
|
||||
0
|
||||
317.5)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsItalic]
|
||||
Color = clWhite
|
||||
ParentFont = False
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbVehiculos.modelo'
|
||||
FontSize = 10
|
||||
end
|
||||
object QRExpr9: TQRExpr
|
||||
Left = 600
|
||||
Top = 0
|
||||
Width = 119
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
1587.5
|
||||
0
|
||||
314.854166666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -13
|
||||
Font.Name = 'Arial'
|
||||
Font.Style = [fsItalic]
|
||||
Color = clWhite
|
||||
ParentFont = False
|
||||
ResetAfterPrint = False
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
Expression = 'TbVehiculos.idplaza'
|
||||
FontSize = 10
|
||||
end
|
||||
end
|
||||
object QRBand3: TQRBand
|
||||
Left = 38
|
||||
Top = 78
|
||||
Width = 718
|
||||
Height = 40
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = True
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
AlignToBottom = False
|
||||
Color = clWhite
|
||||
ForceNewColumn = False
|
||||
ForceNewPage = False
|
||||
Size.Values = (
|
||||
105.833333333333
|
||||
1899.70833333333)
|
||||
BandType = rbColumnHeader
|
||||
object QRLabel2: TQRLabel
|
||||
Left = 8
|
||||
Top = 16
|
||||
Width = 13
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
21.1666666666667
|
||||
42.3333333333333
|
||||
34.3958333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Caption = 'ID'
|
||||
Color = clWhite
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRLabel3: TQRLabel
|
||||
Left = 64
|
||||
Top = 16
|
||||
Width = 22
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
169.333333333333
|
||||
42.3333333333333
|
||||
58.2083333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Caption = 'DNI'
|
||||
Color = clWhite
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRLabel4: TQRLabel
|
||||
Left = 152
|
||||
Top = 16
|
||||
Width = 112
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
402.166666666667
|
||||
42.3333333333333
|
||||
296.333333333333)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Caption = 'Nombre y apellidos'
|
||||
Color = clWhite
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
object QRLabel5: TQRLabel
|
||||
Left = 416
|
||||
Top = 16
|
||||
Width = 56
|
||||
Height = 17
|
||||
Frame.Color = clBlack
|
||||
Frame.DrawTop = False
|
||||
Frame.DrawBottom = False
|
||||
Frame.DrawLeft = False
|
||||
Frame.DrawRight = False
|
||||
Size.Values = (
|
||||
44.9791666666667
|
||||
1100.66666666667
|
||||
42.3333333333333
|
||||
148.166666666667)
|
||||
Alignment = taLeftJustify
|
||||
AlignToBand = False
|
||||
AutoSize = True
|
||||
AutoStretch = False
|
||||
Caption = 'Telefonos'
|
||||
Color = clWhite
|
||||
Transparent = False
|
||||
WordWrap = True
|
||||
FontSize = 10
|
||||
end
|
||||
end
|
||||
end
|
||||
object DsAbonados: TDataSource
|
||||
DataSet = TbAbonados
|
||||
Left = 116
|
||||
Top = 284
|
||||
end
|
||||
object DsVehiculos: TDataSource
|
||||
DataSet = TbVehiculos
|
||||
Left = 152
|
||||
Top = 288
|
||||
end
|
||||
object TbVehiculos: TTable
|
||||
IndexName = 'iAbonados'
|
||||
MasterFields = 'ida'
|
||||
MasterSource = DsAbonados
|
||||
TableName = 'datos\vehiculos.db'
|
||||
Left = 152
|
||||
Top = 314
|
||||
end
|
||||
object TbAbonados: TTable
|
||||
TableName = 'datos\abonados.db'
|
||||
Left = 116
|
||||
Top = 316
|
||||
end
|
||||
end
|
||||
Reference in New Issue
Block a user