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数据库文件一个(包括“用户账户”表一个)。
如果需要,请留下邮箱。。