前言:
在机房收费系统中,查询到学生记录后选择进行修改就会跳转到这个修改界面!
这里有确认修改和取消修改两个按钮,当时不知道怎么去实现,后来通过反复看之前的窗体代码,自己慢慢有点体会!
过程:
Dim txtSQL As String
Dim MsgText As String
Dim mrc As New ADODB.Recordset
txtSQL = "select * from charge_sys.dbo.student_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)
创建两个字符型变量,txtSQL 用来存储SQL语句,MsgText用来返回是否执行成功,这个返回值不是给编程用,而是为了判断是否查询成功,存储查询成功或是失败的一些信息。
如
mrc是执行SQL语句后查询到的记录集,对应数据库的部分!
确定修改的伪代码:
1.在窗体进行信息修改,然后,建立记录集,将这些信息放到查询出的记录集里面!
2.将记录集的信息更新到数据里!
3.关闭记录集
4.提示用户 “你已经成功修改”
取消修改的伪代码:
1.根据卡号(唯一不可修改项)进行查询,查询的结果放到记录集里面
2.然后将记录集的内容分别显示到控件里面
3.关闭结果集
4.提示用户 “您已经成功取消修改”
结果:
这部分一开始头大,不知道怎么实现,回头一看学生的代码,就懂了怎么写,也明白了学生里为什么那样写了!