机房收费--操作员注册

老规矩先放图：

注册窗体其实也比较简单的，先说一下查找，这里的查找其实可以之前一般用户的查看余额功能差不多，所以我们直接把查看余额窗体放在这里就可以了：

Private Sub Command1_Click()InquiryBalance.Show
End Sub

其次说一下combox，它要写在form_load里，因为在逻辑上看，它应该是在窗体加载时就显现出来的，所以：

Private Sub Form_Load()Combosex.AddItem "男"Combosex.AddItem "女"Combostatus.AddItem "使用"Combotype.AddItem "固定用户"Combotype.AddItem "一般用户"
End Sub

然后就是注意一下金额的限制，充值的金额不能低于最低限制，一般像网吧都会有这种限制，当然他们还会有一些优惠活动，比如冲多少送多少的，但是咱们这里就先不说那些啦：

    txtsql1 = "select * from Basicdata_info"Set mrc1 = ExecuteSQL(txtsql1, MsgText1)If txtcash.Text < Trim(mrc1.Fields(5)) ThenMsgBox "金额小于最低余额充值！", 48, "警告"Exit SubEnd If

最后就是把文本框的数据存盘了：

    mrc.Addnewmrc.Fields(0) = Trim(txtcardno.Text)mrc.Fields(1) = Trim(txtstudentno.Text)mrc.Fields(2) = Trim(txtstudentname.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(14) = Trim(Combotype.Text)mrc.Fields(7) = Trim(txtcash.Text)mrc.Fields(8) = Trim(txtexplain.Text)mrc.Fields(9) = Trim(txtcardno.Text)mrc.Fields(10) = Trim(Combostatus.Text)mrc.Fields(11) = "未结账"mrc.Fields(12) = Datemrc.Fields(13) = Time'更新数据库mrc.Updatemrc.CloseMsgBox "添加用户成功", vbOKOnly + vbExclamation, "添加成功"End If

当然不要忘记注册成功后要把文本框清空，以方便下次添加数据：

    txtcardno.Text = ""txtstudentno.Text = ""txtstudentname.Text = ""Combosex.Text = ""txtdepartment.Text = ""txtgrade.Text = ""txtclass.Text = ""Combotype.Text = ""txtcash.Text = ""txtexplain.Text = ""Combostatus.Text = ""

机房收费--操作员注册相关推荐

VB查询数据库之写入数据库——机房收费系统总结（三）
在机房收费系统中,新注册的用户,更改的密码,上机下级记录,上机收费记录等等都要写入数据库,这样,后面的查询才能生效.像数据库中写入数据,首先,找到你要写入数据的数据库中的表,在表中建立新的行 ...
机房收费系统中——存储过程中加入事务，实现学生注册
需求介绍: 现在正在开发的机房收费系统,总得来说,是对学生上机进行收费管理(没有要在学校开网吧的意思啊!为了学习面开发的)大体的功能是这样的:学生上机,然后刷卡,下机的时候,再刷卡,然后通过对学生的上 ...
机房收费系统（1）-注册控件
根据师哥给的机房收费系统使用说明:在cmd命令中输入"regsvr +路径+控件名称,相信大家在操作的时候都有如下试水. 看看犯的错误都觉得可笑,把"+"都给人家输上了. ...
第一次机房收费系统之DLL注册“找不到指定的模块”
配置ODBC之后,就是进行控件注册了,如下所示: 需要注册文件"机房收费系统所需素材"中的3个控件在cmd命令中输入"regsvr32 + 路径 + 控件名称" ...
机房收费系统总结【1】-整体流程
前言: 拖了3个月终于学完了机房收费,真正做机房的时间不到一个月,拖了好久,不应该! 以后,在学习的过程中遇到的问题(计算机+心得体会)在今目标的项目上简单标注! 这个过程中自己解决的问题博客总结!还 ...
vb.net机房收费系统之组合查询
我个人一直认为,组合查询是机房收费系统的一个难点,尤其是用到三层之后,如果要为组合查询中的每一个查询建立一个显然是太麻烦了. 下面介绍一下我的方法,对大家起个参考作用. 我将该表中可输入的内容定义为一 ...
VB查询数据库之结账——机房收费系统总结（五）
对于机房收费的结账,我感觉是所有窗体中,最难的一个.这个窗体我真的做了好多天.它的难度系数我感觉是最高的. 首先,你要理清上机时间和收费标准的关系,在预备时间中,是不收费的. 其次,在超过预备时间,一 ...
用户手册——机房收费系统
用户手册(GB8567--88) 1引言 1.1编写目的编写该用户手册的目的是为了方便用户熟悉系统,对系统便于操作.预期读者为购买此软件的用户. 1.2背景名称:机房收费系统: 任务提出者:米新江 ...
第一次机房收费系统总结
历经了一个月的时间,我的第一次机房终于完成了.第一次机房不像学生一样有源代码直接调bug,而是自己写代码,根据自己的想法和逻辑来实现它的功能.好了话不多说,来展示我的流程图吧! 第一次机房自我觉得有三 ...

机房收费--操作员注册

机房收费--操作员注册相关推荐

最新文章

热门文章