附录(图书管理系统程序代码)

1、精选优质文档-倾情为你奉上附录主页面（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 '记录确定次数Private Sub Command1_Click()Dim sql As StringDim rs_login As New ADODB.RecordsetIf Tr

4、im(txtuser.Text) = "" Then '判断输入的用户名是否为空 MsgBox "没有这个用户", 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 "没有这个用户", vbOKOnly + vbExclamation, "" txtuser.SetFocus Else '检验密码是否正确 If Trim(rs_login.Fields(1) = Trim(txtpwd.Text) Then userID = txtuser.Text userpow = rs_login.Fields(2) rs_login.Close Unload Me MsgBox "欢迎登录到图书管理系统！", 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=图书管理系统.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 "已有这个用户", 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 "请选择正确的用户权限", 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 '权限相关 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 "借书证号不能为空", 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 借书证号='" & 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 "借书证号重复！", 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 '权限相关 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("确定要删除吗？", 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 '打开数据库cmdupdate.Enabled = False'设定datagrid控件属性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可删除DataGri

23、d1.AllowUpdate = FalseIf userpow = "guest" Then '权限相关 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 '打开数据库cmdupdate.Enabled = False'设定datagrid控件属性DataGrid1.AllowAddNew = False

28、'不可增加DataGrid1.AllowDelete = False '不可删除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '权限相关 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 = "借书证号='" & Trim(Text1.Text &a

30、mp; " ") & "'" Else sql = sql & "and 借书证号='" & 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添加图书(add_book):Option ExplicitDim rs_addbook As New ADODB.RecordsetPrivate Sub Command1_

33、Click()Dim sql As StringIf Trim(Text1.Text) = "" Then MsgBox "书号不能为空", vbOKOnly + vbExclamation, "" Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = "" Then MsgBox "分类号不能为空", 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 "单价不能为空", vbOKOnly + vbExclamation, "" Text5.SetFocus Exit SubEnd Ifsql = "select * from 图书表 where 书号='" & 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 "添加书籍信息成功！", vbOKOnly, ""

37、Unload MeElse MsgBox "书号重复！", 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 '权限相关 Command1.Enabled = False Comm

38、and2.Enabled = FalseEnd IfEnd Sub删除图书(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("确定要删除吗？", 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 图书表"rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset, a

42、dLockPessimistic '打开数据库cmdupdate.Enabled = False'设定datagrid控件属性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可删除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '权限相关 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修改图书(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 图书表"rs_book.CursorLocation = adUseClientrs_book.Open sql, conn, adOpenKeyset,

47、adLockPessimistic '打开数据库cmdupdate.Enabled = False'设定datagrid控件属性DataGrid1.AllowAddNew = False '不可增加DataGrid1.AllowDelete = False '不可删除DataGrid1.AllowUpdate = FalseIf userpow = "guest" Then '权限相关 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查询图书(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 = "书号='" & Trim(Text1.Text & " ") & "'" Else sql = sql & "and 书号='" & 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 = "分类号='" & Trim(Text4.Text & " ") & "'" Else sql = sql & "and 分类号='" & Trim(Text4.Text & " ") & "'" End IfEnd IfIf Trim(sql) = "" Then MsgBox "请选择查询方式！", v

53、bOKOnly + vbExclamation Exit SubEnd Ifsql = "select * from 图书表 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借书（borrow_book）:Option ExplicitDim cnt

57、As Integer '记录确定次数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 '判断输入的借书证号是否为空 MsgBox "借书证号不可以为空", vbOKOnly + vbExclamation, "" Text1.SetFocusElse sql = "select * from 读者表 where 借书证号='" & Text1.Text & "