📄 bestjerep.dfm
字号:
Width = 53
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
394.229166666667
10.5833333333333
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = #31867#21035#21517#31216
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 248
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
656.166666666667
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = #33756#21697#32534#21495
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 345
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
912.8125
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = #33756#21697#21517#31216
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 543
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
1436.6875
13.2291666666667
140.229166666667)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = #38144#21806#25968#37327
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 493
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
1304.39583333333
13.2291666666667
71.4375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOQuery1
DataField = #37329#39069
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 8
Top = 3
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
21.1666666666667
7.9375
113.770833333333)
Alignment = taCenter
AlignToBand = False
AutoSize = False
Color = clWhite
Data = qrsDetailNo
Transparent = False
FontSize = 10
end
end
object SummaryBand1: TQRBand
Left = 38
Top = 160
Width = 612
Height = 23
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 = (
60.8541666666667
1619.25)
BandType = rbSummary
object QRLabel35: TQRLabel
Left = 19
Top = 5
Width = 34
Height = 16
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
42.3333333333333
50.2708333333333
13.2291666666667
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24635#35745
Color = clWhite
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = [fsBold, fsUnderline]
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 11
end
object QRExpr7: TQRExpr
Left = 542
Top = 4
Width = 52
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1434.04166666667
10.5833333333333
137.583333333333)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOQuery1.'#38144#21806#25968#37327')'
FontSize = 9
end
object QRExpr8: TQRExpr
Left = 470
Top = 4
Width = 51
Height = 15
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
39.6875
1243.54166666667
10.5833333333333
134.9375)
Alignment = taRightJustify
AlignToBand = False
AutoSize = False
AutoStretch = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = #23435#20307
Font.Style = []
Color = clWhite
ParentFont = False
ResetAfterPrint = False
Transparent = False
WordWrap = True
Expression = 'sum(ADOQuery1.'#37329#39069')'
FontSize = 9
end
object QRShape3: TQRShape
Left = 0
Top = 1
Width = 609
Height = 2
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
5.29166666666667
0
2.64583333333333
1611.3125)
Shape = qrsRectangle
end
end
end
end
object ComboBox1: TComboBox
Left = 67
Top = 52
Width = 171
Height = 20
ItemHeight = 12
TabOrder = 9
end
object ADOQuery1: TADOQuery
Connection = mainForm.RJSADO
CursorType = ctStatic
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>
SQL.Strings = (
'select lb as '#31867#21035#32534#21495',bh as '#33756#21697#32534#21495',sum(sl) as '#38144#21806#25968#37327', sum(je) as '#37329#39069
'from dcd'
'where rq>=:cs1 and rq<=:cs2 and zfbz=0 and fkbz=1'
'group by lb,bh'
'order by '#38144#21806#25968#37327' desc')
Left = 352
Top = 96
object ADOQuery1DSDesigner: TStringField
FieldName = #31867#21035#32534#21495
Size = 10
end
object ADOQuery1Field: TStringField
FieldKind = fkLookup
FieldName = #31867#21035#21517#31216
LookupDataSet = ADOQuery2
LookupKeyFields = 'lbbm'
LookupResultField = 'lbmc'
KeyFields = #31867#21035#32534#21495
Size = 30
Lookup = True
end
object ADOQuery1DSDesigner2: TStringField
FieldName = #33756#21697#32534#21495
Size = 10
end
object ADOQuery1Field2: TStringField
FieldKind = fkLookup
FieldName = #33756#21697#21517#31216
LookupDataSet = ADOQuery3
LookupKeyFields = 'bh'
LookupResultField = 'mc'
KeyFields = #33756#21697#32534#21495
Size = 30
Lookup = True
end
object ADOQuery1DSDesigner4: TBCDField
FieldName = #37329#39069
ReadOnly = True
Precision = 19
end
object ADOQuery1DSDesigner3: TBCDField
FieldName = #38144#21806#25968#37327
ReadOnly = True
Precision = 38
Size = 2
end
end
object DataSource1: TDataSource
DataSet = ADOQuery1
Left = 384
Top = 96
end
object ADOQuery2: TADOQuery
Active = True
Connection = mainForm.RJSADO
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '
'lbbm')
Left = 424
Top = 96
end
object ADOQuery3: TADOQuery
Active = True
Connection = mainForm.RJSADO
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from '
'cdwj')
Left = 424
Top = 127
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -