UC知道VB编程：建立登录窗口 在线急等！
来源：百度知道 编辑：UC知道 时间：2024/06/14 04:54:02
[sql中已经建立一个名为【学生数据管理】的数据库下有三张表sc.student.cource]另外建立了三个不同的sql登录帐号：管理员，教师，学生，已经赋予了访问数据库【学生数据管理】不同的权限。在 数据库【学生数据管理】下建立了有三个管理员信息的表myuser。
现在我想做一个简单的vb用户登录窗口。数据源（ODBC)已经连接。
新建一个工程文件用了两个label两textbox 和两个commandbutton
名字分别为lable1、lable2、text1 、text2、command1、command2.
登录时输入信息正确，点击command1进入窗口form2.错误提示错误信息。
点击command2取消操作推出窗口
请问怎么建立登录窗口，代码是什么？
请将答案发信息给我。谢谢。能用加分
再次谢谢麻烦各位。
我
现在我想做一个简单的vb用户登录窗口。数据源（ODBC)已经连接。
新建一个工程文件用了两个label两textbox 和两个commandbutton
名字分别为lable1、lable2、text1 、text2、command1、command2.
登录时输入信息正确，点击command1进入窗口form2.错误提示错误信息。
点击command2取消操作推出窗口
请问怎么建立登录窗口，代码是什么？
请将答案发信息给我。谢谢。能用加分
再次谢谢麻烦各位。
我
Dim con, rs, admin(3), pwd(3)
Sub conn()
Set con = CreateObject("ADODB.Connection")
con.open "driver={sql server};uid=sa;pwd=;database=bill;server=(local)"
Set rs = con.execute("select * from myuser")
Do While Not rs.EOF
admin(i) = Trim(rs("admin")) 'admin是你数据表里的登录帐号的字段名
pwd(i) = Trim(rs("pwd")) 'pwd是密码的字段名，类型是字符串
i = i + 1
rs.movenext
Loop
Set rs = Nothing
con.Close
Set con = Nothing
End Sub
Private Sub Command1_Click()
Call conn
For i = 0 To 2
If admin(i) = Trim(Text1.Text) And pwd(i) = Trim(Text2.Text) Then
Form1.Hide
Form2.Show
Exit Sub
End If
Next
MsgBox "对不起，用户名不存在或口令错误"
End Sub
你试试吧。
VB....忘了..
Private Sub cmdOK_Click()
Static nErr As Integer
Dim bErr As Boolean
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset