智能排课系统vb代码
时间:2025-04-04
时间:2025-04-04
和智能智能排课系统1、2、3是一套
Vb核心代码设计
一:输入界面与代码(以班级表为例)
Dim Conn As New ADODB.Connection '连接变量
Dim SqlString As String '查询字符串
Dim Connstring As String '连接字符串
Dim RS1 As New ADODB.Recordset '记录集变量
Dim bm '定义一个变量用来存放添加记录时原来记录的位置
Dim tj As Boolean
Private Sub Command10_Click()
Form4.Hide
Form3.Show
End Sub
Private Sub Command1_Click() '移到首记录
RS1.MoveFirst
Command1.Enabled = False
Command2.Enabled = False
Command3.Enabled = True
Command4.Enabled = True
Call DispValue '显示当前记录的值
End Sub
Private Sub Command2_Click() '前移
RS1.MovePrevious
上一篇:现代高血压药物治疗策略与趋势