机房收费系统VB版（三）——窗体设计，收费系统

机房收费系统VB版（三）——窗体设计，收费系统vb

    在边建表边敲窗体的过程中，遇到很多问题，所以一边改，一边继续进行，最后将窗体改成下边这个模样。
窗体菜单： 
窗体功能分布图：


第一次做的功能分析图：



解释说明：      这次画的图与最初画的系统功能分析图不太一样，但是基本内容没怎么变，只是将权限功能分的更明确一些。 （1）将修改密码，帮助，版本信息，退出系统提出来，作为单独的一个“系统”菜单。 （2）将结账，日账单，周账单统一放到“结账”二级子菜单下。 （3）将“学生上机状态”与“学生上机信息统计”统称为查看上机状态。 （4）点击“操作员”菜单下的“注册”，同时添加一般用户名，用户名和密码默认为卡号。点击“退卡”时，同时删除此卡号代表的一般用户名。 （5）“管理员”菜单下的“添加或删除用户”代表的是或删除管理员和操作员。对一般用户无权进行添加或删除。       这些大部分只是一点界面上的改动，其实最大的改变还是各负其责。管理员只做管理员该做的事情；操作员只做操作员该做的事情；一般用户呢，就只是上下机，以及修改密码。       以上只是个人的一些理解而已，如果其他人有不同的想法大家可以一起交流哦！

D
 

我给你做。改了4次。去除错误。调试通过。好了。2个LIST，1个Combo。

Dim List1GF As Boolean
Dim List2GF As Boolean

Private Sub Command1_Click()
If List1GF = True And List1.Text <> "" Then Combo1.AddItem List1.Text
If List2GF = True And List2.Text <> "" Then Combo1.AddItem List2.Text
End Sub

Private Sub Form_Load()
List1.AddItem "text1"
List1.AddItem "text2"
List1.AddItem "text3"
List1.AddItem "text4"
List1.AddItem "text5"

List2.AddItem "text1"
List2.AddItem "text2"
List2.AddItem "text3"
List2.AddItem "text4"
List2.AddItem "text5"
End Sub

Private Sub List1_GotFocus()
List1GF = True
List2GF = False
End Sub

Private Sub List2_GotFocus()
List2GF = True
List1GF = False
End Sub