博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
菜鸟初始代码旅程——修改记录
阅读量:6513 次
发布时间:2019-06-24

本文共 1761 字,大约阅读时间需要 5 分钟。

在开发系统之前,首先是对界面进行设计,根据界面我们能了解里面有什么功能?

如上面的窗体,第一排按钮是为了方便浏览数据库中各条记录,第二排按钮是为了对班级信息进行修改!在这里要对班级信息进行修改,则包括修改和更新的这两部分,更新是指将你对原有的数据进行了修改之后,然后刷新,显示修改之后的数据!所以修改之后,才能更新成功!

1.先点击修改记录按钮,对数据进行修改

Private Sub editCommand_Click()    mcclean = False    Frame2.Enabled = False    firstCommand.Enabled = False    previousCommand.Enabled = False    nextCommand.Enabled = False    lastCommand.Enabled = False            txtClassno.Enabled = True    comboGrade.Enabled = True    txtDirector.Enabled = True    txtClassroom.Enabled = True        comboGrade.AddItem "初中一年级"    comboGrade.AddItem "初中二年级"    comboGrade.AddItem "初中三年级"    comboGrade.AddItem "高中一年级"    comboGrade.AddItem "高中二年级"    comboGrade.AddItem "高中三年级"        myBookmark = mrc.BookmarkEnd Sub

如果没有修改则提示请修改记录,如修改了则按照下面的进行!

mrc.Delete    txtSQL = "select * from class_Info where class_No = '" & Trim(txtClassno.Text) & "'"    Set mrcc = ExecuteSQL(txtSQL, MsgText)    If mrcc.EOF = False Then        MsgBox "班号重复,请重新输入!", vbOKOnly + vbExclamation, "警告"        mrcc.Close        txtClassno.SetFocus    Else        mrcc.Close '关闭连接                mrc.AddNew        mrc.Fields(0) = Trim(txtClassno.Text)        mrc.Fields(1) = Trim(comboGrade.Text)        mrc.Fields(2) = Trim(txtDirector.Text)        mrc.Fields(3) = Trim(txtClassroom.Text)        mrc.Update        MsgBox "修改班级信息成功!", vbOKOnly + vbExclamation, "警告"                mrc.Bookmark = myBookmark   '保持原来标签的位置        Call viewData

先删除原有的记录,然后查询判断输入的班号是否重复!如果重复了,给出提示!重新输入!如果不重复,则关闭mrcc记录集对象,添加数据到mrc临时表中当中,标签保持原来的位置,因为每一条都需要显示数据,所以定义了一个ViewData函数用来显示数据!这样数据表最后就Update成功了!

我们理解代码的时候,要进行多思考!修改记录,我们是要达到什么样的效果?我们所需要进行的操作有哪些?还有的就是,如何才能给用户带来更大的方便?

 

posted on
2012-08-24 14:33 阅读(
...) 评论(
...)

转载于:https://www.cnblogs.com/mingxuanyun/archive/2012/08/24/3084251.html

你可能感兴趣的文章
CentOS 5 (64位)下lnmp平台搭建
查看>>
redhat 6.5 配置WAS控制台中文
查看>>
mysql实现vsftp虚拟用户访问
查看>>
记录一次处理https监听不正确的过程
查看>>
SCOM 2012 SP1服务器上安装和配置Veeam MP for VMware
查看>>
多核编程的四层境界
查看>>
Windows Phone 实用开发技巧(11):让StackPanel中的控件靠右对齐
查看>>
小记如何修改xen模块
查看>>
实时游戏对战引擎Photon
查看>>
C语言位操作控件属性
查看>>
nginx的安装及基本配置,及多个域名服务
查看>>
Servlet访问postgresql数据库并提取数据显示在前端jsp页面
查看>>
不改一行代码定位线上性能问题
查看>>
定义运算符
查看>>
git管理
查看>>
idea演示
查看>>
告别暗黄皮肤变水嫩皮肤的8个小习惯
查看>>
加强Eclipse代码自动提示的方法
查看>>
GNS3-地址重叠环境中部署IPsec
查看>>
exchange online 用户疑问之许可证和用户数据归档
查看>>