软件工程.docx
- 文档编号:5491374
- 上传时间:2022-12-17
- 格式:DOCX
- 页数:12
- 大小:284.25KB
软件工程.docx
《软件工程.docx》由会员分享,可在线阅读,更多相关《软件工程.docx(12页珍藏版)》请在冰豆网上搜索。
软件工程
软件工程课程设计
设计题目:
图书管理系统
专业班级:
软件工程2011级3班
设计人:
周少帅201101051837
山东科技大学
2013年12月27日
一、模块内容:
管理员对借书还书功能的代码实现。
借阅者对登录密码修改的代码实现,和对图书进行查询的代码实现。
二、实验设备:
PC机,MicrosoftVisualBasic8.0
三、实验原理:
本系统应该完成一个中小型图书馆的所有功能,包括以下内容:
1、登录图书管理系统
此操作由管理员或用户用自己的用户名和密码登录系统。
2、图书管理
(1)、图书类别管理
单击“图书管理”菜单下的“图书类别管理”,进入图书类别管理,再单击子菜单可以添加、修改、删除“图书类别”。
(2)、图书信息管理
单击“图书管理”菜单下的“图书信息管理”,进入图书信息管理,再单击子菜单可以添加、修改、删除、查询“图书信息”。
3、读者管理
(1)、读者类别管理
单击“读者管理”菜单下的“读者类别管理”,进入读者类别管理,再单击该菜单的子菜单,可以添加、修改、删除读者类别。
(2)、读者信息管理
单击“读者管理”菜单下的“读者信息管理”,再单击该菜单的子菜单,可以添加、修改、删除、查询读者信息。
4、图书借阅管理
(1)、借书管理
单击“图书借阅管理”菜单下的“借书管理”,再单击该菜单下的子菜单,可以添加、查询借书信息。
(2)、还书管理
单击“图书借阅管理”菜单下的“还书管理”,再单击该菜单下的子菜单,可以添加还书信息。
5、系统管理
(1)、添加管理员
单击“系统管理”菜单下的子菜单“添加管理员”添加系统管理员
(2)、修改密码
单击“系统管理”菜单下的子菜单“修改密码”即可修改密码。
(3)、退出系统
单击“系统管理”菜单下的“退出系统”,即可成功退出系统。
四、本人完成的部分:
管理员对借书还书功能的代码实现。
借阅者对登录密码修改的代码实现,和对图书进行查询的代码实现。
5、数据流图:
6、详细设计:
1、数据库概念结构设计
实体之间关系的E-R图
2、详细设计以及实现
(1)修改密码
进入“系统管理”菜单后,单击“修改密码”子菜单进入上图界面:
用户可在该界面中更改密码,在确定按键中主要程序如下:
Dimrs_changAsNewADODB.Recordset
DimsqlAsString
IfTrim(Text1.Text)<>Trim(Text2.Text)Then
MsgBox"密码不一致!
",vbOKOnly+vbExclamation,""
Text1.SetFocus
Text1.Text=""
Text2.Text=""
Else
sql="select*from系统管理where用户名='"&userID&"'"
rs_chang.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_chang.Fields
(1)=Text1.Text
rs_chang.Update
rs_chang.Close
MsgBox"密码修改成功",vbOKOnly+vbExclamation,""
UnloadMe
EndIf
系统功能说明:
为管理员修改密码。
进入“系统管理”菜单后,单击“退出系统”子菜单即可退出系统,其主要程序如下:
End
系统功能说明:
退出系统管理系统,回到主界面。
(2)借书管理。
A、添加借书信息
在“借书管理”菜单中单击“添加借书信息”后进入下图界面:
添加借书信息窗体中的确定按键中的程序如下:
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
B、查询借书信息
在“借书管理”菜单中单击“查询借书信息”后进入下图界面:
可以选中“查询已借出信息”然后点击“开始查询”,可以查看已经借出图书的信息。
如下下图所示:
查询借书信息窗体中的开始查询按键中的程序如下:
DimsqlAsString
Dimrs_findAsNewADODB.Recordset
IfOption1.Value=TrueThen
sql="select*from书籍信息where是否被借出='是'"
EndIf
IfOption2.Value=TrueThen
sql="select*from书籍信息where是否被借出='否'"
EndIf
IfOption3.Value=TrueThen
sql="select*from借阅信息where读者姓名='"&Text1.Text&"'"
EndIf
rs_find.CursorLocation=adUseClient
rs_find.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
SetDataGrid1.DataSource=rs_find
(3)还书管理
A、添加还书信息
单击“添加还书信息”即可进入下图界面:
选择相应的信息即可查询相关的还书信息,还书窗体中的两个查询按键程序大同小异,其按键中的程序如下:
Dimrs_readerAsNewADODB.Recordset
DimsqlAsString
findform=True
sql="select*from借阅信息where读者姓名='"&Combo2.Text&"'"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
SetDataGrid1.DataSource=rs_reader
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
还书窗体中的还书按键中的程序如下:
Dimbook_numAsString
Dimreader_numAsString
DimanswerAsString
Dimrs_backAsNewADODB.Recordset
DimsqlAsString
OnErrorGoTodelerror
book_num=DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark)
reader_num=DataGrid1.Columns
(1).CellValue(DataGrid1.Bookmark)
answer=MsgBox("确定要还这本书吗?
",vbYesNo,"")
Ifanswer=vbYesThen
sql="select*from借阅信息where书籍编号='"&book_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Delete
rs_back.Update
rs_back.Close
sql="select*from书籍信息where书籍编号='"&book_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Fields(7)="否"
rs_back.Update
rs_back.Close
sql="select*from读者信息where读者编号='"&reader_num&"'"
rs_back.CursorLocation=adUseClient
rs_back.Opensql,conn,adOpenKeyset,adLockPessimistic
rs_back.Fields(8)=rs_back.Fields(8)-1
rs_back.Update
rs_back.Close
Iffindform=TrueThen
Command1_Click
Else
Command2_Click
EndIf
MsgBox"成功删除!
",vbOKOnly+vbExclamation,""
DataGrid1.AllowDelete=False
Else
ExitSub
EndIf
delerror:
IfErr.Number<>0Then
MsgBoxErr.Description
EndIf
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 软件工程