关于vb和sql中用户注册，登陆，权限，小弟一窍不通，请给我一个详细论述

Question

关于vb和sql中用户注册，登陆，权限，小弟一窍不通，请给我一个详细论述

Answer 1

建立一个表：name ,id ,password登陆的时候查询你要做什么，b/s or c/s

Answer 2

建立一个用户表结构如下：Id        names         password

Answer 3

建立一个表：name ,id ,passwordform 中text1;text2;
text1.datasource="表名"
text1.datarecord=id\name\password

Answer 4

这个方法,我也想过，可是如果让sql用户登陆管理的话,就可以管理权限,上面的方法好象没有权限的问题吧?//

Answer 5

SQL Server 有用来管理用户的储存过程。
看一下介绍系统储存过程和sysusers表的帮助吧。

Answer 6

这是我才做的一个，跟你说的很相近，是SQL数据库，你看对你有没有帮助吧！！
Private Sub cmdOK_Click()
On Error Resume Next
'以下用来联接数据源
Dim txtSQL As String
Dim ConnectString As String
Dim conn As ADODB.Connection
Set conn = New ADODB.Connection
    Dim sstr As ADODB.Recordset
    Set sstr = New ADODB.Recordset
ConnectString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=home"'如果联接字符串不会写的话用ado控件去生成字符串然后放到这即可
conn.Open ConnectString  '以下代码下来验证登陆
    UserName = ""
    If Trim(txtUserName.Text = "") Then
        MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
        txtUserName.SetFocus
    Else
        txtSQL = "select * from 工作人员信息表 where 姓名 = '" & txtUserName.Text & "'"
        sstr.Open txtSQL, conn, adOpenStatic, adLockOptimistic
        WorkerID = sstr.Fields(0)
        WorkerName = sstr.Fields(4)
        WorkerPower = sstr.Fields(6)
        SystemID = sstr.Fields(1)
     If sstr.EOF Then
            MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
            txtUserName.SetFocus
        Else
        If Trim(sstr.Fields("密码")) = Trim(txtPassword.Text) ThenOK = True
                sstr.Close
                Me.Hide
                UserName = Trim(txtUserName.Text)
            Else
                MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
                txtPassword.SetFocus
                txtPassword.Text = ""
            End If
        End If
    End If
权限要专门设一个字段，
你可以在UserName = Trim(txtUserName.Text)句后写上条件，然后根据权限不同来判断。