确定修改——取消修改

前言:

在机房收费系统中,查询到学生记录后选择进行修改就会跳转到这个修改界面!
这里有确认修改和取消修改两个按钮,当时不知道怎么去实现,后来通过反复看之前的窗体代码,自己慢慢有点体会!
这里写图片描述

过程:

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.提示用户  “您已经成功取消修改”

结果:

这部分一开始头大,不知道怎么实现,回头一看学生的代码,就懂了怎么写,也明白了学生里为什么那样写了!

猜你喜欢

转载自blog.csdn.net/zhaofen_7/article/details/79660440