📄 frmdssu01rp.dfm
字号:
inherited FrmDsSu01R: TFrmDsSu01R
Left = 223
Top = 158
Caption = #21378#21830#25253#20215#36164#26009#26597#35810#21015#21360
ClientWidth = 364
OldCreateOrder = True
PixelsPerInch = 96
TextHeight = 13
object Img1: TImage [0]
Left = -10
Top = -10
Width = 377
Height = 363
end
object Label1: TLabel [1]
Left = 16
Top = 31
Width = 105
Height = 20
AutoSize = False
Caption = #25253#20215#21333#21495' '#20174
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label2: TLabel [2]
Left = 101
Top = 71
Width = 28
Height = 20
AutoSize = False
Caption = #21040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label3: TLabel [3]
Left = 16
Top = 111
Width = 105
Height = 20
AutoSize = False
Caption = #21378#21830#32534#21495' '#20174
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label4: TLabel [4]
Left = 101
Top = 151
Width = 28
Height = 20
AutoSize = False
Caption = #21040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label5: TLabel [5]
Left = 16
Top = 191
Width = 105
Height = 20
AutoSize = False
Caption = #26009#21697#32534#21495' '#20174
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label6: TLabel [6]
Left = 101
Top = 231
Width = 28
Height = 20
AutoSize = False
Caption = #21040
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object RG1: TRadioGroup [7]
Left = 24
Top = 256
Width = 329
Height = 49
Ctl3D = True
ParentCtl3D = False
TabOrder = 0
end
object Edit1: TEdit [8]
Left = 136
Top = 23
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object Edit2: TEdit [9]
Left = 136
Top = 63
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object BitBtn1: TBitBtn [10]
Left = 32
Top = 313
Width = 89
Height = 33
Caption = 'OK'
Default = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 3
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
object BitBtn2: TBitBtn [11]
Left = 272
Top = 313
Width = 75
Height = 33
Cancel = True
Caption = 'Cancel'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ModalResult = 1
ParentFont = False
TabOrder = 4
OnClick = BitBtn2Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333333333000033338833333333333333333F333333333333
0000333911833333983333333388F333333F3333000033391118333911833333
38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
911118111118333338F3338F833338F3000033333911111111833333338F3338
3333F8330000333333911111183333333338F333333F83330000333333311111
8333333333338F3333383333000033333339111183333333333338F333833333
00003333339111118333333333333833338F3333000033333911181118333333
33338333338F333300003333911183911183333333383338F338F33300003333
9118333911183333338F33838F338F33000033333913333391113333338FF833
38F338F300003333333333333919333333388333338FFF830000333333333333
3333333333333333333888330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
Style = bsWin31
end
object BitBtn3: TBitBtn [12]
Left = 148
Top = 313
Width = 97
Height = 33
Caption = 'To &EXCEL'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
OnClick = BitBtn3Click
Glyph.Data = {
06030000424D06030000000000003600000028000000100000000F0000000100
180000000000D002000000000000000000000000000000000000FEFEFEAEAEAE
C8C8C8FFFFFFFFFFFF555F550041000059000054000054000054000054000054
00005400005400005D00FEFEFE424242808080F7F8F7F5F5F55E665E1E601E25
7825217321227422217321217321217321217321217321036103FAFAFAA0A0A0
090909353535CCCCCC7E7E7EE5E5E5FCFDFCFAFBFAFBFCFBFDFDFDFFFEFFFEFD
FEFFFEFFFDFDFD1D711DFFFFFFFFFFFF4C4D4C000000DEDFDE818281F6F0F6FF
FFFFFFFFFFFFFFFFFFFFFFFFFEFFFEFDFEFFFFFFFDFDFD1C711CD6D4DAD1CDD1
A9A7A9B0AEB0DAD5DA5D5C5D9BB79BABCAABA8C8A8A2C4A2639D63206B202677
2616601685B2852F7C2F506D1813521383A683578A570F520F08540800500000
56000046002B792B3D853D0053000056002F792FDAE7DA217321517805005000
83B483EBF5EB29752900560008670800550046884670A6700A5E0A0260020050
009AC09AFFFFFF186E1852760A0152017BAC7BFFFFFFE9F1E93B7E3B004E0044
88446BA26B005600005E000B660B0B620B217321F7F9F71E711E517608005100
7FAF7FFCFDFCFFFFFFD9E7D9488948689F68005600015E01026002E0EBE0F3F6
F3EFF5EFFBFCFB1C711C5176080051007BAC7BFFFFFFE6EFE692BA925B995B00
5700005C00046204005900508E50F9FCF9FFFFFFF9FBF91D711D517608005000
84B184F9FBF98CB68C509150005900005900176D170057000664060054004989
49F9FAF9F9FBF91B701B50750800520078AA787DAD7D327C32004A00004C0048
8C48E1ECE1488B48004B000056000043002E7C2EFAFBFA1C701C517608005200
7AAB7A9FC29F86B0868EB78E8EB78EF8FAF8FFFFFFF8FAF88EB78E8DB78D8FB7
8F90B890F9FBF91D711D51760900510080AF80FFFFFFFFFFFFFFFFFFFFFFFFFF
FFFFFEFDFEFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFDFEFD1D711D497101005C00
126A122173211F721F2072202072202475242475242475242072202072201F72
1F207320247524046104}
end
object Edit3: TEdit [13]
Left = 136
Top = 103
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object Edit4: TEdit [14]
Left = 136
Top = 143
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 7
end
object Edit5: TEdit [15]
Left = 136
Top = 183
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 8
end
object Edit6: TEdit [16]
Left = 136
Top = 223
Width = 129
Height = 28
Hint = #38617#25802#39023#31034#20195#30908#36039#26009
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ImeMode = imClose
ImeName = #33521#25976
ParentFont = False
ParentShowHint = False
ShowHint = True
TabOrder = 9
end
object RB3: TRadioButton [17]
Left = 248
Top = 274
Width = 81
Height = 17
Caption = #20840' '#37096
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 10
end
object RB2: TRadioButton [18]
Left = 144
Top = 274
Width = 81
Height = 17
Caption = #26410#30830#35748
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 11
end
object RB1: TRadioButton [19]
Left = 48
Top = 274
Width = 81
Height = 17
Caption = #24050#30830#35748
Checked = True
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentColor = False
ParentFont = False
TabOrder = 12
TabStop = True
end
object PopupMenu1: TPopupMenu
Images = FrmMain.ImageList1
Left = 320
Top = 16
object MenuItem1: TMenuItem
Caption = #26032#22686'/'#20445#23384
ImageIndex = 0
ShortCut = 113
OnClick = popnewClick
end
object MenuItem2: TMenuItem
Caption = #32534#36753'/'#21462#28040
ImageIndex = 1
ShortCut = 114
OnClick = popeditClick
end
object MenuItem3: TMenuItem
Caption = #21024#38500
ImageIndex = 2
ShortCut = 115
OnClick = popdelClick
end
object MenuItem4: TMenuItem
Caption = #25554#20837#19968#31508
ImageIndex = 3
ShortCut = 45
OnClick = popinsertClick
end
object MenuItem5: TMenuItem
Caption = #21024#38500#19968#31508
ImageIndex = 15
ShortCut = 46
Visible = False
OnClick = popsubdelClick
end
object MenuItem6: TMenuItem
Caption = '-'
end
object MenuItem7: TMenuItem
Caption = #25171#21360
ImageIndex = 4
ShortCut = 117
OnClick = popprintClick
end
object MenuItem8: TMenuItem
Caption = #26597#25214
ImageIndex = 5
ShortCut = 118
OnClick = popfindClick
end
object MenuItem9: TMenuItem
Caption = '-'
end
object MenuItem10: TMenuItem
Caption = #26368#21069#31508
ImageIndex = 6
ShortCut = 120
OnClick = poptopClick
end
object MenuItem11: TMenuItem
Caption = #19978#19968#31508
ImageIndex = 7
ShortCut = 121
OnClick = popbackClick
end
object MenuItem12: TMenuItem
Caption = #19979#19968#31508
ImageIndex = 8
ShortCut = 122
OnClick = popnextClick
end
object MenuItem13: TMenuItem
Caption = #26368#26411#31508
SubMenuImages = FrmMain.ImageList1
ImageIndex = 9
ShortCut = 123
OnClick = poplastClick
end
object MenuItem14: TMenuItem
Caption = '-'
end
object MenuItem15: TMenuItem
Caption = #30830#35748'/'#21453#30830#35748
ImageIndex = 10
ShortCut = 119
OnClick = popcheckClick
end
object MenuItem16: TMenuItem
Caption = #36864#20986
ImageIndex = 11
OnClick = popquitClick
end
end
object ADOQ_DsSu01: TADOQuery
Connection = DataM1.Adoc
Parameters = <
item
Name = 'Fid'
DataType = ftString
Size = -1
Value = Null
end
item
Name = 'Fname'
DataType = ftString
Size = -1
Value = Null
end>
SQL.Strings = (
'Select * From DsSu01')
Left = 288
Top = 56
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -