计算机系课程设计与实现.docx
- 文档编号:27348773
- 上传时间:2023-06-29
- 格式:DOCX
- 页数:18
- 大小:171.50KB
计算机系课程设计与实现.docx
《计算机系课程设计与实现.docx》由会员分享,可在线阅读,更多相关《计算机系课程设计与实现.docx(18页珍藏版)》请在冰豆网上搜索。
计算机系课程设计与实现
沈阳航空航天大学北方科技学院
课程设计说明书
课程名称:
音像制品租赁管理信息系统
学生姓名XXX
专业信息管理与信息系统
班级XXXXXXXXXX
学号XXXXXXXXXX
指导教师XXX
成绩
沈阳航空航天大学北方科技学院
课程设计任务书
信息管理与信息系统专业_XXXX班学生XXX
一、课程设计题目:
音像制品租赁管理信息系统
二、课程设计工作自2010年12月20日至2011年1月8日止
三、课程设计的内容及要求
1.强化面向对象程序设计和数据库应用的基础知识,比较熟练应用软件开发工具设计管理信息系统,掌握应用系统的分析、设计、编码和调试的基本方法和过程。
2.掌握数据库技术和应用。
3.具体内容
(1)创建数据库和表
(2)系统主要功能
结合题目和实际需求,完成相应数据信息的编辑(添加、修改、删除)、浏览、查询、统计、打印预览和系统维护(密码设置)等功能。
(3)窗口设计
系统封面设计、系统登录表单设计、数据编辑表单设计、数据浏览表单设计、数据查询表单设计、报表打印预览设计和密码设置。
(4)系统主菜单设计(结合系统功能)。
系统界面友好、设计合理、操作简单。
4.要求:
课设结束后,上交软件系统和课程设计说明书。
课程设计说明书的主要内容:
需求分析、总体设计、详细设计;参考书、课设总结。
指导教师:
负责教师:
学生签名:
目录
第1章系统分析1
1.1系统开发背景分析1
1.2需求分析1
第2章总体设计2
2.1系统主要功能2
2.2系统结构功能图2
第3章系统设计3
3.1设计目标3
3.2开发及运行环境3
3.3数据库设计3
第4章主要功能模块设计5
4.1主窗体设计5
4.2登录窗口5
4.3查询管理窗口8
4.4浏览操作窗口10
4.5密码修改窗口12
第5章总结15
附录A参考文献16
第1章系统分析
1.1系统开发背景分析
随着电子计算机和通信技术的发展,人类已经逐渐地进入信息社会。
信息和材料、能源一样成为一种社会的基本生产资料,在人类的社会生产活动中发挥着重要的作用。
同时人们对信息和数据的利用与处理也已进入自动化、网络化和社会化的阶段,因此,开发相关的管理信息系统已经成为各行各业的必要和必需了,管理信息系统作为一门边缘学科,集管理学、信息科学、系统科学、现代通信技术和电子计算机技术于一体,可以解决企业或组织所面临的问题,对内来看,可以提高工作效率;对来看,获得竞争优势。
音像制品租赁的管理是一个常见的问题,其特点是数据之间的关系简单,但数据量较大。
大多数管理者管理音像制品都是采用人工的方式。
随着印象的增多,经营业务也不断增加,经营者不得不雇越来越多的店员来管理这些事务,这样做的代价毫无疑问是成本的增加,这也是经营者最不愿意看到的情况。
若用人工进行管理,不便于数据的汇总统计及各种数据分析。
随着计算机的普及以及相关技术的发展,开发一个音像制品出租管理信息系统的时机已经成熟。
音像制品出租管理信息系统可以避免音像店制品管理的随意性,使得管理工作规范化、系统化、程序化,提高信息处理的速度和准确性,对于减轻工作人员的劳动量、提高劳动热情和服务质量,具有重要的现实意义。
1.2需求分析
根据市场的需求,要求系统具有以下功能:
❑由于该系统的使用对象较多,要求有严密的权限管理。
❑具有数据备份及数据恢复的功能,确保系统的安全性。
❑方便的全方位的数据查询。
❑强大的报表打印功能。
❑在相应的权限下,可以删除或修改数据。
第2章总体设计
2.1系统主要功能
音像制品租赁管理信息系统是一个非常有特点的管理软件,系统主要完成对音像制品出租管理信息系统的需求分析、功能模块划分、数据库模式分析,并由此设计数据库结构和应用程序。
并最终实现一个能够满足音像店音像制品出租管理信息系统。
此系统的开发具有很强的实用性。
具体包括一下功能:
1、音像信息管理模块
主要是对音像制品的基本操作,如添加、修改、删除、查询、浏览。
2、系统管理模块
对管理员操作有操作员设置、密码修改、系统数据清理、打印/预览。
2.2系统结构功能图
图2-1音像制品出租管理信息系统功能结构图
第3章系统设计
3.1设计目标
本系统主要是根据中小企业的需求而设计的,完全能够实现企业对客户的自动化管理,通过本系统可以达到以下目标:
❑系统运行稳定,安全可靠。
❑界面设计美观,人机交互界面友好。
❑信息查询灵活、方便、快捷、准确,数据存储安全可靠。
❑满足键盘和鼠标的双重操作,完全支持回车键。
❑采用多种方式查询数据。
❑操作员可以随时修改自己的口令。
❑对用户输入的数据,系统进行严格的数据检验,尽可能排除人为的错误。
❑数据保密性强,为每个用户设置相应的权限级别。
3.2开发及运行环境
系统开发平台:
MicrosoftVisualBasic6.0
运行平台:
Windowsxp/Windows2000/Windows98
3.3数据库设计
本系统采用Access设计数据库,本系统中包括如下数据表。
下面分别给出数据表的结构。
1、数据表结构
(1)、tb_mima(密码表)
密码表主要用于用户的登陆操作。
该表结构如表3.1所示。
字段名
数据类型
长度
描述
yonghu
varchar
30
用户名
mima
numeric
9
密码
表3.1密码表
(2)tb_xinxi(信息表)
音像制品出租信息表主要保存租盘人的详细信息。
该数据表的结构如表3.2所示。
字段名
数据类型
长度
描述
bianhao
varchar
20
编号
leixing
varchar
20
光盘类型
chuzuriqi
varchar
30
出租日期
guihuanriqi
varchar
30
归还日期
表3.2信息表
第4章主要功能模块设计
4.1主窗体设计
主窗体是显示系统主要操作功能的面板,在系统主窗体的菜单栏中,可以通过菜单或单击窗体左侧的树状列表以及右侧的功能列表来控制其他功能子窗体,并且根据不同的操作员赋予相应的操作权限。
系统主窗体的运行结果如图4-1所示。
图4-1系统主窗口的运行结果
4.2登录窗口
登陆模块主要是一个身份验证的过程,验证用户名和密码的合法性,当输入管理员姓名和密码都正确时,点击“确定”进入主窗口,对系统有管理、维护、更新的权限,可以对系统进行添加、修改、删除和查询。
当管理员姓名与密码错误时,点击“确定”,系统会提示“没有此用户或密码错误”。
系统登录窗口的运行结果如图4-2所示。
图4-2登录窗口运行结果
代码设计:
登陆的实现代码如下:
PrivateSubCommand1_Click()
DimMPasswordAsString
Adodc1.RecordSource="select*frommimawhereyonghu='"&Text1.Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount>0Then
MPassword=Adodc1.Recordset.Fields("mima")
IfText2.Text=MPasswordThen'判断数据的密码是否正确
Name1=Text1.Text
Form5.Show
UnloadMe
Else
MsgBox"密码不正确,请您确认后重新输入",48,"警告"
Text2.Text=""
Text2.SetFocus
EndIf
Else
MsgBox"对不起没有此用户的信息",48,"警告"
Text1.Text=""
Text2.Text=""
EndIf
EndSub
点击头像时直接显示用户名,从而不用再次输入用户名功能的实现代码如下:
PrivateSubForm_Load()
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount>0Then
ListView1.Enabled=True
ListView1.ListItems.Clear
i=1
Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset.EOF=False
Key=Adodc1.Recordset.Fields("yonghu")
Setitmx=ListView1.ListItems.Add(,,Key,i)
i=i+1
Adodc1.Recordset.MoveNext
Loop
Else
ListView1.Enabled=False
EndIf
EndSub
PrivateSubListView1_Click()
Text1.Text=ListView1.SelectedItem
Text2.SetFocus
EndSub
退出的实现代码如下:
PrivateSubCommand2_Click()
UnloadMe
EndSub
4.3查询管理窗口
当进入该窗口时,管理员可以对相关信息进行全方位查询,还可以进行查找、新增、删除、更新、放弃等管理操作。
系统查询窗口的运行结果如图4-3所示。
图4-3查询窗口的运行结果
查询窗口功能实现代码如下:
PrivateSubCommand1_Click(IndexAsInteger)
DimaskAsInteger
SelectCaseIndex
Case0
Adodc1.Recordset.MoveFirst
Case1
Adodc1.Recordset.MovePrevious
IfAdodc1.Recordset.BOFThenAdodc1.Recordset.MoveFirst
Case2
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
Case3
Adodc1.Recordset.MoveLast
Case4
mmo=InputBox("请输入姓名","查找窗")
Adodc1.Recordset.Find"zuren='"&mmo&"'",,,1
IfAdodc1.Recordset.EOFThenMsgBox"无此姓名!
",48,"提示"
EndSelect
EndSub
PrivateSubCommand2_Click(IndexAsInteger)
DimaskAsInteger
SelectCaseIndex
Case0
Adodc1.Recordset.AddNew
Case1
ask=MsgBox("删除吗?
",vbYesNo)
Ifask=6Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
IfAdodc1.Recordset.EOFThenAdodc1.Recordset.MoveLast
EndIf
Case2
Adodc1.Recordset.Update
Case3
Adodc1.Recordset.CancelUpdate
Case4
UnloadMe
EndSelect
EndSub
4.4浏览操作窗口
进入此窗口可以对相关信息进行全方位浏览,在必要时候可以打印/预览,还可以直观的以饼图模式表达出数据的状态,方便管理员的管理。
系统浏览窗口的运行结果如图4-4所示。
图4-4浏览窗口运行结果
图4-5单项查询窗口运行结果
系统的浏览窗口功能的实现代码如下:
PrivateSubCommand1_Click()
Adodc1.RecordSource="select*fromxinxiwhereleixing='"&Text1&"'"
Adodc1.Refresh
EndSub
PrivateSubCommand2_Click()
UnloadMe
EndSub
PrivateSubCommand3_Click()
Adodc1.RecordSource="selectleixing,count(*)as个数fromxinxigroupbyleixing"
Adodc1.Refresh
EndSub
4.5密码修改窗口
系统维护模块中的密码修改功能可以实现管理员的密码在不安全的情况下进行修改,从而提高系统的安全性。
系统修改密码窗口的运行结果如图4-6所示。
图4-6密码修改窗口的运行结果
系统中实现密码修改功能的代码如下:
PrivateSubCommand1_Click()
DimMPasswordAsString
Adodc1.RecordSource="select*frommimawhereyonghu='"&Text1.Text&"'"
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount>0Then
MPassword=Adodc1.Recordset.Fields("mima")
IfText2.Text=MPasswordThen
Name1=Text1.Text
IfText3=Text4Then
Adodc1.Recordset.Fields("mima")=Text4
Adodc1.Recordset.Update
MsgBox"修改成功!
",vbOKOnly,"提示"
Else
MsgBox"新密码输入不一样!
",5+vbCritical,"提示"
Text3.Text="":
Text3.SetFocus
Text4.Text=""
EndIf
Else
MsgBox"密码不正确,请您确认后重新输入!
",5+vbExclamation,"提示信息"
Text2.Text=""
Text2.SetFocus
EndIf
Else
MsgBox"对不起没有此用户的信息",5+vbCritical,"提示信息"
Text1.Text="":
Text1.SetFocus
Text2.Text=""
EndIf
EndSub
PrivateSubCommand2_Click()
Form5.Show
UnloadMe
EndSub
PrivateSubForm_Load()
Adodc1.Refresh
IfAdodc1.Recordset.RecordCount>0Then
ListView1.Enabled=True
ListView1.ListItems.Clear
i=1
Adodc1.Recordset.MoveFirst
DoWhileAdodc1.Recordset.EOF=False
Key=Adodc1.Recordset.Fields("yonghu")
Setitmx=ListView1.ListItems.Add(,,Key,i)
i=i+1
Adodc1.Recordset.MoveNext
Loop
Else
ListView1.Enabled=False
EndIf
Text2=""
Text2.PasswordChar="*"
Text3=""
Text3.PasswordChar="*"
Text4=""
Text4.PasswordChar="*"
EndSub
PrivateSubListView1_Click()
Text1.Text=ListView1.SelectedItem
Text2.SetFocus
Text2=""
EndSub
第5章总结
通过这次课程设计,我更加深入的了解与掌握了很多相关知识。
拓宽了知识面,锻炼了能力,综合素质得到较大提高。
作为一个信管专业的学生,深入学习程序设计很重要。
所以我觉得更要好好的学习。
通过课程设计对VB和相关软件的理解提升了一个高度,让我体会到了真正管理信息系统设计的大体流程,也增加对相关软件的熟悉程度,为以后做毕业设计打好基础,也为今后从事程序设计行业打下了良好的基础,总之,管理信息系统课程设计使我收获了很多,也学了很多,很有意义。
实践是检验真理的唯一标准,在经过了这段时间对程序设计的实践,我从一知半解到现在基本掌握了相关知识,我对自己的专业有了更全面、更深入的认识,而且在实践中学习程序语言的编程与系统整体设计,能够很快的掌握它们的核心概念和应用方法,从而进一步提高了自己的学习能力。
我最大的感悟就是:
做任何事情都要用心,只要努力,必有令人满意的结果。
最后,非常感谢老师在百忙之中对我的指导,在此我要向我的指导老师致以最衷心的感谢和深深的敬意!
附录A参考文献
1.VisualBasic精彩编程200例机械工业出版社王国辉、董韶华等2004年9月
2.Access数据库开发关键技术与实例应用人民邮电出版社周桓、张雨、王国辉2004年5月
3.VisualBasic管理信息系统完整项目实例剖析人民邮电出版社明日科技2005年7月
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 计算机系 课程设计 实现