引用一下楼主的话“假设:用VB做好了一个管理系统,当在桌面点击启动的时候出现”。。
如果这个假设成立,那就不会提出“用vb和access2003如何做一个系统登陆对话框”这样的问题了!
建议楼主:先学学怎样用vb和access2003建立连接吧!只有学会了这个,你的这个系统才能做出来。
附:登录对话框思路。
一、系统登录窗体的加载事件中添加连接access2003数据库文件代码。
二、系统登录窗体的登录按钮代码中:
1、判断填写的用户名是否在于access2003数据库文件用户表的列表中:如果不存在提示用户名错误并结束过程,存在则得到该用户对应的密码;
2、判断填写的密码是否和得到的密码相同:如果不同提示密码错误并结束过程,相同则登录软件主窗口。
1)ado 对象或 ado 控件 通过 odbc 连接数据库
2)ado 对象或 ado 控件 通过 sql 语句 查询 根据返回值判断 完成登录。
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