数据库课程设计 图书音像管理系统Word文件下载.docx
- 文档编号:20166106
- 上传时间:2023-01-17
- 格式:DOCX
- 页数:36
- 大小:1.33MB
数据库课程设计 图书音像管理系统Word文件下载.docx
《数据库课程设计 图书音像管理系统Word文件下载.docx》由会员分享,可在线阅读,更多相关《数据库课程设计 图书音像管理系统Word文件下载.docx(36页珍藏版)》请在冰豆网上搜索。
音像信息的浏览分为光盘信息的浏览和磁带信息的浏览;
音像信息的查询分为光盘信息的查询和磁带信息的查询,查询时都可以进行模糊查询;
修改同样包含光盘信息的修改和磁带信息的修改。
(4)系统菜单只包含“退出”子菜单,点击可以结束程序。
2.2E-R模型
该管理系统中主要包含4个实体:
密码表、图书信息、光盘信息和磁带信息。
由于所有的实体之间不存在明显的联系,所以在这里只给出了单个实体及其属性图,没有完整的实体联系图。
单个实体及其属性图如下:
图a:
密码表及其属性图图b:
图书实体及其属性图
图c:
光盘实体及其属性图图d:
磁带实体及其属性图
2.3关系模型
(1)密码表(用户名,密码)
(2)图书信息(书名,作者,价格,购买日期,类别,状态)
(3)光盘信息(光盘名,出版社,价格,购买时间,类别,状态)
(4)磁带信息(磁带名,磁带作者,价格,购买时间,类别,状态)
2.4表结构设计
启动SQLServer2000建立数据库课程设计,在该数据库中,用可视化的方法进行建表,要建的表有密码表、图书信息、光盘信息和磁带信息四个表,所建各表的表信息如下:
表1:
密码表:
表2:
图书信息:
表3:
光盘信息:
表4:
磁带信息:
第三章系统各功能模块的详细设计
3.1欢迎界面的设计
点击欢迎界面上的欢迎词“欢迎进入个人图书音像管理系统”时即可跳转到MDIForm1主界面,欢迎词用Label控件进行添加,程序运行时欢迎界面最大化。
控件属性值表:
控件名
属性名
属性值
Label1
Caption
欢迎进入个人图书音像管理系统
Font
宋体、二号
ForeColor
红色
欢迎界面如下图所示:
对应代码如下:
PrivateSubLabel1_Click()
MDIForm1.Show
EndSub
3.2主控界面
主控界面是MDI窗体,含有的主菜单包含:
文件、图书管理、音像管理和系统。
在未登录之前只有文件和系统两菜单可用,成功登录之后图书管理和音像管理两个主菜单变为可用的。
主控界面的详细情况如下:
[文件]包含以下子菜单和功能:
[登录]菜单:
打开登录界面
[图书管理]菜单包含以下子菜单和功能:
[图书信息的浏览]菜单:
显示图书信息的浏览窗体
[图书信息的查询]菜单:
显示图书信息的查询窗体
[图书信息的修改]菜单:
显示图书信息的修改窗体
[音像管理]菜单包含以下子菜单和功能:
[音像信息的浏览]菜单:
包括[光盘信息的浏览]和[磁带信息的浏览]两个子菜单
[光盘信息的浏览]菜单:
显示光盘信息的浏览窗体
[磁带信息的浏览]菜单:
显示磁带信息的浏览窗体
[音像信息的查询]菜单:
包括[光盘信息的查询]和[磁带信息的查询]两个子菜单
[光盘信息的查询]菜单:
显示光盘信息的查询窗体
[磁带信息的查询]菜单:
[音像信息的修改]菜单:
包括[光盘信息的修改]和[磁带信息的修改]两个子菜单
[光盘信息的修改]菜单:
显示光盘信息的修改窗体
[磁带信息的修改]菜单:
显示磁带信息的修改窗体
[系统]菜单包含以下子菜单和功能:
[退出]菜单:
关闭程序
主控界面的设计如下图所示:
PrivateSubCchaxun_Click()
fcchaxun.Show
PrivateSubCliulan_Click()
fcliulan.Show
PrivateSubCxiugai_Click()
fcxiugai.Show
PrivateSubdenglu_Click()
fdenglu.Show
PrivateSubGchaxun_Click()
fgchaxun.Show
PrivateSubGliulan_Click()
fgliulan.Show
PrivateSubGxiugai_Click()
fgxiugai.Show
PrivateSubMDIForm_Load()
tushuguanli.Enabled=False
yinxiangguanli.Enabled=False
PrivateSubTchazhao_Click()
ftchaxun.Show
PrivateSubTchaxun_Click()
PrivateSubTliulan_Click()
ftliulan.Show
PrivateSubtuichu_Click()
End
PrivateSubTxiugai_Click()
ftxiugai.Show
3.3登录和注册界面
(1)登录界面的设计
用Label控件添加“用户名”和“密码”显示在界面上,并在后面用TextBox控件添加练个输入区,三个按钮则由CommandButton控件进行添加,最后由Adodc控件与数据库相连。
用户名
Command2
取消
楷体、小四
Label2
密码
Command3
注册
Command1
登录
登录界面如下:
当输入的用户名不存在或者密码错误时系统会给出警告:
对应的代码如下:
DimmiCountAsInteger
PrivateSubCommand1_Click()
StaticmiCountAsInteger
DimsqlstrAsString
sqlstr="
Select*from密码表Where用户名='
"
&
Text1&
"
'
Adodc1.RecordSource=sqlstr
Adodc1.Refresh
IfAdodc1.Recordset.BOFThen
MsgBox"
用户名错误,重新输入"
vbExclamation,"
警告"
Text1.Text="
:
Text1.SetFocus
Else
IfAdodc1.Recordset.Fields("
密码"
)=Text2Then
MDIForm1.tushuguanli.Enabled=True
MDIForm1.yinxiangguanli.Enabled=True
UnloadMe
密码错误,重新输入"
Text2.Text="
Text2.SetFocus
EndIf
miCount=miCount+1
IfmiCount=3ThenUnloadMe
PrivateSubCmdCancel_Click()
PrivateSubCommand2_Click()
PrivateSubCommand3_Click()
fzhuce.Show
(2)注册界面的设计
该界面主要有CommandButton控件添加两个按钮“确认”和“取消”,Label控件添加的四个标签以及TextBox控件添加的三个输入区,最后由Adodc控件和“密码表”连接。
注册新用户
Label4
确认密码
宋体、小四
楷体、五号
输入用户名
确认
Label3
输入密码
注册界面如下:
当两次输入的密码不同和注册成功时都会给出提示:
IfText1="
Then
请输入用户名!
确认用户名"
Text1.SetFocus
ExitSub
Select*from密码表where用户名='
IfAdodc1.Recordset.EOF=FalseThen
用户名已存在,请重新输入!
检验用户名"
Text1="
IfText2<
>
Text3Then
二次输入的密码不一致,请重新输入"
检验密码"
Text2="
Text3="
Text2.SetFocus
ElseIfText2="
密码不能为空!
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("
用户名"
)=Trim(Text1)
)=Trim(Text2)
Adodc1.Recordset.Update
Me.Hide
成功注册新用户!
vbInformation,"
添加用户"
3.4浏览界面
(1)图书信息浏览界面
该界面浏览时支持向前或者向后逐条浏览记录,但是到达首记录时“前移”按钮失效,到达末记录时“后移”按钮失效。
另外,还可以根据需求进行跳跃式浏览,在界面上还可以显示你当前浏览的记录在表中的位置。
Text1
DataSource
Adodc1
Text4
DataField
书名
购买日期
Locked
True
Text2
Text5
作者
类别
Text3
Text6
价格
状态
作用
CmdFirst
首记录
将指针移动到第一条记录
CmdPre
前移
指针向前移动一个记录
CmdNext
后移
指针向后移动一条记录
CmdLast
末记录
指针移动到最后一条记录
CmdN
移动记录数
一次移动n条记录
Text7
Text
空
输入要移动的记录数
Label7
显示当前记录数和记录总数
图书浏览界面如下(首记录):
输入移动记录数:
PrivateSubCmdFirst_Click()
Adodc1.Recordset.MoveFirst
CmdFirst.Enabled=False
CmdPre.Enabled=False
CmdNext.Enabled=True
CmdLast.Enabled=True
Label7.Caption="
记录:
Adodc1.Recordset.AbsolutePosition&
/"
&
Adodc1.Recordset.RecordCount
PrivateSubCmdPre_Click()
Adodc1.Recordset.MovePrevious
PrivateSubCmdNext_Click()
Adodc1.Recordset.MoveNext
CmdFirst.Enabled=True
CmdPre.Enabled=True
IfAdodc1.Recordset.EOFThen
Adodc1.Recordset.MoveLast
CmdNext.Enabled=False
CmdLast.Enabled=False
PrivateSubCmdLast_Click()
PrivateSubCmdN_Click()
DimnAsInteger
n=Text7.Text
Adodc1.Recordset.Moven
PrivateSubForm1_Load()
(2)光盘信息浏览界面
由于光盘信息的浏览和图书信息的浏览及其类似,所以在这里不再赘述。
(3)磁带信息浏览界面和图书浏览的功能和界面都类似,所以也不再给出。
3.5查询界面
(1)图书信息查询界面
查询时分为两种情况的查询,一种是按“书名”、“作者”、“价格”查询,由Combo控件控制,可以按需求选择,查询时都可以进行模糊查询,并可以显示出查询到的记录的数量。
第二种,按“购买日期”、“状态”和“类别”查询,此时添加了一个“统计”按钮,可以把查询到的所有记录的总价格统计出来。
①第一种查询条件
查询条件
统计
查询信息
其他条件查询
查询
DataGrid1
图书查询界面如下:
DimstrAsString
str="
Select*From图书信息"
str=str&
Where图书信息."
Combo1.Text&
Like'
%'
Adodc1.RecordSource=str
Label3.Caption="
找到相关信息的数量:
fttongji.Show
PrivateSubForm_Load()
Combo1.AddItem"
书名"
作者"
价格"
②第二种查询条件
按购买日期查询
按类别查询
按状态查询
Adodc2
查询界面如下:
IfOption1=TrueThen
Where图书信息.购买日期like'
IfOption2=TrueThen
Dimstr1AsString
str1="
str1=str1&
Where图书信息.类别like'
Combo2.Text&
Adodc1.RecordSource=str1
IfOption4=TrueThen
Dimstr2AsString
str2="
str2=str2&
Where图书信息.状态like'
Combo3.Text&
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 数据库课程设计 图书音像管理系统 数据库 课程设计 图书 音像 管理 系统