软件工程实验报告

时间：2024.3.31

湖南科技学院数学与计算科学系实验报告

第二篇：软件工程实验报告5

软件工程导论课外实验

项目名称：旅游管理系统开发过程

所在班级： 20##级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）密码表

密码表示维护系统安全的最重要的功能。

表3-1

（2）旅游信息

是关于旅游游客，景点，导游的信息，是对旅行社对旅游信息的描述。

表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

Adodc1.Recordset.MoveNext

Loop

Else

ListView1.Enabled = False

End If

End Sub

Private Sub ListView1_Click()

Text1.Text = ListView1.SelectedItem

Adodc1.Refresh

Text1.SetFocus

4.3 系统用户管理

系统用户管理包括，游客编号，游客姓名，工作单位，景点编号，景点名称

导游编号，导游姓名，利用功能键实现查找的功能。

4—3 系统用户管理窗口

代码设计

其实现的关键代码如下：

(点击“首条”时实现的是移动到首条)

Private Sub Command1_Click()

Adodc1.Recordset.MoveFirst

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

End If

End Sub

（点击“上一条”时实现的是上一条）

Private Sub Command2_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

MsgBox "已经为首条", vbOKOnly, "提示"

End If

End Sub

（但点击“下一条”时，实现的是下一条。）

Private Sub Command3_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

MsgBox "已经为末条", vbOKOnly, "提示"

End If

End Sub

（点击“最后一条”实现的是最后一条。）

Private Sub Command4_Click()

Adodc1.Recordset.MoveLast

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

End Sub

（点击“添加”实现的是添加功能）

Private Sub Command5_Click()

Adodc1.Recordset.AddNew

End Sub

（点击“更新”实现的是更新功能）

Private Sub Command6_Click()

Adodc1.Recordset.Update

MsgBox "修改成功！", vbOKOnly + vbExclamation, ""

End Sub

（点击“删除”实现的是删除功能）

Private Sub Command7_Click()

answer = MsgBox("是否删除本条？", vbYesNo, "提示")

If answer = vbYes Then

Adodc1.Recordset.Delete

MsgBox "删除成功！", vbOKOnly, "提示"

Adodc1.Refresh

Else

MsgBox "已确认未删除", vbOKOnly, "提示"

End If

End Sub

（点击“取消”实现的是退出功能。）

Private Sub Command8_Click()

Unload Me

End Sub

4.4 旅游管理浏览

系统用户浏览包括用户的所有信息，通过第一条，上一条，下一条，和末条，打印，返回实现浏览的功能。

4—4旅游管理浏览窗口

代码设计

在窗体加载时，其实现的关键代码如下：

(点击“首条”时实现的是移动到首条)

Private Sub Command2_Click()

Unload Me

End Sub

（点击“上一条”时实现的是上一条）

Private Sub Command3_Click()

Adodc1.Recordset.MoveFirst

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

End If

End Sub

（但点击“下一条”时，实现的是下一条。）

Private Sub Command4_Click()

Adodc1.Recordset.MovePrevious

If Adodc1.Recordset.BOF Then

Adodc1.Recordset.MoveFirst

MsgBox "已经为首条", vbOKOnly, "提示"

End If

End Sub

Private Sub Command5_Click()

Adodc1.Recordset.MoveNext

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

MsgBox "已经为末条", vbOKOnly, "提示"

End If

End Sub

（点击“最后一条”实现的是最后一条。）

Private Sub Command6_Click()

Adodc1.Recordset.MoveLast

If Adodc1.Recordset.EOF Then

Adodc1.Recordset.MoveLast

End If

End

4.5 旅游管理查询界面

查询系统包括景点查询和导游查询

运行结果如图4--5所示。

4—5旅游管理查询窗口

代码设计

在窗体加载时，其实现的关键代码如下

（点击“确定”实现了查询功能）

Private Sub Command1_Click()

a = "select * from 表2 where "

n = 0

If Check1.Value = Checked Then

a = a + "景点编号='" + Combo1 + "'"

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1

End If

If Check2.Value = Checked Then

If n = 1 Then

End If

a = a + " 导游编号='" + Combo2 + "'"

Adodc1.RecordSource = a

Adodc1.Refresh

n = 1

End If

End Sub

（点击“关闭”实现了窗口的关闭功能）

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Combo1.AddItem "100"

Combo1.AddItem "200"

Combo1.AddItem "300"

Combo1.AddItem "400"

Combo2.AddItem "010"

Combo2.AddItem "020"

Combo2.AddItem "030"

Combo2.AddItem "040"

End Sub

4.6 旅游管理统计界面

运行结果如图6所示。

4—6旅游管理统计窗口

代码设计

在窗体加载时，其实现的关键代码如下：

（点击“按单位统计”实现了按单位数据的统计功能）

Private Sub Command3_Click()

strsql = "select 工作单位,count(*) as 人数 from 表3 GROUP BY 工作单位"

Adodc1.RecordSource = strsql

Adodc1.Refresh

End Sub

（点击“按导游统计”实现了按导游数据的统计功能）

Private Sub Command4_Click()

strsql = "select 导游编号,count(*) as 人数 from 表3 GROUP BY 导游编号"

Adodc1.RecordSource = strsql

Adodc1.Refresh

End Sub

（点击“按景点编号统计”实现了按景点编号数据的统计功能）

Private Sub Command1_Click()

strsql = "select 景点编号,count(*) as 人数 from 表3 GROUP BY 景点编号"

Adodc1.RecordSource = strsql

Adodc1.Refresh

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

4.7 旅游管理界面登录

密码登录窗口通过点左侧的人物，在代码中设置了对应的密码，点完人物之后直接点确认键即可登录。

4—7旅游管理登陆窗口

代码设计

在窗体加载时，其实现的关键代码如下：

（点击“确定”实现了登陆的功能）

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

Form1.Show

'frm_Main.Show

Unload Me

Else

MsgBox "密码不正确,请您确认后重新输入", , "提示信息"

Text2.Text = ""

Text2.SetFocus

End If

Else

MsgBox "对不起没有此用户的信息", , "提示信息"

Text1.Text = ""

Text2.Text = ""

End If

End Sub

Private Sub Command2_Click()

End

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

Adodc1.Recordset.MoveNext

Loop

Else

ListView1.Enabled = False

End If

End Sub

Private Sub ListView1_Click()

Text1.Text = ListView1.SelectedItem

'Adodc1.Refresh

Text2.SetFocus

End Sub

更多相关推荐：

软件工程实验报告实验二: 实验报告课程名称：软件工程实验项目：实验二面向对象分析及面向对象设计实验仪器：个人电脑系别：计算机科学与技术系专业：计算机科学与技术组长姓名：小组成员：实验日期：20XX-5-151实验内容对航空客运订票系统，…
软件工程课程设计实验报告: 重庆邮电大学软件工程课程设计实验报告网上选课系统姓名雷雷学号专业计算机科学与技术班级0410801指导老师邹洋教室S331A时间一实验题目网上选课系统主要功能描述系统首先维护校内所有课程的信息课程分为研究生本科...
电大软件工程实验报告1: 大学图书馆图书信息管理系统实验报告学校宁波广播电视大学班级10春计算机科学与技术姓名学号一编写目的根据需求调研分析报告定义系统功能和系统数据流图通过编写需求分析规格说明书让开发人员能够根据需求规格说明书来开发项...
软件工程实验报告: 实验一一实验室名称综合实验楼二试验项目名称图书管理系统三实验目的1了解和使用甘特图系统流程图线性时间图来描绘系统开发流程和进度2学会使用visio绘制常用的流程图四实验内容图书管管理系统更便于对图书进行分类和管...
软件工程实验报告模板: 软件工程实验报告实验题目：实验室设备管理系统1、系统简介:每天对实验室设备使用情况进行统计，对于已彻底损坏的作报废处理，同时详细记录有关信息。对于有严重问题（故障）的要即时修理，并记录修理日期、设备名、修理厂家…
20xx级本科《软件工程实验》报告_(1): 20xx级本科软件工程实验报告共11页第1页实验一项目开发的准备工作实验学时实验类型验证性一目的与任务目的确定课题组织组员合理分工熟悉软件开发环境培养团队精神任务学习软件开发小组的组织和管理合理分工将项目开发各...
软件工程实验报告asas: 软件工程实验报告班级学号姓名实验一软件需求分析实验项目名称软件需求分析实验目的1根据所选定题目进行需求分析工作2通过实例掌握结构化数据流分析技术3进行业务需求分析用户需求功能需求非功能需求分析4写出需求规格说明...

软件工程实验报告: 软件工程实验报告，内容附图。
软件工程实验报告: 实用软件工程实验报告题目黑体三号专业软件工程班级姓名学号指导教师杨柯成绩月摘要随着计算机技术的飞速发展计算机在企业管理中应用的普及利用计算机实现企业人事管理势在必行本系统是针对企业的人事管理而进行开发的基于C语...
软件工程实验报告最终版: 合肥师范学院实验报告册20xx20xx学年第一学期系别实验课程专业班级姓名计算机科学与技术系软件工程计算机科学与技术20xx级计算机应用马军福董国运李思贤学号10104110241010411008101041...

软件工程实验报告(可行性分析): 学生信息管理系统可行性分析报告1引言11编写目的随着高校招生规模的逐步扩大和人事制度的改革在校学生人数将不断增加而学生管理人员则相对减少加上我国高等学校基层学生管理工作的头绪多内容杂管理细要求高传统管理办法已基...
软件工程导论实验指导书实验一：项目计划、分析和设计: 实验一项目计划分析和设计实验日期2010年6月8日实验目的初步了解结构化分析设计方法的原理步骤以及各阶段的文档练习撰写简要的需求文档项目计划表设计文档本程序实现的主要技巧在二维数组的应用上目的是通过游戏程序增加...

热门关注