汽车租赁系统的研究与实现.doc

  1. 1、本文档共13页,可阅读全部内容。
  2. 2、有哪些信誉好的足球投注网站(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
  3. 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载
  4. 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
课程设计目的与要求 1.1 课程设计目的 本课程的课程设计实际是学生学习完《VB.NET程序设计实用教程》课程后,进行的一次全面的综合训练,其目的在于加深对可视化编程技术基本知识的理解,掌握运用VB开发应用程序的基本方法及基本技巧。 1.2 课程设计的实验环境 硬件要求能运行Windows XP操作系统的微机系统。 软件:Microsoft VB.NET Microsoft Access 2003 1.3 课程设计的预备知识 熟悉VB.NET程序设计的基本语法知识及常用技巧。 1.4 课程设计要求 按课程设计指导书提供的课题,每个小组设计一个完整的管理系统应用程序。要求根据规定设计系统的具体要求,按照应用程序的设计步骤和VB的基本知识应用程序的分析与实现。应根据基本学时分配合理安排设计时间,并独立完成各方面的设计。选择同一题目的同学,可以共同协作完成一个应用程序的开发任务。要求书写详细的设计说明书,对有复杂的代码段和程序段的部分,应画出程序流程图,写出全部的代码。在界面设计中,需画出每个窗体的布局,进行属性说明,杜绝雷同。 课程设计内容 2.1系统功能设计 2.1.1 系统功能分析 车辆租赁管理系统是一套针对车辆租赁的基础信息、车辆管理、司机管理、客户管理、综合业务、租金统计进行全面管理的系统。 功能特点: 基本信息(修理厂设置、加油站设置、车辆类型设置、车辆名称设置、会员类型设置、证件类型设置、保险类型设置、燃油类型设置、租赁模式设置);信息管理(车辆管理、司机管理);客户管理(客户查询、会员查询);综合业务(汽车预\出\续租、催车还交、事故登记、汽车加油、维修记录、还车结算);租金统计(当天租金统计、一定期间租金统计)几大部分。系统提供了各种管理的查询功能和报表功能,它集输入、维护、查询、筛选、统计和各种处理为一体,信息导入导出方便共享,灵活、专业的报表设计,形象、增强的数据处理,用户可自定义自开发这些功能。操作快捷、方便,性能高效、强大;使用易懂、易会,便于车辆租赁部门对车辆租赁使用情况进行全面管理。依托系统强大的辅助录入,减少了录入工作量,提高了工作效率,降低了工作强度。 图2.1系统功能模块图 2.2系统详细设计 2.2.1 汽车租赁系统模块设计 1.界面设计 (1)系统管理员用户可以添加汽车记录、修改汽车记录、删除汽车记录和查看汽车记录。 (2)普通用户只能查看汽车租赁数据。 为了表现系统间的层次结构,本模块使用TreeView控件对系统数据进行管理。TreeView控件是显示 Node对象的分层列表,每个Node对象均由一个标签和一个可选的位图组成。 选择“工程”菜单中的“部件“命令,打开”属性“对话框。在控件列表中,查找兵选择Microsoft Windows Common Controls 6.0。 在窗体中添加一个ImageList控件。右击此控件,选择菜单中的“属性”命令,打开“属性页”对话框。单击“图像”选项卡,通过单击“插入图像”和“删除图像”来编辑图像列表。 在窗体中添加一个TreeView控件。右击此控件,选择菜单中的“属性”命令,打开“属性页”对话框。将“图像列表”属性设置为ImageList1,其他属性根据需要设置。 在该部门信息模块中,TreeView控件使用惟一的关键字来标识每一个结点,关键字的第一个字符必须是字母。我们规定关键字的格式为“a”加上部门编号,结果部门编号为1,则此部门在TreeView控件中的关键字为”al”. 在GeneralFunc模块中,有一个自定义过程Add_DepToTree()。‘用户登陆后成功显示各标签 Private sub Form Activate() If 用户登陆.Falg=1 Then Label1.Visible=True:Label2.Visible=True Label3.Visilel=True:Label2.Visible=True End If End Sub Private Sub Form click() If 用户登陆.Falg1 Then 用户登陆.Show End If End Sub Private Sub Form KeyPress(keyAscii As Integer) If KeyAscii0Then 用户登陆.Show End If End If End Sub Private Sub Form Load() Dim A As String Dim B As Integer A=Me.hwnd B=0 Disabled A,B Me.Left=0:Me.Top=0 Label1.Visible=False:Label2.Visible=False Labe

文档评论(0)

14576 + 关注
实名认证
内容提供者

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

1亿VIP精品文档

相关文档