【VB】机房收费系统（登录窗体）

模块：

 

首先，我们需要建立一个模块，这个模块里面定义了一个ExecuteSQL()查询函数。在整个机房里面都会不断地调用这个函数去查询数据库表，然后在这个模块里也可以添加任何我们在程序中会重复用到的代码，之后再需要的窗体中引用这些定义的模块，这样就能让我们的代码更加简洁。

流程图：

在正式敲这个窗体之前，我们可以先构思一下逻辑，然后画一个流程图，条例会很清晰明了。

温馨小提示：

在决定级别权限的时候可以隐藏相关菜单，达到预期的目的。

 

 If Trim(Userlevel) = "操作员" Then
                    frmMain.操作员.Enabled = True
                    frmMain.一般用户.Enabled = True
                    frmMain.管理员.Enabled = False
                    frmMain.管理员.Visible = False
                ElseIf Trim(Userlevel) = "一般用户" Then
                    frmMain.操作员.Enabled = False
                    frmMain.操作员.Visible = False
                    frmMain.一般用户.Enabled = True
                    frmMain.管理员.Enabled = False
                    frmMain.管理员.Visible = False