📄 teacherunit.~dfm
字号:
object teacherform: Tteacherform
Left = 219
Top = 100
Width = 530
Height = 401
Caption = #25945#24072#36164#26009#26597#35810
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
Scaled = False
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel1: TPanel
Left = 0
Top = 0
Width = 522
Height = 30
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label9: TLabel
Left = 13
Top = 6
Width = 129
Height = 16
AutoSize = False
Caption = #35831#36755#20837#25945#24072#22995#21517#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Edit1: TEdit
Left = 149
Top = 5
Width = 105
Height = 21
ImeMode = imChinese
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
MaxLength = 8
TabOrder = 0
OnKeyPress = Edit1KeyPress
end
object BitBtn1: TBitBtn
Left = 278
Top = 2
Width = 99
Height = 25
Caption = #24320#22987#26597#35810'(&G)'
Default = True
TabOrder = 1
OnClick = BitBtn1Click
Glyph.Data = {
DE010000424DDE01000000000000760000002800000024000000120000000100
0400000000006801000000000000000000001000000000000000000000000000
80000080000000808000800000008000800080800000C0C0C000808080000000
FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
3333333333333333333333330000333333333333333333333333F33333333333
00003333344333333333333333388F3333333333000033334224333333333333
338338F3333333330000333422224333333333333833338F3333333300003342
222224333333333383333338F3333333000034222A22224333333338F338F333
8F33333300003222A3A2224333333338F3838F338F33333300003A2A333A2224
33333338F83338F338F33333000033A33333A222433333338333338F338F3333
0000333333333A222433333333333338F338F33300003333333333A222433333
333333338F338F33000033333333333A222433333333333338F338F300003333
33333333A222433333333333338F338F00003333333333333A22433333333333
3338F38F000033333333333333A223333333333333338F830000333333333333
333A333333333333333338330000333333333333333333333333333333333333
0000}
NumGlyphs = 2
end
end
object Panel2: TPanel
Left = 0
Top = 30
Width = 522
Height = 158
Align = alTop
BevelInner = bvRaised
BevelOuter = bvLowered
Color = clSkyBlue
Ctl3D = False
ParentCtl3D = False
TabOrder = 1
object Label1: TLabel
Left = 16
Top = 16
Width = 49
Height = 16
AutoSize = False
Caption = #22995#21517
FocusControl = DBEdit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 42
Width = 49
Height = 16
AutoSize = False
Caption = #24615#21035
FocusControl = DBEdit2
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 202
Top = 41
Width = 57
Height = 16
AutoSize = False
Caption = #30005' '#35805
FocusControl = DBEdit3
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 202
Top = 70
Width = 79
Height = 16
AutoSize = False
Caption = #30005#23376#37038#20214
FocusControl = DBEdit4
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 69
Width = 41
Height = 16
AutoSize = False
Caption = #24180#40836
FocusControl = DBEdit5
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 202
Top = 16
Width = 97
Height = 16
AutoSize = False
Caption = #25945#30740#23460
FocusControl = DBEdit6
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 16
Top = 96
Width = 49
Height = 16
AutoSize = False
Caption = #32844#31216
FocusControl = DBEdit7
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Bevel1: TBevel
Left = 2
Top = 2
Width = 518
Height = 3
Align = alCustom
Anchors = [akLeft, akTop, akRight]
Style = bsRaised
end
object DBEdit1: TDBEdit
Left = 64
Top = 16
Width = 104
Height = 19
Hint = #21482#35835#30340
DataField = 'tname'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 64
Top = 41
Width = 105
Height = 19
Hint = #21482#35835#30340
DataField = 'tsex'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 274
Top = 41
Width = 153
Height = 19
Hint = #21482#35835#30340
DataField = 'tel'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 2
end
object DBEdit4: TDBEdit
Left = 274
Top = 67
Width = 153
Height = 19
Hint = #21482#35835#30340
DataField = 'email'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 3
end
object DBEdit5: TDBEdit
Left = 64
Top = 67
Width = 105
Height = 19
Hint = #21482#35835#30340
DataField = 'age'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 4
end
object DBEdit6: TDBEdit
Left = 274
Top = 16
Width = 153
Height = 19
Hint = #21482#35835#30340
DataField = 'jiaoyanshi'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 5
end
object DBEdit7: TDBEdit
Left = 64
Top = 93
Width = 105
Height = 19
Hint = #21482#35835#30340
DataField = 'zhicheng'
DataSource = DataModule1.DSteacher
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
ParentShowHint = False
ShowHint = True
TabOrder = 6
end
object DBImage1: TDBImage
Left = 431
Top = 3
Width = 90
Height = 120
Hint = #26174#31034#25945#24072#22270#29255
DataField = 'photo'
DataSource = DataModule1.DSteacher
ParentShowHint = False
ShowHint = True
Stretch = True
TabOrder = 7
end
object DBNavigator1: TDBNavigator
Left = 2
Top = 130
Width = 516
Height = 25
DataSource = DataModule1.DSteacher
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
Flat = True
Hints.Strings = (
#31532#19968#26465#35760#24405
#21069#19968#26465#35760#24405
#19979#19968#26465#35760#24405
#26368#21518#19968#26465#35760#24405
'Insert record'
'Delete record'
'Edit record'
'Post edit'
'Cancel edit'
'Refresh data')
ParentShowHint = False
ShowHint = True
TabOrder = 8
end
end
object Panel3: TPanel
Left = 0
Top = 188
Width = 522
Height = 179
Align = alClient
BevelInner = bvRaised
BevelOuter = bvLowered
Caption = 'Panel3'
TabOrder = 2
object DBGrid1: TDBGrid
Left = 2
Top = 2
Width = 518
Height = 175
Align = alClient
DataSource = DataModule1.DSteacher
FixedColor = clSkyBlue
ImeName = #20013#25991' ('#31616#20307') - '#26234#33021' ABC'
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'tname'
Title.Caption = #22995#21517
Width = 55
Visible = True
end
item
Expanded = False
FieldName = 'ssex'
Title.Caption = #24615#21035
Width = 27
Visible = True
end
item
Expanded = False
FieldName = 'age'
Title.Caption = #24180#40836
Width = 27
Visible = True
end
item
Expanded = False
FieldName = 'zhicheng'
Title.Caption = #32844#31216
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'jiaoyanshi'
Title.Caption = #25945#30740#23460
Width = 72
Visible = True
end
item
Expanded = False
FieldName = 'tel'
Title.Caption = #30005#35805
Width = 111
Visible = True
end
item
Expanded = False
FieldName = 'email'
Title.Caption = #30005#23376#37038#20214
Width = 129
Visible = True
end>
end
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -