智能排课系统vb代码(3)
时间:2025-04-05
时间:2025-04-05
和智能智能排课系统1、2、3是一套
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("真的要取消修改吗?", vbQuestion + vbYesNo)) = vbYes Then
RS1.CancelUpdate
If tj Then '如果是增加新记录
RS1.Bookmark = bm '把记录指针移动到原来的位置
End If
Call DispValue '显示当前记录的值
Call OkStatus '置按钮和文本框状态
End If
End Sub
Private Sub Form_Load()
Connstring = "Driver={SQL Server};Server=PC2012110412ewr.;Database=GXPK;" _
& "uid =sa;pwd=t123" 'SQL Server普通安全模式建立到Pubs数据库的连接的连接字符串
'设置连接字符串
With Conn
.ConnectionString = Connstring '给ConnectionString属性赋值
.ConnectionTimeout = 10
.Open '给连接的ConnectionString属性赋值,然后使用求带参数的Open方法打开连接 End With
MsgBox ("连接成功")
RS1.CursorType = adOpenDynamic
RS1.CursorLocation = adUseClient '游标服务的位置、默认值adUseServer。游标用于:控制记录定位、控制其他用户对数据库所作的更改的可视性、控制数据可更新性
RS1.LockType = adLockOptimistic
RS1.Open "班级信息表", Conn, 3, 3
上一篇:现代高血压药物治疗策略与趋势