毕业设计（论文）基于VB的航空公司信息管理系统

《毕业设计（论文）基于VB的航空公司信息管理系统》由会员分享，可在线阅读，更多相关《毕业设计（论文）基于VB的航空公司信息管理系统（40页珍藏版）》请在装配图网上搜索。

1、吉林省高等教育自学考试毕 业 论 文论文题目：航空公司信息管理系统 专 业：计算机软件技术准考证号：290608200219学生姓名：指导教师： 2009年11月11 日吉林大学计算机科学与技术学院 本科生毕业论文摘 要伴随着经济的不断发展，必然带动交通业和旅游业务的不断扩大，特别是航空售票的信息管理日异复杂，传统的手工登记和集中的管理已经难以满足快节奏，高效率的现代生活需求，这就要求航空公司要有一套好的数据库系统。一个正常营运的航空公司需要管理所拥有的飞机、航线的设置、客户的信息等，更重要的还要提供票务管理，面对各种不同种类的信息，需要合理的数据库结构来保存数据信息以及有效的程序结构支持各种

2、数据操作的执行。对数据的添加、修改、删除及查询等方面的操作应简单易行，并且能够具有较好的稳定性。航空公司管理信息系统主要采用Visual Basics6.0作为开发工具，应用面向对象的程序设计方法，进行开发与设计的。本系统的使用界面具有十分人性化的特征，具有方便的查询功能，对数据的增加及删除等方面的操作应简单易行，并且能够具有较好的稳定性。【关键字】航空公司管理系统、客户信息、数据库结构、添加、修改、删除、查询AbstractAlong with continuous economic development will inevitably bring transportation indus

3、try and the tourism business continues to expand, especially in information management on airline ticket different complex, the traditional manual registration and centralized management has been difficult to meet the fast-paced, high-efficiency demands of modern life, This requires that airlines sh

4、ould have a good database system. Normal operation of the airline needs a management-owned aircraft, route setting, client information, etc., but more importantly also to provide ticketing management, faced with a variety of different types of information, a logical database structure to store data

5、and information and an effective program structure to support the implementation of a variety of data manipulation. The data to add, modify, delete, and query operations, etc. should be simple, and can have good stability. Airline management information system is mainly used Visual Basics6.0 as a de

6、velopment tool, the application of object-oriented programming approach to the development and design. Use of this system has a very user-friendly interface features, with convenient search functions, the addition and deletion of data and so the operation should be simple, and can have good stabilit

7、y. 【Key words】 Airline management system, database, SQL language, to add, modify, delete, query 目 录 摘 要 Abstract 目 录 绪 论1 第一章 系统概述2一、系统开发背景与意义2二、开发环境2 第二章 系统总体设计3一、系统设计3（一）系统功能分析3（二）系统功能模块设计3二、数据库设计4（一）数据库需求分析4（二）数据库概念结构设计5（三）数据库逻辑结构设计6三、数据库结构的实现6（一）创建系统用户表6（二）创建舱位等级信息表6（三）创建客机信息表7（四）创建航线信息表7（五）创建客户

8、类型信息表8（六）创建客户信息表8（七）创建订票信息表8 第三章 系统详细设计10一、航空公司管理信息系统主窗体创建10（一）创建工程项目MIS_Ticket10（二）创建航空公司管理信息系统的主窗体10（三）创建主窗体的菜单11（四）创建公用模块12（五）用户管理模块主要实现：14二、舱位信息管理模块的创建14（一）显示舱位信息窗体的创建15（二）添加舱位信息窗体的创建15（三）修改舱位等级信息16（四）删除舱位等级信息16三、客机信息管理模块的创建17（一）显示客机信息窗体的创建17（二）添加客机信息窗体的创建18（三）删除客机信息18（四）查询客机信息19四、航线信息管理模块的创建20（

9、一）显示航线信息窗体的创建20（二）添加航线信息窗体的创建20（三）修改航线信息21（四）删除航线信息21（五）查询航线信息22五、客户类型信息管理模块的创建22（一）显示客户类型信息窗体的创建23（二）添加客户类型信息窗体的创建23（三）修改客户类型信息24（四）删除客户类型信息24六、客户信息管理模块的创建25（一）显示客户信息窗体的创建25（二）添加客户信息窗体的创建26（三）修改客户信息26（四）删除客户信息27（五）查询客户信息28七、订票信息管理模块的创建28（一）显示订票信息窗体的创建29（二）添加订票信息窗体的创建29（三）修改订票信息29（四）删除订票信息29 第四章 系统的

10、编译和发行30 第五章 系统测试与维护31 结 论33 致 谢34 参考文献35绪 论随着知识经济的到来，人类已经逐步进入信息化社会。信息增长的速度越来越快，人们希望利用先进的管理理论方法手段来得到并处理越来越多的信息，以提高工作效率和管理水平。由于信息资源对人们生活的重要性，不断提高信息的收集，传输，加以利用等活动，日益成为人们社会生活的重要组成部分。航空管理系统的产生和发展正好满足人们的这种需求。现在将详细介绍我的毕业论文航空信息管理系统。一般而言航空公司的管理信息系统应该包括人事、工资管理模块，计算机技术以突飞猛进的速度渗透到各个领域，成为人们生活中不可缺少的一部分。迄今，我国的信息化建

11、设已取得很大进步，在这样的环境下，航空信息化建设也向着严密，科学，完善的管理体系发展，在编写代码的过程中，需要单独调试每个窗体。为了提高代码的效率方便维护，在Visual Basic6.0中可以用公用模块存放常用的函数、过程和全局变量等。在这个系统中，每个功能模块都要使用数据库，因此可以使用一个公共的数据操作函数，来执行一系列的SQL语句。本课题的研究虽然取得了一定的收获，但由于本人学识有限加之编写时间仓促所以在很多方面还有待于进一步的改进和完善。航空公司管理系统的总目标是：在计算机网络，数据库和先进的开发平台上，利用现有的软件，配置一定的硬件，开发一个具有开放体系结构的、易扩充的、易维护的、

12、具有良好人机交互界面的管理系统，实现航空公司的机票销售的自动化的计算机系统，为企业的决策层提供精确、精细、迅速的机票销售信息。我认为在本系统的设计过程中最难把握的是数据库的设计。由于数据库建设时硬件、软件的结合。这也是数据库设计的特点之一。其次数据库设计应该和应用系统相结合，一个良好的数据库设计可以提高数据信息的储存效率，保证数据信息的完整性和一致性。同时一个合理的数据库结构有利于程序的进一步实现本人将在以后的工作和学习中进一步深入了解数据库的设计从而使系统设计更加完善和实用。第一章 系统概述一、系统开发背景与意义二十一世纪是信息的世纪，信息已不再是我们遥不可及的神物，它已切切实实地融为我们生

13、活中不可缺少的一部分。对于每一个行业、每一个企业及每一个人来说，谁能更好地利用信息就意味着谁能创造出更多的财富。信息的拥有量及信息的利用效率决定了每一个社会元素的社会竞争力，也决定了它未来发展的道路。目前，许多企业和商家都已意识到信息的重要性，并积极地去提高信息的利用效率，其中最主要的措施就是开发适合自己的管理信息系统。利用计算机的便捷性和高效性对各种信息进行处理和再加工，获取具有价值的信息，以供决策参谋，为把握好每一个成功的机遇提高胜算；把日常业务进行计算机化管理，把新的管理模式融入管理信息系统，对陈旧的业务流程的再改造，寻求企业增长的新活力，为企业的发展插上坚实的双翅。信息处理的计算机化、

14、管理的计算机化已成为现代企业管理走向科学的另一个阶梯。 企业信息化是民航信息化的主体，民航企业信息化要全面展开。航空公司要建立飞行运行管理系统，优化生产要素配置，实现飞行签派、飞行计划和机组排班的科学管理；要加快建设收益管理系统，充分利用订座、离港、货运等系统的信息资源，综合先进管理思想，优化资源配置 ，制定企业营销战略，提高市场竞争能力；要抓紧建设常旅客、机务航材和企业管理等信息系统，逐步实现各信息系统融合，并最终建成高效、先进、开放的综合信息系统。机场信息系统建设要适应和推动机场由生产经营型向管理型转变，要重点推动大中型干线机场的信息化。机场信息化以航班信息服务和生产管理调度为中心，建立机

15、场中心数据库，实现空管、航空公司、供油等信息互联互通；加快机场离港系统的建设；继续做好物资设备管理、能源管理等信息系统的建设。二、开发环境开发环境的选择会影响到数据库的设计，所以在这里给出航空公司信息管理系统开发与运行环境的选择如下：开发环境：Windows 2003开发工具：Visual Basic 6.0数据库管理系统： SQL Server 2000 第二章 系统总体设计一、系统设计 （一）系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本例子中的航空公司管理信息系统需要完成功能主要有：l 舱位信息的输入和修改，包括舱

16、位等级编号、舱位等级名称、提供的各种服务类别，以及备注信息等。l 客机信息的输入、修改和查询，包括客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量以及备注信息等。l 航线信息的输入、修改和查询，包括航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格和备注信息等。l 客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例和备注信息等。l 客户信息的输入、修改和查询，包括客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型和备注信息等。l 订票信息的输入、查询和修改，包括订票编号、客户编

17、号、客户姓名、客户类型、折扣比例、航线编号、出发城市、到达城市、出发时间、舱位类型、票价、结算金额和备注信息等。（二）系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图2.1所示的系统功能模块。图2.1 系统模块图二、数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：数据库需求分析数据库概念结构设计数据库逻辑结构

18、设计。（一）数据库需求分析仔细分析调查有关航空公司管理信息需求的基础上，将得到如图2.2所示的本系统所处理的数据流程。图2.2 航空公司管理信息系统数据流程图 针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：l 舱位等级信息，包括的数据项有：舱位等级编号、舱位等级名称、是否有礼品、是否有报纸、是否有饮料、是否有午餐、是否有电影、是否可以改签、是否可以退票、是否可以打折、备注信息等。l 客机信息，包括的数据项有：客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量、备注信息等。l 航线信息，包

19、括的数据项有：航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格、备注信息等。l 客户类型信息，包括的数据项有：客户类型编号、客户类型名称、折扣比例、备注信息等。l 客户信息，包括的数据项有：客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型、备注信息等。l 订票信息，包括的数据项有：订票编号、顾客编号、顾客姓名、顾客类型、折扣比例、航线编号、出发城市、到达城市、舱位类型、机票价格、结算金额、备注信息等。有了上面的数据结构、数据项和数据流程，我们就能进行下面的数据库设计。（二）数据库概念结构设计得到上面的数据项和数据结构以后，就可

20、以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本实例根据上面的设计规划出的实体有：舱位等级信息实体、客机信息实体、航线信息实体、客户类型信息实体、客户信息实体、订票信息实体。各个实体具体的描述E-R图如下。舱位等级信息实体E-R图如图2.3所示。图2.3 舱位等级信息实体E-R图（三）数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。三、数据库结构的实现经过前面的需求分析和概念结构设计以后，得到数据库的逻辑

21、结构。现在就可以在SQL Server 2000数据库系统中实现该逻辑结构。这是利用SQL Server 2000数据库系统中的SQL 查询分析器实现的。（一）创建系统用户表CREATE TABLE dbo.user_Info1 (user_ID char (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,user_PWD char (10) COLLATE Chinese_PRC_CI_AS NULL ,user_Des char (10) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY（二）创建舱位等级信息表CREAT

22、E TABLE dbo.serviceInfo (serviceNO char (4) COLLATE Chinese_PRC_CI_AS NOT NULL ,serviceName nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,noPresent char (2) COLLATE Chinese_PRC_CI_AS NULL ,noNewsPaper char (2) COLLATE Chinese_PRC_CI_AS NULL ,noDrink char (2) COLLATE Chinese_PRC_CI_AS NULL ,noFood ch

23、ar (2) COLLATE Chinese_PRC_CI_AS NULL ,noMovie char (2) COLLATE Chinese_PRC_CI_AS NULL ,canChange char (2) COLLATE Chinese_PRC_CI_AS NULL ,canCancel char (2) COLLATE Chinese_PRC_CI_AS NULL ,canDiscount char (2) COLLATE Chinese_PRC_CI_AS NULL ,serviceMemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIM

24、ARY TEXTIMAGE_ON PRIMARY（三）创建客机信息表CREATE TABLE dbo.planeInfo (planeNO char (18) COLLATE Chinese_PRC_CI_AS NOT NULL ,planeType char (20) COLLATE Chinese_PRC_CI_AS NULL ,buyDate datetime NULL ,serveDate datetime NULL ,isCommon nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,isCommercial nvarchar (20) CO

25、LLATE Chinese_PRC_CI_AS NULL ,isFirst nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,planeMemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY（四）创建航线信息表CREATE TABLE dbo.airlineInfo (airlineNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,departCity nvarchar (50) COLLATE Chinese_

26、PRC_CI_AS NULL ,arrivalCity nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,departDate char (10) COLLATE Chinese_PRC_CI_AS NULL ,departTime char (10) COLLATE Chinese_PRC_CI_AS NULL ,arrivalTime char (10) COLLATE Chinese_PRC_CI_AS NULL ,planeNO char (18) COLLATE Chinese_PRC_CI_AS NULL ,commonPrice nume

27、ric(18, 2) NULL ,commercialPrice numeric(18, 2) NULL ,firstPrice numeric(18, 2) NULL ,airlineMemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY（五）创建客户类型信息表CREATE TABLE dbo.customerType (ctypeNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,ctypeName char (20) COLLATE Chinese_

28、PRC_CI_AS NULL ,discount numeric(2, 0) NULL ,ctypeMemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY（六）创建客户信息表CREATE TABLE dbo.customerInfo (customerNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,customerName char (50) COLLATE Chinese_PRC_CI_AS NULL ,customerSex char (2) CO

29、LLATE Chinese_PRC_CI_AS NULL ,customerID char (18) COLLATE Chinese_PRC_CI_AS NULL ,customerTele char (20) COLLATE Chinese_PRC_CI_AS NULL ,customerType char (14) COLLATE Chinese_PRC_CI_AS NULL ,customerMemo text COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY（七）创建订票信息表CREATE TABLE db

30、o.ticketInfo (ticketNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,customerNO char (14) COLLATE Chinese_PRC_CI_AS NULL ,customerName char (50) COLLATE Chinese_PRC_CI_AS NULL ,customerType char (14) COLLATE Chinese_PRC_CI_AS NULL ,discount numeric(18, 0) NULL ,airlineNO char (14) COLLATE Chinese_PR

31、C_CI_AS NULL ,departCity nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,arrivalCity nvarchar (50) COLLATE Chinese_PRC_CI_AS NULL ,ticketDate datetime NULL ,serviceType nvarchar (20) COLLATE Chinese_PRC_CI_AS NULL ,ticketPrice numeric(18, 2) NULL ,ticketSum numeric(18, 2) NULL ,ticketMemo text COLLATE

32、 Chinese_PRC_CI_AS NULL ) ON PRIMARY TEXTIMAGE_ON PRIMARY第三章 系统详细设计一、航空公司管理信息系统主窗体创建上面的SQL语句在SQL Server 2000中查询分析器的执行，将自动产生需要的所有表格。有关数据库结构的所有后台工作已经完成。现在将通过航空公司管理信息系统中各个功能模块的实现，讲解如何使用Visual Basic来编写数据库系统的客户端程序。（一）创建工程项目MIS_Ticket启动Visual Basic6.0后，单击File|New Project菜单，在工程模板中选择Standard EXE，Visual Basi

33、c将自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击File|Save Project菜单，将这个工程项目命名为MIS_Ticket。（二）创建航空公司管理信息系统的主窗体这个项目我们使用多文档界面，单击工具栏中的ADD MDI Form按钮，产生一个窗体。在这个窗体上添加所需的控件，窗体和控件的属性设置见表3-1。创建好的窗体如图3.1所示。表3-1 主窗体及控件属性设置控 件属 性属性取值frmMain(Form)NameFrmMainCaption大唐航空公司信息管理系统StartUpPositonCenterScreenWindowStateMaximizedSb

34、StatusBar(StatusBar)NameSbStatusBarPanels(1)StyleSbrTextPanels(2)StyleSbrDatePanels(3)StyleSbrTime图3.1 航空公司管理信息系统主窗体在主窗体中加入状态栏控件，可以实时反映系统中的各个状态的变化。状态栏控件需要在通常的属性窗口中设置一般属性，还需要在其特有的弹出式菜单中进行设置。选中状态栏控件，单击鼠标右键，选中Property菜单，然后设置属性。面板1用来显示各种文本信息，面板2用来显示当前日期，面板3用来显示当前时间。（三）创建主窗体的菜单在如图3.1所示的主窗体中，单击鼠标右键，选择弹出式菜

35、单中的Menu Editor，创建如图3.2所示的菜单结构：图3.2 主窗体中的菜单结构（四）创建公用模块在Visual Basic中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以极大地提高代码的效率。在项目资源管理器中为项目添加一个Module，保存为Module1.bas。下面就可以开始添加需要的代码了。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgStrin

36、g As String) _ As ADODB.Recordset执行SQL语句，并返回记录集对象 声明一个连接 Dim cnn As ADODB.Connection 声明一个数据集对象 Dim rst As ADODB.Recordset Dim sTokens() As String异常处理 On Error GoTo ExecuteSQL_Error用Split函数产生一个包含各个子串的数组 sTokens = Split(SQL) 创建一个连接 Set cnn = New ADODB.Connection打开连接 cnn.Open ConnectString If InStr(INS

37、ERT,DELETE,UPDATE, _ UCase$(sTokens(0) Then 执行查询语句 cnn.Execute SQL MsgString = sTokens(0) & _ query successful Else Set rst = New ADODB.Recordset rst.Open Trim$(SQL), cnn, _ adOpenKeyset, _ adLockOptimistic rst.MoveLast get RecordCount返回记录集对象 Set ExecuteSQL = rst MsgString = 查询到 & rst.RecordCount &

38、_ 条记录 End IfExecuteSQL_Exit: Set rst = Nothing Set cnn = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误: & _ Err.Description Resume ExecuteSQL_ExitEnd Function 在ExecuteSQL函数中使用了Connect String函数，这个函数用来连接数据库，代码如下：Public Function ConnectString() _ As String返回一个数据库连接 ConnectString = FileDSN=ti

39、cket.dsn;UID=sa;PWD=End Function在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。在所有的功能模块都需要这个函数，所以将它放在公用模块中，代码如下：Public Sub EnterToTab(Keyasc As Integer) 判断是否为回车键 If Keyasc = 13 Then 转换成Tab键 SendKeys TAB End IfEnd Subeyasc用来保存当前按键，SendKeys函数用来指定的按键。一旦按下回车键，将返回Tab键，下一个控件自动获得输入焦点。添加全局变量，用来记录各个功能模块的读写状态，代码如下：Publi

40、c gintSmode As Integer 记载舱位等级功能模块的读写状态Public gintPmode As Integer 记载客机信息模块的读写状态Public gintAmode As Integer 记载航线信息模块的读写状态Public gintTmode As Integer 记载客户类型模块的读写状态Public gintCmode As Integer 记载客户信息模块的读写状态Public gintKmode As Integer 记载订票信息模块的读写状态这些全局变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。由于航空公司管理信息管理系统启动后，需要对

41、用户进行判断。如果登录者是授权用户，将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。（五）用户管理模块主要实现：l 用户登录。l 添加用户。l 修改用户密码。这个功能模块具有通用性，这里就不再详细介绍了。二、舱位信息管理模块的创建舱位信息管理模块主要实现如下功能：l 添加舱位信息。l 修改舱位信息。l 删除舱位信息。（一）显示舱位信息窗体的创建选择“航线信息管理|舱位信息”菜单，将出现如图3.3所示的窗体。图3.3 舱位等级信息窗体这个窗体用来显示舱位等级信息，并且可以对各条记录进行操作。在载入窗体时，程序将自动载入所有记录。窗体的Show方法后面

42、加上0或者1，可以得到不同的窗体显示方式。参数为0时，显示的窗体为无模式形式，窗体切换时不需要进行其他操作；参数为1时，显示的窗体为有模式形式，窗体切换时必须进行相关操作。（二）添加舱位信息窗体的创建在舱位信息显示窗体中单击“添加”按钮，将出现如图3.4所示的窗体。图3.4 添加舱位等级信息窗体载入窗体时，首先根据标志变量判断状态，然后决定是添加还是修改。输入内容完毕，单击“保存”按钮，将首先判断输入内容是否满足要求，然后添加到数据库中。（三）修改舱位等级信息在舱位等级信息列表中选择需要修改的记录，然后单击“修改”按钮。选择记录的内容将显示在窗体中，可以进行修改，最后保存修改后的记录代码如下：

43、Private Sub cmdModify_Click() Dim intCount As Integer 判断列表中是否有记录 If frmService.msgList.Rows 1 Then 改变状态变量 gintSmode = 2 记录选择记录位置 intCount = msgList.Row If intCount 0 Then frmService1.txtSQL = select * from serviceInfo where serviceNO = & Trim(msgList.TextMatrix(intCount, 1) & frmService1.Show 1 Else

44、 MsgBox 警告, vbOKOnly + vbExclamation, 请首先选择需要修改的记录！ End If End IfEnd Sub（四）删除舱位等级信息在舱位等级信息列表中选择需要删除的记录，然后单击“删除”按钮，将删除当前记录。代码如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String 判断信息列表中内容是否为空 If msgList.Rows 1 Then 提示信息 If MsgB

45、ox(真的要删除机舱等级为 & Trim(msgList.TextMatrix(msgList.Row, 2) & 的记录吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then记录选择记录位置 intCount = msgList.Row删除重复记录txtSQL = delete from serviceInfo where serviceNO = & Trim(msgList.TextMatrix(intCount, 1) & Set mrc = ExecuteSQL(txtSQL, MsgText)卸载窗体Unload frmService 重新载入

46、记录并显示 frmService.txtSQL = select * from serviceInfo frmService.Show End If End IfEnd Sub三、客机信息管理模块的创建客机信息管理模块主要实现如下功能：l 添加客机信息。l 修改客机信息。l 删除客机信息。l 查询客机信息。（一）显示客机信息窗体的创建选择“航线信息管理|客机信息”菜单，将出现如图3.5示的窗体。所有客机信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数，将所有记录显示出来。图3.5显示客机信息列表窗体（二）添加客机信息窗体的创建单击客机信息列表中的“添加”按钮，将

47、出现如图3.6所示的窗体。图3.6 添加客机信息列表输入内容完毕，单击“保存”按钮，将首先判断输入内容是否满足要求，然后将记录添加到数据库中。（三）删除客机信息在客机信息列表中选择记录，然后单击“删除”按钮，当前记录将被删除。代码如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String 判断列表内容是否为空 If msgList.Rows 1 Then If MsgBox(真的要删除客机编号为 & T

48、rim(msgList.TextMatrix(msgList.Row, 1) & 的型号为 & Trim(msgList.TextMatrix(msgList.Row, 2) & 的客机记录吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 记载选择记录的位置 intCount = msgList.Row txtSQL = delete from planeInfo where planeNO = & Trim(msgList.TextMatrix(intCount, 1) & Set mrc = ExecuteSQL(txtSQL, MsgText

49、) Unload frmPlane 重新载入所有记录，并显示出来 frmPlane.txtSQL = select * from planeInfo frmPlane.Show End If End IfEnd Sub（四）查询客机信息在客机信息列表中单击“查询”按钮，将出现如图3.7所示的窗体。载入窗体时，将自动加入所有客机编号和客机型号的信息。图3.7 查询客机信息的窗体四、航线信息管理模块的创建航线信息管理模块主要实现如下功能：l 添加航线信息。l 修改航线信息。l 删除航线信息。l 查询航线信息。（一）显示航线信息窗体的创建选择“航线信息管理|航线信息”菜单，将出现如图3.8所示的窗体

50、。所有信息显示出来。窗体的Load事件调用ShowTitle、ShowData函数，将记录显示出来。图3.8 显示客机信息窗体（二）添加航线信息窗体的创建 选择“航线信息管理|航线信息”菜单，将出现如图3.9所示的窗体，用来添加航线信息。图3.9 添加航线窗体输入完航线信息后，单击“保存”按钮：程序首先检查输入内容是否符合要求，然后检查是否有重复记录，最后添加到数据库中。（三）修改航线信息在航线信息列表中选择记录，然后单击“修改”按钮。当前记录将显示在如图9-18所示的窗体中，可以进行修改。代码如下：Private Sub cmdModify_Click() Dim intCount As I

51、nteger 判断列表内容是否为空 If frmAirline.msgList.Rows 1 Then gintAmode = 2 记载选择记录的位置 intCount = msgList.Row If intCount 0 Then frmAirline1.txtSQL = select * from airlineInfo where airlineNO = & Trim(msgList.TextMatrix(intCount, 1) & frmAirline1.Show 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 请首先选择需要修改的记录！ E

52、nd If End IfEnd Sub（四）删除航线信息在航线信息列表中选择记录，然后单击“删除”按钮，当前记录将被删除。代码如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String 判断列表内容是否为空 If msgList.Rows 1 Then If MsgBox(真的要删除 & Trim(msgList.TextMatrix(msgList.Row, 4) & 从 & Trim(msgList

53、.TextMatrix(msgList.Row, 2) & 出发到 & Trim(msgList.TextMatrix(msgList.Row, 3) & 的航线记录吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 记载选择记录位置 intCount = msgList.Row txtSQL = delete from airlineInfo where airlineNO = & Trim(msgList.TextMatrix(intCount, 1) & Set mrc = ExecuteSQL(txtSQL, MsgText) 重新载入记录并

54、显示 Unload frmAirline frmAirline.txtSQL = select * from airlineInfo frmAirline.Show End If End IfEnd Sub（五）查询航线信息在航线信息列表中单击“查询”按钮，将出现如图13所示的窗3.10图3.10 航线信息查询窗体载入窗体时自动加入出发城市和到达城市的内容。设置查询内容后，单击“确定”按钮，所有满足查询条件的内容显示在航线信息列表中。五、客户类型信息管理模块的创建客户类型信息管理模块主要实现如下功能：l 添加客户类型信息。l 修改客户类型信息。l 删除客户类型信息。（一）显示客户类型信息窗体的

55、创建选择“客户信息管理|客户类型”菜单，将出现如图3.11所示的窗体。所有客户类型信息都将显示出来。窗体的Load事件调用ShowTitle、ShowData函数，将所有记录显示出来。图3.11 显示客户类型信息窗体（二）添加客户类型信息窗体的创建在客户类型信息列表中单击“添加”按钮，将出现如图3.12所示的窗体，用来添加客户类型信息。图3.12添加客户类型信息窗体输入内容完毕，单击“保存”按钮，程序将首先检查内容是否符合要求，然后检查是否有重复记录，最后添加到数据库中。（三）修改客户类型信息在客户类型信息列表中选择需要修改的记录，然后单击“修改”按钮，当前记录将出现在如图9-14所示的窗体中

56、。修改完毕，单击“保存”按钮，修改后的记录保存到数据库中。代码如下：Private Sub cmdModify_Click() Dim intCount As Integer 判断列表内容是否为空 If frmcType.msgList.Rows 1 Then gintTmode = 2 记载选择记录的位置 intCount = msgList.Row 判断是否选择记录 If intCount 0 Then 显示需要修改的记录 frmcType1.txtSQL = select * from customerType where ctypeNO = & Trim(msgList.TextMat

57、rix(intCount, 1) & frmcType1.Show 1 Else MsgBox 警告, vbOKOnly + vbExclamation, 请首先选择需要修改的记录！ End If End IfEnd Sub（四）删除客户类型信息选择客户类型信息列表中需要删除的记录，然后单击“删除”按钮，可以删除所选记录。代码如下：Private Sub cmdDelete_Click() Dim txtSQL As String Dim intCount As Integer Dim mrc As ADODB.Recordset Dim MsgText As String 判断列表内容是否为空 If msgList.Rows 1 Then 提示信息 If MsgBox(真的要删除客户种类为 & Trim(msgList.TextMatrix(msgList.Row, 2) & 的记录吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 记载选择记录的位置 intCount = msgList.Row 删除记录 txtSQL = delete from customerType where ctypeNO = &