ssxsbb.dfm
来自「日昌餐饮管理系统是用Delphi7+SQL写的管理系统」· DFM 代码 · 共 1,049 行 · 第 1/2 页
DFM
1,049 行
AlignToBottom = False
Color = clWhite
ForceNewColumn = False
ForceNewPage = False
Size.Values = (
58.2083333333333
1780.64583333333)
BandType = rbColumnHeader
object QRLabel31: TQRLabel
Left = 8
Top = 5
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
21.1666666666667
13.2291666666667
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31508#25968
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel32: TQRLabel
Left = 88
Top = 5
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
232.833333333333
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31867#21035#21517#31216
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel33: TQRLabel
Left = 200
Top = 5
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
529.166666666667
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20135#21697#21517#31216
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel1: TQRLabel
Left = 320
Top = 5
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
846.666666666667
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38144#21806#25968#37327
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 408
Top = 5
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1079.5
13.2291666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #38144#21806#39069
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel4: TQRLabel
Left = 480
Top = 5
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1270
13.2291666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25240#25187#39069
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel5: TQRLabel
Left = 554
Top = 5
Width = 40
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1465.79166666667
13.2291666666667
105.833333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #26381#21153#36153
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel6: TQRLabel
Left = 624
Top = 5
Width = 27
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1651
13.2291666666667
71.4375)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31246#37329
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object DetailBand1: TQRBand
Left = 8
Top = 135
Width = 673
Height = 19
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 = (
50.2708333333333
1780.64583333333)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 16
Top = 2
Width = 29
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
42.3333333333333
5.29166666666667
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'djsl'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 72
Top = 2
Width = 29
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
190.5
5.29166666666667
76.7291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'lbmc'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 193
Top = 2
Width = 15
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
510.645833333333
5.29166666666667
39.6875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'mc'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 340
Top = 2
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
899.583333333333
5.29166666666667
58.2083333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'sle'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 435
Top = 3
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1150.9375
7.9375
58.2083333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'jee'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 495
Top = 3
Width = 29
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1309.6875
7.9375
76.7291666666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'zkee'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 558
Top = 3
Width = 36
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1476.375
7.9375
95.25)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'fwfee'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 634
Top = 3
Width = 22
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1677.45833333333
7.9375
58.2083333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query1
DataField = 'see'
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
end
object DataSource1: TDataSource
DataSet = Query1
Left = 24
Top = 85
end
object Query1: TQuery
OnCalcFields = Query1CalcFields
DatabaseName = 'aa'
SQL.Strings = (
'SELECT count(a.djh) as djsl, a.lb, a.mc, a.bh, sum(a.sl) as sle,' +
' sum(a.je) as jee, sum(a.zke) as zkee, sum(a.fwfe) fwfee, sum(a.' +
'se) as see'
'FROM dcd a'
'where a.rq>=:cs1 and a.rq<=:cs2 and a.fkbz=1 and a.zfbz=0 '
'group by a.lb,a.bh,a.mc'
'order by a.lb,a.bh,djsl')
Left = 56
Top = 85
ParamData = <
item
DataType = ftDateTime
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end>
object Query1djsl: TIntegerField
FieldName = 'djsl'
Origin = 'AA.dcd.djh'
end
object Query1lb: TStringField
FieldName = 'lb'
Origin = 'AA.dcd.lb'
Size = 10
end
object Query1mc: TStringField
FieldName = 'mc'
Origin = 'AA.dcd.mc'
Size = 50
end
object Query1bh: TStringField
FieldName = 'bh'
Origin = 'AA.dcd.bh'
Size = 10
end
object Query1jee: TFloatField
FieldName = 'jee'
Origin = 'AA.dcd.je'
end
object Query1zkee: TFloatField
FieldName = 'zkee'
Origin = 'AA.dcd.zke'
end
object Query1fwfee: TFloatField
FieldName = 'fwfee'
Origin = 'AA.dcd.fwfe'
end
object Query1see: TFloatField
FieldName = 'see'
Origin = 'AA.dcd.se'
end
object Query1lbmc: TStringField
FieldKind = fkCalculated
FieldName = 'lbmc'
Size = 50
Calculated = True
end
object Query1sle: TFloatField
FieldName = 'sle'
Origin = 'AA.dcd.sl'
end
end
object Query2: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'select * '
'from lbbm')
Left = 64
Top = 136
end
end
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?