和智能智能排课系统1、2、3是一套

Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Command5.Enabled = False

Command6.Enabled = False

Command7.Enabled = False

Command8.Enabled = True

Command9.Enabled = True

Call TextEnable

End Sub

Private Sub EmptyText() '清空文本框

Text1.Text = ""

Text2.Text = ""

Text5.Text = ""

Text7.Text = ""

End Sub

Private Sub OkStatus() '设置不在编辑或添加记录时的各控件状态

Command1.Enabled = True

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

Command5.Enabled = True

Command6.Enabled = True

Command7.Enabled = True

Command8.Enabled = False

Command9.Enabled = False

Call TextDisable

End Sub

2、查看课表窗口及代码（以教室课表为例）

Dim Conn As New ADODB.Connection '连接变量