【VB开源代码栏目提醒】:网学会员鉴于大家对VB开源代码十分关注,论文会员在此为大家搜集整理了“A班级课程信息.frm”一文,供大家参考学习
VERSION 5.00
Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
Begin VB.Form frmcourseInfo
Caption = "班级课程信息"
ClientHeight = 6000
ClientLeft = 60
ClientTop = 345
ClientWidth = 9435
LinkTopic = "Form1"
ScaleHeight = 6000
ScaleWidth = 9435
StartUpPosition = 3 '窗口缺省
Begin VB.Frame Frame1
Caption = "班级课程信息"
Height = 5835
Left = 120
TabIndex = 0
Top = 0
Width = 9195
Begin VB.ComboBox CboQuery
Height = 300
Left = 3000
TabIndex = 13
Top = 240
Width = 2055
End
Begin VB.Frame Frame2
Height = 2685
Left = 240
TabIndex = 1
Top = 2880
Width = 8685
Begin VB.TextBox txtTotal
BackColor = &H8000000F&
Height = 375
Left = 3840
TabIndex = 20
Top = 240
Width = 855
End
Begin VB.TextBox txtPerWeek
BackColor = &H8000000F&
Height = 375
Left = 6000
TabIndex = 19
Top = 240
Width = 735
End
Begin VB.ComboBox CboWeek
Height = 315
Index = 0
Left = 1200
TabIndex = 18
Top = 840
Width = 1695
End
Begin VB.ComboBox CboWeek
Height = 300
Index = 1
Left = 3600
TabIndex = 17
Top = 840
Width = 1695
End
Begin VB.ComboBox CboTeacher
Height = 300
Left = 1200
TabIndex = 16
Top = 1320
Width = 1695
End
Begin VB.ComboBox CboCourse
Height = 315
Left = 1200
TabIndex = 15
Top = 240
Width = 1695
End
Begin
VB.CommandButton CmdMove
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 3
Left = 2295
Picture = "A班级课程信息.frx":0000
Style = 1 'Graphical
TabIndex = 11
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 2
Left = 1620
Picture = "A班级
课程信息.frx":15AD
Style = 1 'Graphical
TabIndex = 10
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 1
Left = 945
Picture = "A班级课程信息.frx":2AB1
Style = 1 'Graphical
TabIndex = 9
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdMove
BackColor = &H00FFC0C0&
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 360
Index = 0
Left = 270
Picture = "A班级课程信息.frx":3FE3
Style = 1 'Graphical
TabIndex = 8
Top = 2040
Width = 675
End
Begin VB.CommandButton CmdModify
BackColor = &H00C0C0C0&
Caption = "修改"
Height = 360
Left = 4170
Style = 1 'Graphical
TabIndex = 7
Top = 2055
Width = 800
End
Begin VB.CommandButton CmdExit
BackColor = &H00C0C0C0&
Caption = "退出"
Height = 360
Left = 7335
Style = 1 'Graphical
TabIndex = 6
Top = 2055
Width = 800
End
Begin VB.CommandButton CmdCancel
BackColor = &H00C0C0C0&
Caption = "取消"
Height = 360
Left = 6540
Style = 1 'Graphical
TabIndex = 5
Top = 2055
Width = 800
End
Begin VB.CommandButton CmdDelete
BackColor = &H00C0C0C0&
Caption = "删除"
Height = 360
Left = 4965
Style = 1 'Graphical
TabIndex = 4
Top = 2055
Width = 800
End
Begin VB.CommandButton CmdAdd
BackColor = &H00C0C0C0&
Caption = "添加"
Height = 360
Left = 3360
Style = 1 'Graphical
TabIndex = 3
Top = 2055
Width = 800
End
Begin VB.CommandButton CmdSave
BackColor = &H00C0C0C0&
Caption = "保存"
Enabled = 0 'False
Height = 360
Left = 5745
Style = 1 'Graphical
TabIndex = 2
Top = 2055
Width = 800
End
Begin VB.Label Label2
Caption = "课程名称:"
Height = 255
Left = 240
TabIndex = 26
Top = 240
Width = 975
End
Begin VB.Label Label3
Caption = "总节数:"
Height = 375
Left = 3120