首先,登录窗体:
其实学生的时候师傅就要去这样设置,但是感觉很难就没有做,现在师傅又一次提了出来,想想如果能自动弹出列表确实也挺不错的,所以查了一下资料,结果……也不是很难,主要用到
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值班日志