图书馆管理系统源代码Word文档格式.docx
- 文档编号:16656161
- 上传时间:2022-11-25
- 格式:DOCX
- 页数:29
- 大小:19.31KB
图书馆管理系统源代码Word文档格式.docx
《图书馆管理系统源代码Word文档格式.docx》由会员分享,可在线阅读,更多相关《图书馆管理系统源代码Word文档格式.docx(29页珍藏版)》请在冰豆网上搜索。
Else
IfTrim(rs_login.Fields
(1))=Trim(txtpwd.Text)Then
userID=Combo1.Text
rs_login.Close
UnloadMe
form1.Show
密码不正确"
txtpwd.SetFocus
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
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
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)="
类别='
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.MoveFirst
IfNotrs_find.EOFThen
DoWhileNotrs_find.EOF
Combo1.AddItemrs_find.Fields(0)
rs_find.MoveNext
Loop
Combo1.ListIndex=0
rs_find.Close
7、文件名frmaddreaderstyle(frmaddreaderstyle.frm)
添加读者的类别。
Dimrs_readerstyleAsNewADODB.Recordset
读者种类不能为空"
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书馆 管理 系统 源代码