📄 main.~dfm
字号:
ImageIndex = 3
object DBGrid1: TDBGrid
Left = 0
Top = 209
Width = 784
Height = 256
Align = alClient
DataSource = DS2
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
ReadOnly = True
TabOrder = 0
TitleFont.Charset = GB2312_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -14
TitleFont.Name = #23435#20307
TitleFont.Style = []
end
object TPanel
Left = 0
Top = 0
Width = 784
Height = 209
Align = alTop
TabOrder = 1
object GB2: TGroupBox
Left = 16
Top = 24
Width = 441
Height = 113
Caption = #23398#29983#20449#24687
Font.Charset = GB2312_CHARSET
Font.Color = clRed
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 0
object NameL: TLabel
Left = 16
Top = 32
Width = 35
Height = 14
Caption = #22995#21517':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object NumL: TLabel
Left = 240
Top = 32
Width = 35
Height = 14
Caption = #23398#21495':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object DepL: TLabel
Left = 17
Top = 80
Width = 35
Height = 14
Caption = #31995#21035':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object ClassL: TLabel
Left = 241
Top = 75
Width = 35
Height = 14
Caption = #29677#32423':'
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object NameEdit: TEdit
Left = 56
Top = 28
Width = 121
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 0
OnKeyPress = NameEditKeyPress
end
object NumEdit: TEdit
Left = 280
Top = 28
Width = 121
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 1
OnKeyPress = NumEditKeyPress
end
object ClassEdit: TComboBox
Left = 281
Top = 71
Width = 121
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 14
ParentFont = False
TabOrder = 3
OnKeyPress = ClassEditKeyPress
end
object DepEdit: TComboBox
Left = 56
Top = 76
Width = 121
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 14
ParentFont = False
TabOrder = 2
OnKeyPress = DepEditKeyPress
end
end
object AddStuBtn: TBitBtn
Left = 40
Top = 160
Width = 153
Height = 33
Caption = #28155#21152#23398#29983#20449#24687'(&A)'
TabOrder = 1
OnClick = AddStuBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
55555555FFFFFFFF5555555000000005555555577777777FF555550999999900
55555575555555775F55509999999901055557F55555557F75F5001111111101
105577FFFFFFFF7FF75F00000000000011057777777777775F755070FFFFFF0F
01105777F555557F75F75500FFFFFF0FF0105577F555FF7F57575550FF700008
8F0055575FF7777555775555000888888F005555777FFFFFFF77555550000000
0F055555577777777F7F555550FFFFFF0F05555557F5FFF57F7F555550F000FF
0005555557F777557775555550FFFFFF0555555557F555FF7F55555550FF7000
05555555575FF777755555555500055555555555557775555555}
NumGlyphs = 2
end
object DelStuBtn: TBitBtn
Left = 280
Top = 160
Width = 153
Height = 33
Caption = #21024#38500#23398#29983#20449#24687'(&D)'
TabOrder = 2
OnClick = DelStuBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000120B0000120B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
3333333337FFF7F3333333333000003333333333377777333333}
NumGlyphs = 2
end
object FindStuBtn: TBitBtn
Left = 528
Top = 160
Width = 153
Height = 33
Caption = #26597#25214#23398#29983#20449#24687'(&F)'
TabOrder = 3
OnClick = FindStuBtnClick
Glyph.Data = {
76010000424D7601000000000000760000002800000020000000100000000100
04000000000000010000130B0000130B00001000000000000000000000000000
800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
333333333333333333FF33333333333330003FF3FFFFF3333777003000003333
300077F777773F333777E00BFBFB033333337773333F7F33333FE0BFBF000333
330077F3337773F33377E0FBFBFBF033330077F3333FF7FFF377E0BFBF000000
333377F3337777773F3FE0FBFBFBFBFB039977F33FFFFFFF7377E0BF00000000
339977FF777777773377000BFB03333333337773FF733333333F333000333333
3300333777333333337733333333333333003333333333333377333333333333
333333333333333333FF33333333333330003333333333333777333333333333
3000333333333333377733333333333333333333333333333333}
NumGlyphs = 2
end
object FindTab: TTabSet
Left = 512
Top = 120
Width = 185
Height = 21
DitherBackground = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Tabs.Strings = (
#22995#21517
#23398#21495
#31995#21035
#29677#32423)
TabIndex = 0
OnChange = FindTabChange
end
object TPanel
Left = 512
Top = 56
Width = 185
Height = 65
TabOrder = 5
object FindEdit: TEdit
Left = 16
Top = 20
Width = 157
Height = 22
Font.Charset = GB2312_CHARSET
Font.Color = clBlack
Font.Height = -14
Font.Name = #23435#20307
Font.Style = []
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ParentFont = False
TabOrder = 0
OnKeyPress = NameEditKeyPress
end
end
end
end
object TS2: TTabSheet
Caption = #30331#38470#23398#29983#31649#29702
ImageIndex = 4
object Splitter4: TSplitter
Left = 512
Top = 0
Width = 7
Height = 465
Cursor = crHSplit
Align = alRight
Beveled = True
Color = clRed
ParentColor = False
end
object Splitter5: TSplitter
Left = 216
Top = 0
Width = 7
Height = 465
Cursor = crHSplit
Align = alRight
Beveled = True
Color = clRed
ParentColor = False
end
object TPanel
Left = 0
Top = 0
Width = 216
Height = 465
Align = alClient
TabOrder = 0
object Panel3: TPanel
Left = 1
Top = 1
Width = 149
Height = 463
Align = alClient
TabOrder = 0
object TStaticText
Left = 1
Top = 1
Width = 147
Height = 18
Align = alTop
Alignment = taCenter
BevelKind = bkFlat
BorderStyle = sbsSunken
Caption = #31995#21035#21015#34920
TabOrder = 0
end
object ClassCheckList: TCheckListBox
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -