航空公司管理信息系统

大连理工大学学生毕业设计（论文）题目名称完成日期2002年9月8日目录摘要3英文摘要4第一章引言5第二章理论基础621数据库技术622面向对象技术723VISUALBASIC数据库体系结构8第三章系统分析931需求分析932业务,数据流程图9第四章系统设计1241系统功能模块的设计1243数据库的设计17第五章系统实施3251系统实施环境3252系统安装说明33第六章系统维护和系统评价3461系统维护3462系统评价35第七章展望36参考文献37附录程序代码38摘要随着信息时代的到来，计算机技术的飞速发展，市场竞争的日趋激烈，企业的管理水平要求也必须不断地提高。采用日趋成熟的数据库技术和管理信息系统理论建立管理信息系统，对于企业就显得日益迫切和必要。本论文设计的是航空公司管理信息系统，它是航空部门机票管理系统的一部分，其作用是对所有待售机票和已售机票进行有效的管理。通过本系统不仅可以进行售票工作，而且还可以对和机票相对应的旅客情况和航班情况进行查询，并可随时进行增加，修改，删除，打印等工作，使售票人员能够有效地对机票进行有效的控制和管理。本论文从机票管理出发介绍了系统开发的背景，阐述了系统的设计思路和设计方法，并对系统中遇到的问题及应用前景作了阐述。本论文包括七章内容，分别从引言，理论基础，系统分析，系统设计，系统实施，系统维护和系统评价，展望介绍了本航空公司管理信息系统的开发全过程。ABSTRACTWITHTHECOMINGOFINFORMATIONTIME,THEMOREZIPPYDEVELOPMENTOFTHECOMPUTERTECHNOLOGY,THEMOREINTENSITYOFTHEMARKETCOMPETITION,THEREQUIREMENTOFTHEENTERPRISESSMANAGEMENTLEVELMUSTALSORISE。ITISURGENTANDNECESSARYINCREASINGLYFORENTERPRISESTOBUILDUPAMANAGEMENTINFORMATIONSYSTEMBYTHETECHNOLOGYOFTHEADVANCEDDATABASEANDTHETHEORYOFTHEADVANCEMANAGEMENTINFORMATIONSYSTEMTHETHESISDESIGNSANAVIATIONCOMPANYMANAGEMENTINFORMATIONSYSTEMWHICHISAPARTOFAVIATIONDEPARTMENTPLANETICKETSMANAGEMENTSYSTEMANDMANAGESALLTHEBEINGSELLEDPLANETICKETSANDTHESELLEDPLANETICKETSTHESYSTEMCANNOTONLYBEONDOINGTHEJOBOFSELLINGPLANETICKETSBUTALSOBEONSEARCHINGTHECASEOFPASSENGERSANDTHELINERSONTHEPLANETICKETSANDITCANBEONADDING,MODIFYING,DELETING,PRINTANDSOON,ATANYTIME,SOTHATBOOKINGCLERKSCANEFFECTIVELYCONTROLANDMANAGEPLANETICKETSTHETHESISINTRODUCESTHEDEVELOPMENTBACKGROUNDOFSYSTEMANDDISCUSSESTHESYSTEMSDESIGNINGTHOUGHTANDDESIGNINGAPPROACHANDDISCUSSESTHEPROBLEMSWHICHCANBEENCOUNTEREDANDTHEAPPLICATIONPROSPECTTHISTEXTINCLUDESSEVENPARTSITINTRODUCESTHEAVIATIONCOMPANYMANAGEMENTINFORMATIONSYSTEMSDEVELOPINGCOMPLETEDPROCEDUREFROMTHESYSTEMSINTRODUCTIONANDNECESSARYOFDEVELOPING,THETHEORYBASEOFSYSTEMSDEVELOPMENT,THESYSTEMSANALYSIS,THESYSTEMSDESIGNING,THESYSTEMSPRACTICE,KEEPINGANDPROSPECT第一章引言随着信息时代的到来，计算机技术的飞速发展，市场竞争的日趋激烈，对企业的管理水平也要求不断的提高。作为企业管理的重要一环，建立现代化的信息系统是时代和企业发展的要求。旧的人工管理已经远远不能满足人们对大量信息进行复杂处理的要求，采用日趋成熟的数据库技术和管理信息系统理论建立管理信息系统，就显得日益迫切和必要。本论文设计的是航空公司管理信息系统，包括七章内容，分别从引言，理论基础，系统分析，系统设计，系统实施，系统维护和系统评价，展望介绍了一个管理系统的开发全过程。第一章概述了人工售票管理的历史情况及开发本系统的必要性。第二章论述了开发航空管理信息系统的理论基础。第三章从管理系统开发的理论出发，在对航空公司售票情况调查的基础上提出了新系统的逻辑模型。第四章采用了面向对象的系统设计方法和理论，提出了系统的设计方案。第五章阐述了系统实施的基本方案，并给出了部分运行结果。第六章阐述了系统维护和系统评价在管理信息系统中的必要性及方法。第七章展望了系统的未来发展情况。鉴于本人在调查时能力有限，所以在开发过程中存在许多不尽人意之处，请老师多多批评指正，提出宝贵意见。第二章理论基础由于本程序是由VISUALBASIC60开发工具做的，所以这里先介绍一下VISUALBASIC60开发工具。VISUALBASIC60是美国微软公司推出的一个优秀的可视化开发环境工具。他采用非常巧妙的方法将WINDOWS的编程复杂性封装起来，是编程人员能够轻松编程。使用VISUALBASIC60，编程人员不用编写大量的源代码去描述界面元素的外观和位置，而只需把预先建立的对象拖放到屏幕上的某一个位置即可。从而使编程的效率得到了极大的提高。最新版本的VISUALBASIC60是在改进以往版本的基础上形成的，较以往版本有更新，更强的功能，从开发小型应用程序到大型应用系统VISUALBASIC60都能胜任。VISUALBASIC60中文版是英文版的汉化版,更能适合我国用户的使用。21数据库技术人们在总结信息资源开发管理和服务的各种手段时，认为最有效的是数据库技术。数据库的应用已越来越广泛，从小型的单项事务处理系统到大型的信息系统，大都用先进的数据库技术来保持系统数据的整体性完整性和共享性。数据库是某个企业组织或部门所涉及的数据的综合。它不仅反映数据本身的内容，而且反映数据之间的联系。数据模型是现实世界对象或实体以及对象的约束和对象间的联系的逻辑组织。数据模型就是对现实世界的数据和信息进行抽象的，是用于数据库系统中提供信息表示和操作手段的形式构架。数据库技术所研究的问题就是如何科学的组织和存储数据，如何高效的获取和处理数据。通常，数据库所包含的大量信息都以表的形式存储。数据库包含多个表，有的是独立的，有的表相互之间存在着一定关系。设计数据库就是将大量信息经过分析和归纳，分储到多个表中，确定表之间的相互关系，使表内的信息完整的反映主题。为了方便数据库的建立使用和维护，在操作系统的基础上，配置一定的软件，对数据库进行统一的管理和控制，即数据库管理系统DBMS。数据库管理系统DBMS具有数据库定义功能数据存取功能以及对数据库运行的管理和数据库的建立和维护功能。22面向对象技术面向对象方法是软件工程方面的重要成就之一，它吸收了传统方法的数据抽象信息隐蔽模块化等思想，强调以对象作为问题分析系统设计的主体，使软件系统与客观世界之间有自然的对应关系。面向对象方法按照人们习惯的思维方式建立问题的模型和构造系统，使软件系统更易于理解和维护，它的继承和多态等技术为软件复用和扩充创造了条件。面向对象程序设计把数据和程序（代码）封装在一个对象中，数据称为对象的状态，程序称为对象的行为。对象的状态是该对象定义的属性的值的集合，行为是代码的集合。面向对象程序设计要求通过定义在对象行为上的界面对该对象传递信息来激活行为。应用面向对象的程序设计方法，用户只需编写很少的代码，使开发工作变得简单。23VB数据库体系结构VB数据库引擎存在于程序和物理数据库之间，使得VISUALBASIC数据库对象和编程技术对于数据可应用程序具有相同的三部分，如下图。用户与正在访问的特定数据库无关，不管这个数据库是本地的VISUALBASIC数据库，还是所支持的其他任何数据库所用的数据访问对象都是相同的。用户界面USERINTERFACE数据引擎DATABASEENGINE数据仓库DATAVAULT第三章系统分析31需求分析航空公司售票的管理是一种复杂的工作，传统的管理方法是通过手工操作实现的，主要利用人工卖票、统计、报表，这样不仅速度慢而且很容易出错。传统的手工操作不能充分利用各项资源，而且浪费了大量的人力物力，并且无法提高工作效率。在当今市场经济环境下，这种混乱的情况下，不仅影响了航空公司的信誉，而且阻止了航空公司的进一步发展。基于上述种种弊端，要求有一个合理而有效的计算机管理系统对机票的销售情况进行管理。这个系统必须能够完成日常手工能完成的各项操作，并且把售票、统计、查询、报表连接成一个有效的数据库管理系统，相互制约，避免手工操作出现漏洞和错误，达到对机票高效合理的管理。因此，为了提高工作效率，开发一个航空公司管理信息系统既是可行的又是适应现代化管理的需求。32业务,数据流程图本航空公司管理信息系统的业务流程图表示为客户客户登记信息表客户部客机部舱位部客户类型设置信息表客机登记信息表舱位等级设置信息表信息收集人员客机登记信息表客户类型设置信息表客户登记信息表舱位等级设置信息表信息录入人员信息录入人员客户信息表航线信息表信息录入人员订票信息表订票部该物理模型图转换为数据流程图为客客客舱户户机位登类登等记型记级信设信设息置息置信信息息客客客舱户户机位登类登等记型记级信信信信息息息息表表表表D1客户信息报表D2航线信息报表D3订票信息报表客户舱位部客机部客户部P1客户登记信息管理P2客户类型信息管理P3客机登记信息管理P4舱位等级信息管理P6航线信息管理P5客户信息管理P7订票信息管理订票部第四章系统设计系统设计在整个管理信息系统的研制过程中起着十分重要的作用。它将系统分析阶段建立的逻辑模型转化为系统的结构模型，并做好编程前的一切准备。系统分析是决定管理信息系统“干什么”的问题，而设计阶段则是解决“怎么干”的问题。它从管理信息系统的目标出发，建立系统的总体模型，确定系统的总体结构，规划系统的规模，建立各个基础部分，并说明它在整个系统中的作用及相互关系。41系统功能模块的设计航空公司管理信息管理系统的功能包括系统，航线信息管理，客户信息管理，票务信息管理，打印，帮助。其功能模块图如下登入界面主菜单系统航线信息管理客户信息管理票务信息管理打印帮助其中系统功能包括修改密码，添加用户，退出等功能模块。其图如下其中航线信息管理包括舱位信息（包括舱位信息添加，舱位信息修改，舱位信息删除和关闭等功能模块），客机信息（包括客机信息添加，客机信息修改，客机信息删除，客机信息查询和关闭等功能模块），航线信息（包括航线信息添加，航线信息修改，航线信息删除，航线信息查询和关闭等功能模块）等功能模块。其图如下系统修改密码添加用户航线信息管理舱位信息客机信息航线信息退出舱位信息其中客户信息管理包括客户类型（包括客户类型信息添加，客户类型信息修改，客户类型信息删除和关闭等功能模块）和客户信息（包括客户信息添加，客户信息修改，客户信息删除，客户信息查询和关闭等功能模块）等功能模块。其图如下舱位信息添加舱位信息修改关闭关闭关闭客户信息管理舱位信息删除客机信息添加客机信息修改客机信息查询航线信息修改航线信息删除航线信息航线信息添加客机信息删除航线信息查询客机信息其中票务信息管理包括订票管理（包括机票信息添加，机票信息修改，机票信息删除，机票信息查询和关闭等功能模块）等功能模块。其图如下客户信息客户类型客户类型信息添加客户类型信息修改客户信息添加客户信息删除客户信息查询客户类型信息删除关闭票务信息管理订票管理客户类型客户信息关闭客户信息修改客户类型信息查询其中打印包括打印航线信息，打印客户信息，打印机票信息等功能模块。其图如下其中帮助包括关于帮助（包括系统信息和退出等功能模块）等功能模块。其图如下关于帮助退出关闭机票信息添加机票信息修改机票信息删除机票信息查询打印打印机票信息打印航线信息打印客户信息帮助系统信息42数据库的设计针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计了该航空公司管理信息系统的数据项和数据结构，这样就可以设计出能够满足用户要求的各种实体，以及它们之间的关系，所设计规划出的实体有舱位等级信息，客机信息，航线信息，客户类型信息，客户信息，订票信息。各个实体的ER图如下图舱位等级信息ER图舱位等级信息备注信息舱位等级名称舱位等级编号是否有报纸是否有礼物是否有午餐是否有饮料是否可以改签是否有电影是否可以退票是否可以打折客机信息购买日期客机编号经济舱座位数量服役日期公务舱座位数量客机型号备注信息头等舱座位数量图客机信息ER图图航线信息ER图图客户类型信息ER图图客户信息ER图航线信息航线编号到达城市出发城市出发时间航班日期客机编号公务舱价格经济舱价格到达时间备注信息头等舱价格客户类型信息客户类型名称客户类型编号折扣比例备注客户信息客户编号客户类型身份证号码客户姓名备注客户联系电话客户性别图订票信息ER图实体之间关系的ER图如下图实体之间关系的ER图订票信息客户类型出发城市折扣比例备注舱位类型订票编号客户编号机票价格结算金额出发日期到达城市航线编号客户姓名舱位等级信息航线信息客户信息订票信息客机信息客户类型信息航线设置预订机票客户登记现在需要将上面的数据库概念结构转化为SQLSERVER2000数据库系统所支持的时间数据模型，也就是数据库的逻辑结构，航空公司管理信息系统数据库设计的数据库中包括的表如下USER_INFO登入信息表列名数据类型可否为空用户名称CHARNOTNULL用户密码CHARNULL用户描述CHARNULLSERVICEINFO舱位等级信息表列名数据类型可否为空舱位等级编号CHARNOTNULL舱位等级名称NVARCHARNULL是否有礼物CHARNULL是否有报纸CHARNULL是否有饮料CHARNULL是否有午餐CHARNULL是否有电影CHARNULL是否可以改签CHARNULL是否可以退票CHARNULL是否可以打折CHARNULL备注信息TEXTNULLPLANEINFO客机信息表列名数据类型可否为空客机编号CHARNOTNULL客机型号CHARNULL购买日期DATATIMENULL服役日期DATATIMENULL经济舱座位数量NVARCHARNULL公务舱座位数量NVARCHARNULL头等舱座位数量NVARCHARNULL备注信息TEXTNULLAIRLINEINFO航线信息表列名数据类型可否为空航线编号CHARNOTNULL出发城市NVARCHARNULL到达城市NVARCHARNULL航班日期CHARNULL出发时间CHARNULL到达时间CHARNULL客机编号CHARNULL经济舱价格NUMERICNULL公务舱价格NUMERICNULL头等舱价格NUMERICNULL备注信息TEXTNULLCUSTOMERTYPE客户类型信息表列名数据类型可否为空客户类型编号CHARNOTNULL客户类型名称CHARNULL折扣比例NUMERICNULL备注TEXTNULLCUSTOMERINFO客户信息表列名数据类型可否为空客户编号CHARNOTNULL客户姓名CHARNULL客户性别CHARNULL身份证号码CHARNULL客户联系电话CHARNULL客户类型CHARNULL备注TEXTNULLTICKETINFO订票信息表列名数据类型可否为空订票编号CHARNOTNULL客户编号CHARNULL客户姓名CHARNULL客户类型CHARNULL折扣比例NUMERICNULL航线编号CHARNULL出发城市NVARCHARNULL到达城市NVARCHARNULL出发日期DATETIMENULL舱位类型CHARNULL机票价格NUMERICNULL结算金额NUMERICNULL备注TEXTNULL现在已经完成了程序各个模块的创建，现在来运行整个系统。运行程序，出现登入窗体如下图用户登入窗体输入用户名和密码后，进入系统，出现航空管理信息系统的主窗体如下图航空公司管理信息系统主窗体选择“航线信息管理|舱位信息”菜单，出现舱位等级信息列表窗体，用来添加，修改，删除舱位等级信息，此窗体如下图舱位等级信息窗体选择“航线信息管理|客机信息”菜单，将显示所有客机信息，此窗体用来对舱位等级信息进行添加，修改，删除。此窗体如下图客机信息列表窗体选择“航线信息管理|航线信息”菜单，将显示航线信息列表窗体，用来对航线信息进行添加，修改，删除，查询。此窗体如下图航线信息列表窗体在航线信息列表中单击“添加”按钮，将出现航线信息添加窗口，此窗体如下图航线信息添加窗体在航线信息列表中单击“查询”按钮，将出现航线信息查询按钮，此窗体如下图航线信息查询窗体选择“客户信息管理”菜单，将显示所有客户信息，此窗体用来对客户信息进行添加，修改，删除。此窗体如下图客户信息列表窗体选择“订票信息管理|订票信息”菜单，将显示机票信息列表窗体，用来对订票信息进行添加,修改，删除，查询，此窗体如下图机票信息列表窗体在信息列表中单击“添加”按钮，将出现机票信息添加窗体，此如下图添加客户信息窗体在机票信息列表中，单击“查询”按钮，将出现机票信息查询窗体，输入查询内容，可以得到剩余机票信息，此如下图机票信息查询窗体查询结果如下对话框图机票信息查询结果选择“打印|打印机票信息”菜单，将显示所打印的报表，其显示的报表如下打印机票信息报表选择“帮助|关于帮助”菜单，将出现关于帮助窗体，此窗体如下图关于帮助窗体点击系统信息按钮，将显示系统信息窗体,此窗体如下图系统信息窗体因界面页数的限制，只显示了部分的窗体，其他详见软盘。第五章系统实施在管理信息系统中的生命周期中，经过系统规划、系统分析和系统设计阶段后，便开始系统实施阶段。系统实施阶段要继承以前各阶段的工作成果，将技术设计转化为物理实现。系统实施的主要内容包括物理系统的实施，程序设计与调试，项目管理，人员培训，数据准备与录入，系统转换和评价等。系统实施作为系统的最后物理实现阶段，对于系统的质量、可靠性、可维护性等有着十分重要的影响。51系统实施环境本航空公司管理信息系统软件实施的环境如下操作系统环境要求WINDOWS2000MICROSOFTWINDOWSNT40版SERVICEPACK5或更高版本WINDOWSMILLENNIUMEDITIONWINDOWS98WINDOWS95（仅客户端连接选项）软件要求VB以及SQLSERVER200052系统安装说明航空公司管理信息系统的安装说明（一）航空公司管理信息系统的文件夹复制到桌面（二）在SQLSERVER2000的查询分析器中打开该文件夹中的SQL，其路径为DDOCUMENTSANDSETTINGSADMINISTRATOR桌面毕业设计航空公司管理信息系统SQLTICKETSQL，运行它将建立名为TICKET的数据库。（三）在ODBC中建立数据源，并将其连接。（四）运行航空公司管理信息系统EXE文件，则该航空公司管理信息系统软件安装成功，即可应用。计算机专业毕业设计开发环境ASPNET，VB，VBNETVF，JAVA等，数据库SQL。包括开题报告、程序、论文、答辩PPT，所有程序都是通过答辩的优秀作品，质量保证。也可代做。我是哈尔滨工业大学计算机专业毕业的学生我卖的毕业设计都是新做出来的而且是学生亲手做的符合学生要求如果你在别的店卖来的都是很专业的人员做的一看就不是学生自己亲手做出来的，而且其他店不提供售后我们提供售后服务及技术支持和答辩技巧QQ982465840旺旺诚信源代码之家电铺地址全天在线各位学弟学妹联系我本店购设计的优点1价格合理便宜2提供技术支持3售后服务好4成交速度快当时就可以完成调试功能5东西齐全开题论文代码程序答辩PPT售后服务6作品都是获得优秀的产品保证质量第六章系统维护和系统评价61系统维护新系统在正式投入正常运行后，为了让管理信息系统长期高效地工作，必须加强对管理信息系统运行的日常管理。系统的维护目的是保证它的正常而可靠地运行，并能使系统不断得到改善和提高，以充分发挥作用。因此系统维护就是为了保证系统中的各个要素随着环境的变化始终处于最新的，正确的工作状态之中，即系统维护是信息系统可靠运行的重要技术保障，我们必须给予充分的重视。系统维护工作的内容按维护对象的不同可以分为系统应用程序的维护，数据维护，代码维护和硬件设备维护。按维护的类型分为纠错性维护，适应性维护，完善性维护和预防性维护。对于本航空航空公司管理信息系统的维护。我们不仅要注意工作环境和设施的管理，更主要的是对系统每天运行状况，数据输入和输出情况，以及系统的安全与完备性及时如实记录和处置。这些工作主要由系统运行值班人员来完成。系统运行的日常维护管理包括数据收集，数据整理，数据录入及处理结果的整理与分发，硬件的简单维护及设施管理。航空管理信息系统的运行情况能反映出系统在大多数情况下的状态和工作效率，对于系统的评价与改进具有重要的参考价值。因此，在此系统的运行情况是一定要及时，准确，完整地记录下来，不但要记录正常情况，还要记录意外情况发生时间，原因和处理结果。62系统评价管理信息系统投入运行后，要在平时运行管理工作的基础上，定期地对其运行状况进行集中评价。进行这项工作的目的是通过对新系统运行过程和绩效的审查，来检查新系统是否达到了预期目的，是否充分利用了系统内各种资源（包括计算机硬件资源，软件资源和数据资源），系统的管理工作是否完善，以及指出系统改进和扩展的方向是什么等。系统评价的主要依据是系统日常运行记录和现场实际监测数据。评价的结果可以做为系统改进的依据。通常，新系统的第一次评价与系统的验收同时进行，以后每隔半年或一年进行一次。参加首次评价工作的人员有系统研制人员，系统管理人员，用户，用户领导和系统外专家。以后各次的评价工作主要是系统管理人员和用户参加。系统的评价的内容包括对信息系统的功能评价；对现有硬件和软件的评价；对信息系统的应用评价；对信息系统的经济效益评价。第七章展望信息系统是信息时代最为重要的基础设施，但信息系统的开发是极为困难的。除了要涉及计算机、数据库等方面的专业知识外，还在于信息系统自身的复杂性。为了克服这些复杂性，系统开发者应不断的总结经验，不断探索更好的开发方法。“信息系统开发”，“管理信息系统”，“软件工程”，“软件开发工具”等课程中讲述的理论、方法、工具，诸如结构化开发方法、原型法、面向对象的方法、规范化理论、生命周期法、第四代语言、软件工程等，正是解决此问题的强有力工具。功能强大的数据库管理系统都支持客户/服务器数据库管理功能，伴随网络的畅通，客户机/服务器的迅速发展和业务不断扩大，要求数据库管理系统能够在网络环境下进行管理和工作。相信在未来管理信息系统会有更多的和更智能化的功能（不论是航空公司管理信息系统，还是其他的管理系统）。比如它有智能化的分析功能，预测功能，会不需要人的参与便可以管理好一切事物。参考文献1刘韬，骆娟，何旭洪著VISUALBASIC60数据库开发实例导航人民邮电出版社200242甘仞初著信息系统开发经济科学出版社1999103黄梯云著管理信息系统北京理工大学出版社199944刘恩涛、赵耀峰著VISUALBASIC60编程技巧与实例分析中国水利水电出版社2000105清汉计算机工作室编写VISUALBASIC60数据库开发实例机械工业出版社200116（美）JEFFREYPMCMANU著赵军锁、龚波、李志等译VISUALBASIC60数据库访问技术机械工业出版社20011附录程序代码主模块代码PUBLICFMAINFORMASFRMMAINPUBLICGINTSMODEASINTEGERFORSERVICEPUBLICGINTPMODEASINTEGERFORPLANEPUBLICGINTAMODEASINTEGERFORAIRLINEPUBLICGINTTMODEASINTEGERFORCUSTOMERTYPEPUBLICGINTCMODEASINTEGERFORCUSTOMERPUBLICGINTKMODEASINTEGERFORTICKETPUBLICUSERNAMEASSTRINGSUBMAINDIMFLOGINASNEWFRMLOGINFLOGINSHOWVBMODALIFNOTFLOGINOKTHENLOGINFAILEDSOEXITAPPENDENDIFUNLOADFLOGINSETFMAINFORMNEWFRMMAINFMAINFORMSHOWENDSUBPUBLICFUNCTIONCONNECTSTRING_ASSTRINGRETURNSADBCONNECTSTRINGCONNECTSTRING“FILEDSNTICKETDSNUIDPWD“ENDFUNCTIONPUBLICFUNCTIONEXECUTESQLBYVALSQL_ASSTRING,MSGSTRINGASSTRING_ASADODBRECORDSETEXECUTESSQLANDRETURNSRECORDSETDIMCNNASADODBCONNECTIONDIMRSTASADODBRECORDSETDIMSTOKENSASSTRINGONERRORGOTOEXECUTESQL_ERRORSTOKENSSPLITSQLSETCNNNEWADODBCONNECTIONCNNOPENCONNECTSTRINGIFINSTR“INSERT,DELETE,UPDATE“,_UCASESTOKENS0THENCNNEXECUTESQLMSGSTRINGSTOKENS0_“QUERYSUCCESSFUL“ELSESETRSTNEWADODBRECORDSETRSTOPENTRIMSQL,CNN,_ADOPENKEYSET,_ADLOCKOPTIMISTICRSTMOVELASTGETRECORDCOUNTSETEXECUTESQLRSTMSGSTRING“查询到“RSTRECORDCOUNT_“条记录“ENDIFEXECUTESQL_EXITSETRSTNOTHINGSETCNNNOTHINGEXITFUNCTIONEXECUTESQL_ERRORMSGSTRING“查询错误“_ERRDESCRIPTIONRESUMEEXECUTESQL_EXITENDFUNCTIONPUBLICSUBENTERTOTABKEYASCASINTEGERIFKEYASC13THENSENDKEYS“TAB“ENDIFENDSUBPUBLICFUNCTIONGETRKNOASSTRINGGETRKNOFORMATNOW,“YYMMDDHHMMSS“RANDOMIZEGETRKNOGETRKNOINT99101RND10ENDFUNCTION主窗口程序代码PRIVATESUBDYBB_CLICKDATAREPORT1SHOWENDSUBPRIVATESUBDYKH_CLICKDATAREPORT2SHOWENDSUBPRIVATESUBDYHXXX_CLICKDATAREPORT1SHOWENDSUBPRIVATESUBDYJPXX_CLICKDATAREPORT3SHOWENDSUBPRIVATESUBDYKHXX_CLICKDATAREPORT2SHOWENDSUBPRIVATESUBMDIFORM_LOADMELEFTGETSETTINGAPPTITLE,“SETTINGS“,“MAINLEFT“,1000METOPGETSETTINGAPPTITLE,“SETTINGS“,“MAINTOP“,1000MEWIDTHGETSETTINGAPPTITLE,“SETTINGS“,“MAINWIDTH“,6500MEHEIGHTGETSETTINGAPPTITLE,“SETTINGS“,“MAINHEIGHT“,6500ENDSUBPRIVATESUBMDIFORM_UNLOADCANCELASINTEGERIFMEWINDOWSTATEVBMINIMIZEDTHENSAVESETTINGAPPTITLE,“SETTINGS“,“MAINLEFT“,MELEFTSAVESETTINGAPPTITLE,“SETTINGS“,“MAINTOP“,METOPSAVESETTINGAPPTITLE,“SETTINGS“,“MAINWIDTH“,MEWIDTHSAVESETTINGAPPTITLE,“SETTINGS“,“MAINHEIGHT“,MEHEIGHTENDIFENDSUBPRIVATESUBMENUABOUT_CLICKFRMABOUTSHOW0ENDSUBPRIVATESUBMENUADDUSER_CLICKFRMADDUSERSHOWSBSTATUSBARPANELS1TEXT“添加用户“ENDSUBPRIVATESUBMENUAIRLINE_CLICKFRMAIRLINETXTSQL“SELECTFROMAIRLINEINFO“FRMAIRLINESHOWENDSUBPRIVATESUBMENUBOOKTICKET_CLICKFRMTICKETTXTSQL“SELECTFROMTICKETINFO“FRMTICKETSHOW0ENDSUBPRIVATESUBMENUCARBIN_CLICKFRMSERVICETXTSQL“SELECTFROMSERVICEINFO“FRMSERVICESHOW0ENDSUBPRIVATESUBMENUCTYPE_CLICKFRMCTYPETXTSQL“SELECTFROMCUSTOMERTYPE“FRMCTYPESHOW0ENDSUBPRIVATESUBMENUCUSTOMER_CLICKFRMCUSTOMERTXTSQL“SELECTFROMCUSTOMERINFO“FRMCUSTOMERSHOW0ENDSUBPRIVATESUBMENUEXIT_CLICKENDENDSUBPRIVATESUBMENUMODIFYPWD_CLICKFRMMODIFYUSERINFOSHOWSBSTATUSBARPANELS1TEXT“ENDSUBPRIVATESUBMENUPLANE_CLICKFRMPLANETXTSQL“SELECTFROMPLANEINFO“FRMPLANESHOW0ENDSUB机票信息列表程序代码OPTIONEXPLICITPUBLICTXTSQLASSTRINGDIMMRCASADODBRECORDSETPRIVATESUBCMDADD_CLICKGINTKMODE1FRMTICKET1SHOW1ENDSUBPRIVATESUBCMDDELETE_CLICKDIMTXTSQLASSTRINGDIMINTCOUNTASINTEGERDIMMRCASADODBRECORDSETDIMMSGTEXTASSTRINGIFMSGLISTROWS1THENIFMSGBOX“真的要删除顾客“TRIMMSGLISTTEXTMATRIXMSGLISTROW,3TRIMMSGLISTTEXTMATRIXMSGLISTROW,9“从“TRIMMSGLISTTEXTMATRIXMSGLISTROW,7“到“TRIMMSGLISTTEXTMATRIXMSGLISTROW,8“的机票吗“,VBOKCANCELVBEXCLAMATION,“警告“VBOKTHENINTCOUNTMSGLISTROWTXTSQL“DELETEFROMTICKETINFOWHERE订票编号“TRIMMSGLISTTEXTMATRIXINTCOUNT,1“SETMRCEXECUTESQLTXTSQL,MSGTEXTUNLOADFRMTICKETFRMTICKETTXTSQL“SELECTFROMTICKETINFO“FRMTICKETSHOWENDIFENDIFENDSUBPRIVATESUBCMDMODIFY_CLICKDIMINTCOUNTASINTEGERIFFRMTICKETMSGLISTROWS1THENGINTKMODE2INTCOUNTMSGLISTROWIFINTCOUNT0THENFRMTICKET1TXTSQL“SELECTFROMTICKETINFOWHERE订票编号“TRIMMSGLISTTEXTMATRIXINTCOUNT,1“FRMTICKET1SHOW1ELSEMSGBOX“警告“,VBOKONLYVBEXCLAMATION,“请首先选择需要修改的纪录“ENDIFENDIFENDSUBPRIVATESUBCOMMAND1_CLICKMEHIDEENDSUBPRIVATESUBCOMMAND3_CLICKFRMTICKET2SHOW1ENDSUBPRIVATESUBFORM_LOADSHOWTITLESHOWDATAENDSUBPRIVATESUBFORM_RESIZEIFMEWINDOWSTATEVBMINIMIZEDANDFMAINFORMWINDOWSTATEVBMINIMIZEDTHEN边界处理IFMESCALEHEIGHT0THENMSGBOXTRIMTXTITEM0“从“TRIMCOMBO10“到“TRIMCOMBO11TRIMCOMBO12“的机票还有“INTCOUNT“张“,VBOKONLYVBEXCLAMATION,“机票信息“ELSEMSGBOX“对不起,“TRIMTXTITEM0“从“TRIMCOMBO10“到“TRIMCOMBO11TRIMCOMBO12“的航班已经满员，请预定其它航班“,VBOKONLYVBEXCLAMATION,“机票信息“ENDIFELSETXTSQL“SELECTFROMTICKETINFOWHERE出发日期“TRIMTXTITEM0“AND出发城市“TRIMCOMBO10“AND到达城市“TRIMCOMBO11“AND舱位类型经济舱“SETMRCEXECUTESQLTXTSQL,MSGTEXTIMRCRECORDCOUNTMRCCLOSETXTSQL“SELECTFROMTICKETINFOWHERE出发日期“TRIMTXTITEM0“AND出