VF图书管理系统源代码.docxVIP

VF图书管理系统源代码Private Sub Command1_Click() Dim U As Boolean, P As Boolean, Ok As Boolean With Adodc1 .Refresh Do While Not .Recordset.EOF U = .Recordset.Fields(0).Value = Text1.Text P = .Recordset.Fields(1).Value = Text2.Text If U And P Then e = Text1.Text k = Text2.Text Ok = True Exit Do Else .Recordset.MoveNext End If Loop End With If Ok ThenMsgBox 登录成功, , 提示 Form2.Show Unload Me ElseMsgBox 登录失败, , 提示 End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Label3_Click()End SubPrivate Sub Command1_Click()Dim U As Boolean With Adodc1 .Refresh Do While Not .Recordset.EOF If Combo1.Text = 编号 Then U = .Recordset.Fields(0).Value = Text7.Text If U Then Text1.Text = .Recordset.Fields(0).Value Text2.Text = .Recordset.Fields(1).Value Text3.Text = .Recordset.Fields(2).Value Text4.Text = .Recordset.Fields(3).Value Text5.Text = .Recordset.Fields(4).Value Text6.Text = .Recordset.Fields(5).Value Text7.Text = Exit Do Else .Recordset.MoveNext End If End If If Combo1.Text = 书名 Then U = .Recordset.Fields(1).Value = Text7.Text If U Then Text1.Text = .Recordset.Fields(0).Value Text2.Text = .Recordset.Fields(1).Value Text3.Text = .Recordset.Fields(2).Value Text4.Text = .Recordset.Fields(3).Value Text5.Text = .Recordset.Fields(4).Value Text6.Text = .Recordset.Fields(5).Value Text7.Text = Exit Do Else .Recordset.MoveNext End If End If If Combo1.Text = 作者 Then U = .Recordset.Fields(2).Value = Text7.Text 字段0为用户名称 If U Then Text1.Text = .Recordset.Fields(0).Value Text2.Text = .Recordset.Fields(1).Value Text3.Text = .Recordset.Fields(2).Value Text4.Text = .Recordset.Fields(3).Value Text5.Text = .Recordset.Fields(4).Value Text6.Text = .Recordset.Fields(5).Value Text7.T