- 智能AI问答！更聪明、更完整、原创作！
- 一款基于GPT的超级AI机器人，可以回答问题、聊天、创作、写文案！
如何用VB连接access中的人事管理系统登录界面数据？
发布于 2025-05-05 21:21:17
- 利用Adodc控件来实现，首先在部件-控件里找到Microsoft ADO DataControl 6.0，打勾，然后在窗体上添加Adodc，设置visible 为 false。2. 添加textbox 两个，text1,text2 (将text2的PasswordChar属性值设置为*)3. 添加botton一个，command1Private Sub Form_Load()''连接数据库的信息(Jet OLEDB 4.0, DataSource - 数据库地址,这里用到了App.Path 意思是说在应用程序目录下的)Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Biodoor.mdb;Persist Security Info=False"End SubPrivate Sub Command1_Click()''单击command1开始连接数据库，利用SQL语句来查询表(这儿暂时用Access数据库中的sys_Users数据表)Adodc1.RecordSource = "Select * From sys_Users Where UserName =''" & Text1.Text & "''"Adodc1.Refresh''判断是否存在数据If Adodc1.Recordset.EOF = True Then''如果不存在跳出窗口说 Invalid LoginMsgBox "Invalid Login!"Else''如果存在继续判断密码是否为text2的文本If Adodc1.Recordset.Fields("UserPassword") = Text2.Text Then''如果是跳出窗口说 WelcomeMsgBox "Welcome!"Else''否则跳出窗口说 Invalid LoginMsgBox "Invalid Login!"End IfEnd IfEnd Sub
0 条评论
关于作者
