智能排课系统vb代码(9)

时间: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

智能排课系统vb代码(9).doc 将本文的Word文档下载到电脑

精彩图片

热门精选

大家正在看

× 游客快捷下载通道(下载后可以自由复制和排版)

限时特价:7 元/份 原价:20元

支付方式:

开通VIP包月会员 特价:29元/月

注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219