圖書館管理系統(tǒng)源代碼

1、源程序清單1、文件名 login(login.frm)功能說明：整個(gè)系統(tǒng)的登陸界面，需要輸入用戶名和登陸密碼才能進(jìn)入到系統(tǒng)中，進(jìn)行借閱等操作。源代碼：Option ExplicitDim cnt As IntegerPrivate Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Trim(Combo1.Text) = "" Then MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" Combo

2、1.SetFocusElse sql = "select * from 系統(tǒng)管理 where 用戶名='" & Combo1.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, "" Combo1.SetFocus Else If Trim(rs_login.F

3、ields(1) = Trim(txtpwd.Text) Then userID = Combo1.Text rs_login.Close Unload Me form1.Show Else MsgBox "密碼不正確", vbOKOnly + vbExclamation, "" txtpwd.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 Then Unload MeEnd IfExit SubEnd SubPrivate Sub Command2_Click()Unload MeEnd SubP

4、rivate Sub Form_Load()Dim connectionstring As Stringconnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=book.mdb"conn.Open connectionstringcnt = 0End SubPrivate Sub txtuser_Change()End Sub2、文件名 form1(form1.frm)功能說明：整個(gè)系統(tǒng)的主界面，其中包括圖書管理、讀者管理、圖書借閱管理、系統(tǒng)管理、關(guān)于，以及在

5、這下面的子菜單。源代碼：Private Sub add_admin_Click()frmadduser.ShowEnd SubPrivate Sub add_back_book_Click()frmbackbookinfo.ShowEnd SubPrivate Sub add_book_info_Click()frmaddbookinfo.ShowEnd SubPrivate Sub add_book_style_Click()frmaddbookstyle.ShowEnd SubPrivate Sub add_lend_book_Click()frmfindbook.ShowEnd SubP

6、rivate Sub add_reader_info_Click()frmaddreaderinfo.ShowEnd SubPrivate Sub add_reader_style_Click()frmaddreaderstyle.ShowEnd SubPrivate Sub change_pwd_Click()frmchangepwd.ShowEnd SubPrivate Sub del_book_info_Click()frmmodifybookinfo.ShowEnd SubPrivate Sub del_book_style_Click()frmmodifybookstyle.Show

7、End SubPrivate Sub del_reader_info_Click()frmreaderinfo.ShowEnd SubPrivate Sub del_reader_style_Click()frmmodifyreaderstyle.ShowEnd SubPrivate Sub exit_sys_Click()EndEnd SubPrivate Sub find_book_info_Click()frmfindbook.ShowEnd SubPrivate Sub find_lend_book_Click()frmfindborrowinfo.ShowEnd SubPrivate

8、 Sub find_reader_info_Click()frmfindreader.ShowEnd SubPrivate Sub Form_Load()End SubPrivate Sub gly_Click()Form2.ShowEnd SubPrivate Sub modify_book_info_Click()frmmodifybookinfo.ShowEnd SubPrivate Sub modify_book_style_Click()frmmodifybookstyle.ShowEnd SubPrivate Sub modify_reader_info_Click()frmrea

9、derinfo.ShowEnd SubPrivate Sub modify_reader_style_Click()frmmodifyreaderstyle.ShowEnd Sub3、文件名 frmaddbookstyle(frmbookstyle.frm)功能說明：用于添加圖書類別信息。源代碼：Option ExplicitPrivate Sub Command1_Click()Dim rs_bookstyle As New ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "

10、;圖書種類不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "種類編號(hào)不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd Ifsql = "select * from 圖書類別 where 類別名稱='" & Text1.Text & &

11、quot;'"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) = Trim(Text2.Text) rs_bookstyle.Update MsgBox "添加圖書類別成功！", vbOKOnly, "" rs_bookstyle.CloseElse

12、 MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_bookstyle.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4、文件名 frmmodifybookstyle（code）功能說明：圖書類別管理，可以修改和刪除圖書類別。源代碼：Option ExplicitDim rs_reader As New ADODB.Records

13、etPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh 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 de

14、lerroranswer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Nu

15、mber <> 0 Then MsgBox Err.DescriptionEnd 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 Then MsgBox Er

16、r.DescriptionEnd IfEnd SubPrivate Sub Command5_Click()rs_reader.UpdateDataGrid1.RefreshEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowU

17、pdate = False MsgBox "保存成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 圖書類別"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKe

18、yset, adLockPessimistic '打開數(shù)據(jù)庫cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_readerExit

19、Subloaderror: MsgBox Err.DescriptionEnd Sub5、文件名 frmaddbookinfo（frmaddbookinfo.frm）功能說明：添加圖書信息，包括圖書編號(hào)、書名、出版日期、入庫日期、作者等信息。源代碼：Option ExplicitPrivate Sub Command1_Click()Dim rs_addbook As New ADODB.RecordsetDim sql As StringIf Trim(Combo1.Text) = "" Then MsgBox "請(qǐng)選擇圖書種類", vbOKOnly

20、+ vbExclamation, "" Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = "" Then MsgBox "圖書編號(hào)不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "書名不能為空", vbOKOnly + vbExclamation, "&quo

21、t; Text2.SetFocus Exit SubEnd If If Not IsDate(Text5.Text) Then MsgBox "請(qǐng)按照yyyy-mm-dd格式輸入日期", vbOKOnly + vbExclamation, "" Text5.SetFocus Exit Sub End If If Not IsDate(Text6.Text) Then MsgBox "請(qǐng)按照yyyy-mm-dd格式輸入日期", vbOKOnly + vbExclamation, "" Text6.SetFocus E

22、xit Sub End Ifsql = "select * from 書籍信息 where 書籍編號(hào)='" & Text1.Text & "'"rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then rs_addbook.AddNew rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fi

23、elds(2) = Trim(Combo1.Text) rs_addbook.Fields(3) = Trim(Text3.Text) rs_addbook.Fields(4) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(6) = Trim(Text6.Text) rs_addbook.Fields(7) = "否" rs_addbook.Update MsgBox "添加書籍信息成功！", vbOKOnly, "" rs_a

24、ddbook.CloseElse MsgBox "圖書編號(hào)重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_addbook.Close Exit SubPrivate Sub Form_Load()Dim rs_leibie As New ADODB.RecordsetDim sql As Stringsql = "select * from 圖書類別"rs_leibie.Open sql, conn, adOpenKeyset

25、, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseEnd SubPrivate Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)End Sub6、文件名 frmfindbook（form）功能說明：查詢圖書信息，可以選擇性的輸入圖書的編號(hào)、名稱或者類別查詢圖書的詳細(xì)信息。源代碼：Option E

26、xplicitDim panduan As StringPrivate Sub Command1_Click()Dim rs_findbook As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then sql = "書名='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vbChecked Then If Trim(sql) = "&qu

27、ot; Then sql = "類別='" & Trim(Combo1.Text & " ") & "'" Else sql = sql & "and 書名='" & Trim(Combo1.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Trim(sql) = "" Then sql

28、= "作者='" & Trim(Text2.Text & " ") & "'" Else sql = sql & "and 作者='" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = "" Then sql = "出版社=

29、9;" & Trim(Text3.Text & " ") & "'" Else sql = sql & "and 出版社='" & Trim(Text3.Text & " ") & "'" End IfEnd IfIf Check5.Value = vbChecked Then If Trim(sql) = "" Then sql = "書籍編號(hào)='" &am

30、p; Trim(Text4.Text & " ") & "'" Else sql = sql & "and 書籍編號(hào)='" & Trim(Text4.Text & " ") & "'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "請(qǐng)選擇查詢方式！", vbOKOnly + vbExclamation Exit SubEnd Ifsql = &q

31、uot;select * from 書籍信息 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findbook'rs_findbook.CloseEnd SubPr

32、ivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Trim(book_num) = "" Then MsgBox "請(qǐng)選擇要借閱的圖書！", vbOKOnly + vbExclamation Exit SubEnd IfIf panduan = "是" Then MsgBox "此書已被借出！", vbOKOnly + vbExclamation Exit SubEnd Iffrmborrowbook.ShowEnd S

33、ubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)panduan = DataGrid1.Columns(7).CellValue(DataGrid1.Bookmark)End SubPrivate Sub Form_Load()Dim rs_find As New ADODB.RecordsetDim sql As Stringsql = "sele

34、ct * from 圖書類別"rs_find.Open sql, conn, adOpenKeyset, adLockPessimisticrs_find.MoveFirstIf Not rs_find.EOF Then Do While Not rs_find.EOF Combo1.AddItem rs_find.Fields(0) rs_find.MoveNext Loop Combo1.ListIndex = 0End Ifrs_find.CloseEnd Sub7、文件名 frmaddreaderstyle（frmaddreaderstyle.frm）功能說明：添加讀者的類別

35、。源代碼：Option ExplicitDim rs_readerstyle As New ADODB.RecordsetPrivate Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "讀者種類不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "借書數(shù)量

36、不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = "" Then MsgBox "借書期限不能為空", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = "" Then MsgBox "有限期限不能為空", vbOKOnly + vbE

37、xclamation, "" Text4.SetFocus Exit SubEnd Ifsql = "select * from 讀者類別 where 種類名稱='" & Text1.Text & "'"rs_readerstyle.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_readerstyle.EOF Then rs_readerstyle.AddNew rs_readerstyle.Fields(0) = Trim(Text1.Tex

38、t) rs_readerstyle.Fields(1) = CInt(Text2.Text) rs_readerstyle.Fields(2) = CInt(Text3.Text) rs_readerstyle.Fields(3) = CInt(Text4.Text) rs_readerstyle.Update MsgBox "添加讀者類別成功！", vbOKOnly, "" rs_readerstyle.Close Text1 = "" Text2 = "" Text3 = "" Text4

39、= ""Else MsgBox "讀者類別重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_readerstyle.Close Exit SubEnd IfEnd Sub8、文件名 frmmodifyreaderstyle（form）功能說明：讀者類別管理，可以查詢、刪除、修改讀者的信息。源代碼：Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdc

40、ancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh 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 = Msg

41、Box("確定要?jiǎng)h除嗎？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Th

42、en MsgBox Err.DescriptionEnd 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 Then MsgBox Err.DescriptionEnd I

43、fEnd SubPrivate Sub Command5_Click()rs_reader.UpdateDataGrid1.RefreshEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgB

44、ox "保存成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Command1_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, adLockPessim

45、istic '打開數(shù)據(jù)庫cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_reader'cmdcancel.Enabled

46、= FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_reader.CloseEnd Sub9、文件名frmaddreaderinfo（frmaddreaderinfo.frm）功能說明：添加讀者信息，包括讀者的姓名、性別、讀者類別、登記日期、電話號(hào)碼、工作單位、家庭地址等信息。源代碼：Option ExplicitDim rs_addreader As New ADODB.Reco

47、rdsetPrivate Sub Command1_Click()Dim sql As StringIf Trim(Combo1.Text) = "" Then MsgBox "請(qǐng)選擇讀者種類", vbOKOnly + vbExclamation, "" Combo1.SetFocus Exit SubEnd IfIf Trim(Text1.Text) = "" Then MsgBox "讀者姓名不能為空", vbOKOnly + vbExclamation, "" Text

48、1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "讀者編號(hào)不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd Ifsql = "select * from 讀者信息 where 讀者編號(hào)='" & Text2.Text & "'"rs_addreader.Open sql, conn, adOpenKeyset, a

49、dLockPessimisticIf rs_addreader.EOF Then rs_addreader.AddNew rs_addreader.Fields(0) = Trim(Text1.Text) rs_addreader.Fields(1) = Trim(Text2.Text) rs_addreader.Fields(2) = Trim(Combo2.Text) rs_addreader.Fields(3) = Trim(Combo1.Text) rs_addreader.Fields(4) = Trim(Text3.Text) rs_addreader.Fields(5) = Tr

50、im(Text4.Text) rs_addreader.Fields(6) = Trim(Text5.Text) rs_addreader.Fields(7) = CDate(Text6.Text) rs_addreader.Update MsgBox "添加讀者信息成功！", vbOKOnly, "" rs_addreader.Close Text1 = "" Text2 = "" Text3 = "" Text4 = "" Text5 = "" Tex

51、t6 = "" Else MsgBox "讀者編號(hào)重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_addreader.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo2.AddItem "男"Combo2.AddItem "女"Dim rs

52、_leibie As New ADODB.RecordsetDim sql As Stringsql = "select * from 讀者類別"rs_leibie.Open sql, conn, adOpenKeyset, adLockPessimisticrs_leibie.MoveFirstDo While Not rs_leibie.EOF Combo1.AddItem rs_leibie.Fields(0) rs_leibie.MoveNextLooprs_leibie.CloseEnd Sub10、文件名 frmreaderinfo（frmreaderinfo,

53、frm）功能說明：讀者信息管理，可以修改和刪除讀者的信息。源代碼：Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdmodify.Enabled = True cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.En

54、abled = FalseEnd SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo delerroranswer = MsgBox("確定要?jiǎng)h除嗎？", vbYesNo, "")If answer = vbYes Then DataGrid1.AllowDelete = True rs_reader.Delete rs_reader.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamatio

55、n, "" DataGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled =

56、 TrueDataGrid1.AllowUpdate = Truecmdmodify:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Command5_Click()rs_reader.UpdateDataGrid1.RefreshEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdmodify.Enabled = True cmddel.E

57、nabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "保存成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Command1_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from

58、讀者信息"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打開數(shù)據(jù)庫cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Th

59、en '權(quán)限相關(guān)Private Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_reader.CloseEnd Sub11、文件名 frmfindreader（frmfindreader.frm）功能說明：查詢讀者信息，可以選擇性的輸入讀者姓名、讀者編號(hào)、讀者種類來查詢讀者的詳細(xì)信息。源代碼：Option ExplicitPrivate Sub Command1_Click()Dim rs_findreader As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then sql = "讀者編號(hào)='" & Trim(Text1.Text & " ") & "'"End IfIf Check2.Value = vb