📄 selfchoose.dfm
字号:
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
481.541666666667000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape6: TQRShape
Left = 250
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
661.458333333333000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape8: TQRShape
Left = 306
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
809.625000000000000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape9: TQRShape
Left = 392
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
1037.166666666670000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape10: TQRShape
Left = 500
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
1322.916666666670000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape11: TQRShape
Left = 613
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
1621.895833333330000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape12: TQRShape
Left = 726
Top = 4
Width = 3
Height = 113
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
298.979166666667000000
1920.875000000000000000
10.583333333333300000
7.937500000000000000)
Shape = qrsVertLine
end
object QRShape13: TQRShape
Left = 2
Top = 110
Width = 727
Height = 9
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
23.812500000000000000
5.291666666666670000
291.041666666667000000
1923.520833333330000000)
Shape = qrsHorLine
end
object QRDBText1: TQRDBText
Left = 8
Top = 80
Width = 49
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
21.166666666666670000
211.666666666666700000
129.645833333333300000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #26631#35782#21495
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText2: TQRDBText
Left = 64
Top = 80
Width = 33
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
169.333333333333300000
211.666666666666700000
87.312500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #23398#21382
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText3: TQRDBText
Left = 115
Top = 80
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
304.270833333333400000
211.666666666666700000
171.979166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #20837#23398#26085#26399
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText4: TQRDBText
Left = 187
Top = 80
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
494.770833333333400000
211.666666666666700000
171.979166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #27605#19994#26085#26399
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText5: TQRDBText
Left = 256
Top = 80
Width = 33
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
677.333333333333400000
211.666666666666700000
87.312500000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #23398#21046
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText6: TQRDBText
Left = 312
Top = 80
Width = 65
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
825.500000000000000000
211.666666666666700000
171.979166666666700000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #23398#26657#21517#31216
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText7: TQRDBText
Left = 404
Top = 78
Width = 97
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1068.916666666667000000
206.375000000000000000
256.645833333333400000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #20174#23398#21333#20301#31867#21035
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText8: TQRDBText
Left = 507
Top = 80
Width = 97
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1341.437500000000000000
211.666666666666700000
256.645833333333400000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #25152#23398#19987#19994#21517#31216
Transparent = False
WordWrap = True
FontSize = 10
end
object QRDBText9: TQRDBText
Left = 625
Top = 80
Width = 97
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1653.645833333333000000
211.666666666666700000
256.645833333333400000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
AutoStretch = False
Color = clWhite
DataSet = ADOTable1
DataField = #25152#23398#23436#25104#24773#20917
Transparent = False
WordWrap = True
FontSize = 10
end
end
object PageHeaderBand1: TQRBand
Left = 38
Top = 38
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.833333333333300000
1899.708333333333000000)
BandType = rbPageHeader
object QRSysData1: TQRSysData
Left = 544
Top = 16
Width = 36
Height = 17
Frame.Color = clBlack
Frame.DrawTop = False
Frame.DrawBottom = False
Frame.DrawLeft = False
Frame.DrawRight = False
Size.Values = (
44.979166666666670000
1439.333333333333000000
42.333333333333340000
95.250000000000000000)
Alignment = taLeftJustify
AlignToBand = False
AutoSize = True
Color = clWhite
Data = qrsDate
Transparent = False
FontSize = 10
end
end
end
object ADOConnection1: TADOConnection
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=ganbu' +
'system.mdb;Mode=Share Deny None;Extended Properties="";Persist S' +
'ecurity Info=False;Jet OLEDB:System database="";Jet OLEDB:Regist' +
'ry Path="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=' +
'5;Jet OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bul' +
'k Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Datab' +
'ase Password="";Jet OLEDB:Create System Database=False;Jet OLEDB' +
':Encrypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=F' +
'alse;Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SF' +
'P=False'
LoginPrompt = False
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 320
Top = 24
end
object ADOTable1: TADOTable
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'a08'
Left = 432
Top = 32
end
object DataSource1: TDataSource
DataSet = ADOTable1
Left = 272
Top = 8
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -