机房收费系统——上下机「建议收藏」

机房收费系统——上下机「建议收藏」机房收费系统——上下机

大家好,又见面了,我是你们的朋友全栈君。

最近大家都在进行机房收费系统,看大家的博客,基本上都是先理清思路再实现功能,回想自己当时做的时候就不够好,只是盲目的敲代码,却忽略了方向比努力更重要这个道理,导致最后出现了很多漏洞,于是又重新画了一遍上下机的流程图,希望能对以后机房的学习有帮助。

上机

机房收费系统——上下机「建议收藏」

只要思路清晰,具体的代码实现很简单。

下机

机房收费系统——上下机「建议收藏」

下机需要计算消费金额,具体是怎么计算的呢?

机房收费系统——上下机「建议收藏」

关于消费金额的计算,每个人都有不同的计算方法,我觉得只要合理就行。

在基本数据设定的表中,有准备时间,最小上机时间,那么这两个时间跟实际的上机时间有什么区别和联系呢?

如果实际上机时间 < 准备时间,消费金额为0。

如果实际上机时间 < 最小上机时间,有的说法是不能下机,但是这样显得也不太合理,万一真的有特殊情况必须下机怎么办呢,所以在这可以下机,但是会收取一部分费用。

如果实际上机时间 > 最小上机时间,则按照不同的身份进行计算。

(以上计算是在 设定的准备时间 < 最小上机时间的基础上计算的)

具体代码如下

</pre><pre name="code" class="vb"><span style="font-size:18px;">    Ontime = mrcO.Fields(9)  '获取上机时间
    Offtime = Now            '获取下机时间
    
    Consumetime = DateDiff("n", Ontime, Offtime)            '计算上机时间
    If Consumetime < prepareTime Then                       '实际上机时间 < 准备时间
        Consume = 0#
    ElseIf (prepareTime < Consumetime) And (Consumetime < leastTime) Then     ’实际上机时间 < 最小上机时间   
       A = msgbox "确定要下机吗?", vbYes + vbQuestion , "提示"
       If  A =vbYes Then
          Consume = Int(Rate / 2)
       End If
    ElseIf Trim(userType) = Trim(User) Then                                  '实际上机时间 > 最小上机时间
       Consume = Rate * Int(((Consumetime / unitTime) + 1))                  '固定用户消费               
    ElseIf Trim(userType) = Trim(tmpUser) Then                               
        Consume = tmpRate * Int(((Consumetime / unitTime) + 1))              '临时用户消费
    End If</span>


如果还有疏漏的地方,还请大家多多指教。

版权声明:本文内容由互联网用户自发贡献,该文观点仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 举报,一经查实,本站将立刻删除。

发布者:全栈程序员-用户IM,转载请注明出处:https://javaforall.cn/105789.html原文链接:https://javaforall.cn

【正版授权,激活自己账号】: Jetbrains全家桶Ide使用,1年售后保障,每天仅需1毛

【官方授权 正版激活】: 官方授权 正版激活 支持Jetbrains家族下所有IDE 使用个人JB账号...

(0)


相关推荐

  • 10款滑动门代码_jquery 滑动门_js滑动门_tab滑动门_jquery 选项卡_js选项卡_tab选项卡效果(三)

    10款滑动门代码_jquery 滑动门_js滑动门_tab滑动门_jquery 选项卡_js选项卡_tab选项卡效果(三)jquerytab选项卡插件滑动选项卡淡隐淡现选项卡jquerytab选项卡插件轻量级tab选项卡插件支持鼠标滑过、点击、自动切换、数据回调等功能jquery选项卡插件jquerytab选项卡支持垂直选项卡滚动、水平选项卡滚动、自动选项卡切换等。jquerytab选项卡ajax选项卡静态选项卡鼠标点击选项卡鼠标滑过选项卡jquery图片延迟加载插件制作tab选项卡图片异步加载…

  • AsyncHandler

    AsyncHandler

  • 二极管工作状态的判断_有两个二极管的工作状态怎么判断

    二极管工作状态的判断_有两个二极管的工作状态怎么判断看了很多说法,感觉都没有对三极管饱和时内部载流子的流向分析说清楚…….看来最基本的问题,深究起来才是最难的。在网上苦苦寻觅,找到eet论坛中的一个问答回复,算是勉强可以回答我这个疑问吧,如下:http://forum.eet-cn.com/FORUM_POST_10012_1200158575_0.HTM?jumpto=view_welcomead_forum_1324483377358…

  • 单片机好学还是plc好学_单片机出路

    单片机好学还是plc好学_单片机出路相信很多学电气工程专业的都会学习PLC,我当初也是电气工程专业,主要学的三菱PLC,后面也玩了下西门子的。当时觉得还挺神奇,也对编程比较感兴趣,不过学校学得太简单了,基本让你编个梯形图控制电机就算是毕业了。后来我就转去做单片机开发了,感觉比PLC更好玩,因为成本低,灵活性也高,可玩性自然也更高。最近我们无际单片机编程也有几个学员是做PLC转行过来学单片机的。我没从事过PLC的工作,根据他们描述,PLC的工资其实也还行,基本也能过万,但是就是出差太频繁,一年300天在外面出差。如果是单身寡

  • oracle错误 904,IMP-00058: 遇到 ORACLE 错误 904

    oracle错误 904,IMP-00058: 遇到 ORACLE 错误 904我将A服务器下的导入B服务器时其中一个表出现以下错误,出错误后我单独将这个表导出,然后导入。B服务器下已有T_CALLREORDS表,并且已有新数据,T_CALLREORDS有外键约束T_USER表。我的语句如下C:UsersAdministrator>impgxcfkefu/gxcfkefufull=yfile=e:/gxcf_T_CAL…显示全部我将A服务器下的导入B服务器时…

  • 31、【华为HCIE-Storage】–NAS特性 IP漂移

    31、【华为HCIE-Storage】–NAS特性 IP漂移

发表回复

您的电子邮箱地址不会被公开。

关注全栈程序员社区公众号