郭新宇 天道酬勤

原创 机房收费系统的上下机

经过一段时间的机房收费系统的进行，摘出其中一部分的功能，其中上下机的代码修改有很多次，其中可能还有缺陷，请大家尽情的指出。 上机： Private Sub cmdStart_Click() '点击上机按钮 Dim gudingeveryhourcash As Integer Dim linshieveryhourcash As Integer If Trim(tx