VB图书管理系统源代码.docx

VB图书管理系统源代码Dim yhm As String, mm As StringPrivate Sub Command1_Click()If Text1.Text Then yhm = Trim(Text1.Text) mm = Trim(Text2.Text) Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If Adodc1.Recordset(用户名) = yhm Then If Adodc1.Recordset(密码) = mm Then MsgBox 登录成功！, , 提示 Unload Me 第二界面.Show Exit Sub Else MsgBox 密码错误,请再输入!, , 提示 Text2.Text = Text2.SetFocus Exit Sub End If Else Adodc1.Recordset.MoveNext End If Loop If Adodc1.Recordset.EOF Then MsgBox 你的用户名或密码不正解,请重新输入, , 提示 Text1.SetFocus End If Else MsgBox 请输入您的用户名!, , 提示 Text1.Text = Text1.SetFocusEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()登录界面.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label2_Click()库存管理.ShowEnd SubPrivate Sub Label3_Click()借阅管理.ShowEnd SubPrivate Sub Label1_Click()信息设置.ShowEnd SubPrivate Sub Label4_Click()系统维护.ShowEnd SubPrivate Sub Command1_Click()On Error Resume NextAdodc1.Recordset.AddNewText1.SetFocusEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()图书信息设置.ShowEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()图书信息设置.ShowEnd SubPrivate Sub Label2_Click()图书信息设置.ShowEnd SubPrivate Sub Label3_Click()图书信息设置.ShowEnd SubPrivate Sub Label4_Click()挂失.ShowEnd SubPrivate Sub Label5_Click()图书信息设置.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()图书信息设置.ShowEnd SubPrivate Sub Label2_Click()库存图书查询.ShowEnd SubPrivate Sub Command1_Click()tsmc = Text1.TextAdodc1.Recordset.MoveFirstDo While Not Adodc1.Recordset.EOFIf Adodc1.Recordset(图书名称) = tsmc ThenMsgBox 查找成功！, , 提示ElseMsgBox 查找条件不能为空！, , 提示End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Command1_Click()On Error Resume NextAdodc1.Recordset.AddNewText1.SetFocusEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()End SubPrivate Sub Form_Load()End SubPrivate Sub Label1_Click()用户管理.ShowEnd SubPrivate Sub Label2_Click()登录界面.ShowEnd SubPrivate Sub Label3_Click()修改密码.ShowEnd SubPrivate Sub Label4_Click()End SubPrivate Sub Form_Load()End SubPrivate Sub Label2_Click()读者信息设置.ShowEnd SubPrivate Sub 信息设置界面_Click()图书信息设置.ShowEnd SubDim yhm As String, mm As StringPrivate Sub Command1_Click()If Text1.Text Then yhm = Trim(Text1.Text) mm = Trim(Text2.Text) xmm = Trim(Text3.Text) Adodc1.Recordset.MoveFirst Do While Not Adodc1.Recordset.EOF If Adodc1.Recordset(用户名) = yhm Then If Adodc1.Recordset(密码) = mm Then Adodc1.Recordset(密码) = xmm Exit Sub Else MsgBox 两次输入的密码不一样,请重新输入!, , 提示 Text2.Text = Text2.SetFocus Exit Sub End If Else Adodc1.Recordset.MoveNext End If End SubPrivate Sub Command2_Click()Unload MeEnd SubP