怎样用VB构建多用户

来源：百度知道 编辑：UC知道 时间：2024/05/12 20:36:31
我正在用VB做一个数据库
现在的问题是怎样用VB构建多用户
并对不同的用户设置不同权限
请各位高手为小弟提供源代码
谢谢

Adodc1.Refresh

If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有您输入的操作员，请重新输入！ ", vbOKOnly + vbExclamation, "提示"
Adodc1.RecordSource = "select * from login order by user_name"
Adodc1.Refresh
DataCombo1.SetFocus
Else
'解析密码
Dim strmima As String
Dim mima As String
Dim i As Integer
strmima = Adodc1.Recordset.Fields("pass_word")
For i = 1 To Len(strmima)
mima = mima & Chr(Asc(Mid$(strmima, i, 1)) - 5)
Next i
If Trim$(DataCombo1.text) <> "" And Trim$(Text2.text) <> "" And Trim$(Text2.text) = mima Then
logouser = Trim(DataCombo1.text)
'检测用户级别,设置相应权限
logojb = Adodc1.Recordset.Fields("user_class")
With frm_main