一、前言

在项目验收的前一天晚上，我发现了一个宝贝。而且我还发现，居然有很多小伙伴没有注意到这个“修改”按钮！！！

二、功能

个人觉得它的功能很厉害：在“操作员工作记录”中查询到符合条件的数据后，如果想要对其进行相应的修改，就用到了“修改”这个功能。

它是这样工作滴：

1）在查询结果中选择一行数据，点击修改按钮；

2）被选择的信息赋值到修改窗体中，可以进行相应修改；

3）修改完成后，新的数据还要更新到查询结果中。

这就完成了修改。

”见字如面“：

1）选择：

2）修改：

3）点击“确定修改”后：

三、实现过程

我们一共只需要做四件事儿。

1.在查询结果中可以选中一行数据

代码：

    MSHFlexGrid1.SelectionMode = flexSelectionByRow      '单击时选择整行MSHFlexGrid1.FocusRect = flexFocusNone                '在当前但愿的周围画一个焦点框MSHFlexGrid1.HighLight = flexHighlightWithFocus       '该值决定了所选定的单元是否突出显示

2.定义一个MSHFlexGrid1控件的鼠标选择事件

Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)tmpselect = TrueEnd Sub

3.在“修改”按钮中添加提示代码

Private Sub cmdEdit_Click()Dim tmpselect As Boolean'选择了数据才进行修改If tmpselect = True ThenTmpCardno = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.RowSel, 0)        '选择一行数据frmmodifysinfo.Show                                                '显示修改信息窗体                                                               '显示修改信息窗体ElseMsgBox "请先选择数据，再进行修改！", , "温馨提示"Exit SubEnd IfEnd Sub

4.在模块中定义2个全局变量

Public TmpCardno As String              'TmpCardno我称它为“临时卡号”，是您选择的那行数据的第0列的值
Public tmpLoad As String                'tmpLoad是在“修改信息窗体”添加的子过程

（注：子过程怎么添加？答：“工具”----“添加过程”----命名、“添加子过程”）

子过程代码：

Public Sub tmpLoad()Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If mrc.EOF ThenMsgBox "加载信息不存在，请确认后重新操作！", , "温馨提示"ElsetxtStudentno.Text = mrc!studentNotxtName.Text = mrc!studentNamecomboSex.Text = mrc!sextxtDepartment.Text = mrc!departmenttxtGrade.Text = mrc!gradetxtClass.Text = mrc!ClasstxtCardno.Text = mrc!cardnotxtCash.Text = mrc!cashtxtStatus.Text = mrc!StatustxtExplain.Text = mrc!explaincomboType.Text = mrc!Typemrc.CloseEnd IfEnd Sub

”确认修改“：

Private Sub cmdOK_Click()Dim txtSQL As StringDim MsgText As StringDim mrc As ADODB.RecordsettxtSQL = "select * from student_Info where cardno='" & Trim(TmpCardno) & "'"Set mrc = ExecuteSQL(txtSQL, MsgText)If Not (mrc.BOF Or mrc.EOF) Thenmrc.Fields(0) = Trim(txtCardno.Text)mrc.Fields(1) = Trim(txtStudentno.Text)mrc.Fields(2) = Trim(txtName.Text)mrc.Fields(3) = Trim(comboSex.Text)mrc.Fields(4) = Trim(txtDepartment.Text)mrc.Fields(5) = Trim(txtGrade.Text)mrc.Fields(6) = Trim(txtClass.Text)mrc.Fields(7) = Trim(txtCash.Text)mrc.Fields(8) = Trim(txtExplain.Text)mrc.Fields(10) = Trim(txtStatus.Text)mrc.Fields(14) = Trim(comboType.Text)mrc.Updatemrc.CloseEnd IfMe.Hide'修改信息后，重新加载到基本信息维护窗体的查询结果中frmbasicinformationmaintenance.cmdInquire.Value = TrueEnd Sub

【机房收费系统】---修改信息相关推荐

01可行性研究报告（机房收费系统V2.1）
1. 引言 1.1 编写目的此可行性研究报告对<机房收费管理系统>软件做了全面细致的市场调查,明确所要开发的软件具有的功能.前提.限制.环境等.考虑机房收费系统的法律可行性,技术可行性和 ...
可行性研究报告-机房收费系统
可行性分析报告的目的就是指在说明该项目的实现在技术上,经济上和社会因素上的可行性,评述为合理地达到开发目标可供选择的各种可能的实现方案,说明并论证所选定实施方案的理由.现在在模板的基础上对于机房收费进 ...
机房收费系统合作版（三）:利用备忘录模式实现取消修改基本数据
[前言] 鹅思晗小组三个菜鸟成就一个系统,在这个过程中我有幸负责BLL层和外观层的实现.做过机房的朋友都知道,BLL层一个亮点就是设计模式. 至今犹记去年六月份鹅思晗小组成立后,那几天轰轰烈烈的探讨, ...
机房收费系统【VB版】——选择下机
前言: 今天实现机房收费系统--一般用户--学生上机状态查看--选中全部/部分下机部分收获很多!多亏了看光哥的博客,写的很清楚机房收费系统--上机状态查询之下机过程: 要显示的表格式写查询,就会出来 ...
机房收费系统系列一：运行时错误‘-2147217843（80040e4d）’;用户‘sa’登陆失败...
做机房收费系统的时候,首先在SQL server数据库中添加好charge数据库(在对象资源管理器中,右击数据库,点击附加,找到charge的mdf文件,点击确定),然后用ODBC配置好数据库,把机房 ...
机房收费系统=三层+设计模式
在简单的三层登陆完成之后,我又在其中加入了设计模式,其中包括抽象工厂+反射和外观模式.关于设计模式,在学习三层之前我们已经系统的学习过,可是在这次往机房收费系统中加设计模式时,还是感觉无从下手,出现了 ...
机房收费系统重构之存储过程的使用
从一开始对于机房收费系统的无从下手,到现在已经接近尾声,像冬天的迷雾一样,随着时间散开了去,对于其也是越来越清晰,想一想,这种学习的过程还真是美妙. 当然只学习不去总结是没有意义的.今天我就来把存储过 ...
重做《机房收费系统》——概要设计（UI）
重做<机房收费系统>--概要设计(UI) 系统的概要设计大致涉及到UML图的包图和类图.是从系统的大体框架上进行设计.利用分层的思想将该程序进行切分,使得程序更有条理性,不同的层次负责不同 ...
vb.net机房收费系统之组合查询
我个人一直认为,组合查询是机房收费系统的一个难点,尤其是用到三层之后,如果要为组合查询中的每一个查询建立一个显然是太麻烦了. 下面介绍一下我的方法,对大家起个参考作用. 我将该表中可输入的内容定义为一 ...
机房收费系统总结之5——抽象工厂+反射+配置文件
起初,机房收费系统用纯三层在做,三层结构已把高内聚,低耦合的思想发挥的淋漓尽致.因为一直听说"抽象工厂",也开始尝试去应用,经过了一番尝试,也OK了.其中当然会用到反射和配置文件, ...

【机房收费系统】---修改信息

一、前言

二、功能

三、实现过程

【机房收费系统】---修改信息相关推荐

最新文章

热门文章