附錄(圖書(shū)管理系統(tǒng)程序代碼)

1、精選優(yōu)質(zhì)文檔-傾情為你奉上附錄主頁(yè)面（MDImain）：Private Sub addbook_Click()add_book.ShowEnd SubPrivate Sub addreader_Click()add_reader.ShowEnd SubPrivate Sub adduser_Click()add_user.ShowEnd SubPrivate Sub backbook_Click()back_book.ShowEnd SubPrivate Sub borrowbook_Click()borrow_book.ShowEnd SubPrivate Sub cuibackbook_C

2、lick()cuiback_book.ShowEnd SubPrivate Sub findbook_Click()find_book.ShowEnd SubPrivate Sub findreader_Click()find_reader.ShowEnd SubPrivate Sub MDIForm_Load()End SubPrivate Sub modifybook_Click()change_book.ShowEnd SubPrivate Sub modifypwd_Click()change_pwd.ShowEnd SubPrivate Sub modifyreader_Click(

3、)change_reader.ShowEnd SubPrivate Sub delbook_Click()del_book.ShowEnd SubPrivate Sub delreder_Click()del_reader.ShowEnd SubPrivate Sub quitsys_Click()EndEnd Sub登陸（login）：Option ExplicitDim cnt As Integer '記錄確定次數(shù)Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Tr

4、im(txtuser.Text) = "" Then '判斷輸入的用戶名是否為空 MsgBox "沒(méi)有這個(gè)用戶", vbOKOnly + vbExclamation, "" txtuser.SetFocusElse sql = "select * from 用戶表 where 用戶名='" & txtuser.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_

5、login.EOF = True Then MsgBox "沒(méi)有這個(gè)用戶", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '檢驗(yàn)密碼是否正確 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MsgBox "歡迎登錄到圖書(shū)管理系統(tǒng)！", vbOKOnly + vbEx

6、clamation, "" MDImain.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 SubPrivate Sub Form_Load()Dim connectionstring As Stringco

7、nnectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _ "data source=圖書(shū)管理系統(tǒng).mdb"conn.Open connectionstringcnt = 0End Sub添加用戶（add_user）：Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then MsgBox "用戶名不能為空&q

8、uot;, vbOKOnly + vbExclamation, "" Exit Sub Text1.SetFocusElse sql = "select * from 用戶表" rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox "已有這個(gè)用戶", vbOKOnly + vbExclamation, "&

9、quot; Text1.SetFocus Text1.Text = "" Text2.Text = "" Text3.Text = "" Combo1.Text = "" Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) <> Trim(Text3.Text) Then MsgBox "兩次密碼不一致", vbOKOnly + vbExclamation, "" Text2.SetFocus

10、 Text2.Text = "" Text3.Text = "" Exit Sub ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then MsgBox "請(qǐng)選擇正確的用戶權(quán)限", vbOKOnly + vbExclamation, "" Combo1.SetFocus Combo1.Text = "" Exit Sub Else rs_a

11、dd.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox "添加用戶成功", vbOKOnly + vbExclamation, "" Unload Me End IfEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Combo1.Add

12、Item "system"Combo1.AddItem "guest"If userpow = "guest" Then '權(quán)限相關(guān) Command1.Enabled = False Command2.Enabled = FalseEnd IfEnd Sub添加讀者（add_reader）：Option ExplicitDim rs_addreader As New ADODB.RecordsetPrivate Sub Command1_Click()Dim sql As StringIf Trim(Text1.Text) =

13、 "" Then MsgBox "借書(shū)證號(hào)不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "所在單位不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd IfIf Trim(Text3.Text) = "" Then MsgBox

14、"姓名不能為空", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = "" Then MsgBox "性別不能為空", vbOKOnly + vbExclamation, "" Text4.SetFocus Exit SubEnd IfIf Trim(Text5.Text) = "" Then MsgBox "類型不能為空", vbOKOnly +

15、 vbExclamation, "" Text5.SetFocus Exit SubEnd IfIf Trim(Text6.Text) = "" Then MsgBox "地址不能為空", vbOKOnly + vbExclamation, "" Text6.SetFocus Exit SubEnd Ifsql = "select * from 讀者表 where 借書(shū)證號(hào)='" & Text1.Text & "'"rs_addreader.O

16、pen sql, conn, adOpenKeyset, adLockPessimisticIf 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(Text3.Text) rs_addreader.Fields(3) = Trim(Text4.Text) rs_addreader.Fields(4) = Trim(Text5.Text)

17、 rs_addreader.Fields(5) = Trim(Text6.Text) rs_addreader.Update MsgBox "添加讀者信息成功！", vbOKOnly, "" Unload MeElse MsgBox "借書(shū)證號(hào)重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_addreader.Close Exit SubEnd IfEnd SubPrivate Sub Command2_C

18、lick()Unload MeEnd SubPrivate Sub Form_Load()If userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfEnd Sub刪除讀者(del_reader):Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataG

19、rid1.AllowUpdate = False cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = 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

20、 rs_reader.Update DataGrid1.Refresh MsgBox "成功刪除！", vbOKOnly + vbExclamation, "" DataGrid1.AllowDelete = False rs_reader.Update DataGrid1.RefreshElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd Su

21、bPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Form_Load()Dim sql As

22、 StringOn Error GoTo loaderrorsql = "select * from 讀者表"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可刪除DataGri

23、d1.AllowUpdate = FalseIf userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_reader'cmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_reader.Clos

24、eEnd Sub修改讀者(change_reader):Option ExplicitDim rs_reader As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_reader.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdquit.Enabled = True cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enable

25、d = FalseEnd SubPrivate Sub cmdchange_Click()Dim answer As StringOn Error GoTo cmdchange cmdquit.Enabled = Truecmdchange.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = Truecmdchange:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub c

26、mdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_reader.UpdateEnd If cmdquit.Enabled = True cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamatio

27、n, ""End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 讀者表"rs_reader.CursorLocation = adUseClientrs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)cmdupdate.Enabled = False'設(shè)定datagrid控件屬性DataGrid1.AllowAddNew = False

28、'不可增加DataGrid1.AllowDelete = False '不可刪除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '權(quán)限相關(guān) Frame2.Enabled = FalseEnd IfSet DataGrid1.DataSource = rs_reader'cmdcancel.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As I

29、nteger)Set DataGrid1.DataSource = Nothingrs_reader.CloseEnd Sub查詢讀者(find_reader):Option ExplicitPrivate Sub Command1_Click()Dim rs_findreader As New ADODB.RecordsetDim sql As StringIf Check1.Value = vbChecked Then If Trim(sql) = "" Then sql = "借書(shū)證號(hào)='" & Trim(Text1.Text &a

30、mp; " ") & "'" Else sql = sql & "and 借書(shū)證號(hào)='" & Trim(Text1.Text & " ") & "'" End IfEnd IfIf Check2.Value = vbChecked Then If Trim(sql) = "" Then sql = "姓名='" & Trim(Text2.Text & " &q

31、uot;) & "'" Else sql = sql & "and 姓名='" & Trim(Text2.Text & " ") & "'" End IfEnd Ifsql = "select * from 讀者表 where " & sqlrs_findreader.CursorLocation = adUseClientrs_findreader.Open sql, conn, adOpenKeyset, adLockP

32、essimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource = rs_findreader'rs_findreader.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub添加圖書(shū)(add_book):Option ExplicitDim rs_addbook As New ADODB.RecordsetPrivate Sub Command1_

33、Click()Dim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "書(shū)號(hào)不能為空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "分類號(hào)不能為空", vbOKOnly + vbExclamation, "" Text2.SetFocus Exit SubEnd IfIf Tr

34、im(Text3.Text) = "" Then MsgBox "作者不能為空", vbOKOnly + vbExclamation, "" Text3.SetFocus Exit SubEnd IfIf Trim(Text4.Text) = "" Then MsgBox "出版社不能為空", vbOKOnly + vbExclamation, "" Text4.SetFocus Exit Sub End IfIf Trim(Text5.Text) = ""

35、; Then MsgBox "單價(jià)不能為空", vbOKOnly + vbExclamation, "" Text5.SetFocus Exit SubEnd Ifsql = "select * from 圖書(shū)表 where 書(shū)號(hào)='" & Text1.Text & "'"rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then rs_addbook.AddNew rs_addbo

36、ok.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fields(2) = Trim(Text3.Text) rs_addbook.Fields(3) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(4) = "否" rs_addbook.Update MsgBox "添加書(shū)籍信息成功！", vbOKOnly, ""

37、Unload MeElse MsgBox "書(shū)號(hào)重復(fù)！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" rs_addbook.Close Exit SubEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()If userpow = "guest" Then '權(quán)限相關(guān) Command1.Enabled = False Comm

38、and2.Enabled = FalseEnd IfEnd Sub刪除圖書(shū)(del_book):Option ExplicitDim rs_book As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_book.CancelUpdate DataGrid1.Refresh DataGrid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmddel.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseE

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

40、taGrid1.AllowDelete = FalseElse Exit SubEnd Ifdelerror:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_book.UpdateEnd If cmddel.Enabled = True cmdcancel.Enabled = False

41、cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "刪除成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 圖書(shū)表"rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset, a

42、dLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)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_book'cmdcancel

43、.Enabled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_book.CloseEnd Sub修改圖書(shū)(change_book):Option ExplicitDim rs_book As New ADODB.RecordsetPrivate Sub cmdcancel_Click() rs_book.CancelUpdate DataGrid1.Refresh Data

44、Grid1.AllowAddNew = False DataGrid1.AllowUpdate = False cmdchange.Enabled = True cmdcancel.Enabled = False cmdupdate.Enabled = FalseEnd SubPrivate Sub cmdchange_Click()Dim answer As StringOn Error GoTo cmdchangecmdchange.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowU

45、pdate = Truecmdchange:If Err.Number <> 0 Then MsgBox Err.DescriptionEnd Ifrs_book.UpdateDataGrid1.RefreshEnd SubPrivate Sub cmdquit_Click()Unload MeEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Then rs_book.UpdateEnd If cmdchange.Enabled = True cmdcancel.Enabled = False

46、 cmdupdate.Enabled = False DataGrid1.AllowUpdate = False MsgBox "修改成功！", vbOKOnly + vbExclamation, ""End SubPrivate Sub Form_Load()Dim sql As StringOn Error GoTo loaderrorsql = "select * from 圖書(shū)表"rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset,

47、adLockPessimistic '打開(kāi)數(shù)據(jù)庫(kù)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_bookcmdcancel.Ena

48、bled = FalseExit Subloaderror: MsgBox Err.DescriptionEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set DataGrid1.DataSource = Nothingrs_book.CloseEnd Sub查詢圖書(shū)(find_book):Option ExplicitDim panduan As StringPrivate Sub Command1_Click()Dim rs_findbook As New ADODB.RecordsetDim sql As StringIf Check1

49、.Value = vbChecked Then If Trim(sql) = "" Then sql = "書(shū)號(hào)='" & Trim(Text1.Text & " ") & "'" Else sql = sql & "and 書(shū)號(hào)='" & Trim(Text1.Text & " ") & "'" End IfEnd IfIf Check2.Value = vbChec

50、ked Then If Trim(sql) = "" Then sql = "作者='" & Trim(Text2.Text & " ") & "'" Else sql = sql & "and 作者='" & Trim(Text2.Text & " ") & "'" End IfEnd IfIf Check3.Value = vbChecked Then If Tri

51、m(sql) = "" Then sql = "出版單位='" & Trim(Text3.Text & " ") & "'" Else sql = sql & "and 出版單位='" & Trim(Text3.Text & " ") & "'" End IfEnd IfIf Check4.Value = vbChecked Then If Trim(sql) = &q

52、uot;" Then sql = "分類號(hào)='" & Trim(Text4.Text & " ") & "'" Else sql = sql & "and 分類號(hào)='" & Trim(Text4.Text & " ") & "'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "請(qǐng)選擇查詢方式！", v

53、bOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 圖書(shū)表 where " & sqlrs_findbook.CursorLocation = adUseClientrs_findbook.Open sql, conn, adOpenKeyset, adLockPessimisticDataGrid1.AllowAddNew = FalseDataGrid1.AllowDelete = FalseDataGrid1.AllowUpdate = FalseSet DataGrid1.DataSource

54、 = rs_findbook'rs_findbook.CloseEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)book_num = DataGrid1.Columns(0).CellValue(DataGrid1.Bookmark)End Sub修改密碼(change(pwd):Private Sub Command1_Click()Dim rs_chang As New

55、ADODB.RecordsetDim sql As StringIf Trim(Text1.Text) <> Trim(Text2.Text) Then MsgBox "密碼不一致！", vbOKOnly + vbExclamation, "" Text1.SetFocus Text1.Text = "" Text2.Text = ""Else sql = "select * from 用戶表 where 用戶名='" & userID & "

56、9;" rs_chang.Open sql, conn, adOpenKeyset, adLockPessimistic rs_chang.Fields(1) = Text1.Text rs_chang.Update rs_chang.Close MsgBox "密碼修改成功", vbOKOnly + vbExclamation, "" Unload MeEnd IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub借書(shū)（borrow_book）:Option ExplicitDim cnt

57、As Integer '記錄確定次數(shù)Private Sub Command1_Click()Dim sql As StringDim sql2 As StringDim sql3 As StringDim rs_borrow1 As New ADODB.RecordsetDim rs_borrow2 As New ADODB.RecordsetDim rs_borrow3 As New ADODB.RecordsetIf Trim(Text1.Text) = "" Then '判斷輸入的借書(shū)證號(hào)是否為空 MsgBox "借書(shū)證號(hào)不可以為空", vbOKOnly + vbExclamation, "" Text1.SetFocusElse sql = "select * from 讀者表 where 借書(shū)證號(hào)='" & Text1.Text & "