機房收費系統– 跨越表單從資料庫裡取資料

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

'另一種情況，管理員的許可權，都能操作