?? student.dfm
字號:
object F_student: TF_student
Left = 166
Top = 134
Width = 698
Height = 502
Caption = #23398#29983#36164#26009
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
FormStyle = fsMDIChild
OldCreateOrder = False
Position = poDefault
Visible = True
WindowState = wsMaximized
OnClose = FormClose
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 496
Top = 176
Width = 48
Height = 16
Caption = 'ID'#21495#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 496
Top = 202
Width = 48
Height = 16
Caption = #23398#21495#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 496
Top = 259
Width = 48
Height = 16
Caption = #24615#21035#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 496
Top = 287
Width = 48
Height = 16
Caption = #29983#26085#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 496
Top = 229
Width = 48
Height = 16
Caption = #22995#21517#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label8: TLabel
Left = 496
Top = 318
Width = 48
Height = 16
Caption = #38498#31995#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 496
Top = 345
Width = 48
Height = 16
Caption = #29677#21495#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label7: TLabel
Left = 496
Top = 371
Width = 48
Height = 16
Caption = #20837#23398#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label9: TLabel
Left = 496
Top = 400
Width = 48
Height = 16
Caption = #19987#19994#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Image1: TImage
Left = 640
Top = 200
Width = 33
Height = 105
end
object DBEdit1: TDBEdit
Left = 536
Top = 173
Width = 89
Height = 23
Color = clScrollBar
DataField = 'ID'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 0
end
object DBEdit2: TDBEdit
Left = 536
Top = 201
Width = 89
Height = 23
DataField = 'studentno'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 1
end
object DBEdit3: TDBEdit
Left = 536
Top = 229
Width = 89
Height = 23
DataField = 'name'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 2
end
object DBEdit6: TDBEdit
Left = 536
Top = 283
Width = 89
Height = 23
DataField = 'birthday'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 3
end
object DBGrid1: TDBGrid
Left = 0
Top = 40
Width = 489
Height = 385
DataSource = DataSource1
TabOrder = 4
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'studentno'
Title.Caption = #23398#21495
Width = 60
Visible = True
end
item
Expanded = False
FieldName = 'name'
Title.Caption = #22995#21517
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'sex'
Title.Caption = #24615#21035
Width = 35
Visible = True
end
item
Expanded = False
FieldName = 'birthday'
Title.Caption = #29983#26085
Width = 68
Visible = True
end
item
Expanded = False
FieldName = 'depart'
Title.Caption = #38498#31995
Width = 51
Visible = True
end
item
Expanded = False
FieldName = 'enteryear'
Title.Caption = #20837#23398#24180#20221
Width = 59
Visible = True
end
item
Expanded = False
FieldName = 'classno'
Title.Caption = #29677#21495
Width = 40
Visible = True
end
item
Expanded = False
FieldName = 'specialty'
Title.Caption = #19987#19994
Width = 74
Visible = True
end>
end
object DBEdit4: TDBEdit
Left = 536
Top = 340
Width = 89
Height = 23
DataField = 'classno'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 5
end
object DBEdit8: TDBEdit
Left = 536
Top = 368
Width = 89
Height = 23
DataField = 'enteryear'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 6
end
object DBEdit9: TDBEdit
Left = 536
Top = 397
Width = 121
Height = 23
DataField = 'specialty'
DataSource = DataSource1
Font.Charset = GB2312_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 7
end
object DBImage1: TDBImage
Left = 496
Top = 40
Width = 129
Height = 129
DataField = 'photo'
DataSource = DataSource2
TabOrder = 8
end
object Btnimport: TButton
Left = 632
Top = 140
Width = 48
Height = 25
Caption = #23548#20837
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 9
end
object Panel1: TPanel
Left = 0
Top = 0
Width = 690
Height = 37
Align = alTop
TabOrder = 10
object Label10: TLabel
Left = 16
Top = 9
Width = 48
Height = 16
Caption = #38498#31995#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label11: TLabel
Left = 176
Top = 9
Width = 48
Height = 16
Caption = #29677#32423#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label12: TLabel
Left = 344
Top = 9
Width = 80
Height = 16
Caption = #23398#29983#22995#21517#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Btnqry: TButton
Left = 512
Top = 8
Width = 75
Height = 25
Caption = #26597#35810
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = BtnqryClick
end
object Cmbdepart: TComboBox
Left = 64
Top = 8
Width = 105
Height = 21
ItemHeight = 13
TabOrder = 1
Text = #20840#37096
OnChange = CmbdepartChange
Items.Strings = (
#20840#37096
#20449#24687#31995
#35745#31639#26426#31995
#31649#29702#31995)
end
object Cmbclass: TComboBox
Left = 224
Top = 8
Width = 105
Height = 21
ItemHeight = 13
TabOrder = 2
Text = #20840#37096
end
object Edname: TEdit
Left = 424
Top = 8
Width = 73
Height = 21
TabOrder = 3
end
end
object Btnadd: TButton
Left = 56
Top = 432
Width = 75
Height = 25
Caption = #28155#21152
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 11
OnClick = BtnaddClick
end
object Btnedt: TButton
Left = 144
Top = 432
Width = 75
Height = 25
Caption = #20462#25913
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 12
OnClick = BtnedtClick
end
object Btndlt: TButton
Left = 232
Top = 432
Width = 75
Height = 25
Caption = #21024#38500
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 13
OnClick = BtndltClick
end
object Btnsav: TButton
Left = 320
Top = 432
Width = 75
Height = 25
Caption = #20445#23384
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
TabOrder = 14
OnClick = BtnsavClick
end
object DBComboBox1: TDBComboBox
Left = 536
Top = 256
Width = 65
Height = 21
DataField = 'sex'
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#30007
#22899)
TabOrder = 15
end
object DBComboBox2: TDBComboBox
Left = 536
Top = 312
Width = 89
Height = 21
DataField = 'depart'
DataSource = DataSource1
ItemHeight = 13
Items.Strings = (
#20449#24687#31995
#35745#31639#26426#31995
#31649#29702#31995)
TabOrder = 16
end
object DataSource1: TDataSource
DataSet = ADOQryStu
Left = 560
Top = 432
end
object OpenPictureDialog1: TOpenPictureDialog
Left = 504
Top = 432
end
object ADOQe: TADOQuery
Connection = mainform.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from student')
Left = 360
Top = 264
end
object ADOQryStu: TADOQuery
Active = True
Connection = mainform.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select * from student')
Left = 312
Top = 368
object ADOQryStustudentno: TStringField
FieldName = 'studentno'
FixedChar = True
Size = 7
end
object ADOQryStuname: TStringField
FieldName = 'name'
FixedChar = True
Size = 10
end
object ADOQryStusex: TStringField
FieldName = 'sex'
FixedChar = True
Size = 2
end
object ADOQryStubirthday: TDateTimeField
FieldName = 'birthday'
end
object ADOQryStudepart: TStringField
FieldName = 'depart'
FixedChar = True
Size = 10
end
object ADOQryStuenteryear: TIntegerField
FieldName = 'enteryear'
end
object ADOQryStuclassno: TStringField
FieldName = 'classno'
FixedChar = True
Size = 4
end
object ADOQryStuspecialty: TStringField
FieldName = 'specialty'
FixedChar = True
Size = 10
end
object ADOQryStuphoto: TBlobField
FieldName = 'photo'
end
object ADOQryStupassword: TStringField
FieldName = 'password'
end
object ADOQryStuID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
end
object ADOTable1: TADOTable
Active = True
Connection = mainform.ADOConnection1
CursorType = ctStatic
TableName = 'student'
Left = 640
Top = 72
end
object DataSource2: TDataSource
DataSet = ADOTable1
Left = 640
Top = 48
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -