?? courseselect.dfm
字號:
object f_courseselect: Tf_courseselect
Left = 194
Top = 55
Width = 737
Height = 501
Caption = #36873#35838#31649#29702
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
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 16
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 Label2: TLabel
Left = 280
Top = 16
Width = 48
Height = 16
Caption = #23398#26399#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label3: TLabel
Left = 280
Top = 48
Width = 80
Height = 16
Caption = #25152#36873#35838#31243#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 288
Top = 384
Width = 48
Height = 16
Caption = #35838#31243#65306
Font.Charset = ANSI_CHARSET
Font.Color = clNavy
Font.Height = -16
Font.Name = #23435#20307
Font.Style = []
ParentFont = False
end
object Cmbclass: TComboBox
Left = 48
Top = 16
Width = 89
Height = 21
Style = csDropDownList
ItemHeight = 13
TabOrder = 0
OnChange = CmbclassChange
end
object DBGrid1: TDBGrid
Left = 8
Top = 48
Width = 257
Height = 409
DataSource = DataSource1
TabOrder = 1
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
Visible = True
end
item
Expanded = False
FieldName = 'name'
Title.Caption = #22995#21517
Visible = True
end
item
Expanded = False
FieldName = 'sex'
Title.Caption = #24615#21035
Visible = True
end
item
Expanded = False
FieldName = 'depart'
Title.Caption = #38498#31995
Visible = True
end
item
Expanded = False
FieldName = 'enteryear'
Title.Caption = #20837#23398#24180#20221
Visible = True
end
item
Expanded = False
FieldName = 'specialty'
Title.Caption = #19987#19994
Visible = True
end>
end
object Cmbterm: TComboBox
Left = 328
Top = 16
Width = 225
Height = 21
ItemHeight = 13
TabOrder = 2
end
object DBGrid2: TDBGrid
Left = 280
Top = 72
Width = 441
Height = 305
DataSource = DataSource2
PopupMenu = PopupMenu1
TabOrder = 3
TitleFont.Charset = DEFAULT_CHARSET
TitleFont.Color = clWindowText
TitleFont.Height = -11
TitleFont.Name = 'MS Sans Serif'
TitleFont.Style = []
Columns = <
item
Expanded = False
FieldName = 'termno'
Width = 97
Visible = True
end
item
Expanded = False
FieldName = 'courseno'
Visible = True
end
item
Expanded = False
FieldName = 'name'
Title.Caption = #35838#31243
Width = 145
Visible = True
end
item
Expanded = False
FieldName = 'credit'
Width = 41
Visible = True
end
item
Expanded = False
FieldName = 'score'
Width = 47
Visible = True
end>
end
object Cmbcourse: TComboBox
Left = 336
Top = 384
Width = 225
Height = 21
ItemHeight = 13
TabOrder = 4
end
object Btnadd: TButton
Left = 576
Top = 384
Width = 75
Height = 25
Caption = #28155#21152
TabOrder = 5
OnClick = BtnaddClick
end
object DataSource1: TDataSource
DataSet = ADOqrystudent
Left = 272
Top = 416
end
object DataSource2: TDataSource
DataSet = ADOqrycourse
Left = 344
Top = 416
end
object ADOqrycourse: TADOQuery
Active = True
Connection = mainform.ADOConnection1
CursorType = ctStatic
Parameters = <>
SQL.Strings = (
'select a.*,b.name,b.credit from courseselect a,course b'
'where b.courseno=a.courseno and a.studentno='#39's001101'#39)
Left = 376
Top = 416
object ADOqrycourseID: TAutoIncField
FieldName = 'ID'
ReadOnly = True
end
object ADOqrycoursestudentno: TStringField
DisplayLabel = #23398#21495
FieldName = 'studentno'
FixedChar = True
Size = 7
end
object ADOqrycoursecourseno: TStringField
DisplayLabel = #35838#31243#32534#21495
FieldName = 'courseno'
FixedChar = True
Size = 6
end
object ADOqrycoursetermno: TStringField
DisplayLabel = #23398#26399
FieldName = 'termno'
Size = 30
end
object ADOqrycoursescore: TIntegerField
DisplayLabel = #25104#32489
FieldName = 'score'
end
object ADOqrycoursename: TStringField
DisplayLabel = #22995#21517
FieldName = 'name'
Size = 50
end
object ADOqrycoursecredit: TIntegerField
DisplayLabel = #23398#20998
FieldName = 'credit'
end
end
object ADOQuery1: TADOQuery
Connection = mainform.ADOConnection1
Parameters = <>
Left = 408
Top = 416
end
object ADOqrystudent: TADOQuery
Active = True
Connection = mainform.ADOConnection1
CursorType = ctStatic
AfterScroll = ADOqrystudentAfterScroll
Parameters = <>
SQL.Strings = (
'select * from student order by studentno')
Left = 304
Top = 416
end
object PopupMenu1: TPopupMenu
Left = 520
Top = 224
object N3: TMenuItem
Caption = #21024#38500#36873#35838
OnClick = N3Click
end
end
object ADOQuery2: TADOQuery
Connection = mainform.ADOConnection1
Parameters = <>
Left = 440
Top = 416
end
end
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -