机房系统（二）——【数据设定注册】

前言
基础数据设定，顾名思义，就是默认状态下数据信息是不变的。当管理员不清楚某一据悉数据信息时，可以通过查询基础数据设定表进行查询；若所需信息根据实际情况需要修改，那么管理员有权限对基础数据进行更改操作。操作员在进行新用户注册时，所需基本信息的对比还要来源于管理员设定的基本数据表。
正文
基本数据设定的流程相对来说还是比较简单的，流程图如下：

1、加载窗体，显示默认数据信息，且不可编辑文本框

 '查询数据库信息，显示在窗体上txtSQL = "select * from BasicData_Info"Set mrc = ExecuteSQL(txtSQL, MsgText)txtRegularCost.Text = Trim(mrc.Fields(0))txtInterimCost.Text = Trim(mrc.Fields(1))txtUpTime.Text = Trim(mrc.Fields(2))txtOnTime.Text = Trim(mrc.Fields(3))txtPreTime.Text = Trim(mrc.Fields(4))txtMinCost.Text = Trim(mrc.Fields(5))'文本框不可编辑txtRegularCost.Enabled = FalsetxtInterimCost.Enabled = FalsetxtUpTime.Enabled = FalsetxtOnTime.Enabled = FalsetxtPreTime.Enabled = FalsetxtMinCost.Enabled = False

2、单击确定，若数据没有修改，给用户提示信息

    If txtRegularCost.Enabled = False And txtInterimCost.Enabled = False And txtUpTime.Enabled = False And txtOnTime.Enabled = False And txtPreTime.Enabled = False And txtMinCost.Enabled = False ThenMsgBox "数据没有进行修改哦，如需修改，请点击“修改”按钮，否则点击“无需修改数据”按钮退出哦。", 48, "提示！"End If

3、有修改，判断是否为空
4、有修改，且文本框不为空，连接BasicData表更新数据

   '连接basicdata表，查询数据表中信息txtSQL = "select * from BasicData_Info"Set mrc = ExecuteSQL(txtSQL, MsgText)'判断记录集中信息是否是最后一条If mrc.EOF = False Thenmrc.DeleteExit SubElsemrc.AddNewmrc.Fields(0) = txtRegularCost.Textmrc.Fields(1) = txtInterimCost.Textmrc.Fields(2) = txtUpTime.Textmrc.Fields(3) = txtOnTime.Textmrc.Fields(4) = txtPreTime.Textmrc.Fields(5) = txtMinCost.Textmrc.Fields(6) = Trim(frmLogin.txtUserName.Text)mrc.Fields(7) = Datemrc.Fields(8) = Timemrc.Updatemrc.CloseMsgBox "基本数据设定成功！", 48, "温馨提示："end if

5、修改成功后，呈现加载窗体时的默认状态
注册窗体功能的实现，和有源码的学生系统是大同小异的，流程图如下：

1、判断是否为空
2、判断卡号是否重复，连接student表，查询是否有已注册该卡号的信息

    '判断是否有重复记录txtSQL = "select * from student_Info where cardno='" & Trim(txtcardno.Text) & "'" '查询卡号信息Set mrc = ExecuteSQL(txtSQL, MsgString)If mrc.EOF = False Then '如果记录集没有指到最后一条记录，有已经存在的该条记录，则弹出提示框MsgBox "卡号重复，请重新输入！", vbOKOnly + vbExclamation, "警告"   '提示用户该学号已经存在mrc.Close   '关闭记录集txtcardno.SetFocustxtcardno.Text = ""Exit SubEnd If

3、连接BasicData表，判断充值金额是否满足最低要求，

        '判断是否满足最低充值金额txtSQLBD = "select * from BasicData_Info"Set mrcBD = ExecuteSQL(txtSQLBD, MsgText)If txtrechargecash.Text < Trim(mrcBD.Fields(5)) ThenMsgBox "充值金额不能低于20元，请您重新输入！", 48, "温馨提示："txtrechargecash.SetFocustxtrechargecash.Text = ""Else。。。。。。

4、将注册信息更新到student表中
结语
敲完注册窗体后，一直没弄明白充值金额和金额的关系。新注册的用户卡里面的金额难道不是首次充值金额嘛？如果首次办卡，充值后减去卡费，还需要一个卡费基本数据，充值金额还要大于卡费。

机房系统（二）——【数据设定注册】相关推荐

Spring boot 搭建个人博客系统（二）——登录注册功能
Spring boot 搭建个人博客系统(二)--登录注册功能一直想用Spring boot 搭建一个属于自己的博客系统,刚好前段时间学习了叶神的牛客项目课受益匪浅,乘热打铁也主要是学习,好让自己熟 ...
“冷热通道气流遏制系统”在数据中心机房中的应用
前言: 对于采用冷热通道气流遏制系统与未采用气流遏制措施的传统数据中心相比,气流遏制解决方案能够消除热点,提高节能效果,对已有数据中心来说,最佳气流遏制解决方案取决于数据中心的约束条件,下面本文讲解& ...
方维团购系统二次开发，order、order_goods、goods表的数据
方维团购系统二次开发,order.order_goods.goods表的数据 select * from fanwe_order; 数据库查询结果 [ 返回12条查询记录耗时:0.000805s ] ...
实现“互联网+政务服务”平台与运政管理业务系统的数据自动流转，窗口工作人员不再手工二次录入--二次录入
我们在政务服务大厅交通窗办过业务的时候,应该对排着长队等待业务受理的场景记忆犹新. 窗口办事人员效率太低?速度太慢?事实真是如此吗? 一直以来,该窗口工作人员每天处理道路货运运营许可事项十多个,递交资 ...
机房收费系统（1）-注册控件
根据师哥给的机房收费系统使用说明:在cmd命令中输入"regsvr +路径+控件名称,相信大家在操作的时候都有如下试水. 看看犯的错误都觉得可笑,把"+"都给人家输上了. ...
wincc报表日报表实例_工作系统二次开发二Python加工原膜切割日报表数据实例
#工作系统二次开发二Python加工原膜切割日报表数据实例 #当查询一个或多个工作令后在表格展示数据前按要求对数据进行二次处理,处理要求看如下 #1.加工单号和母卷物料编号相同则把除第一行外的领料有关 ...
用友二次开发_详解ERP系统与MES系统的数据传递——永康用友
详解ERP系统与MES系统的数据传递--永康用友摘要:本文将按照数据的传递方向"从ERP到MES"和"MES到ERP"分别介绍MES系统如何与其他软件连接,才 ...
11月最新二开微盘USDT微交易时间盘系统+完整数据+K线
11月最新二开微盘USDT微交易时间盘系统+完整数据+K线修复+搭建教程 11月最新二开微盘USDT微交易时间盘系统+完整数据+K线修复完整+文字搭建教程微盘确实没啥新意了已经,都是在我之前发的那份 ...
python 软件授权系统及注册机二（管理员注册机）
python 软件授权系统及注册机二(管理员注册机) 1.工作流程 2.所有代码 (1)registerMGUI.py (2)registerMA.py 3.注意 1.工作流程 2.所有代码 (1)r ...

机房系统（二）——【数据设定注册】

机房系统（二）——【数据设定注册】相关推荐

最新文章

热门文章

机房系统（二）——【数据设定 注册 】

机房系统（二）——【数据设定 注册 】相关推荐

最新文章

热门文章

机房系统（二）——【数据设定注册】

机房系统（二）——【数据设定注册】相关推荐