文档介绍:VF图书管理系统源代码
Private mand1_Click()
Dim U As Boolean, P As Boolean, Ok As Boolean
With Adodc1
.Refresh
Do While Not .
U = .(0).Value =
P = .(1).Value =
If U And P Then
e =
k =
Ok = True
Exit Do
Else
.
End If
Loop
End With
If Ok Then
MsgBox "登录成功", , "提示"
Unload Me
Else
MsgBox "登录失败", , "提示"
End If
End Sub
Private mand2_Click()
End
End Sub
Private Sub Label3_Click()
End Sub
Private mand1_Click()
Dim U As Boolean
With Adodc1
.Refresh
Do While Not .
= "编号" Then
U = .(0).Value =
If U Then
= .(0).Value
= .(1).Value
= .(2).Value
= .(3).Value
= .(4).Value
= .(5).Value
= ""
Exit Do
Else
.
End If
End If
= "书名" Then
U = .(1).Value =
If U Then
= .(0).Value
= .(1).Value
= .(2).Value
= .(3).Value
= .(4).Value
= .(5).Value
= ""
Exit Do
Else
.
End If
End If
= "作者" Then
U = .(2).Value = '字段0为用户名称
If U Then
= .(0).Value
= .(1).Value
= .(2).Value
= .(3).Value
= .(4).Value
= .(5).Value
= ""
Exit Do
Else
.
End If
End If
= "出版社" Then
U = .(3).Value = '字段0为用户名称
If U Then
= .