📄 wjdjbb.dfm
字号:
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 = 427
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
1129.77083333333
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 ComboBox1: TComboBox
Left = 136
Top = 31
Width = 81
Height = 20
ItemHeight = 12
TabOrder = 7
end
object ComboBox2: TComboBox
Left = 224
Top = 30
Width = 73
Height = 20
ItemHeight = 12
TabOrder = 8
Items.Strings = (
#20840#37096
'1'
'2'
'3')
end
object ComboBox3: TComboBox
Left = 304
Top = 30
Width = 89
Height = 20
ItemHeight = 12
TabOrder = 9
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
object Query3: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT yhm, yhmc'
'FROM userwj userwj')
Left = 128
end
object Query4: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'select *'
'from canting')
Left = 320
Top = 16
end
object Query5: TQuery
Left = 216
Top = 24
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -