vb物业管理系统登陆界面怎么做，连接access数据库

2024-12-05 06:36:40

推荐回答（2个）

回答（1）：

你那拖了个ADO控件是吧，那就说个最简单的，假设你登陆按钮名是Command1
Private Sub Command1_Click()
Adodc1.Connection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[ACCESS文件路径]"
Adodc1.RecordSource="Select * from 用户表 where 用户名字段='"+用户名文本框+"' and 密码字段='"+输密码文本框+"'"
Adodc1.Refresh
If Adodc1.Recordset.EOF Then
MsgBox("验证失败！")
Text1=""
Text2=""
Text1.SetFucos
Else
Me.Hide
要登陆的窗体名称.Show
End Sub
这样就搞定了，这里是用到一个Microsoft ADO Control 6.0控件，去工程，部件里找到他勾上应用，拖到窗体上，把他的Visible属性改成 False，不然他很丑，默认名称是Adodc1

回答（2）：

专门做了个登录窗体，开放源代码。
内含登录窗体和程序界面主窗体，窗体代码中有详细的解释。
代码中添加关闭程序时自动压缩数据库功能。
为了便于测试：附带2003数据库文件一个（包括“用户账户”表一个）。
如果需要，请留下邮箱。。