Question

用vb和access2003如何做一个系统登陆对话框（假设：用VB做好了一个管理系统，当在桌面点击启动的时候出现

假设：用VB做好了一个管理系统，当在桌面点击启动的时候出现一个对话框，需要输入“用户名”和“密码”后点击“登陆”按钮才能进入系统

Answer 1

引用一下楼主的话“假设：用VB做好了一个管理系统，当在桌面点击启动的时候出现”。。
如果这个假设成立，那就不会提出“用vb和access2003如何做一个系统登陆对话框”这样的问题了！
建议楼主：先学学怎样用vb和access2003建立连接吧！只有学会了这个，你的这个系统才能做出来。
附：登录对话框思路。
一、系统登录窗体的加载事件中添加连接access2003数据库文件代码。
二、系统登录窗体的登录按钮代码中：
1、判断填写的用户名是否在于access2003数据库文件用户表的列表中：如果不存在提示用户名错误并结束过程，存在则得到该用户对应的密码；
2、判断填写的密码是否和得到的密码相同：如果不同提示密码错误并结束过程，相同则登录软件主窗口。

追问

我现在是用工作之余的时间想用心学习这两个软件！希望你能给我些过程代码和提示，还有就是VB和Access2003如何建立连接，我baidu过就是找不到学习的视屏，希望老师不吝赐教~谢谢！

追答

我也是才自学了一年多，就编了一个中型程序，挣了一万多。。
网上的VB视频是难找了点，不过代码却有很多，自己摸索下，不是很难的。。

Answer 2

1）ado 对象或 ado 控件 通过 odbc 连接数据库
2）ado 对象或 ado 控件 通过 sql 语句 查询 根据返回值判断 完成登录。

Answer 3

Private Sub Command2_Click()
Dim rs As New ADODB.Recordset
Dim strSql As String
strSql = "select * from 表名 where 帐号=" & Text1.Text
adocn.Open
rs.Open strSql, adocn, 3, 3

If Text2.Text = rs.Fields("密码") Then
MsgBox "密码正确"

rs.Close

Set rs = Nothing
adocn.Close
Else
MsgBox "密码错误"

End If
End Sub

Private Sub Form_Load()
adocn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\aa.mdb;Persist Security Info=False"
End Sub