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

时间:2025-04-05

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

If Not IsNull(Rs.Fields(j).Value) Then '如果列中的数据不为空,切记不能用如 if Var1=Null来判断变量Var1的值是否为Null

Dgrid.TextMatrix(RowNum - 1, j) = Rs.Fields(j).Value '把列的数据显示在MsFlexGrid的相应网格中

End If

Next j

Rs.MoveNext '记录指针下移

Loop

Command2.Enabled = False

End Sub

Private Sub Command3_Click()

Form14.Hide

Form3.Show

End Sub

Private Sub Command4_Click()

RS1.Close '关闭记录集

Conn.Close '关闭连接

Text1.Text = ""

Command1.Enabled = True '连接按钮不可用

Command2.Enabled = True '显示数据可用

End Sub

Private Sub Command5_Click()

DataReport1.Show vbModal, Me

End Sub

3、查看初始化窗口及代码

Option Explicit

Dim SQL As String

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

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

精彩图片

热门精选

大家正在看

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

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

支付方式:

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

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