可视化编程课程设计--vb影碟出租管理系统设计推荐.docVIP

可视化编程课程设计--vb影碟出租管理系统设计推荐.doc

  1. 1、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。。
  2. 2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  3. 3、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
  4. 4、该文档为VIP文档,如果想要下载,成为VIP会员后,下载免费。
  5. 5、成为VIP后,下载本文档将扣除1次下载权益。下载后,不支持退款、换文档。如有疑问请联系我们
  6. 6、成为VIP后,您将拥有八大权益,权益包括:VIP文档下载权益、阅读免打扰、文档格式转换、高级专利检索、专属身份标志、高级客服、多端互通、版权登记。
  7. 7、VIP文档为合作方或网友上传,每下载1次, 网站将根据用户上传文档的质量评分、类型等,对文档贡献者给予高额补贴、流量扶持。如果你也想贡献VIP文档。上传文档
查看更多
可视化编程课程设计--vb影碟出租管理系统设计推荐

可视化编程技术 课程设计(论文) 题目: 影碟出租管理系统 目 录 第1章 课程设计目的与要求 1 1.1 课程设计目的 1 1.2 课程设计的实验环境 1 1.3 课程设计的预备知识 1 1.4 课程设计要求 1 第2章 课程设计内容 2 2.1 系统功能设计 2 2.2 系统详细设计 2 2.3 系统运行与测试 17 第3章 课程设计总结 19 参考文献 20 课程设计目的与要求 1.1 课程设计目的 本课程的课程设计实际是学生学习完《可视化编程技术》课程后,进行的一次全面的综合训练,其目的在于加深对可视化编程技术基本知识的理解,掌握运用VB开发应用程序的基本方法及基本技巧。 1.2 课程设计的实验环境 硬件要求能运行Windows 9.X操作系统的微机系统。 软件:Microsoft Visual Basic 6.0 Microsoft Access 2003 1.3 课程设计的预备知识 熟悉Visual Basic 6.0程序设计的基本语法知识及常用技巧。 1.4 课程设计要求 按课程设计指导书提供的课题,每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求,按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间,并独立完成各方面的设计。选择同一题目的同学,可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书,对有复杂的代码段和程序段的部分,应画出程序流程图,写出全部的代码。在界面设计中,需画出每个窗体的布局,进行属性说明,杜绝雷同。 课程设计内容 2.1系统功能设计 2.1.1 系统功能分析 影碟出租管理系统主要用于辅助音像店完成影碟出租管理方面的相关功能,包括: 会员管理。主要是对会员信息进行添加、修改、删除和查询。 类别管理。主要完成影碟类别的添加、修改、删除和列表显示。 影碟管理。主要完成影碟信息的添加、修改、删除和查询。 租借管理。主要完成影碟的出租、归还和租借信息查询。 2.1.2 系统功能模块设计(如图2.1) 影碟出租管理系统 租借 查询 添加 结算 设置 用户 登 陆 修改密码 退出 出租影碟 返还影碟 影碟查询 会员查询 退碟查询 影碟入店 新入会员 日结算 月结算 影碟类别 会员级别 管理员 图2.1 系统功能模块图 2.2系统详细设计 2.2.1登陆模块设计 1.界面设计 该模块使用的控件有Frame、CommandButton、TextBox、Label。(如图2.2) 图2.2登录模块 2.代码设计; Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() On Error Resume Next MkDir App.Path \tablefile MkDir App.Path \montablefile End Sub Private Sub Label1_Click() End Sub Private Sub text1_keypress(keyascii As Integer) If keyascii = 13 Then Text2.SetFocus End If End Sub Private Sub text2_keypress(keyascii As Integer) If keyascii = 13 Then Command1.SetFocus End If End Sub 2.2.2 管理系统模块 1.界面设计: 该模块使用的控件有Frame、CommandButton、TextBox、Label(如图2.3) 图2.3 影碟出租管理系统模块 2.代码设计: Private Sub MdAddCD_Click() On Error Resume Next AddCD.Show End Sub Private Sub MdAddVip_Click() On Error Resume Next AddVip.Show End Sub Private Sub Mdcancel_Click() CancelLent.Show End Sub Private Sub MdCancelF_Click() findCL.ShowEnd Sub Private Sub MdCDFind_Click() FindCD.Show End Sub Private Sub MdCDType_Click() CDtype.Show End Sub Private Sub MdCheck_Click() Ch

文档评论(0)

aena45 + 关注
实名认证
文档贡献者

该用户很懒,什么也没介绍

1亿VIP精品文档

相关文档