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