📄 sjgl_kcmxform.dfm
字号:
object QRShape19: TQRShape
Left = 534
Top = 0
Width = 1
Height = 40
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
105.833333333333
1412.875
0
2.64583333333333)
Shape = qrsRectangle
end
object QRShape20: TQRShape
Left = 585
Top = 0
Width = 1
Height = 40
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
105.833333333333
1547.8125
0
2.64583333333333)
Shape = qrsRectangle
end
object QRShape21: TQRShape
Left = 624
Top = 0
Width = 1
Height = 40
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
105.833333333333
1651
0
2.64583333333333)
Shape = qrsRectangle
end
end
object PageFooterBand1: TQRBand
Left = 38
Top = 177
Width = 718
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
1899.70833333333)
BandType = rbPageFooter
object QRLabel21: TQRLabel
Left = 304
Top = 14
Width = 14
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
804.333333333333
37.0416666666667
37.0416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #31532
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRLabel22: TQRLabel
Left = 385
Top = 14
Width = 14
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1018.64583333333
37.0416666666667
37.0416666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #39029
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData2: TQRSysData
Left = 346
Top = 13
Width = 50
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
915.458333333333
34.3958333333333
132.291666666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsPageNumber
Transparent = False
FontSize = 10
end
end
object TitleBand1: TQRBand
Left = 38
Top = 38
Width = 718
Height = 59
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
AlignToBottom = False
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = #23435#20307
Font.Style = []
ForceNewColumn = False
ForceNewPage = False
ParentFont = False
Size.Values = (
156.104166666667
1899.70833333333)
BandType = rbTitle
object QRLabel1: TQRLabel
Left = 253
Top = 2
Width = 197
Height = 28
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
74.0833333333333
669.395833333333
5.29166666666667
521.229166666667)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #24211' '#23384' '#26126' '#32454' '#36134
Color = clWhite
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -27
Font.Name = #38582#20070
Font.Style = []
ParentFont = False
Transparent = False
WordWrap = True
FontSize = 20
end
object QRShape1: TQRShape
Left = 221
Top = 34
Width = 257
Height = 1
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
2.64583333333333
584.729166666667
89.9583333333333
679.979166666667)
Shape = qrsRectangle
end
object QRLabel2: TQRLabel
Left = 552
Top = 32
Width = 66
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1460.5
84.6666666666667
174.625)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = #25171#21360#26085#26399#65306
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
object QRSysData1: TQRSysData
Left = 624
Top = 32
Width = 43
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
1651
84.6666666666667
113.770833333333)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Transparent = False
FontSize = 10
end
object QRLabel3: TQRLabel
Left = 8
Top = 37
Width = 57
Height = 14
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
37.0416666666667
21.1666666666667
97.8958333333333
150.8125)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Caption = 'QRLabel3'
Color = clWhite
Transparent = False
WordWrap = True
FontSize = 10
end
end
end
end
end
object BitBtn4: TBitBtn
Left = 524
Top = 4
Width = 115
Height = 25
Hint = #24211#23384#26126#32454#36134#25171#21360
Caption = #26126#32454#34920#25171#21360'[&P]'
TabOrder = 1
OnClick = BitBtn4Click
Glyph.Data = {
36030000424D3603000000000000360000002800000010000000100000000100
18000000000000030000C40E0000C40E00000000000000000000C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
222222FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFFFF222222C8C8C8222222222222222222222222FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF222222222222222222222222222222
2222225555552222221111111111111111111111111111111111111111111111
1155555555555522222255555555555555555522222288888888888888888888
88888888888888888888888888880000DD888888888888222222888888555555
4444442222225555555555555555555555555555555555555555555555550000
DD555555555555C8C8C8C8C8C822222255555555555588888888888888888888
8888888888888888888888888888888888555555222222C8C8C8C8C8C8C8C8C8
2222225555552222228888888888888888888888888888888888888888885555
55222222C8C8C8C8C8C8C8C8C8C8C8C8C8C8C822222222222222222222222222
2222222222222222222222222222222222C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8FFFFFFFFFFFFFFFFFFFFFFFF222222222222222222222222C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8FFFFFFFFFFFFFFFFFFFF
FFFFDDDDDDDDDDDD222222222222C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF222222C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8FFFFFFFFFFFFFFFFFFFF
FFFFFFFFFFFFFFFFFFFFFF222222C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF222222C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8
C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8C8}
end
object BitBtn6: TBitBtn
Left = 652
Top = 4
Width = 115
Height = 25
Hint = #31163#24320#24211#35810#26126#32454#36134
Caption = #31163' '#24320'[&E]'
TabOrder = 2
OnClick = BitBtn6Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
0000}
NumGlyphs = 2
end
object ComboBox1: TComboBox
Left = 48
Top = 9
Width = 121
Height = 20
Style = csDropDownList
ItemHeight = 12
TabOrder = 3
OnClick = ComboBox1Click
end
object ADOTable1: TADOTable
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Filtered = True
TableName = #22791#20214#24211#26126#32454#34920
Left = 136
Top = 80
object ADOTable1DSDesigner: TDateTimeField
FieldName = #26085#26399
end
object ADOTable1DSDesigner2: TStringField
FieldName = #36135#21697#21517#31216
end
object ADOTable1DSDesigner3: TStringField
FieldName = #22411#21495
end
object ADOTable1DSDesigner4: TStringField
FieldName = #35268#26684
end
object ADOTable1DSDesigner5: TStringField
FieldName = #21333#20301
Size = 6
end
object ADOTable1DSDesigner6: TStringField
FieldName = #22791#20214#26469#21382#12289#21435#21521
end
object ADOTable1DSDesigner7: TIntegerField
FieldName = #20837#24211#25968#37327
end
object ADOTable1DSDesigner8: TIntegerField
FieldName = #20986#24211#25968#37327
end
object ADOTable1DSDesigner9: TBCDField
FieldName = #20837#24211#21333#20215
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner10: TBCDField
FieldName = #20986#24211#21333#20215
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner12: TBCDField
FieldName = #37329#39069
DisplayFormat = #65509'0.00'
Precision = 19
end
object ADOTable1DSDesigner13: TIntegerField
FieldName = #24211#23384#37327
end
object ADOTable1DSDesigner14: TStringField
FieldName = #25439#32791
end
object ADOTable1DSDesigner15: TStringField
FieldName = #32463#25163#20154
end
object ADOTable1DSDesigner16: TStringField
FieldName = #35814#32454#35828#26126
Size = 80
end
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 224
Top = 56
end
object ADOQuery1: TADOQuery
Active = True
ConnectionString =
'Provider=MSDASQL.1;Password=mrwxdata1;Persist Security Info=True' +
';Data Source=mr_wx'
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select '#24211#25151' from '#24211)
Left = 156
Top = 156
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -