机房收费系统上下机

前言&＃xff1a;在十一结束的时候&＃xff0c;机房收费系统的基本功能终于完成了&＃xff0c;但因为自考的缘故&＃xff0c;也没有一直写博客总结&＃xff0c;今天就趁着闲暇时间完成总结&＃xff0c;完美收官。

机房收费系统的上下机是最基本的功能&＃xff0c;简单来说&＃xff0c;收费、统计等功能都是建立在上下机以及相连的数据库表之上的&＃xff0c;没有上下机&＃xff0c;其他都是空谈。

上机&＃xff1a;上机很简单&＃xff0c;流程就是操作员给要上机的用户上机&＃xff0c;在用户名处输入学号&＃xff0c;然后点击上机&＃xff0c;将上机的用户从学生表中找出&＃xff0c;并将部分数据传递给Online表中&＃xff0c;从而完成上机。

流程图&＃xff1a;

代码部分&＃xff1a;
Private Sub cmdOnline_Click()Dim mrcbd As ADODB.RecordsetDim mrcol As ADODB.Recordset&＃39;下机按钮可用cmdOffline.Enabled &＃61; True&＃39;若卡号框为空If txtCardID.Text &＃61; "" ThenLabel14.Caption &＃61; "请输入卡号&＃xff01;"txtCardID.SetFocusExit SubElseIf Not IsNumeric(Trim(txtCardID.Text)) ThenLabel14.Caption &＃61; "请输入数字&＃xff01;"txtCardID.Text &＃61; ""txtCardID.SetFocusExit SubEnd IfEnd If&＃39;查询学生表中卡号列txtSQL &＃61; "select * from student_info where cardno&＃61;&＃39;" & Trim(txtCardID.Text) & "&＃39;"Set mrcs &＃61; ExecuteSQL(txtSQL, MsgText)&＃39;第一次判断是否有用户If mrcs.EOF ThenLabel14.Caption &＃61; "没有该用户&＃xff0c;请注册或核实信息是否正确&＃xff01;"txtCardID.SetFocustxtCardID.Text &＃61; ""Exit SubElse&＃39;第二次判断是否用户正在上机txtSQL &＃61; "select * from online_info where cardno&＃61;&＃39;" & Trim(txtCardID.Text) & "&＃39;"Set mrcol &＃61; ExecuteSQL(txtSQL, MsgText)&＃39;如果用户正在上机If mrcol.EOF &＃61; False ThenLabel14.Caption &＃61; "该用户正在上机&＃xff01;"txtCardID.Text &＃61; mrcs!cardnotxtType.Text &＃61; mrcs!TypetxtSID.Text &＃61; mrcs!studentnotxtName.Text &＃61; mrcs!studentnametxtFaculty.Text &＃61; mrcs!departmenttxtGender.Text &＃61; mrcs!sextxtOnlineDate.Text &＃61; mrcs!DatetxtOnlineTime.Text &＃61; mrcs!TimelblUserName.Caption &＃61; UserNametxtBalance.Text &＃61; mrcs!cashExit SubElse&＃39;第三次判断用户余额是否充足&＃39;该处一定要用where来判断是对哪一列数据的对比txtSQL &＃61; "select * from student_info where cardno&＃61;&＃39;" & Trim(txtCardID.Text) & "&＃39;"Set mrcs &＃61; ExecuteSQL(txtSQL, MsgText)txtSQL &＃61; "select * from basicdata_info "Set mrcbd &＃61; ExecuteSQL(txtSQL, MsgText)If Val(mrcs.Fields(7))

下机则是将要下机的用户从界面中"取消登陆的状态"&＃xff0c;从数据库Online表中删掉&＃xff0c;再添加到line表中&＃xff0c;并且通过Basicdata表中的计费数据&＃xff0c;进行计算。之后根据用户所消费的金额&＃xff0c;从余额中扣除金钱&＃xff0c;从而更新学生表

下机代码&＃xff1a;

Private Sub cmdOffline_Click()Dim mrcol As ADODB.RecordsetDim mrcl As ADODB.RecordsetDim mrcoloff As ADODB.RecordsetDim offlinetime As IntegerDim mrcbd As ADODB.RecordsetDim costtime As StringDim costday As StringDim alltime As StringDim unittime As String&＃39;判断是否输入卡号If txtCardID.Text &＃61; "" ThenLabel14.Caption &＃61; "请输入卡号&＃xff01;"txtCardID.SetFocusExit SubEnd If&＃39;查询online表中的卡号列txtSQL &＃61; "select * from online_info where cardno&＃61;&＃39;" & Trim(txtCardID.Text) & "&＃39;"Set mrcol &＃61; ExecuteSQL(txtSQL, MsgText)&＃39;判断该用户是否正在上机If mrcol.EOF ThenLabel14.Caption &＃61; "该用户尚未上机&＃xff01;"txtCardID.SetFocustxtCardID.Text &＃61; ""Exit SubElse&＃39;消费时间计算costday &＃61; DateDiff("n", mrcol!ondate, Date)costtime &＃61; DateDiff("n", mrcol!OnTime, Time)alltime &＃61; Val(costday) &＃43; Val(costtime)txtSQL &＃61; "select * from basicdata_info "Set mrcbd &＃61; ExecuteSQL(txtSQL, MsgText)&＃39;判断是什么类型用户&＃xff0c;从而进行计费If Trim(mrcol!cardtype) &＃61; "固定用户" ThentxtCostMoney &＃61; alltime / 60 * mrcbd!RateElsetxtCostMoney &＃61; alltime / 60 * mrcbd!tmprateEnd If&＃39;判断是否超过准备时间If costtime End Sub


总结&＃xff1a;上下机其实就是对数据表中&＃xff0c;信息的增加、修改或删除。
难点&＃xff1a;下机消费时间与金额的计算&＃xff0c;以及对之后表的更新&＃xff0c;这期间逻辑一定要十分清晰。