📄 insertstudent.~dfm
字号:
object Form3: TForm3
Left = 208
Top = 56
Width = 773
Height = 628
Caption = #23398#29983#24773#20917#24405#20837
Color = clInfoBk
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object TLabel
Left = 224
Top = 136
Width = 3
Height = 13
end
object Panel1: TPanel
Left = 16
Top = 280
Width = 745
Height = 305
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 0
object Label1: TLabel
Left = 16
Top = 16
Width = 41
Height = 13
AutoSize = False
Caption = #23398#21495#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 504
Top = 16
Width = 65
Height = 13
AutoSize = False
Caption = #29677#32423#21517#31216#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 184
Top = 16
Width = 36
Height = 13
Caption = #22995#21517#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label14: TLabel
Left = 384
Top = 16
Width = 36
Height = 13
AutoSize = False
Caption = #24615#21035#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 16
Top = 48
Width = 60
Height = 13
Caption = #20986#29983#24180#26376#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 176
Top = 48
Width = 12
Height = 13
Caption = #24180
end
object Label12: TLabel
Left = 256
Top = 48
Width = 12
Height = 13
Caption = #26376
end
object Label13: TLabel
Left = 336
Top = 48
Width = 12
Height = 13
Caption = #26085
end
object Label6: TLabel
Left = 384
Top = 48
Width = 36
Height = 13
Caption = #31821#36143#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 16
Top = 84
Width = 60
Height = 13
Caption = #23478#24237#20303#22336#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 488
Top = 80
Width = 60
Height = 13
Caption = #23478#24237#30005#35805#65306
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 16
Top = 112
Width = 65
Height = 13
AutoSize = False
Caption = #23478#24237#24773#20917#65306
end
object Label10: TLabel
Left = 16
Top = 176
Width = 36
Height = 13
Caption = #22791#27880#65306
end
object Label7: TLabel
Left = 24
Top = 272
Width = 289
Height = 13
AutoSize = False
Caption = ' '#35828#26126#65306#20854#20013#30340#32418#23383#37096#20998#20026#24517#39035#22635#30340#23383#27573
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object num: TEdit
Left = 56
Top = 8
Width = 121
Height = 21
TabOrder = 0
OnChange = numChange
end
object cName: TComboBox
Left = 576
Top = 8
Width = 145
Height = 21
ItemHeight = 13
TabOrder = 1
Text = #19968#29677
Items.Strings = (
#19968#29677
#20108#29677)
end
object uName: TEdit
Left = 224
Top = 8
Width = 145
Height = 21
TabOrder = 2
end
object sex: TComboBox
Left = 424
Top = 8
Width = 57
Height = 21
ItemHeight = 13
TabOrder = 3
Text = #30007
Items.Strings = (
#30007
#22899)
end
object year: TComboBox
Left = 88
Top = 40
Width = 81
Height = 21
ItemHeight = 13
TabOrder = 4
Text = '1982'
Items.Strings = (
'1982'
'1983'
'1984'
'1985'
'1986'
'1987'
'1988'
'1989'
'1990')
end
object month: TComboBox
Left = 200
Top = 40
Width = 49
Height = 21
ItemHeight = 13
TabOrder = 5
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12')
end
object date: TComboBox
Left = 280
Top = 40
Width = 49
Height = 21
ItemHeight = 13
TabOrder = 6
Text = '1'
Items.Strings = (
'1'
'2'
'3'
'4'
'5'
'6'
'7'
'8'
'9'
'10'
'11'
'12'
'13'
'14'
'15'
'16'
'17'
'18'
'19'
'20'
'21'
'22'
'23'
'24'
'25'
'26'
'27'
'28'
'29'
'30'
'31')
end
object home: TEdit
Left = 424
Top = 44
Width = 297
Height = 21
TabOrder = 7
end
object adress: TEdit
Left = 80
Top = 76
Width = 393
Height = 21
TabOrder = 8
end
object telephone: TEdit
Left = 552
Top = 76
Width = 169
Height = 21
TabOrder = 9
end
object infoMemo: TMemo
Left = 80
Top = 104
Width = 521
Height = 57
Lines.Strings = (
'')
TabOrder = 10
end
object stateMemo: TMemo
Left = 80
Top = 176
Width = 521
Height = 73
Lines.Strings = (
'')
ScrollBars = ssBoth
TabOrder = 11
end
object Button1: TButton
Left = 632
Top = 112
Width = 75
Height = 25
Caption = #30830#23450
TabOrder = 12
OnClick = Button1Click
end
object Button2: TButton
Left = 632
Top = 152
Width = 75
Height = 25
Caption = #37325#32622
TabOrder = 13
OnClick = Button2Click
end
object Button3: TButton
Left = 632
Top = 232
Width = 75
Height = 25
Caption = #36864#20986
TabOrder = 14
OnClick = Button3Click
end
object Button4: TButton
Left = 632
Top = 192
Width = 75
Height = 25
Caption = #36820#22238
TabOrder = 15
OnClick = Button4Click
end
end
object Panel2: TPanel
Left = 16
Top = 8
Width = 745
Height = 265
BevelOuter = bvLowered
Color = clSkyBlue
TabOrder = 1
object DBGrid1: TDBGrid
Left = 16
Top = 8
Width = 713
Height = 201
DataSource = DataSource1
ReadOnly = True
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object DBNavigator1: TDBNavigator
Left = 16
Top = 224
Width = 304
Height = 25
DataSource = DataSource1
VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbDelete, nbPost, nbCancel, nbRefresh]
TabOrder = 1
end
end
object insertQry: TADOQuery
Connection = ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'')
Left = 200
end
object ADOConnection1: TADOConnection
Connected = True
ConnectionString =
'Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin;Data Source=kaoSh' +
'i.mdb;Mode=Share Deny None;Extended Properties="";Persist Securi' +
'ty Info=False;Jet OLEDB:System database="";Jet OLEDB:Registry Pa' +
'th="";Jet OLEDB:Database Password="";Jet OLEDB:Engine Type=5;Jet' +
' OLEDB:Database Locking Mode=1;Jet OLEDB:Global Partial Bulk Ops' +
'=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database P' +
'assword="";Jet OLEDB:Create System Database=False;Jet OLEDB:Encr' +
'ypt Database=False;Jet OLEDB:Don'#39't Copy Locale on Compact=False;' +
'Jet OLEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=Fal' +
'se'
LoginPrompt = False
Mode = cmShareDenyNone
Provider = 'Microsoft.Jet.OLEDB.4.0'
Left = 112
end
object DataSource1: TDataSource
DataSet = stuTb
Left = 520
Top = 488
end
object stuTb: TADOTable
Active = True
Connection = ADOConnection1
CursorType = ctStatic
TableName = 'student'
Left = 472
Top = 488
end
end
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -