?? classu.dfm
字號:
object F_class: TF_class
Left = 264
Top = 163
Width = 710
Height = 532
Caption = #29677#32423#20449#24687
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 Label2: TLabel
Left = 448
Top = 50
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 Label3: TLabel
Left = 448
Top = 82
Width = 48
Height = 16
Caption = #23398#21382#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 448
Top = 116
Width = 80
Height = 16
Caption = #20837#23398#24180#20221#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 448
Top = 146
Width = 64
Height = 16
Caption = #29677#20027#20219#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 448
Top = 19
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 Label8: TLabel
Left = 448
Top = 179
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 DBGrid1: TDBGrid
Left = 8
Top = 8
Width = 433
Height = 361
DataSource = DataSource1
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 0
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
end
object Btnadd: TButton
Left = 456
Top = 214
Width = 75
Height = 25
Caption = #28155#21152
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 1
OnClick = BtnaddClick
end
object Btndlt: TButton
Left = 456
Top = 246
Width = 75
Height = 25
Caption = #21024#38500
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -13
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = BtndltClick
end
object Edclassno: TEdit
Left = 496
Top = 16
Width = 81
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 3
end
object Edspec: TEdit
Left = 496
Top = 176
Width = 145
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
TabOrder = 4
end
object Cmbdepart: TComboBox
Left = 496
Top = 48
Width = 145
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 13
TabOrder = 5
OnChange = CmbdepartChange
Items.Strings = (
#20449#24687#31995
#35745#31639#26426#31995
#31649#29702#31995)
end
object Cmbdegree: TComboBox
Left = 496
Top = 80
Width = 145
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 13
TabOrder = 6
Items.Strings = (
#19987#31185
#26412#31185
#30740#31350#29983)
end
object Cmbyear: TComboBox
Left = 520
Top = 112
Width = 121
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 13
TabOrder = 7
Items.Strings = (
'1999'
'2000'
'2001'
'2002'
'2003'
'2004'
'2005')
end
object Cmbteacher: TComboBox
Left = 512
Top = 144
Width = 129
Height = 21
ImeName = #20013#25991' ('#31616#20307') - '#24494#36719#25340#38899
ItemHeight = 13
TabOrder = 8
end
object DataSource1: TDataSource
DataSet = ADOQryClass
Left = 200
Top = 232
end
object ADOQryClass: TADOQuery
Active = True
Connection = mainform.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.name '
'from class a,teacher b'
'where b.teacherno=a.teacherno')
Left = 168
Top = 232
object ADOQryClassclassno: TStringField
DisplayLabel = #29677#21495
DisplayWidth = 5
FieldName = 'classno'
FixedChar = True
Size = 4
end
object ADOQryClassdepart: TStringField
DisplayLabel = #38498#31995
DisplayWidth = 17
FieldName = 'depart'
end
object ADOQryClasstype: TStringField
DisplayLabel = #23398#21382
DisplayWidth = 6
FieldName = 'type'
Size = 10
end
object ADOQryClassenteryear: TIntegerField
DisplayLabel = #20837#23398#24180#20221
DisplayWidth = 10
FieldName = 'enteryear'
end
object ADOQryClassname: TStringField
DisplayLabel = #29677#20027#20219
DisplayWidth = 11
FieldName = 'name'
Size = 50
end
object ADOQryClassspecialty: TStringField
DisplayLabel = #19987#19994
DisplayWidth = 22
FieldName = 'specialty'
end
end
object ADOQe: TADOQuery
Connection = mainform.ADOConnection1
Parameters = <>
Left = 216
Top = 376
end
object ADOQe2: TADOQuery
Connection = mainform.ADOConnection1
Parameters = <>
Left = 296
Top = 376
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -