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

word源程序清单1、文件名 login(login.frm)功能说明：整个系统的登陆界面，需要输入用户名和登陆密码才能进入到系统中，进展借阅等操作源代码：Option ExplicitDimt As IntegerPrivate Sub mand1_Click()Dim sql As StringIf Trim(bo1.Text) = "" Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""Else sql = "select * from 系统管理 where 用户名='" & bo1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "没有这个用户", vbOKOnly + vbExclamation, "" Else If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then Unload Me Else MsgBox "密码不正确", vbOKOnly + vbExclamation, "" End If End IfEnd Ift =t + 1Ift = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub mand2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb"conn.Open connectionstringt = 0End SubPrivate Sub txtuser_Change()End Sub2、文件名 form1(form1.frm)功能说明：整个系统的主界面，其中包括图书管理、读者管理、图书借阅管理、系统管理、关于，以与在这下面的子菜单。

源代码：Private Sub add_admin_Click()End SubPrivate Sub add_back_book_Click()End SubPrivate Sub add_book_info_Click()End SubPrivate Sub add_book_style_Click()End SubPrivate Sub add_lend_book_Click()End SubPrivate Sub add_reader_info_Click()End SubPrivate Sub add_reader_style_Click()End SubPrivate Sub change_pwd_Click()End SubPrivate Sub del_book_info_Click()End SubPrivate Sub del_book_style_Click()End SubPrivate Sub del_reader_info_Click()End SubPrivate Sub del_reader_style_Click()End SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()End SubPrivate Sub find_lend_book_Click()End SubPrivate Sub find_reader_info_Click()End SubPrivate Sub Form_Load()End SubPrivate Sub gly_Click()End SubPrivate Sub modify_book_info_Click()End SubPrivate Sub modify_book_style_Click()End SubPrivate Sub modify_reader_info_Click()End SubPrivate Sub modify_reader_style_Click()End Sub3、文件名 frmaddbookstyle(frmbookstyle.frm)功能说明：用于添加图书类别信息。

源代码：Option ExplicitPrivate Sub mand1_Click()Dim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "图书种类不能为空", vbOKOnly + vbExclamation, "" Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "种类编号不能为空", vbOKOnly + vbExclamation, "" Exit SubEnd Ifsql = "select * from 图书类别 where 类别名称='" & Text1.Text & "'"rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_bookstyle.EOF Then rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text2.Text) MsgBox "添加图书类别成功！", vbOKOnly, ""Else MsgBox "读者类别重复！", vbOKOnly + vbExclamation, "" Text1.Text = "" Exit SubEnd IfEnd SubPrivate Sub mand2_Click()Unload MeEnd Sub4、文件名 frmmodifybookstyle〔code〕功能说明：图书类别管理，可以修改和删除图书类别。

源代码：Option ExplicitPrivate Sub cmdcancel_Click() DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox("确定要删除吗？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True MsgBox "成功删除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 ThenEnd IfEnd SubPrivate Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdmodify:If Err.Number <> 0 ThenEnd IfEnd SubPrivate Sub mand5_Click()End SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) ThenEnd If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "保存成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub mand1_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 图书类别"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打开数据库cmdupdate.Enabled = False'设定datagrid控件属性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可删除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '权限相关 Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readerExit Subloaderror:End Sub5、文件名 frmaddbookinfo〔frmaddbookinfo.frm〕功能说明：添加图书信息，包括图书编号、书名、出版日期、入库日期、作者等信息。

源代码：Option ExplicitPrivate Sub mand1_Click()Dim sql As StringIf Trim(bo1.Text) = "" Then MsgBox "请选择图书种类", vbO。