机房收费总结

   首先，登录窗体：

    一、一般情况下，为了拉下或收起组合框的下拉列表，需要用键盘或鼠标进行操作，而有时我们希望程序运行的某个时刻 自动拉出下拉列表 （比如在登录窗体自动弹出所有用户）

      其实学生的时候师傅就要去这样设置，但是感觉很难就没有做，现在师傅又一次提了出来，想想如果能自动弹出列表确实也挺不错的，所以查了一下资料，结果……也不是很难，主要用到

      sendmessage函数

      const常量函数

   ShowDropDown函数把下拉条弹出

二、还有就是如果该 用户不能重复登录 问题，这个代码实现很简单，重要的是有没有想到，渐渐明了了敲机房的目的

 Private Sub txtname_Change()
 Dim mrca As ADODB.Recordset '判断登录用户是否已经登录  Dim txtsql As String  Dim msgtext As String  txtsql = "select * from onwork_info"  Set mrca = executeSQL(txtsql, msgtext)  If Trim(txtname.Text) = Trim(mrca.Fields(0)) Then  MsgBox "此用户已经登录，请重新输入", vbCritical  txtname.Text = ""  Exit Sub  End If
end sub

        接下来，上下机，烧大脑的一个环节，一起步就预决定了很多事情

 一、

       菜单的设计、命名一定要合理，要不然会花费很长的时间找菜单于窗体的联系，劳神费时、事半功倍

二、

 上下机

       student上机

      1、检查卡号是否存在，是否在上机，金额是否不足，满足条件后可以上机，但是为了避免student负资产

优化：

      滚动的“欢迎”字母；O(∩_∩)O~特别简单小优化

     2、下机：分为正常下机和强制下机

       ①正常下机：可能同时有好几个student在上机，所以选择下机的时候需要将相应的信息反馈到窗体上，计算上机花费，将数据传入到数据库相应表中，处理相应的数据库表

       ②强制下机，发生在系统退出，或者操作员、管理员因为某些原因强制用户下机

       系统退出时如果还有学生在上机，弹出提示框，提醒是否强制下机，是的话、清空上下机窗体信息、相应的数据库表中信息，计算花费、余额并将值传入数据库（金额涉及的表比较多，要仔细操            作）

        同时别忘了添加worklog值班日志

一篇网易博客http://mxinga.blog.163.com/blog/static/2409471082015718504285/