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