【机房管理】上下机

上机

    '判断是否为空        '判断卡号是否注册，是否退卡        '查BasicData_Info，判断余额是否小于最小金额    txtSQL = "select*from BasicData_Info"    Set mrcBasicData = ExecuteSQL(txtSQL, MsgText)    mrcBasicData.MoveFirst    If Val(mrc.Fields(7)) < Val(mrcBasicData.Fields(5)) Then        MsgBox "余额不足，请充值后上机", vbOKOnly + vbExclamation, "提示"        txtCardNo.Text = ""        txtCardNo.SetFocus    Else        '查OnLine_Info,看该卡是否在上机        txtSQL = "select*from OnLine_Info where cardno='" & Trim(txtCardNo.Text) & "'"        Set mrc = ExecuteSQL(txtSQL, MsgText)                If mrc.EOF = False Then            MsgBox "该卡正在上机，不能重复上机！"            txtCardNo.Text = mrc.Fields(0)            ...            txtOnTime.Text = mrc.Fields(7)            txtSQL = "select*from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"            Set mrccash = ExecuteSQL(txtSQL, MsgText)            txtBalance.Text = mrccash!cash        Else            '正常上机，显示卡号信息            '更新Line_Info数据                            '更新OnLine_Info数据                

下机

    Dim intLineTime As Integer   '用于存储实际在线时间    Dim curConsume As Single     '用于存储真正花费钱的时间    Dim remaincash As Single     '用于存储用户的余额    Dim fixedunit As Single      '用于固定用户存储单位金额    Dim temunit As Single        '用于临时用户存储单位金额    Dim a As Integer        '判断卡号是否为空，判断是否为数字         '判断卡号是否注册，是否退卡        '判断该卡号是否在上机，没有上机不能下机        '计算所消费的时间    intLineTime = (Date - DateValue(mrc!onDate)) * 1440 + (Hour(Time) - Hour(TimeValue(mrc!OnTime))) * 60 + (Minute(Time) - Minute(TimeValue(mrc!OnTime))) '时间单位为分钟           txtSQL = "select * from student_Info where cardno='" & Trim(txtCardNo.Text) & "'"    Set mrc = ExecuteSQL(txtSQL, MsgText)        '获得基本表的数据    txtSQL = "select * from BasicData_Info"    Set mrcBasicData = ExecuteSQL(txtSQL, MsgText)    mrcBasicData.MoveFirst        '单位时间的费用 （把固定用户，临时用户单位时间的费用分别赋值给费用）    fixedunit = Val(mrcBasicData.Fields(0)) '把固定用户的金额赋值给变量    temunit = Val(mrcBasicData.Fields(1)) '把临时用户的金额赋值给变量        '判断在线时间是否小于准备时间，若小于则 消费金额0元    If intLineTime <= Val(Trim(mrcBasicData.Fields(4))) Then        txtExpenseCash.Text = "0"    Else   '判断在线时间是否小于最低消费时间，若小于则消费金额为0元       If intLineTime < Val(Trim(mrcBasicData.Fields(3))) Then            txtExpenseCash.Text = "0"       End If    End If     '在线时间大于单位时间，就按有几个单位时间算，固定用户、临时用户    If intLineTime >= Val(Trim(mrcBasicData!leastTime)) And intLineTime And Trim(mrc.Fields(14)) = "固定用户" Then        a = Int(intLineTime / Val(Trim(mrcBasicData!unitTime)))            If a = intLineTime / Trim(mrcBasicData!unitTime) Then                curConsume = a            Else                curConsume = a + 1            End If        txtExpenseCash.Text = Val(curConsume) * Val(fixedunit)    Else         If intLineTime >= Val(Trim(mrcBasicData!leastTime)) And intLineTime And Trim(mrc.Fields(14)) = "临时用户" Then            a = Int(intLineTime / Val(Trim(mrcBasicData!unitTime)))                If a = intLineTime / Trim(mrcBasicData!unitTime) Then                     curConsume = a                Else                     curConsume = a + 1                End If            txtExpenseCash.Text = Val(curConsume) * Val(temunit)         End If    End If          '更新学生表    '下机显示，更新在线表的信息显示        '更新上机记录表    End Sub

再看一遍，发现还是挺简单的，以后要继续加油！