智能排课系统vb代码(5)
时间:2025-04-05
时间:2025-04-05
和智能智能排课系统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 '连接变量
上一篇:现代高血压药物治疗策略与趋势