图书馆管理系统源代码.docx
《图书馆管理系统源代码.docx》由会员分享,可在线阅读,更多相关《图书馆管理系统源代码.docx(30页珍藏版)》请在冰豆网上搜索。
图书馆管理系统源代码
源程序清单
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,adLockPessimisticIfrs_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=Truers_reader.Deleters_reader.Update
DataGrid1.Refresh
MsgBox"成功删除!
",vbOKOnly+vbExclamation,""DataGrid1.AllowDelete=False
Else
ExitSub
EndIfdelerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubcmdmodify_Click()DimanswerAsStringOnErrorGoTocmdmodifycmddel.Enabled=Falsecmdmodify.Enabled=Falsecmdupdate.Enabled=Truecmdcancel.Enabled=TrueDataGrid1.AllowUpdate=Truecmdmodify:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
EndSub
PrivateSubCommand5_Click()
rs_reader.Update
DataGrid1.Refresh
EndSub
PrivateSubcmdupdate_Click()
IfNotIsNull(DataGrid1.Bookmark)Thenrs_reader.Update
EndIf
cmdmodify.Enabled=Truecmddel.Enabled=True
cmdcancel.Enabled=Falsecmdupdate.Enabled=False
DataGrid1.AllowUpdate=False
MsgBox"保存成功!
",vbOKOnly+vbExclamation,""EndSub
PrivateSubCommand1_Click()
UnloadMe
EndSub
PrivateSubForm_Load()
DimsqlAsString
OnErrorGoToloaderror
sql="select*from图书类别"
打开数
rs_reader.CursorLocation=adUseClientrs_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,adLockPessimisticrs_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=adUseClientrs_findbook.Opensql,conn,adOpenKeyset,adLockPessimisticDataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=FalseDataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_findbook'rs_findbook.Close
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
IfTrim(book_num)=""Then
MsgBox"请选择要借阅的图书!
",vbOKOnly+vbExclamationExitSub
EndIf
Ifpanduan="是"Then
MsgBox"此书已被借出!
",vbOKOnly+vbExclamation
ExitSub
EndIf
frmborrowbook.Show
EndSub
PrivateSubDataGrid1_RowColChange(LastRowAsVariant,ByVal
LastColAsInteger)
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
ExitSub
EndIf
IfTrim(Text2.Text)=""Then
MsgBox"借书数量不能为空",vbOKOnly+vbExclamation,""