票务管理信息系统

票务管理信息系统

一、系统需求分析

1、机票信息的输入、修改和查询，包括客机编号、客机型号、经济舱座位数量、公务舱座

位数量、头等舱座位数量及备注信息等。

2、航班信息的输入、修改和查询，包括出发城市、到达城市、航班日期、出发时间、到达

时间、经济舱价格、公务舱价格、头等舱价格和备注信息。

3、客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例等。

4、客户信息的输入、修改和查询，包括客户编号、客户姓名、客户身份、客户性别、身份

证号码、联系电话、客户类型和备注信息等。

5、订票信息的输入、查询和修改，包括订票编号、客户编号、客户姓名、客户类型、折扣

比例、航班编号、出发城市、到达城市、出发时间、票价、结算金额和备注信息等。

二、系统的概念结构的设计

将需求分析得到的用户需求抽象为信息结构，然后其需求分析画出E-R图。

（系统E-R图）

本票务管理信息系统所处理的数据流程：

（航空公司管理信息系统数据流程图）

针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计后面所示的数据项和数据结构。

根据上边的设计规划出的实体有：舱位等级信息实体、客机信息实体、航班信息实体、客机类型信息实体、客户信息实体、订票信息实体。

舱位等级信息实体E-R图，如图所示：

（舱位等级信息实体E-R图）

客机信息实体E-R图，如图所示：

（客机信息实体E-R图）

航班信息实体E-R图，如图所示：

（航班信息实体E-R图）

客户类型信息实体E-R图，如图所示：

（客户类型信息实体E-R图）

客户信息实体E-R图，如图所示：

（客户信息实体E-R图）订票信息实体E-R图，如图所示：

（订票信息实体E-R图）实体之间关系的E-R图，如图所示：

（实体之间关系的E-R图）

三、实现数据库---建立数据表

经过需求分析后，为每个功能模块建立一个数据表，如下：1、机票舱位信息表：

2、航班信息表：

3、客机信息表：

5、机票信息列表：

五：应用系统的实施

（1）创建主窗体。如下图示

在主窗体中的工具栏中，选择菜单编辑器，根据系统功能，创建如上图所示的菜单结构。

（2）创建舱位等级信息窗体。如下图所示

1.实现添加的功能。

Private Sub Command1_Click()

If Command1.Caption = "添加" Then

Command1.Caption = "确认"

Command2.Enabled = False Command3.Enabled = False

Adodc1.Recordset.AddNew

Text1.SetFocus

Else

Command1.Caption = "添加"

Adodc1.Recordset.Update

Adodc1.Recordset.MoveLast Command2.Enabled = True

Command3.Enabled = True

End If

End Sub

2.实现修改功能

Private Sub Command2_Click()

If Command2.Caption = "修改" Then mbookmark = Adodc1.Recordset.Bookmark Command1.Enabled = False

Command3.Enabled = False

Command2.Caption = "确认"

Text1.SetFocus

Else

Command2.Caption = "修改"

Adodc1.Recordset.Update

Command1.Enabled = True

Command3.Enabled = True

End If

End Sub

3.实现删除功能

Private Sub Command3_Click()

On Error Resume Next

Dim I As Integer

I = MsgBox("你确定删除该记录吗？", vbOKCancel, "警示") If I = 2 Then

Form2.Show

Else

Adodc1.Recordset.Delete

Adodc1.Recordset.MoveNext

End If

If Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLast End Sub

（3）创建客机信息窗体。如下图所示

1.实现添加功能

Private Sub Command1_Click()

If Command1.Caption = "添加" Then Command1.Caption = "确认" mbookmark = Adodc1.Recordset.Bookmark Command2.Enabled = False

Command3.Enabled = False

Command4.Enabled = False

Adodc1.Recordset.AddNew

Text1.SetFocus

Else

Command1.Caption = "添加"

Adodc1.Recordset.Update

Adodc1.Recordset.MoveLast

Command2.Enabled = True

Command3.Enabled = True

Command4.Enabled = True

End If

End Sub

2.实现修改功能

Private Sub Command2_Click()