2024年5月24日发(作者：)

'准备好ACCESS数据库，建一个Uesr_id表，表中建两个字段就可以了。

'在[工程]菜单下选择[部件]；在弹出的窗口内勾选[Microsoft ADO Data Control 6.0]

然后确定。

'在工具栏中双击Adodc控件，Adodc控件添加到form内，在form内右单击Adodc1

选择属性ADODC属性，

'在弹出的窗口中单击[生成]，在弹出的窗口中选择Microsoft Jet 4.0 OLE DB

Provider，

'单击下一步,在弹出的窗口中单击[...]选择Access数据库所在的路径，单击[确定]，然

后在属性页

'上单击[记录源]，命令类型选择[2-adCmdTable];表或存储过程名称选择[User_id]，

单击[确定]，

'设置Adodc1的Visible属性为False,ADO控件已经设置好了。

'向form内添加两个TextBox分别为text1和text2分别把它们的text属性值设置为

空，把text2的

'PasswordChar值设置为*,再向form内添加一个按钮CommandButton,默认为

Command1;

'现在所有控件都准备好了，下面编程解决登录问题。

Private Sub Command1_Click()

Dim U As Boolean, P As Boolean, Ok As Boolean

With Adodc1

.Refresh

Do While Not .

U = .(0).Value = '字段0为用户名称

P = .(1).Value = '字段1为用户密码

If U And P Then

Ok = True

Exit Do

Else

.xt

End If