机房收费系统-- 跨越窗体从数据库里取数据

1  登录系统时，需要登录用户ID和密码，如果用户存在，登录成功。

 

 

添加用户权限只能是是管理员，所以只能以管理员的身份登录系统，才可以添加用户。

添加用户的时候，有一个开户人，此开户人，可以从User_Info 表中获取。

 

现在我们要做的就是，如何获取开户人。因为，开户人，只能是管理员权限的，也就是说，添加用户的的开户人，就是登录系统的管理员。

那么我们可以根据，登录窗体的用户ID,找到User_Info里对应的用户名，即开户人。

下面我们用代码来实现：

         txtSQL = "select * from User_Info where UserID='" & Trim(frmLogin.txtUserID.Text) & "'"

            Set mrcc = ExecuteSQL(txtSQL, MsgText)

            txtKaiUser.Text= Trim(mrcc.Fields(2))

 

2

.

 在数据设定表中，同样也用开户人，也是通过，登录窗体取数据的。

 

3.也是通过登录时的"用户ID"从User_Info数据库中取数据。

 '此处之所以这样从数据库里获取开户者，是因为，在frmLogin登录窗体中UserName改为UserID，因为UserName,并不能唯一标识一个用户
  txtSQL = "select * from User_Info where UserID='" & Trim(frmLogin.txtUserID.Text) & "'"
  Set mrc = ExecuteSQL(txtSQL, MsgText)

  If mrc.EOF = False And Trim(mrc.Fields(1)) = "一般用户" Then
      operator.Enabled = False
      Admin.Enabled = False
 End If
 
 
  '操作员所能实现的功能（能操作一般用户和操作员的操作）
  If mrc.EOF = False And Trim(mrc.Fields(1)) = "操作员" Then
       Admin.Enabled = False
      
  End If
End Sub

'另一种情况，管理员的权限，都能操作