智能排课系统vb代码(9)
时间:2025-04-05
时间:2025-04-05
和智能智能排课系统1、2、3是一套
Conn.Execute SQL
End If
If Check6.Value = 1 Then '如果排课信息表被选中
'删除全部联系人信息数据
SQL = "delete from 排课表"
Conn.Execute SQL
End If
Next Counnter
ProgressBar1.Visible = False
ProgressBar1.Value = ProgressBar1.Min
End Sub
Private Sub CmdExit_Click()
'退出操作
Form15.Hide
Form3.Show
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出操作
Form15.Hide
Form3.Show
End Sub
4、查看自动排课窗口及代码
Dim Conn As New ADODB.Connection '连接变量
Dim SqlString As String '查询字符串
Dim Connstring As String
Dim dlaytime As Integer
Private Sub Command2_Click()
Dim SQL As String
上一篇:现代高血压药物治疗策略与趋势