zdxsrep.dfm
来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 1,771 行 · 第 1/4 页
DFM
1,771 行
Frame.DrawRight = False
Size.Values = (
42.3333333333333
870.479166666667
21.1666666666667
87.3125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = mainDtSt
DataField = 'jyje'
Transparent = False
WordWrap = True
FontSize = 11
end
object QRSysData3: TQRSysData
Left = 16
Top = 8
Width = 85
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
42.3333333333333
21.1666666666667
224.895833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsDetailNo
Transparent = False
FontSize = 11
end
object QRLabel19: TQRLabel
Left = 573
Top = 31
Width = 27
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
1516.0625
82.0208333333333
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26085#26399
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = [fsItalic]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 10
end
object QRShape9: TQRShape
Left = 156
Top = 50
Width = 450
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
412.75
132.291666666667
1190.625)
Shape = qrsRectangle
end
end
object QRSubDetailItems1: TQRSubDetail
Left = 48
Top = 252
Width = 849
Height = 28
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 = (
74.0833333333333
2246.3125)
Master = QuickRep2
DataSet = detail2DtST
HeaderBand = detail1
PrintBefore = False
PrintIfEmpty = True
object QRDBText15: TQRDBText
Left = 153
Top = 6
Width = 59
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
404.8125
15.875
156.104166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = detail2DtST
DataField = 'fkfsmc'
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText16: TQRDBText
Left = 222
Top = 6
Width = 59
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
587.375
15.875
156.104166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = detail2DtST
DataField = 'fkje'
Transparent = False
WordWrap = True
FontSize = 11
end
object QRDBText17: TQRDBText
Left = 289
Top = 6
Width = 100
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
764.645833333333
15.875
264.583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Color = clWhite
DataSet = detail2DtST
DataField = 'rq'
Transparent = False
WordWrap = True
FontSize = 11
end
end
object QRBand1: TQRBand
Left = 48
Top = 280
Width = 849
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
2246.3125)
BandType = rbSummary
object QRLabel13: TQRLabel
Left = 272
Top = 16
Width = 46
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
719.666666666667
42.3333333333333
121.708333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24635#35745#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 11
end
object QRExpr1: TQRExpr
Left = 320
Top = 16
Width = 169
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
846.666666666667
42.3333333333333
447.145833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
Master = QRSubDetailItems1
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'SUM(detail2DtST.fkje)'
FontSize = 11
end
object QRShape1: TQRShape
Left = 0
Top = 8
Width = 741
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
0
21.1666666666667
1960.5625)
Shape = qrsRectangle
end
end
end
end
object detail1DS: TDataSource
DataSet = detail1DtSt
Left = 224
Top = 64
end
object mainDS: TDataSource
DataSet = mainDtSt
Left = 80
Top = 64
end
object detail2DS: TDataSource
DataSet = detail2DtST
Left = 688
Top = 64
end
object mainDtSt: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText =
'select djh,szdd,sum(je) jyje '#13#10'from dcd'#13#10'where rq>=:cs1 and rq<=' +
':cs2 and zfbz=0 and fkbz=1'#13#10'group by szdd,djh'#13#10'order by djh '#13#10
Parameters = <
item
Name = 'cs1'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end
item
Name = 'cs2'
Attributes = [paNullable]
DataType = ftDateTime
Precision = 16
Size = 16
Value = Null
end>
Left = 40
Top = 64
object mainDtStdjh: TIntegerField
DisplayLabel = #21333#25454#21495
DisplayWidth = 7
FieldName = 'djh'
end
object mainDtStszdd: TStringField
DisplayLabel = #22320#22336
DisplayWidth = 9
FieldName = 'szdd'
Size = 50
end
object mainDtStjyje: TBCDField
DisplayLabel = #27880#20876#20132#26131#37329#39069
FieldName = 'jyje'
ReadOnly = True
Precision = 19
end
end
object detail1DtSt: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText =
'Select djh, th, mc, dj,sl,je,fwfe,zke,szdd,rq From dcd'#13#10'where zf' +
'bz=0 and fkbz=1'#13#10
DataSource = mainDS
IndexFieldNames = 'djh;szdd'
MasterFields = 'djh;szdd'
Parameters = <>
Left = 184
Top = 64
object detail1DtStdjh: TIntegerField
DisplayLabel = #21333#25454#21495
FieldName = 'djh'
end
object detail1DtStth: TStringField
DisplayLabel = #26426#21495
DisplayWidth = 10
FieldName = 'th'
Size = 10
end
object detail1DtStmc: TStringField
DisplayLabel = #33756#21697#21517#31216
DisplayWidth = 12
FieldName = 'mc'
Size = 50
end
object detail1DtStdj: TBCDField
DisplayLabel = #21333#20215
DisplayWidth = 8
FieldName = 'dj'
Precision = 19
end
object detail1DtStje: TBCDField
DisplayLabel = #37329#39069
DisplayWidth = 9
FieldName = 'je'
Precision = 19
end
object detail1DtStfwfe: TBCDField
DisplayLabel = #26381#21153#36153
DisplayWidth = 9
FieldName = 'fwfe'
Precision = 19
end
object detail1DtStzke: TBCDField
DisplayLabel = #25240#25187
DisplayWidth = 7
FieldName = 'zke'
Precision = 19
end
object detail1DtStszdd: TStringField
DisplayLabel = #25152#22312#24215
FieldName = 'szdd'
Size = 50
end
object detail1DtStrq: TDateTimeField
DisplayLabel = #26085#26399
DisplayWidth = 12
FieldName = 'rq'
end
object detail1DtStsl: TBCDField
FieldName = 'sl'
Precision = 18
Size = 2
end
end
object detail2DtST: TADODataSet
Connection = mainForm.RJSADO
CursorType = ctStatic
CommandText = 'SELECT djh,fkfsmc,fkje,szdd,rq FROM fkwj'#13#10
DataSource = detail1DS
IndexFieldNames = 'djh;szdd'
MasterFields = 'djh;szdd'
Parameters = <>
Left = 656
Top = 64
object detail2DtSTdjh: TIntegerField
DisplayLabel = #21333#25454#21495
FieldName = 'djh'
end
object detail2DtSTfkfsmc: TStringField
DisplayLabel = #20184#27454#26041#24335
FieldName = 'fkfsmc'
Size = 50
end
object detail2DtSTfkje: TBCDField
DisplayLabel = #20184#27454#37329#39069
FieldName = 'fkje'
Precision = 19
end
object detail2DtSTszdd: TStringField
DisplayLabel = #25152#22312#24215
FieldName = 'szdd'
Size = 50
end
object detail2DtSTrq: TDateTimeField
DisplayLabel = #26085#26399
FieldName = 'rq'
end
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?