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

和智能智能排课系统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 '连接变量