Vb课程设计--公交管理系统.docVIP

  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 - 2 总体设计 - 1 - 2.1 系统主要功能 - 1- 2.2 系统功能结构图 - 2 - 3 系统设计 - 2 - 3.1 设计目标 - 2 - 3.2 开发及运行环境 - 2- 3.3 数据库设计 - 3 - 4 主要功能模块设计 - 4 - 4.1 登录模块界面设计 - 4 - 4.2 主窗体设计 - 6 - 4.3 用户管理界面设计 - 6 - 4.4 添加信息窗体设计 - 8 - 4.5 修改删除信息窗体设计 - 9 - 4.6 浏览信息窗体设计 - 11 - 4.7 查询窗体设计 - 12 - 4.8 统计窗体设计 - 13 - 附录A 参考文献 - 15 - 总结 - 16 - 1 系统分析 1.1需求分析 根据公交公司对公交车的管理需求,要求系统具有以下功能: 由于该系统的使用对象较多,要求有严密的权限管理。 具有数据备份及数据恢复的功能,确保系统的安全性。 方便的全方位的数据查询。 强大的报表打印功能。 在相应的权限下,可以删除、添加或修改数据。 2 总体设计 2.1 系统主要功能 公交线路管理系统是一个非常有特点的管理软件,系统由系统维护,编辑信息,浏览,查询,统计,打印预览等几个功能模块组成,规划系统功能模块如下: 系统维护模块 系统维护模块主要包括密码修改 编辑信息模块 由添加,删除修改2个部分。 浏览模块 能够浏览相应的公交车信息 信息查询模块 能够按线路和按车牌号查询公交信息 统计模块 打印预览模块 2.2 系统功能结构图 图2-2-1 系统功能结构图 3 系统设计 3.1 设计目标 本系统是根据公交公司的实际需求而开发的,完全能够实现公司对公交车的自动化管理,通过本系统可以达到以下目标: 系统运行稳定,安全可靠。 界面设计美观,人机交互界面友好。 信息查询灵活、方便、快捷、准确,数据存储安全可靠。 满足键盘和鼠标的双重操作,完全支持回车键。 采用多种方式查询数据。 操作员可以随时修改自己的口令。 对用户输入的数据,系统进行严格的数据检验,尽可能排除人为的错误。 数据保密性强,为每个用户设置相应的权限级别。 3.2 开发及运行环境 系统开发平台:Visual basic 6.0 运行平台:Windows xp/Windows 2000/windows 98 3.3 数据库设计 本系统采用Visual basic 6.0设计数据库,本系统中包括如下数据表。下面分别给出数据表的结构。 用户密码表:储存用户的密码,使用户能够安全登录。 表 3-3-1 密码表 用户名 密码 刘正福 123 林雨 123 公交线路表:储存汽车信息,方便查询. 表 3-3-2 公交线路表 线路编号 司机姓名 车牌号码 0002 甲 辽A111111 0003 小明 辽A010101 公交线路表:储存公交线路信息,方便浏览。 表3-3-3 公交线路表 线路编号 司机姓名 车牌号码 线路始终 0002 甲 辽A111111 乙——丙 0003 小明 辽A010101 沈阳——抚顺 4 主要功能模块设计 4.1 登录模块界面设计 登陆界面是管理信息系统必不可少的,登陆界面主要作用就是使用户能够安全的进入系统。系统的登陆界面由图4-1所示。 图4-1登录模块界面设计运行结果 设计代码如下 Private Sub Command1_Click()(点击确定运行) Dim MPassword As String Adodc1.RecordSource = select * from 密码表 where 用户名 = Text1.Text Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then MPassword = Adodc1.Recordset.Fields(密码) If Text2.Text = MPassword Then Name1 = Text1.Text Form3.Show Unload Me Else MsgBox 密码输入错误, , 提示 Text2.Text = Text2.SetFocus End If Else MsgBox 不存在用户, , 提示 Text1.Text = Text2.Text =

文档评论(0)

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

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

1亿VIP精品文档

相关文档