軟件工程实验报告5.docVIP

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

软件工程导论课外实验 项 目 名 称: 旅游管理系统开发过程 所 在 班 级: 2010级JAVA(1)班 姓 名: 赵媛媛 指 导 教 师: 王业 起 止 时 间: 10月25日-11月4日 旅游管理系统开发过程 一、系统分析 1.1需求分析 根据要求,系统具有以下功能: 1.由于该系统的使用对是对客户信息,导游信息,景点信息进行管理的多方管理系统。 2.确保系统的安全性。 3.方便的全方位的数据查询。 4.统计功能。 二、总体设计 2.1系统主要功能 客户管理系统是一个非常有特点的管理软件,系统由客户信息维护、信息查询、数据管理、系统管理和帮助信息等几个功能模块组成,规划系统功能模块如下: (1)客户信息维护模块 客户信息维护模块主要包括客户信息。 (2)信息查询模块 信息查询模块主要包括客户信息查询、导游信息查询、景点查询、联系方式查询4个部分 (3)数据管理模块 数据管理模块主要包括客户信息、导游信息、密码信息3个部分。 (4)系统管理模块 系统管理模块主要包括操密码修改、退出系统3个部分。 2.2 系统功能结构图 2—1旅游管理系统功能结构图 三、系统设计 3.1 设计目标 本系统可以达到以下目标: (1)系统运行稳定,安全可靠。 (2)界面设计美观,人机交互界面友好。 (3)信息查询灵活、方便、快捷、准确,数据存储安全可靠。 (4)采用多种方式查询数据。 (5)对用户输入的数据,系统进行严格的数据检验,尽可能排除人为的错误。 3.2 开发及运行环境 系统开发平台:Microsoft Visual Basic 6.0 中文版 运行平台:Windows xp 3.3 数据库设计 本系统采用Microsoft Office Access 2003设计数据库 数据表结构 (1)密码表 密码表示维护系统安全的最重要的功能。 字段名 数据类型 长度 用户名 文本 50 密码 文本 50 表3-1 (2)旅游信息 是关于旅游游客,景点,导游的信息,是对旅行社对旅游信息的描述。 字段名 数据类型 长度 游客编号 文本 20 游客姓名 文本 50 工作单位 文本 10 景点编号 文本 50 景点名称 文本 20 导游编号 文本 20 导游姓名 文本 20 表3-2 四、主要功能模块设计 4.1 主窗体设计 主窗体是显示系统主要操作功能的面板。 4—1系统主窗体 4.2 密码设置 输入密码,输入错误之后会出现从新输入,以达到校验的目的。 4—2 密码校验窗口 代码设计 在窗体加载时,其实现的代码如下: (点击“确定”按钮时实现的的用户密码登陆) Private Sub Command1_Click() Adodc1.RecordSource = select * from 密码表 where 用户名 = Text1.Text Adodc1.Refresh If Text2.Text Text3.Text Then MsgBox 两次输入密码不同请重新输入, vbOKOnly, 提示 Text2.Text = Text3.Text = Text2.SetFocus Else Text4.Text = Text2.Text Adodc1.Recordset.Fields(1) = Text4.Text Adodc1.Recordset.Update Adodc1.Recordset.Close MsgBox 修改成功, vbOKOnly, 提示 End If End Sub (点击实现的密码登陆的取消功能。Private Sub Command2_Click() Unload Me Form1.Show End Sub Private Sub Form_Load() Adodc1.RecordSource = select * from 密码表 Adodc1.Refresh If Adodc1.Recordset.RecordCount 0 Then ListView1.Enabled = True ListView1.ListItems.Clear i = 1 Adodc1.Recordset.MoveFirst Do While Adodc1.Recordset.EOF = False Key = Adodc1.Recordset.Fields(用户名) Set itmX = ListView1.ListItems.Add(, , Key, i) i = i + 1 Ad

您可能关注的文档

文档评论(0)

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

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

1亿VIP精品文档

相关文档