智能排课系统vb代码.doc

可修改 欢迎下载 精品 Word 可修改 欢迎下载 精品 Word 可修改 欢迎下载 精品 Word 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 If RS1.BOF Then RS1.MoveFirst Command1.Enabled = False Command2.Enabled = False End If Command3.Enabled = True Command4.Enabled = True Call DispValue 显示当前记录的值 End Sub Private Sub Command3_Click() 后移 RS1.MoveNext If RS1.EOF Then RS1.MoveLast Command3.Enabled = False Command4.Enabled = False End If Command1.Enabled = True Command2.Enabled = True Call DispValue 显示当前记录的值 End Sub Private Sub Command4_Click() 移到末记录 RS1.MoveLast Command3.Enabled = False Command4.Enabled = False Command1.Enabled = True Command2.Enabled = True Call DispValue 显示当前记录的值 End Sub Private Sub Command5_Click() 删除记录 If (MsgBox(真的要删除该记录吗？, vbQuestion + vbYesNo, 删除提示) = vbYes) Then RS1.Delete 删除 RS1.MoveNext If RS1.EOF Then 如果删除的是末记录 RS1.MoveLast End If End If Call DispValue 显示当前记录的值 End Sub Private Sub Command6_Click() 添加记录 bm = RS1.Bookmark 用书签记下当前记录位置 RS1.AddNew 调用AddNew方法增加新记录 Call EditStatus 置按钮和文本框状态 Call EmptyText 清空文本框 tj = True 是添加新记录 End Sub Private Sub Command7_Click() 修改记录 Call EditStatus 置按钮和文本框状态 tj = False 不是添加记录，是修改记录 End Sub Private Sub Command8_Click() 确定操作 Call SetValue 给各字段赋值 RS1.Update 调用Update方法保存 Call OkStatus 置按钮和文本框状态 MsgBox (保存成功) 给出保存成功提示 End Sub Private Sub Command9_Click() 取消操作 If (MsgBox(真的