条码实验指导书09级(6)

24

25

26

27

Private Sub Command1_Click()

Adodc1.RecordSource = \（表名） where name（字段名）='\Text1.Text & \ Adodc1.Refresh

If Adodc1.Recordset.EOF Then

MsgBox \没有这个用户，请重新输入正确的用户名\错误提示\ Else

If Text2.Text = Adodc1.Recordset.Fields(\（字段名）) Then MsgBox \登录成功！\错误提示\

Else

MsgBox \你的密码错误,请输入正确的用户密码！\错误提示\ End If End If End Sub

28