图书馆管理系统源代码.docx
《图书馆管理系统源代码.docx》由会员分享，可在线阅读，更多相关《图书馆管理系统源代码.docx（29页珍藏版）》请在冰豆网上搜索。
图书馆管理系统源代码
源程序清单
1、文件名login（login、frm）
功能说明:
整个系统的登陆界面,需要输入用户名与登陆密码才能进入到系统中,进行借阅等操作。
源代码:
OptionExplicit
DimcntAsInteger
PrivateSubCommand1_Click（）
DimsqlAsString
Dimrs_loginAsNewADODB、Recordset
IfTrim（Combo1、Text）=""Then
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Combo1、SetFocus
Else
sql="select*from系统管理where用户名='"&Combo1、Text&"'"
rs_login、Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login、EOF=TrueThen
MsgBox"没有这个用户",vbOKOnly+vbExclamation,""
Combo1、SetFocus
Else
IfTrim（rs_login、Fields
（1））=Trim（txtpwd、Text）Then
userID=Combo1、Text
rs_login、Close
UnloadMe
form1、Show
Else
MsgBox"密码不正确",vbOKOnly+vbExclamation,""
txtpwd、SetFocus
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
EndIf
ExitSub
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
DimconnectionstringAsString
connectionstring="provider=Microsoft、Jet、oledb、4、0;"&_
"datasource=book、mdb"
conn、Openconnectionstring
cnt=0
EndSub
PrivateSubtxtuser_Change（）
EndSub
2、文件名form1（form1、frm）
功能说明:
整个系统的主界面,其中包括图书管理、读者管理、图书借阅管理、系统管理、关于,以及在这下面的子菜单。
源代码:
PrivateSubadd_admin_Click（）
frmadduser、Show
EndSub
PrivateSubadd_back_book_Click（）
frmbackbookinfo、Show
EndSub
PrivateSubadd_book_info_Click（）
frmaddbookinfo、Show
EndSub
PrivateSubadd_book_style_Click（）
frmaddbookstyle、Show
EndSub
PrivateSubadd_lend_book_Click（）
frmfindbook、Show
EndSub
PrivateSubadd_reader_info_Click（）
frmaddreaderinfo、Show
EndSub
PrivateSubadd_reader_style_Click（）
frmaddreaderstyle、Show
EndSub
PrivateSubchange_pwd_Click（）
frmchangepwd、Show
EndSub
PrivateSubdel_book_info_Click（）
frmmodifybookinfo、Show
EndSub
PrivateSubdel_book_style_Click（）
frmmodifybookstyle、Show
EndSub
PrivateSubdel_reader_info_Click（）
frmreaderinfo、Show
EndSub
PrivateSubdel_reader_style_Click（）
frmmodifyreaderstyle、Show
EndSub
PrivateSubexit_sys_Click（）
End
EndSub
PrivateSubfind_book_info_Click（）
frmfindbook、Show
EndSub
PrivateSubfind_lend_book_Click（）
frmfindborrowinfo、Show
EndSub
PrivateSubfind_reader_info_Click（）
frmfindreader、Show
EndSub
PrivateSubForm_Load（）
EndSub
PrivateSubgly_Click（）
Form2、Show
EndSub
PrivateSubmodify_book_info_Click（）
frmmodifybookinfo、Show
EndSub
PrivateSubmodify_book_style_Click（）
frmmodifybookstyle、Show
EndSub
PrivateSubmodify_reader_info_Click（）
frmreaderinfo、Show
EndSub
PrivateSubmodify_reader_style_Click（）
frmmodifyreaderstyle、Show
EndSub
3、文件名frmaddbookstyle（frmbookstyle、frm）
功能说明:
用于添加图书类别信息。
源代码:
OptionExplicit
PrivateSubCommand1_Click（）
Dimrs_bookstyleAsNewADODB、Recordset
DimsqlAsString
IfTrim（Text1、Text）=""Then
MsgBox"图书种类不能为空",vbOKOnly+vbExclamation,""
Text1、SetFocus
ExitSub
EndIf
IfTrim（Text2、Text）=""Then
MsgBox"种类编号不能为空",vbOKOnly+vbExclamation,""
Text2、SetFocus
ExitSub
EndIf
sql="select*from图书类别where类别名称='"&Text1、Text&"'"
rs_bookstyle、Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_bookstyle、EOFThen
rs_bookstyle、AddNew
rs_bookstyle、Fields（0）=Trim（Text1、Text）
rs_bookstyle、Fields
（1）=Trim（Text2、Text）
rs_bookstyle、Update
MsgBox"添加图书类别成功！
",vbOKOnly,""
rs_bookstyle、Close
Else
MsgBox"读者类别重复！
",vbOKOnly+vbExclamation,""
Text1、SetFocus
Text1、Text=""
rs_bookstyle、Close
ExitSub
EndIf
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
4、文件名frmmodifybookstyle（code）
功能说明:
图书类别管理,可以修改与删除图书类别。
源代码:
OptionExplicit
Dimrs_readerAsNewADODB、Recordset
PrivateSubcmdcancel_Click（）
rs_reader、CancelUpdate
DataGrid1、Refresh
DataGrid1、AllowAddNew=False
DataGrid1、AllowUpdate=False
cmdmodify、Enabled=True
cmddel、Enabled=True
cmdcancel、Enabled=False
cmdupdate、Enabled=False
EndSub
PrivateSubcmddel_Click（）
DimanswerAsString
OnErrorGoTodelerror
answer=MsgBox（"确定要删除不？
",vbYesNo,""）
Ifanswer=vbYesThen
DataGrid1、AllowDelete=True
rs_reader、Delete
rs_reader、Update
DataGrid1、Refresh
MsgBox"成功删除！
",vbOKOnly+vbExclamation,""
DataGrid1、AllowDelete=False
Else
ExitSub
EndIf
delerror:
IfErr、Number<>0Then
MsgBoxErr、Description
EndIf
EndSub
PrivateSubcmdmodify_Click（）
DimanswerAsString
OnErrorGoTocmdmodify
cmddel、Enabled=False
cmdmodify、Enabled=False
cmdupdate、Enabled=True
cmdcancel、Enabled=True
DataGrid1、AllowUpdate=True
cmdmodify:
IfErr、Number<>0Then
MsgBoxErr、Description
EndIf
EndSub
PrivateSubCommand5_Click（）
rs_reader、Update
DataGrid1、Refresh
EndSub
PrivateSubcmdupdate_Click（）
IfNotIsNull（DataGrid1、Bookmark）Then
rs_reader、Update
EndIf
cmdmodify、Enabled=True
cmddel、Enabled=True
cmdcancel、Enabled=False
cmdupdate、Enabled=False
DataGrid1、AllowUpdate=False
MsgBox"保存成功！
",vbOKOnly+vbExclamation,""
EndSub
PrivateSubCommand1_Click（）
UnloadMe
EndSub
PrivateSubForm_Load（）
DimsqlAsString
OnErrorGoToloaderror
sql="select*from图书类别"
rs_reader、CursorLocation=adUseClient
rs_reader、Opensql,conn,adOpenKeyset,adLockPessimistic'打开数据库
cmdupdate、Enabled=False
'设定datagrid控件属性
DataGrid1、AllowAddNew=False'不可增加
DataGrid1、AllowDelete=False'不可删除
DataGrid1、AllowUpdate=False
Ifuserpow="guest"Then'权限相关
Frame2、Enabled=False
EndIf
SetDataGrid1、DataSource=rs_reader
ExitSub
loaderror:
MsgBoxErr、Description
EndSub
5、文件名frmaddbookinfo（frmaddbookinfo、frm）
功能说明:
添加图书信息,包括图书编号、书名、出版日期、入库日期、作者等信息。
源代码:
OptionExplicit
PrivateSubCommand1_Click（）
Dimrs_addbookAsNewADODB、Recordset
DimsqlAsString
IfTrim（Combo1、Text）=""Then
MsgBox"请选择图书种类",vbOKOnly+vbExclamation,""
Combo1、SetFocus
ExitSub
EndIf
IfTrim（Text1、Text）=""Then
MsgBox"图书编号不能为空",vbOKOnly+vbExclamation,""
Text1、SetFocus
ExitSub
EndIf
IfTrim（Text2、Text）=""Then
MsgBox"书名不能为空",vbOKOnly+vbExclamation,""
Text2、SetFocus
ExitSub
EndIf
IfNotIsDate（Text5、Text）Then
MsgBox"请按照yyyy-mm-dd格式输入日期",vbOKOnly+vbExclamation,""
Text5、SetFocus
ExitSub
EndIf
IfNotIsDate（Text6、Text）Then
MsgBox"请按照yyyy-mm-dd格式输入日期",vbOKOnly+vbExclamation,""
Text6、SetFocus
ExitSub
EndIf
sql="select*from书籍信息where书籍编号='"&Text1、Text&"'"
rs_addbook、Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_addbook、EOFThen
rs_addbook、AddNew
rs_addbook、Fields（0）=Trim（Text1、Text）
rs_addbook、Fields
（1）=Trim（Text2、Text）
rs_addbook、Fields
（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_addbook、Close
Else
MsgBox"图书编号重复！
",vbOKOnly+vbExclamation,""
Text1、SetFocus
Text1、Text=""
rs_addbook、Close
ExitSub
PrivateSubForm_Load（）
Dimrs_leibieAsNewADODB、Recordset
DimsqlAsString
sql="select*from图书类别"
rs_leibie、Opensql,conn,adOpenKeyset,adLockPessimistic
rs_leibie、MoveFirst
DoWhileNotrs_leibie、EOF
Combo1、AddItemrs_leibie、Fields（0）
rs_leibie、MoveNext
Loop
rs_leibie、Close
EndSub
PrivateSubFrame1_DragDrop（SourceAsControl,XAsSingle,YAsSingle）
EndSub
6、文件名frmfindbook（form）
功能说明:
查询图书信息,可以选择性的输入图书的编号、名称或者类别查询图书的详细信息。
源代码:
OptionExplicit
DimpanduanAsString
PrivateSubCommand1_Click（）
Dimrs_findbookAsNewADODB、Recordset
DimsqlAsString
IfCheck1、Value=vbCheckedThen
sql="书名='"&Trim（Text1、Text&""）&"'"
EndIf
IfCheck2、Value=vbCheckedThen
IfTrim（sql）=""Then
sql="类别='"&Trim（Combo1、Text&""）&"'"
Else
sql=sql&"and书名='"&Trim（Combo1、Text&""）&"'"
EndIf
EndIf
IfCheck3、Value=vbCheckedThen
IfTrim（sql）=""Then
sql="作者='"&Trim（Text2、Text&""）&"'"
Else
sql=sql&"and作者='"&Trim（Text2、Text&""）&"'"
EndIf
EndIf
IfCheck4、Value=vbCheckedThen
IfTrim（sql）=""Then
sql="出版社='"&Trim（Text3、Text&""）&"'"
Else
sql=sql&"and出版社='"&Trim（Text3、Text&""）&"'"
EndIf
EndIf
IfCheck5、Value=vbCheckedThen
IfTrim（sql）=""Then
sql="书籍编号='"&Trim（Text4、Text&""）&"'"
Else
sql=sql&"and书籍编号='"&Trim（Text4、Text&""）&"'"
EndIf
EndIf
IfTrim（sql）=""Then
MsgBox"请选择查询方式！
",vbOKOnly+vbExclamation
ExitSub
EndIf
sql="select*from书籍信息where"&sql
rs_findbook、CursorLocation=adUseClient
rs_findbook、Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1、AllowAddNew=False
DataGrid1、AllowDelete=False
DataGrid1、AllowUpdate=False
SetDataGrid1、DataSource=rs_findbook
'rs_findbook、Close
EndSub
PrivateSubCommand2_Click（）
UnloadMe
EndSub
PrivateSubCommand3_Click（）
IfTrim（book_num）=""Then
MsgBox"请选择要借阅的图书！
",vbOKOnly+vbExclamation
ExitSub
EndIf
Ifpanduan="就是"Then
MsgBox"此书已被借出！
",vbOKOnly+vbExclamation
ExitSub
EndIf
frmborrowbook、Show
EndSub
PrivateSubDataGrid1_RowColChange（LastRowAsVariant,ByValLastColAsInteger）
book_num=DataGrid1、Columns（0）、CellValue（DataGrid1、Bookmark）
panduan=DataGrid1、Columns（7）、CellValue（DataGrid1、Bookmark）
EndSub
PrivateSubForm_Load（）
Dimrs_findAsNewADODB、Recordset
DimsqlAsString
sql="select*from图书类别"
rs_find、Opensql,conn,adOpenKeyset,adLockPessimistic
rs_find、MoveFirst
IfNotrs_find、EOFThen
DoWhileNotrs_find、EOF
Combo1、AddItemrs_find、Fields（0）
rs_find、MoveNext
Loop
Combo1、ListIndex=0
EndIf
rs_find、Close
EndSub
7、文件名frmaddreaderstyle（frmaddreaderstyle、frm）
功能说明:
添加读者的类别。
源代码:
OptionExplicit
Dimrs_readerstyleAsNewADODB、Recordset
PrivateSubCommand1_Click（）
DimsqlAsString
IfTrim（Text1、Text）=""Then
MsgBox"读者种类不能为空",vbOKOnly+vbExclamation,""
Text1、SetFocus
ExitSu
升级会员 