民航售票系统毕业设计报告.doc

民航售票系统毕业设计 课程名称： 民航售票系统 姓名学号： XXXXX 专业班级： XXXXXXXXXXX 指导教师： XXXX 完成时间： XXXXXX 目录第一章 系统概述31.1现状描述31.2系统目标31.3系统开发方法31.4开发计划3第二章 系统分析42.1系统需求分析42.2 可行性分析5第三章 系统设计73.1 运行环境73.2 开发工具和编程语言73.3系统功能模块图83.4数据库设计83.5数据库的实现163.6航空公司管理信息系统主窗体的创建203.7舱位信息管理模块的创建223.8客机信息管理模块的创建32第四章 调试分析374.1 航空公司管理信息系统主窗体的创建374.2系统模块的创建404.3舱位信息管理模块的创建404.4 客机信息管理模块的创建414.5 航线信息管理模块的创建434.6 客户类型信息管理模块的创建454.7 客户信息管理模块的创建464.8 订票信息管理模块的创建48第五章 测试495.1 系统的实现49第六章 课设小结54参考文献56第一章 系统概述1.1现状描述民航售票系统实施的目的是要带给航空公司看得出的效益和旅客快捷方便的服务,其开发过程中不仅要考虑到人力,资金和时间的约束，也要为旅客们提供更便捷的服务。.因此,在设计中的重点是销售系统中的方便快捷,能提供给旅客以优质高效的服务,并提高销售的效率和便捷,为航空公司带来良好的效益. 1.2系统目标1、主要方便售票员对客户订票信息的管理：而客户只需坐在计算机前或打个电话即可完成订票，不用专门去机场进行订票2、减少数据出错：人工对数据的管理产生错误是无法避免的，一旦产生错误，更正起来十分困难，使用本系统后可以减少出错的几率，修改错误也十分方便。3、节约资源：系统普及后可以节约大量的时间，节约了物质资源和人力资源，从而节约了开支。1.3系统开发方法在计算机网络,数据库和先进的开发平台上,利用现有的软件,配置一定的硬件,开发一个具有开放体系结构的,易扩充的,易维护的,具有良好人机交互界面的机票预定系统,实现航空公司的机票销售和航线管理的自动化的计算机系统,.本系统使用了windows server2003 R2系统环境下的Visual Basic6.0和SQL server2000。1.4开发计划本软件主要是建立一个航空公司机票销售管理系统，主要包括舱位信息的输入和修改；客机信息的输入，修改和查询；航线信息的输入，修改和查询；客户等级信息的输入，修改；客户信息的输入，修改和查询；票务信息的输入，查询和修改以及服务信息的修改等。第二章 系统分析2.1系统需求分析2.1.1信息需求系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本例子中的航空公司管理信息系统需要完成功能主要有：l舱位信息的输入和修改，包括舱位等级编号、舱位等级名称、提供的各种服务类别，以及备注信息等。l客机信息的输入、修改和查询，包括客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量以及备注信息等。l航线信息的输入、修改和查询，包括航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格和备注信息等。l客户等级信息的输入、修改，包括客户等级编号、客户等级名称、折扣比例和备注信息等。l客户信息的输入、修改和查询，包括客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型和备注信息等。l订票信息的输入、查询和修改，包括订票编号、客户编号、客户姓名、客户类型、折扣比例、航线编号、出发城市、到达城市、出发时间、舱位类型、票价、结算金额和备注信息等。2.1.2处理需求航线信息管理: 本模块包括三个窗体：舱位信息窗体、客机信息窗体和航线信息窗体在这三个窗体中都能实现其添加、修改、删除和查询。注意：必须考虑到其参照完整性规则 。客户信息管理本模块至少包括两个窗体，客户类型窗体和客户信息窗体。在这个模块中也可以实现信息的添加、修改、删除和查询功能。票务信息管理 本模块的实现同样使用一个独立的窗体，用能根据输入的顾客类型和舱位类别自动打印出票据，也可以根据顾客类别和舱位类别调出顾客的信息和舱位信息以及票价。 2.2 可行性分析2.2.1目的可行性研究的目的是为了对问题进行研究，以最小的代价在最短的时间内确定问题是否可解经过对此项目进行详细调查研究，初拟系统实现报告，对软件开发中将要面临的问题及其解决方案进行初步设计及合理安排。明确开发风险及其所带来的经济效益。2.2.2可行性研究的前提1要求主要功能：为游客提供机票预定服务，提高民航公司的服务质量和服务效率。性能要求：1. 数据精确度：查询时应保证数据要查全，所有在相应域中包含查询关键字的记录都应能查到，同时保证数据的准确性。2. 时间特性：一般操作的响应时间应在12秒内。3. 适应性：满足运行环境在允许操作系统之间的安全转换和与其它应用软件的独立运行要求。输出要求：数据完整。输出要求：简捷，快速。安全与保密要求：对于用户有权限的限制，防止随意删改，同时提供信息备份的服务。完成期限：预计2个星期，即截止2010-1-8日。2目标系统实现后，能够提民航公司的机票销售的服务效率。降低售票服务中的错误发生率，减少信息交流的烦琐过程及其带来的开销，使乘客能够更加方便了解到机票的完整信息。3条件，假定和限制建议软件寿命：5年硬件条件： pc机运行环境：windows server2003 R2（或者更高版本）数据库：SQL server 2000（或者更高版）本投入运行最迟时间：2010/02/014 决定可行性的主要因素成本/效益分析结果，效益 成本。技术可行，现有技术可完全承担开发任务。操作可行，软件能被工作人员快速接受并使用。2.2.3技术可行性分析本系统针对的用户是航空公司操作人员。相应的需求有：1 .能够存储一定数量的机票信息，并方便有效的进行相应的机票数据操作和管理，这主要包括： 1）.机票信息的添加、修改和删除 2）.机票信息的单项查询2 .能够对一定的客户进行相应的信息存储和管理，这其中包括： 1）.客户信息的添加，修改和删除 2）.客户资料的查询3能够对需要的统计结果提供列表显示输出4能够提供一定的安全机制，提供数据信息授权访问，防止随意删改，同时提供信息备份的服务。2.2.4社会可行性分析1法律因素所有软件都选用正版.所有技术资料都由提出方保管。合同制定确定违约责任.2用户使用可行性使用本软件人员要求有一定计算机基础的人员,系统管理员要求由计算机的专业知识,所有人员都要经过本公司培训.管理人员也需经一般培训.经过培训人员将会熟练使用本软件.两名系统管理员,一名审计员将进行专业培训,他们将熟练管理本系统.第三章 系统设计3.1 运行环境硬件要求：CPU：300MHz以上的处理器。内存：128MB，推荐256MB。硬盘：1G以上剩余空间。显示像素：最低800*600，最佳效果1024*768。软件要求：操作系统：Windows2000/NT/XP（或更高）数据库：SQL Server20003.2 开发工具和编程语言开发工具：Microsoft visual basic 6.0编程语言：vb3.3系统功能模块图根据各项功能进行集中、分块，按照结构化程序设计的要求，得到如图1-1所示的系统功能模块图。图1-1 系统功能模块图3.4数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率，保证数据的完整和一致。设计数据库系统时应该首先充分了解用户各个方面的需求，包括现有的以及将来可能增加的需求。数据库设计一般包括如下几个步骤：（1）数据库需要分析。（2）数据库概念结构设计。（3）数据库逻辑结构设计。3.4.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。仔细分析调查有关航空公司管理信息需求的基础上，将得到如图1-2所示的本系统所处理的数据流程。图1-2 航空公司管理信息系统数据流程图针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构：（1）舱位等级信息，包括的数据项有：舱位等级编号、舱位等级名称、是否有礼品、是否有报纸、是否有饮料、是否有午餐、是否有电影、是否可以改签、是否可以退票、是否可以打折、备注信息等。（2）客机信息，包括的数据项有：客机编号、客机型号、购买时间、服役时间、经济舱座位数量、公务舱座位数量、头等舱座位数量、备注信息等。（3）航线信息，包括的数据项有：航线编号、出发城市、到达城市、航班日期、出发时间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格、备注信息等。（4）客户类型信息，包括的数据项有：客户类型编号、客户类型名称、折扣比例、备注信息等。（5）客户信息，包括的数据项有：客户编号、客户姓名、客户性别、身份证号码、联系电话、客户类型、备注信息等。（6）订票信息，包括的数据项有：订票编号、顾客编号、顾客姓名、顾客类型、折扣比例、航线编号、出发城市、到达城市、舱位类型、机票价格、结算金额、备注信息等。有了上面的数据结构、数据项和数据流程，我们就能进行下面的数据库设计。3.4.3 数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及它们之间的关系，为后面的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互之间的作用形成数据的流动。本实例根据上面的设计规划出的实体有：舱位等级信息实体、客机信息实体、航线信息实体、客户类型信息实体、客户信息实体、订票信息实体。各个实体具体的描述E-R图如下。舱位等级信息实体E-R图如图1-3所示。图1-3 舱位等级信息实体E-R图客机信息实体E-R图如图1-4所示。图1-4 客机信息实体E-R图航线信息实体E-R图如图1-5所示。图1-5 航线信息实体E-R图客户类型信息实体E-R图如图1-6所示。图1-6 客户类型信息实体E-R图客户信息实体E-R图如图1-7所示。图1-7 客户信息实体E-R图订票信息实体E-R图如图1-8所示。图1-8 订票信息实体E-R图实体之间关系的E-R图如图1-9所示。应收帐款支付用户订购用户身份证号编号发票号应收金额日期日期金额折扣身份证号姓名电话年龄地址机票飞行航线编号编号类型购买日期时间速度时间初始地和目的地n11111n111n1图1-9 实体之间关系的E-R图3.4.3 数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。航空公司管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格表示在数据库中的一个表。表2-1为供应商信息表。表2-1 serviceInfo 舱位等级信息表列 名数据类型可否为空说 明serviceNOcharNOT NULL舱位等级编号serviceNamenvarcharNULL舱位等级名称noPresentcharNULL是否有礼物noNewsPapercharNULL是否有报纸noDrinkcharNULL是否有饮料noFoodcharNULL是否有午餐noMoviecharNULL是否有电影canChangecharNULL是否可以改签canCancelcharNULL是否可以退票canDiscountcharNULL是否可以打折serviceMemotextNULL备注信息表2-2 planeInfo客机信息表格列 名数据类型可否为空说 明planeNOcharNOT NULL客机编号planeTypecharNULL客机型号buyDatedatetimeNULL购买日期serveDatedatetimeNULL服役日期isCommonnvarcharNULL经济舱座位数量isCommercialnvarcharNULL公务舱座位数量isFirstnvarcharNULL头等舱座位数量planeMemotextNULL备注信息表2-3 airlineInfo航线信息表列 名数据类型可否为空说 明airlineNOcharNOT NULL航线编号departCitynvarcharNULL出发城市arrivalCitynvarcharNULL到达城市departDatecharNULL航班日期departTimecharNULL出发时间arrivalTimecharNULL到达时间planeNOcharNULL客机编号commonPricenumericNULL经济舱价格commercialPricenumericNULL公务舱价格firstPricenumericNULL头等舱价格airlineMemotextNULL备注信息表2-4customerType 客户类型信息表列 名数据类型可否为空说 明ctypeNOcharNOT NULL客户类型编号ctypeNamecharNULL客户类型名称discountnumericNULL折扣比例续表列 名数据类型可否为空说 明ctypeMemotextNULL备注表2-5 customerInfo 客户信息表列 名数据类型可否为空说 明customerNOcharNOT NULL客户编号customerNamecharNULL客户姓名customerSexcharNULL客户性别customerIDcharNULL身份证号码customerTelecharNULL客户联系电话customerTypecharNULL客户类型customerMemotextNULL备注表2-6ticketInfo 订票信息表列 名数据类型可否为空说 明ticketNOcharNOT NULL订票编号customerNOcharNULL客户编号customerNamecharNULL客户姓名customerTypecharNULL客户类型discountnumericNULL折扣比例airlineNOcharNULL航线编号departCitynvarcharNULL出发城市arrivalCitynvarcharNULL到达城市ticketDatedatetimeNULL出发日期serviceTypecharNULL舱位类型ticketPricenumericNULL机票价格ticketSumnumericNULL结算金额customerMemotextNULL备注3.5数据库的实现创建航线信息表CREATE TABLE dbo.airlineInfo (airlineNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,departCity nvarchar (50) COLLATE Chinese_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 numeric(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.customerInfo (customerNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,customerName char (50) COLLATE Chinese_PRC_CI_AS NULL ,customerSex char (2) COLLATE 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 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) COLLATE 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.customerType (ctypeNO char (14) COLLATE Chinese_PRC_CI_AS NOT NULL ,ctypeName char (20) COLLATE Chinese_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.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 char (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 PRIMARY TEXTIMAGE_ON PRIMARY机票信息表CREATE TABLE dbo.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_PRC_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 Chinese_PRC_CI_AS NULL) ON PRIMARY TEXTIMAGE_ON PRIMARY3.6航空公司管理信息系统主窗体的创建3.6.1创建公用模块函数，用以执行各种SQL语句。添加函数ExecuteSQL，代码如下：Public Function ExecuteSQL(ByVal SQL _ As String, MsgString 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(INSERT,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 & _ 条记录 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=ticket.dsn;UID=sa;PWD=End Function3.7舱位信息管理模块的创建3.7.1显示舱位信息窗体的创建代码如下：Private Sub menuCarbin_Click() frmService.txtSQL = select * from serviceInfo frmService.Show 0End Sub窗体的Show方法后面加上0或者1，可以得到不同的窗体显示方式。参数为0时，显示的窗体为无模式形式，窗体切换时不需要进行其他操作；参数为1时，显示的窗体为有模式形式，窗体切换时必须进行相关操作。载入窗体时将自动显示各条记录，代码如下：Private Sub Form_Load() ShowTitle ShowDataEnd Sub函数ShowTitle用来显示表头，代码如下：Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 12 .TextMatrix(0, 1) = 等级编号 .TextMatrix(0, 2) = 机舱等级 .TextMatrix(0, 3) = 是否有礼品 .TextMatrix(0, 4) = 是否有报纸 .TextMatrix(0, 5) = 是否有饮料 .TextMatrix(0, 6) = 是否有午餐 .TextMatrix(0, 7) = 是否提供电影 .TextMatrix(0, 8) = 是否可以改签 .TextMatrix(0, 9) = 是否可以退票 .TextMatrix(0, 10) = 是否可以打折 .TextMatrix(0, 11) = 备注信息 固定表头 .FixedRows = 1 设置各列的对齐方式 For i = 0 To 11 .ColAlignment(i) = 0 Next i 表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols - 1 .CellAlignment = 4 设置单元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2000 .ColWidth(3) = 1000 .ColWidth(4) = 1000 .ColWidth(5) = 1000 .ColWidth(6) = 1000 .ColWidth(7) = 1000 .ColWidth(8) = 1000 .ColWidth(9) = 1000 .ColWidth(10) = 1000 .ColWidth(11) = 1000 .Row = 1 End WithEnd Sub函数ShowData把各条记录加到表格中，并显示出来，代码如下：Private Sub ShowData() Dim j As Integer Dim i As Integer Dim MsgText As String获得数据集 Set mrc = ExecuteSQL(txtSQL, MsgText) With msgList .Rows = 1 判断是否为空 Do While Not mrc.EOF 移动到下一行 .Rows = .Rows + 1 循环 For i = 1 To mrc.Fields.Count 判断是否为空 If Not IsNull(Trim(mrc.Fields(i - 1) Then 根据数据类型显示 Select Case mrc.Fields(i - 1).Type Case adDBDate .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & , yyyy-mm-dd) Case Else .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & End Select End If Next I 移动到下一条记录 mrc.MoveNext Loop End With 关闭数据集对象 mrc.CloseEnd Sub在窗体显示时，可以控制窗体中各个控件按照要求的位置显示。可以在窗体的Resize事件中加入代码，代码如下：Private Sub Form_Resize() 判断当前窗体所处的状态，当前窗体不处于最小化状态并且主窗体不处于最小化状态时进行后面的操作 If Me.WindowState vbMinimized And fMainForm.WindowState vbMinimized Then 边界处理 If Me.ScaleHeight 10 * lblTitle.Height Then Exit Sub End If If Me.ScaleWidth lblTitle.Width + lblTitle.Width / 2 Then Exit Sub End If 控制控件的位置 lblTitle.Top = lblTitle.Height lblTitle.Left = (Me.Width - lblTitle.Width) / 2 控制表格控件的位置 msgList.Top = lblTitle.Top + lblTitle.Height + lblTitle.Height / 2 msgList.Width = Me.ScaleWidth - 200 msgList.Left = Me.ScaleLeft + 100 msgList.Height = Me.ScaleHeight - msgList.Top - 1500 控制按钮位置 Frame2.Top = msgList.Top + msgList.Height + 50 Frame2.Left = Me.ScaleWidth / 2 - 3000 End IfEnd Sub3.7.2添加舱位信息窗体的创建代码如下：Private Sub Form_Load() Dim intCount As Integer Dim MsgText As String Dim i As Integer 判断是否为添加 If gintSmode = 1 Then Me.Caption = Me.Caption & 添加 For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next I 载入当前选择记录内容 ElseIf gintSmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) 判断记录是否为空 If mrc.EOF = False Then With mrc For intCount = 0 To 1 txtItem(intCount) = .Fields(intCount) Next intCount txtItem(2) = .Fields(10) For i = 0 To 7 Combo1(i).AddItem 否 Combo1(i).AddItem 是 Combo1(i).ListIndex = 0 Next i End With txtItem(0).Enabled = False End If Me.Caption = Me.Caption & 修改 End If mblChange = FalseEnd Sub输入内容完毕，单击“保存”按钮，将首先判断输入内容是否满足要求，然后添加到数据库中。代码如下：Private Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String 判断输入内容是否为空 For intCount = 0 To 1 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 机舱等级编号 Case 1 sMeg = 机舱等级名称 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount 判断输入内容是否为数字 If Not IsNumeric(Trim(txtItem(0) Then sMeg = 机舱等级编号 sMeg = sMeg & 请输入数字！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus End If 添加判断是否有相同的ID记录 If gintSmode = 1 Then txtSQL = select * from serviceInfo where serviceNO= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 已经存在此编号的记录！, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If mrc.Close End If 判断是否有相同内容的记