软件工程概论

实验报告

                                                                                                                                               

东北大学秦皇岛分校

 

第二篇：软件工程实验报告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