图书馆管理系统源代码Word格式.doc

1、 Combo1.SetFocusElse sql = select * from 系统管理 where 用户名= & Combo1.Text & rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox Combo1.SetFocus Else If Trim（rs_login.Fields（1） = Trim（txtpwd.Text） Then userID = Combo1.Text rs_login.Close Unload Me form1.Show Else

2、MsgBox 密码不正确 txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeExit SubEnd SubPrivate Sub Command2_Click（）Unload MePrivate Sub Form_Load（）Dim connectionstring As Stringconnectionstring = provider=Microsoft.Jet.oledb.4.0; _ data source=book.mdbconn.Open connectionstringcnt = 0P

3、rivate Sub txtuser_Change（）2、文件名 form1（form1.frm）整个系统的主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于，以及在这下面的子菜单。Private Sub add_admin_Click（）frmadduser.ShowPrivate Sub add_back_book_Click（）frmbackbookinfo.ShowPrivate Sub add_book_info_Click（）frmaddbookinfo.ShowPrivate Sub add_book_style_Click（）frmaddbookstyle.Sho

4、wPrivate Sub add_lend_book_Click（）frmfindbook.ShowPrivate Sub add_reader_info_Click（）frmaddreaderinfo.ShowPrivate Sub add_reader_style_Click（）frmaddreaderstyle.ShowPrivate Sub change_pwd_Click（）frmchangepwd.ShowPrivate Sub del_book_info_Click（）frmmodifybookinfo.ShowPrivate Sub del_book_style_Click（）

5、frmmodifybookstyle.ShowPrivate Sub del_reader_info_Click（）frmreaderinfo.ShowPrivate Sub del_reader_style_Click（）frmmodifyreaderstyle.ShowPrivate Sub exit_sys_Click（）EndPrivate Sub find_book_info_Click（）Private Sub find_lend_book_Click（）frmfindborrowinfo.ShowPrivate Sub find_reader_info_Click（）frmfin

6、dreader.ShowPrivate Sub gly_Click（）Form2.ShowPrivate Sub modify_book_info_Click（）Private Sub modify_book_style_Click（）Private Sub modify_reader_info_Click（）Private Sub modify_reader_style_Click（）3、文件名 frmaddbookstyle（frmbookstyle.frm）用于添加图书类别信息。Dim rs_bookstyle As New ADODB.RecordsetIf Trim（Text1.Te

7、xt） = 图书种类不能为空 Text1.SetFocus Exit SubIf Trim（Text2.Text） = 种类编号不能为空 Text2.SetFocussql = select * from 图书类别 where 类别名称= Text1.Text &rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields（0） = Trim（Text1.Text） rs_bookstyle.Fields（1

8、） = Trim（Text2.Text） rs_bookstyle.Update添加图书类别成功！, vbOKOnly, rs_bookstyle.Close读者类别重复！ Text1.Text = 4、文件名 frmmodifybookstyle（code）图书类别管理，可以修改和删除图书类别。Dim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click（） rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.Allo

9、wUpdate = False cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalsePrivate Sub cmddel_Click（）Dim answer As StringOn Error GoTo delerroranswer = MsgBox（确定要删除吗？, vbYesNo, ）If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Upda

10、te成功删除！ DataGrid1.AllowDelete = Falsedelerror:If Err.Number 0 Then MsgBox Err.DescriptionPrivate Sub cmdmodify_Click（）On Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdmodify:Private Sub Command5_Click（）rs_reader.UpdateDataGrid1.RefreshPrivate Sub cmdupdate_Click（）If Not IsNull（DataGrid1.Bookmark） Then cmddel.Enabled