📄 gzqktj.dfm
字号:
37.0416666666667
698.5
502.708333333333
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel20'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object SummaryBand2: TQRBand
Left = 8
Top = 318
Width = 673
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
1780.64583333333)
BandType = rbSummary
object QRLabel17: TQRLabel
Left = 32
Top = 5
Width = 34
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.9791666666667
84.6666666666667
13.2291666666667
89.9583333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25910#38134':'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel34: TQRLabel
Left = 72
Top = 8
Width = 64
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
190.5
21.1666666666667
169.333333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel34'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object ColumnHeaderBand1: TQRBand
Left = 8
Top = 273
Width = 673
Height = 22
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 = (
58.2083333333333
1780.64583333333)
BandType = rbColumnHeader
object QRLabel31: TQRLabel
Left = 24
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
63.5
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 = 112
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
296.333333333333
13.2291666666667
140.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #20184#27454#26041#24335
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel33: TQRLabel
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
Caption = #20184#27454#37329#39069
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
object DetailBand1: TQRBand
Left = 8
Top = 295
Width = 673
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
1780.64583333333)
BandType = rbDetail
object QRDBText1: TQRDBText
Left = 16
Top = 3
Width = 15
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
42.3333333333333
7.9375
39.6875)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query2
DataField = 'bs'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 112
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
296.333333333333
7.9375
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query2
DataField = 'fkfsmc'
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 273
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
722.3125
7.9375
58.2083333333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = Query2
DataField = 'jee'
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
end
object BitBtn2: TBitBtn
Left = 565
Top = 83
Width = 89
Height = 38
Caption = #36864#20986
TabOrder = 5
OnClick = BitBtn2Click
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
0333337F777FFFFF7F3333000000000003333377777777777333}
NumGlyphs = 2
end
object DataSource1: TDataSource
DataSet = Query1
Left = 24
Top = 48
end
object Query1: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT count(djh) as djsl, lb, mc, bh, sum(sl) as sle, sum(je) a' +
's jee, sum(zke) as zkee, sum(fwfe) fwfee, sum(se) as see'
'FROM dcd dcd'
'where rq>=:cs1 and rq<=:cs2 and fkbz=1 and zfbz=0'
'group by lb,bh,mc'
'order by lb,bh')
Left = 56
Top = 48
ParamData = <
item
DataType = ftDateTime
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end>
end
object Query2: TQuery
CachedUpdates = True
DatabaseName = 'aa'
SQL.Strings = (
'SELECT count(djh) as bs, fkfsmc, sum(fkje) as jee'
'FROM fkwj fkwj'
'where rq>=:cs1 and rq<=:cs2'
'group by fkfsmc'
'')
UpdateObject = UpdateSQL1
Left = 528
Top = 176
ParamData = <
item
DataType = ftDateTime
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end>
end
object UpdateSQL1: TUpdateSQL
Left = 560
Top = 176
end
object DataSource2: TDataSource
DataSet = Query2
Left = 528
Top = 208
end
object Query3: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT count(djh) as djsl, sum(sl) as sle, sum(je) as jee, sum(z' +
'ke) as zkee, sum(fwfe) fwfee, sum(se) as see'
'FROM dcd dcd'
'where rq>=:cs1 and rq<=:cs2 and fkbz=1 and zfbz=0'
'')
Left = 56
Top = 96
ParamData = <
item
DataType = ftDateTime
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftDateTime
Name = 'cs2'
ParamType = ptUnknown
end>
end
object Query4: TQuery
DatabaseName = 'aa'
SQL.Strings = (
'SELECT sum(distinct b.mlje) as jee'
'FROM dcd a, new_djh b'
'where a.rq>=:cs1 and a.rq<=:cs2 and a.fkbz=1 and a.zfbz=0'
' and a.djh=b.djh '
'')
Left = 105
Top = 96
ParamData = <
item
DataType = ftUnknown
Name = 'cs1'
ParamType = ptUnknown
end
item
DataType = ftUnknown
Name = 'cs2'
ParamType = ptUnknown
end>
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -