《票务管理信息系统》由会员分享，可在线阅读，更多相关《票务管理信息系统（14页珍藏版）》请在金锄头文库上搜索。
1、票务管理信息系统一、系统需求分析1、机票信息的输入、修改和查询，包括客机编号、客机型号、经济舱座位数量、公务舱座 位数量、头等舱座位数量及备注信息等。2、航班信息的输入、修改和查询，包括出发城市、到达城市、航班日期、出发时间、到达 时间、经济舱价格、公务舱价格、头等舱价格和备注信息。3、客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例等。4、客户信息的输入、修改和查询，包括客户编号、客户姓名、客户身份、客户性别、身份 证号码、联系电话、客户类型和备注信息等。5、订票信息的输入、查询和修改，包括订票编号、客户编号、客户姓名、客户类型、折扣 比例、航班编号、出发城市、到达城市、出
2、发时间、票价、结算金额和备注信息等。二、系统的概念结构的设计将需求分析得到的用户需求抽象为信息结构，然后其需求分析画出E-R图。（系统E-R图）本票务管理信息系统所处理的数据流程:（航空公司管理信息系统数据流程图）针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流 程分析，设计后面所示的数据项和数据结构。根据上边的设计规划出的实体有：舱位等级信息实体、客机信息实体、航班信息实体、 客机类型信息实体、客户信息实体、订票信息实体。舱位等级信息实体E-R图，如图所示：（舱位等级信息实体E-R图）客机信息实体E-R图，如图所示：（客机信息实体E-R图）航班信息实体E-R图，如
3、图所示：客户类型信息实体E-R图，如图所示:（客户类型信息实体E-R图）客户信息实体E-R图，如图所示:订票信息实体E-R图，如图所示:（订票信息实体E-R图）实体之间关系的E-R图，如图所示：（实体之间关系的E-R图）三、实现数据库建立数据表经过需求分析后，为每个功能模块建立一个数据表，如下:1、机票舱位信息表：歹U名数据类型可否为空舱位等级编号intNOTNULL舱位等级名称nvarcharNULL是否有礼品nvarcharNULL是否有饮料nvarcharNULL是否有电影nvarcharNULL是否可以退票nvarcharNULL是否有报纸nvarcharNULL是否有午餐nvarch
4、arNULL是否可以改签nvarcharNULL是否可以打折nvarcharNULL备注信息textNULL2、航班信息表:歹u名数据类型可否为空出发城市charNULL到达城市charNULL航班日期nvarcharNULL客机编号charNOTNULL出发时间nvarcharNULL到达时间nvarcharNULL经济舱价格intNULL公务舱价格intNULL头等舱价格intNULL备注信息textNULL3、客机信息表:歹u名数据类型可否为空客机航班编号intNOTNULL客机类型charNULL经济舱座位数intNULL公务舱座位数intNULL头等舱座位数intNULL4、客户信息
5、列表:歹u名数据类型可否为空客户姓名charNULL客户性别charNULL客户身份证号intNOTNULL联系电话intNULL客户类型charNULL备注信息textNULL折扣比例charNULL5、机票信息列表:歹u名数据类型可否为空出发地点charNULL到达地点charNULL出发时间nvarcharNULL舱位类型nvarcharNULL票价intNULL客户姓名charNOTNULL客户类型charNULL折扣floatNULL备注信息textNULL五：应用系统的实施(1)创建主窗体。如下图示在主窗体中的工具栏中，选择菜单编辑器，根据系统功能，创建如上图所示的菜单结构。(2)
6、 创建舱位等级信息窗体。如下图所示1. 实现添加的功能。Private Sub Command1_Click()If Command1.Caption =添加”ThenCommand1.Caption =确认”mbookmark = Adodc1.Recordset.BookmarkCommand2.Enabled = FalseCommand3.Enabled = FalseAdodcl.Recordset.AddNewTextl.SetFocusElseCommand1.Caption =添加”Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLast
7、Command2.Enabled = TrueCommand3.Enabled = TrueEnd IfEnd Sub2. 实现修改功能Private Sub Command2_Click()If Command2.Caption =修改”Thenmbookmark = Adodc1.Recordset.BookmarkCommand1.Enabled = FalseCommand3.Enabled = FalseCommand2.Caption =确认”Text1.SetFocusElseCommand2.Caption =修改”Adodc1.Recordset.UpdateCommand1
8、.Enabled = TrueCommand3.Enabled = TrueEnd IfEnd Sub舱位等级信息是否有报析是否有午餐是否可以改签是否可以退票备注信息船位等级名称筲是否可以打折添加修改册除3. 实现删除功能Private Sub Command3_Click（）On Error Resume NextDim I As IntegerI = MsgBox（你确定删除该记录吗？ , vbOKCancel, ”警示”）If I = 2 ThenForm2.ShowElseAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf
9、Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd Sub（3）创建客机信息窗体。如下图所示客机信息=它*客机信息客机信息客机航班编号 一 客机型号呼经济舱座位数公务舱座位数阳头等舱座位数F备注 r客机航班编号客机型号经济前座位数公案跄座位苦112T11LI5040116X1023040119T1153060米11. 实现添加功能Private Sub Command1_Click()If Command1.Caption =添加”ThenCommand1.Caption =确认”mbookmark = Adodc1.Recordset
10、.BookmarkCommand2.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = FalseAdodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption =添加”Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastCommand2.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueEnd IfEnd Sub2. 实现修改功能Private Sub Comman
11、d2_Click()If Command2.Caption =修改”ThenCommandl.Enabled = FalseCommand3.Enabled = FalseCommand4.Enabled = Falsembookmark = Adodcl.Recordset.BookmarkCommand2.Caption =确认”Text1.SetFocusElseCommand2.Caption =修改”Adodc1.Recordset.UpdateCommand1.Enabled = TrueCommand3.Enabled = TrueCommand4.Enabled = TrueE
12、nd IfEnd Sub3. 实现删除功能Private Sub Command3_Click（）On Error Resume NextDim I As IntegerI = MsgBox（你确定删除该记录吗？ , vbOKCancel, ”警示”）If I = 2 ThenForm4.ShowElseAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextEnd IfIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd Sub4. 实现查询功能Private Sub Command4_Cl
13、ick（）Dim mno As Stringmno = InputBox$（请输入客机航班编号”,”查找窗”）With Adodc1.Recordset.MoveFirstEnd WithAdodc1.Recordset.Find ”客机航班编号=& mno & If Adodc1.Recordset.EOF ThenMsgBox ”无此航班！，”提示”Adodc1.RecordSource =客机信息Adodc1.RefreshEnd IfEnd Sub（4）创建航班信息窗体。如下图所示航班信息列表航班信息列表航线信息出发城市臀到达城市航班日期阿再3出发时间到达时间阡标客机编号3经济跄价格F公务跄价格|200头等跄价格p备注信息出发城市到达城市航郡日期上海1曲母9郑州北京月皿号1：上海北京月皿号6记录操作添加修改册除查询1. 实现添加功能Private Sub Command1_Click()If Command1.Caption =添加”ThenCommand1.Caption =确认”mbook
