【机房收费系统】权限和复用过程

                  在做的过程中，我偶尔才发现，不同的用户级别还有不同的权限。

              一、写怎么限制级别不同的用户的权限

                          见如下代码：

               

<span style="font-size:24px;">Private Sub Picture1_GotFocus()    '判断是一般用户等的级别来显示功能区的代码                txtSQL = "select * from user_info where userid='" & UserName & "'"                Set mrc = ExecuteSQL(txtSQL, msgText)                If Trim(mrc.Fields(2)) = "操作员" Then     '如果级别是操作员，那么                    Ad.Enabled = False                     'ad是菜单栏的管理员那一项                ElseIf Trim(mrc.Fields(2)) = "一般用户" Then                    Ad.Enabled = False                    Op.Enabled = False                'op是菜单栏中操作员的那一项                End If                mrc.CloseEnd Sub</span>

                      这里写在picture的事件中，写在其他窗体也可以，比如在frmlogin里面也行，不过就得看看写在哪里合适。

  写好这些代码后，就成了下面的结果：

                                                                         

                        在这个过程中，我体会到了自己想办法解决问题的成就感，只要有了思路，从网上查资料，不同的答案中提出自己需要的答案，一步步的去试试，总会成功的！

             二、过程的复用

                  如果一个过程需要用好几次，在不同的地方用到，那么就可以自己定以一个过程，比如如下代码：

              

Private Sub viewdate()txtSQL = "select * from line_info where "     If Combo3.Text = "卡号" Then            '判断操作符和查询的内容是否为空            If Trim(Combo6.Text) = "" Then                MsgBox "请输入操作符！", vbOKOnly + vbExclamation                Combo6.SetFocus                Exit Sub            ElseIf Trim(Text3.Text) = "" Then                    MsgBox "请输入要查询的内容！", vbOKOnly + vbExclamation                    Text3.SetFocus                    Exit Sub                     

<span style="font-family: Arial, Helvetica, sans-serif;">end sub</span>

            这样，如果在哪需要用这些代码，那么就可以

            call viewdate

          这样就提高了代码的复用率，效率也就提高了！