机房收费系统之六（上下机窗体）

上机

1.刚开始进行上下机窗体的时候，想的比较简单，以至于后来遗漏很多问题。所以流程图改了好几遍才算比较完善。

上机模块主要功能就是输入卡号开始计时消费，类似于登陆窗体模块。需要注意的有两点：一是要考虑输入的卡号是否正在上机（卡号不能重复上机），二是考虑余额是否充足（不充足提醒充值）。

2.流程图：

通过多次改进流程图，基本上可以全面了解了上机模块的整个流程。然后再写代码就很顺畅了。

下机

1.下机模块和上机差不多。我觉得最复杂的地方就是计算消费。需要计算消费时间，通过消费时间计算出消费金额。这里需要通过结合基本数据表来判断和计算。我在这里思考了好久。

2.流程图：

3.重要的代码学习：

下机模块代码：

Private Sub cmdxiaji_Click()    Dim txtSQL As String    Dim txtSQL1 As String    Dim txtSQL2 As String    Dim txtSQL3 As String    Dim txtSQL4 As String    Dim msgText As String    Dim mrc As ADODB.Recordset '连接student表    Dim mrc1 As ADODB.Recordset '连接Online表    Dim mrc2 As ADODB.Recordset '连接Line表    Dim mrc3 As ADODB.Recordset '连接Basic表    Dim mrc4 As ADODB.Recordset '连接Online,确认人数    Dim intlinetime As Integer '用于存储实际在线时间    Dim intconsume As Single    Dim curconsume As Single '用于存储真正花费钱的时间    Dim curbalance As Single '用于存储用户的余额    Dim fixedunit As Single '用于存储单位金额    Dim temunit As Single '用于存储单位金额    Dim a As Integer    Dim Remaincash As Single          '模块一：判断卡号是否为空，判断卡号是否为数字        If Trim(txtcardno.Text = "") Then            MsgBox "请输入卡号！", vbOKOnly + vbExclamation, "提示"            Call Clear_Info            txtcardno.SetFocus        Exit Sub        Else                If Not IsNumeric(Trim(txtcardno.Text)) Then                MsgBox "卡号必须输入数字！", vbOKOnly + vbExclamation, "提示"                Call Clear_Info'                txtcardno.Text = ""                txtcardno.SetFocus                Exit Sub                End If        End If                            '模块二：判断卡号是否注册，是否已经退卡。这里先查student_Info        txtSQL = "select * from student_Info where cardno='" & Trim(txtcardno.Text) & "'"        Set mrc = ExecuteSQL(txtSQL, msgText)                  If mrc.BOF And mrc.EOF Then            MsgBox "该卡号未注册，请先注册信息！", vbOKOnly + vbExclamation, "提示"            Call Clear_Info            txtcardno.SetFocus        Exit Sub        Else                If Trim(mrc.Fields(10)) = "不使用" Then                    MsgBox "该卡已经退卡", vbOKCancel + vbInformation, "提示"                    Call Clear_Info                    txtcardno.SetFocus                    Exit Sub                End If        End If        ' mrc.Close        '：判断卡号是否在上机，没有上机不能退卡.连接Online表        txtSQL1 = "select * from OnLine_Info where cardno= '" & Trim(txtcardno.Text) & "'"        Set mrc1 = ExecuteSQL(txtSQL1, msgText)                  If mrc1.EOF = True Then            MsgBox "该卡没有上机，不能进行下机处理", vbOKOnly + vbExclamation, "警告"            Call Clear_Info            txtcardno.SetFocus            Exit Sub        End If                '在线时长计算        intlinetime = (Date - DateValue(mrc1!ondate)) * 1440 + (Hour(Time) - Hour(TimeValue(mrc1!OnTime))) * 60 + (Minute(Time) - Minute(TimeValue(mrc1!OnTime))) '时间单位为分钟                                      'txtSQL = "select * from student_Info where cardno='" & Trim(txtcardno.Text) & "'" ' 多余        'Set mrc = ExecuteSQL(txtSQL, Msgtext)                   '获得基本表的数据        txtSQL3 = "select * from Basicdata_Info"        Set mrc3 = ExecuteSQL(txtSQL3, msgText) 'mrc3连接basicdata表        mrc3.MoveLast                        '单位时间的费用 （把固定用户，临时用户单位时间的费用分别赋值给费用）                fixedunit = Val(mrc3.Fields(0)) '把固定用户的金额赋值给变量                temunit = Val(mrc3.Fields(1)) '把临时用户的金额赋值给变量                '判断在线时间是否小于准备时间，若小于则 消费金额=0                If intlinetime <= Val(Trim(mrc3.Fields(4))) Then        txtxftime.Text = "0"        Else        '判断在线时间是否小于最低消费时间，若小于则为0             If intlinetime < Val(Trim(mrc3.Fields(3))) Then             txtxftime.Text = "0"             End If        End If                   '在线时间大于单位时间，就按有几个单位时间算，分为固定用户和临时用户        If intlinetime >= Val(Trim(mrc3!leastTime)) And intlinetime And Trim(mrc.Fields(14)) = "固定用户" Then        a = Int(intlinetime / Val(Trim(mrc3!unitTime)))                        If a = intlinetime / Trim(mrc3!unitTime) Then                            curconsume = a                        Else                            curconsume = a + 1                        End If        txtxfjine.Text = Val(curconsume) * Val(fixedunit)                    If txtxfjine.Text = "" Then txtxfjine.Text = "0"        Else              If intlinetime >= Val(Trim(mrc3!leastTime)) And intlinetime And Trim(mrc.Fields(14)) = "临时用户" Then              a = Int(intlinetime / Val(Trim(mrc3!unitTime)))                            If a = intlinetime / Trim(mrc3!unitTime) Then                                curconsume = a                            Else                                curconsume = a + 1                            End If                        txtxfjine.Text = Val(curconsume) * Val(temunit)             End If        End If                            '更新student表        txtSQL = "select * from student_Info where cardno='" & Trim(txtcardno.Text) & "'"        Set mrc = ExecuteSQL(txtSQL, msgText)        Remaincash = mrc!cash - Val(txtxfjine.Text)                      mrc.Fields(7) = Remaincash            mrc.Update            mrc.Close                                '下机显示        txtSQL = "select * from OnLine_Info where cardno='" & Trim(txtcardno.Text) & "'"        Set mrc1 = ExecuteSQL(txtSQL, msgText)                  txtxjdate.Text = Format(Date, "yyyy-mm-dd")        txtxjtime.Text = Time        txttype = Trim(mrc1.Fields(1))        txtSID = Trim(mrc1.Fields(2))        txtname = Trim(mrc1.Fields(3))        txtxibie = Trim(mrc1.Fields(4))        txtsex = Trim(mrc1.Fields(5))        txtsjtime = Trim(mrc1.Fields(7))        txtsjdate = Trim(mrc1.Fields(6))        txtxftime.Text = intlinetime        txtcash.Text = Remaincash                       '更新上机记录表line表                  txtSQL2 = "select * from line_Info where cardno='" & Trim(txtcardno.Text) & "'"        Set mrc2 = ExecuteSQL(txtSQL2, msgText)                mrc2.Fields(8) = Trim(txtxjdate.Text)        mrc2.Fields(9) = Trim(txtxjtime.Text)        mrc2.Fields(10) = Trim(txtxftime.Text)        mrc2.Fields(11) = Trim(txtxfjine.Text)        mrc2.Fields(12) = Trim(txtcash.Text)        mrc2.Fields(13) = Trim("正常下机")        mrc2.Update        mrc2.Close                  a = MsgBox("下机成功，欢迎下次再来", vbOKOnly + vbExclamation, "提示")                If a = vbOK Then Call Clear_Info                            '删除online表的信息        mrc1.Delete        mrc1.Update        mrc1.Close               txtSQL4 = "select * from OnLine_Info"       Set mrc4 = ExecuteSQL(txtSQL4, msgText)            Label15.Caption = mrc4.RecordCount  '显示上机人数               mrc4.Close                    End Sub

      总结：遇到问题，多思考，多请教“巨人”。感谢您的阅读！