航空公司管理信息系统毕业论文

1、航空公司管理信息系统一个正常营运的航空公司需要管理所拥有的飞机、航线的设置、客户的信息等，更重要 的还要提供票务管理。而对各种不同种类的信息，需要合理的数据库结构来保存数摇信息以 及有效的程序结构支持各种数据操作的执行。本设il讲述如何建立一个航空公司管理信息系统。一般而言，航空公司的管理信息系统 应该包括人事、工资管理模块。1系统设计1.1系统功能分析系统开发的总体任务是实现各种信息的系统化、规范化和自动化。系统功能分析是在系统开发的总体任务的基础上完成。本例子中的航空公司管理信息系 统需要完成功能主要有：修改和查询，包括客机编号、客机型号、购买时间、服役时间、 公务舱座位数量、头等舱座位数

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

3、出发时间、脸位类型、票价、结算金 额和备注信息等。1.2系统功能模块设计对上述各项功能进行集中、分块，按照结构化程序设汁的要求，得到如图9-1所示的系 统功能模块图。航空公罔管理信息系统茶统管e咨户信息管俚客秒息満加客書息修改航线信息杳询客户客户信息添加客户信息修改客户信息音 询-430-图91系统功能模块图2数据库设计数据库在一个信息管理系统中占有非常重要的地位，数据库结构设计的好坏将直接对应 用系统的效率以及实现的效果产生影响。合理的数据库结构设计可以提高数据存储的效率， 保证数据的完整和一致。设计数据库系统时应该首先充分了解用户徐个方而的需求，包括现有的以及将来可能增 加的需求。数据库设

4、计一般包括如下几个步骤： 数据库需要分析。 数摇库概念结构设计。 数摇库逻辑结构设计。2.1数据库需求分析用户的需求具体体现在$种信息的提供、保存、更新和查询，这就要求数据库结构能充 分满足$种信息的输出和输入。收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典，为后而的具体设计打下基础。仔细分析调査有关航空公司管理信息需求的基础上，将得到如图9-2所示的本系统所处 理的数据流程。图92航空公司管理信息系统数据流程图针对一般航空公司管理信息系统的需求，通过对航空公司管理工作过程的内容和数据流 程分析，设计如下而所示的数据项和数据结构：客机编号、客机型号、购买时间、服役时间、经济舱

5、 头等脸座位数量、备注信息等。航线编号、出发城市、到达城市、航班日期、出发时舱位等级信息，包括的数据项有：舱位等级编号、舱位等级名称、是否有礼品、是 否有报纸、是否有饮料、是否有午餐、是否有电影、是否可以改签、是否可以退票、 是否可以打折、备注信息等。 客机信息，包括的数摇项有： 座位数量、公务脸座位数量、 航线信息，包括的数摇项有： 间、到达时间、客机编号、经济舱价格、公务舱价格、头等舱价格、备注信息等。 客户类型信息，包括的数据项有：客户类型编号、客户类型名称、折扣比例、备注 信思等Q客户信息，包括的数摇项有：客户编号、客户姓名、客户性别、身份证号码、联系 电话、客户类型、备注信息等。订票

6、信息，包括的数据项有：订票编号、顾客编号、顾客姓爼、顾客类型、折扣比 例、航线编号、出发城市、到达城市、舱位类型、机票价格、结算金额、备注信息等有了上而的数据结构、数据项和数据流程，我们就能进行下而的数据库设计。2.2数据库概念结构设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种实体，以及 它们之间的关系，为后而的逻辑结构设计打下基础。这些实体包含各种具体信息，通过相互 之间的作用形成数据的流动。本实例根据上面的设计规划出的实体有：舱位等级信息实体、客机信息实体、航线信息 实体、客户类型信息实体、客户信息实体、订票信息实体。$个实体具体的描述&1图如下。舱位等级信息实体E

7、-R图如图9-3所示。图9-4客机信息实体E-R图航线信息实体E-R图如图9-5所示。客户类型信s实体备注信息户类型姓名图96客户类型信息实体ER图客户信息实体E-R图如图9-7所示。图97客户信息实休ER图订票信息实体E-R图如图9-8所示。图99实体之间关系的E-R图23数据库逻辑结构设计现在需要将上面的数据库概念结构转化为SQL Server 2000数据库系统所支持的实际数 据模型，也就是数据库的逻辑结构。航空公司管理信息系统数据库中各个表格的设计结果如下而表格所示。每个表格表示在 数据库中的一个表。表9为供应商信息表。列名数据类型可否为空说明serviceNOcharNOT NULL

8、施位等级编号serviceNamenvarcharNULL舱位等级名称noPresentcharNULL是否有礼物noNewsPapercharNULL是否有报纸noDrinkcharNULL是否有饮料noFoodcharNULL是否有午餐noMoviecharNULL是否有电影canChangecharNULL是否可以改签canCancelcharNULL是否可以退票canDiscountcharNULL是杏可以打析seniceMeiuotextNULL备注信息seniceinfo能位等级借息表表91表92为顾客信息表格。列名数据类型可否为空说明planeNOcharNOT NULL客机编号

9、plajieTypecharNULL客机型号buyDatedatetimeNULL购买H期serveDatedatetimeNULL服役日期isCoiinnonnvarcharNULL经济绘座位数fiisConimercialnvarcharNULL公务舱座位数SisFirsinvarcharNULL头等給座位数址plaiieMemotextNULL备注信息planeinfo客机信息表格表92表93为航线信息表。列名数据类型可否为空说明airlineNOcharNOT NULL航线编号depanCilynvarcharNULL出发城巾arrivalCitynvarcharNULL到达城市dep

10、artDatecharNULL航班日期dep artTimecharNULL出发时间arrivalTimecharNULL到达时间planeNOcharNULL客机编号coniinonPricenumericNULL经济舱价格commercial PricenumericNULL公务舱价格firstPricenumericNULL头等舱价格airlineMetnotextNULL备注信息airlineinfo航线信息表表93表9/为客戸类型涪息表格。列名数据类型可否为空说明ctypeNOcharNOT NULL客户类型编号ctypeNamecharNULL容户类型名称discountnumer

11、icNULL折扣比例custonwrType客户类型信息表表94续表列名数据类型可否为空说明ciyp cMcmolexlNULL备注表95为客戸信息表格。列名数据类型可否为空说明customerNOcharNOT NULL客户编号custonwrNamecharNULL客户姓名customerSexcharNULL客户性别customerlDcharNULL身份证号码custonwrTelecharNULL客户联系电话customerTypecharNULL客户类那！customerMemotextNULL备注cuslomerliifo客户值息表表95表96为订票信息表格。列名数据类型可否为空

12、说明ticketNOcharNOT NULL订票编号customerNOcharNULL客户编号custonwrNainecharNULL客八姓名custonierTypecharNULL客户类型discountnumericNULL折扣比例airlineNOcharNULL航线編号departCilynvarcharNULL出发城市arrivalCitynvarcharNULL到达城市licketDaledatetimeNULL出发日期serviceTypecharNULL舱位类型ticketpricenumericNULL机票价格ticketSumnumericNULL结算金额custom

13、erMemotextNULL备注licketinfo订票信息表表9-63数据库结构的实现经过前而的需求分析和概念结构设il以后，得到数据库的逻辑结构。现在就可以在SQL Server 2000数据库系统中实现该逻辑结构。这是利用SQL Server 2000数据库系统中的SQL 査询分析器实现的。下而给出创建这些表格的SQL语句。3创建系统用户表CREATE TABLE dboljuserjnfol(luserJD char (10) COLLATE Chinese_PRC_CLAS NOT NULL useePWD char (10) COLLATE Chinese_PRC_CLAS NUL

14、L user_Des char (10) COLLATE Chinese_PRC_CLAS NULL )ON PRIMARY32创建舱位等级信恵表CREATE TABLE dbo Jserviceinfo(seniceNO char (4) COLLATE Chinese_PRC_CLAS NOT NULL seniceName nvarchar (20) COLLATE Chincse_PRC_CI_AS NULL noPresentl char (2) COLLATE Chinese_PRC_CLAS NULL (noNewsPaper char COLLATE Chinese_PRC_C

15、LAS NULL. (noDrink char (2) COLLATE Chinese_PRC_CLAS NULL noFood char (2) COLLATE Chinese_PRC_CLAS NULL (noMovie char (2) COLLME Chinese_PRC_CLAS NULL IcanChaiige char (2) COLLME Chinesc_PRC_CLAS NULL canCancel char (2) COLLATE Chinese_PRC_CLAS NULL canDiscount char COLLATE Chinese_PRC_CLAS NULL sen

16、iceMemo text COLLATE Chinese_PRC_CI_AS NULL)ON PRIMARY TEXTIMAGE_ON PRIMARY33创建客机信患表CREATE TABLE dboMplancInfo(IplaneNO char (18) COLLVTE Chinese_PRC_CI_AS NOT NULL IplaneType char (20) COLLATE Chinese_PRC_CLAS NULL, IbuyDatel datetime NULL.seneDalc datetime NULL,(isCommonl nvarchar (20) COLLATE Chi

17、nese_PRC_CI_AS NULL, isCommercial nvarchar (20) COLLATE Chinese_PRC_CLAS NULL. isFirst nvarchar (20) COLLME Chinesc_PRC_CLAS NULL planeMemo text COLLATE Chinese_PRC_CI_AS NULL)ON (PRIMARY TEXTIMAGE_ON PRIMARY34创建航线信患表CREATE TABLE dboJairlincinfo(airlineNO char (14) COLLATE Chinese_PRC_CLAS NOT NULL,

18、 dcpartCity nvarchar (50) COLLATE Chinese_PRC_CLAS NULL. arrivalCity nvarchar (50)COLLATEChinese_PRC_CLAS NULL, dcpartDate char (10) COLLATE Chinese_PRC_CLAS NULL dcpartTime char (10) COLLATEChinese_PRC_CLAS NULL. arrivalTime char (10) COLLATE Chinese_PRC_CLAS NULL IplaneNO char (18) COLLMEChinese_P

19、RC_CLAS NULL, commonprice numcric(l& 2) NULL.(commercialPrice (numericK 1 & 2)NULL, firstPrice (numcric(l& 2) NULL.airlineMemo text COLLATE Chinese_PRC_CLAS NULL353637)ON (PRIMARY TEXTIMAGE_ON PRIMARY 创建客户类型信恵表CREATE TABLE dbo).(cusiomerType(ctT)eNO charl (14) COLLATE Chinese_PRC_CLAS NOT NULL ctT)e

20、Nanie char (20) COLLATE Chinese_PRC_CLAS NULL discount numericJ(2,0) NULL ctTeMcmo text COLLATE Chinese_PRC_CI_AS NULL)ON PRIMARY TEXTIMAGE_ON PRIMARY创建客户信患表CREATE TABLE dboIJcusiomerInfo(customerNO char (14) COLLATE Chinese_PRC_CLAS NOT NULL customerNamel char (50)COLLATEChincsc_PRC_CI_AS NULL, cus

21、tomerSexl char (2) COLLATE Chinese_PRC_CLAS NULL. (customerlD char (18) COLLATE Chinese_PRC_CLAS NULL (customerTele charl (20) COLLATE Chinese_PRC_CI_AS NULL. customerTypc char (14) COLLATE Chinese_PRC_CI_AS NULL, (customerMemo text COLLATE Chinese_PRC_CI_AS NULL)ON (PRIMARY TEXTIMAGE_ON PRIMARY创建订票

22、信患表CREATE TABLE dbo Jticketinfo(tickeiNO char (14) COLLATE Chinese_PRC_CLAS NOT NULL. customerNO (charl (14) COLLATE Chinese_PRC_CLAS NULL. customerName char (50) COLLATE Chincse_PRC_CLAS NULL customerTT)e char (14) COLLATE Chinese_PRC_CI_AS NULL, discount numericI & 0) NULL airlineNO char (14) COLL

23、ATE Chinese_PRC_CLAS NULL departCityl nvarchar (50) COLLATE Chinese_PRC_CLAS NULL arrivalCity nvarchar (50) COLLATE Chinese_PRC_CLAS NULL, ticketDate (datetimel NULL (semceType nvarcharl (20) COLLATE Chinese_PRC_CI_AS NULL tickelPrice fnumeric(l& 2) NULL.(tickeiSum numeric(l& 2)NULL.(tickeiMcmo text

24、 COLLATE Chincse_PRC_CLAS NULL)ON (PRIMARYl TEXTIMAGEON PRIMARY4航空公司管理信息系统主窗体的创建上而的SQL语句在SQL Server 2000中査询分析器的执行，将自动产生需要的所有表格。 有关数摇库结构的所有后台工作已经完成。现在務通过航空公司管理信息系统中各个功能模 块的实现，讲解如何使用Visual Basic来编写数抵库系统的客户端程序。4J创建工程项目MIS_Ticket启动 Visual Basic 后，单击 FilelNew Project 菜单，在工程模板中选择 Standard EXEVisual Basic将

25、自动产生一个Form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FilelSave Project菜单，将这个工程项目命轻为MIS_Tickei,4.2创建航空公司管理信息系统的主窗体这个项目我们使用多文档界而，单击工具栏中的ADD MDI Form按钮，产生一个窗体。 在这个窗体上添加所需的控件，窗体和控件的属性设置见表9-7。创建好的窗体如图9J0所 zjso控件属性属性取值frmMaiii(Fonn)NameFrmMainCaplion大唐航空公司信息管理系统SlarlUpPositonCenterScreenWindowStateMaximizedSbStatusBar(Stat

26、u sBar)NameSbStatusBarPanel 1)StyleSbrTextPanels StyleSbrDatePanels(3)StyleSbrTime主窗体及其控件厲性设S表97-lalxl|So successfulElseSet rst = New ADODB, Recordset rsl.Open Trim$(SQL) cnn,_adOpenKeysei. _adLockOplimisticrsi.MovcLasl *gel RecordCoum返回记录集对欽Set ExecuteSQL = rstMsgString =査询到& rst,RecordCount & 条记录“

27、End IfExecu 忙 SQLJExil:Set rst = NothingSei cnn = NothingExit FunctionExcuteSQL_Error:MsgString = 査询错谋:”&- Err. DescriptionResume ExecuieSQL_Exil End Function在ExecuteSQL函数中使用了 Connect String函数，这个函数用来连接数据库，代码如下: Public Function ConneciStringO _As String返回一个数据库连接ConneclString = FiIeDSN=lickeUsn;UID=sa

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

29、 Inieger 记载舱位等级功能模块的读写状态Public giiuPniode As Integer。记载客机信息模块的读写状态Public ginlAnuxle As Integer 记载航线信息模块的读写状态Public giiuTmode As Integer 记载客户类型模块的读弓状态Public gintCmode As Integer *记载客户信息模块的读吗状态Public gintKnxxle As Integer 记裁订票信息模块的读写状态这些全局变量用来记录是添加状态还是修改状态，赋值1为添加，赋值2为修改。由于航空公司管理信息管理系统启动后，需要对用户进行判断。如果登

30、录者是授权用户, 将进入系统，否则将停止程序的执行。这个判断需要在系统运行的最初进行，因此将代码放 在公用模块中。5系统用户管理模块的创建用户管理模块主要实现: 用F登录。 添加用户。 修改用户密码。6舱位信息管理模块的创建舱位信息管理模块主要实现如下功能: 添加舱位信息。 修改舱位信息。 删除舱位信息。6显示舱位信患窗体的创建选择“航线信息皆理I舱位信息”菜单，将出现如图912所示的窗体。絵位等级信息 迄录拱ft勳31测(. ., ., . 图912尬位等级信息窗休这个窗体用来显示舱位等级信息，并且可以对各条记录进行操作。在载入窗体时，程序 将自动载入所有记录，代码如下：Private Su

31、b menuCarbin_Click()frmSen4ceJxlSQL= select * from serviceinfo*frmService.Show 0End Sub窗体的Show方法后面加上0或者1,可以得到不同的窗体显示方式。参数为0时，显 示的窗体为无模式形式，窗体切换时不需要进行其他操作：参数为1时，显示的窗体为有模 式形式，窗体切换时必须进行相关操作。载入窗体时将自动显示各条记录，代码如下：Private Sub Forni_Load()ShowTitleShowDataEnd Sub函数ShowTitle用来显示表头，代码如下: Private Sub ShowTitleO

32、Dim i As IntegerWith msgLisirols = 12TfexNauix(0 I) “等级编号 nxtMa【rix(02)= “机舱等级 ；kxNairix03) J是否有礼附 .TfexiMatrixtO, 4)= “是否有报纸“ TfexiMauix 5)“是否有饮料“ .TfexlMatrix(O, 6)是否有午餐“ .TfexlMatrix(O, 7)= “是否提供电影- TfexiMauix 8)“是否可以改签 .TfexlMatrix(O, 9)= “是否可以退票 TfexNauixO 10)= ”是否可以打折” .TextMatrix0, 11) = * 备注

33、信息” 固定表头.FixedRows = 1设a%列的对齐方式For i = 0 To 11.CoIAlignment(i) = 0Nexii表头项搭中.FillStyle = flexFillRepeat.Col = 0 .Row = 0 RowScl = 1 -ColSel = .Cols - 1 -CellAlignment = 4 设a號元大小 ColWidlh(0) = 1000 .ColWidlhi 1) = 1000ColWidlh(2) = 2000 ColWidlh(3 = 1000 rolWidlh(4)= 1000ColWidlh 1000 ColWidlh =1000C

34、olWidlhd) 1000 ColWid山(8) 1000ColWidlh(9) 1000ColWidlh(l0)=1000 rolWidth(ll)= 1000.Row = 1End WithEnd Sub函数ShowData把各条记录加到表格中，并显示出来，代码如下:Private Sub ShowDataODim j As IntegerDim i As IntegerDim MsgText As String获得数据集Set mrc = ExecuieSQUtxtSQL MsgText)With msgLisl.Rows = I判斷是否为空Do While Not mrc.EOF移动

35、到下一行.Rows = .Rows + 1循环For i = 1 To mrc.Field&Couni判断是否为空If Not IsNuII(Trim(mrc,Fields(i I) Then根据数据类型显示Select Case mrcFields(i -1 ).TpeCase adDBDate.TexlMatrix(.Row$ - l.i) = FormalmrcFields(i I) & 二yyyymmdd”)Case Else.TexNauix(Rovs - I.i) = mrc.Fields 1) &End SelectEnd IfNext I移动到下一条记录 mrc,MoveNex

36、tLoopEnd With关闭数据集对彖mrc,CloseEnd Sub在窗体显示时，可以控制窗体中各个控件按照要求的位置显示Q可以在窗体的Resize事 件中加入代码，代码如下：Private Sub Form.ResizeO判斷询窗休所处的状态.严I前窗休不处干最小化状态并且主窗体不处于报小化状态时进行后 面的操作If Me.WindowState o vbMinimized And fMaiiiFornLWindowSlate o vbMinimized Then边界处理If Me.ScaleHeight 10 * IblTille.Height TlieiiExil SubEnd If

37、If Me.ScaleWidth IblTitle. Width + lblTitIe,Width / 2 ThenExil SubEnd If控制控件的位aIblTille.To p = IblTille.HeightIbllille.Left = (Me,Width - IblTille.Width) / 2 控制表格控件的位amsgLisl.To p = IblTille.To p + IblTitle.Height + IblTitle,Height / 2 msgLisl.Width = Me.ScaleWidlh - 200 msgLisl.Lefl = Me.ScaleLeft

38、+ 100msgLisl.Height = Me,ScaleHeight - nisgList,Top - 1500 控制按饥位gFrame2Tbp msgLisl.Tb p + msgList.Height + 50Franie2.Left = Me.ScaleWidlh / 2 - 3000End IfEnd Sub62添加舱位信患窗体的创建在舱位信息显示窗体中单击“添加”按钮，将出现如图913所示的窗体。便存迫B因图913添加舱位等级信恩窗体载入窗体时，首先根据标志变量判断状态，然后决崔是添加还是修改，代码如下: Private Sub Forni_Load()Dim inlCount

39、As IntegerDim MsgText As String Dim i As Integer 判断是否为添加If giniSmode = 1 ThenMe.Captioii = Me.Caplion & 添加For i = 0 To 7 ComboKikAddllem 否” ComboKikAddllem 是“ ComboKiiXislIndex = 0Next I栽入片前选择记录内容Elself gintSmode = 2 TlienSet mrc = ExecuteSQU txtSQU MsgText) 判斷记录是否为空If mrc.EOF = False TlieiiWith mrc

40、For inlCounl = 0To ItxlIlem(intCouiil) = .Fields(iiitCouiil)Next intCount txtltem(2)=Fields( 10)For i = 0 To 7ComboKiKAddItem 否ComboKiKAddItem ”是”ComboKiXLislIndex = 0NextiEnd With xtllem(O).Enabled = FalseEnd IfMeXaption = Me.Caplion & ”修改“End If mbiChange = FalseEnd Sub输入内容完毕，单击“保存”按钮，将首先判断输入内容是否满

41、足要求，然后添加到数 据库中。代码如下：Private Sub cmdSave_Click()Dim inlCount As IntegerDim sMeg As SiringDim MsgText As String判断输入内容是否为空For inlCount = 0To IIf Trim(txlItem(intCouiil) & ”)=” ThenSelect Case imCounlCaseOsMeg J机舱等级編号”Case IsMeg = “机舱等级名称”End SelectsMeg = sMeg &“不能为空！”MsgBox sMeg, vbOKOnly + vbExcIamali

42、on,警告 txtltemfintCounO-SetFocusExit SubEnd IfNext iiitCouiit判断输入内容是否为数字If Not IsNumeric(Trim(txtIteni(O) ThensMcg = ”机舱等级編号”sMcg = sMeg & “请输入数字！ ”MsgBox sMeg, vbOKOiiIy + vbExclamaliom 警告 txtItem(0).SetFocusEnd If添加判断是否有相同的ID记录If ginlSmode = 1 ThentxlSQL= select * from servicelnfo where seniceNO=*

43、& Trim(lxlhenHO) &Set mrc = ExecuteSQU ixtSQL MsgText)If mrc.EOF = False ThenMsgBox 已经存在此編号的记录！vbOKOnly + vbExclamalion. ”警告“txtIlem(0).SelFocusExit SubEnd If mrc,CloseEnd If判斷是否有相同内容的记录txlSQL = select * from serviceinfo where serviceNOo & TrimdxlItenKO) & and serviceName J& Trini(lxtllemSet mrc = E

44、xecu忙SQLUxiSQL. MsgText)If mrc.EOF = False ThenMsgBox 已经存在相同机舱等级的记录！ “VbOKOnly + vbExcIamation, *警告”txtltenK I ).SetFocusExit SubEnd If先删除已有记录txlSQL= deleie from serviceinfo where serviceNO=* & Triin(lxlItem(O) &Set mrc = ExecuteSQU txlSQU MsgText) 再加入新记录txiSQL= select * from serviceinfoSet mrc = Ex

45、ecu忙SQLUxiSQL. MsgText)mrc,AddNewFor inlCounl = 0To Imrc.Fields! intCounl) = Trini(txtItem(intCount)Next iiuCountFor inlCount = 0To 7mrc,Fieldsi intCount + 2) = Trini(Combol(mtCoum)Next intCount mrc,Fields( I0 = TrinUtxtItem(2)更新数据集内容mrc,Update关闭数据集内容mrc,CloseIf ginlSmode = 1 ThenMsgBox 添加记录成功！vbOKO

46、nly + vbExclamation, 添加记录For inlCounl = 0To Ixtltem(intCouiii)=Next intCoumFor inlCounl = 0To 3ComboKintCountJ.Listlndex = 0Next intCount mblChange = FalseUnload irmService frmService.wSQL，selecl * from serviceinfo frmService.ShowElself ginlSmode = 2 TlienUnload MeUnload frmService frmSen4ce,xlSQL=

47、select * from serviceinfo* frmService.ShowEnd IfEnd Sub63修改舱位等级信恵在舱位等级信息列表中选择需要修改的记录，然后单击“修改”按钮，将出现如图9-13 所示的窗体。选择记录的内容将显示在窗体中，可以进行修改，最后保存修改后的记录。代 码如下：Private Sub cmdModify_Click()Dim inlCount As Integer判I析列表中是否有记录If frmService.msgLisi.Rows I Then改变状态变SgintSmode = 2记录选择记录位gintCounl = msgLisi.RowIf i

48、iuCoum 0 Thenfrom serviceinfo where serviceNO =&fnnService I ,txlSQL = selectTrim(msgLisl.TexlMatrix(imCounl- I) &fnnService I,Show 1ElseMsgBox 警告 vbOKOiiIy + vbExcIamalion. 请首先选择需要修改的记录！ “End IfEnd IfEnd Sub64删除舱位等级信恵在舱位等级信息列表中选择需要删除的记录，然后单击“删除”按钮，将删除当前记录, 代码如下：Private Sub cmdDeleie_Click()Dim txtS

49、QLAs StringDim inlCount As IntegerDim mrc As ADODB.RecordsetDim MsgText As String判斷信息列表中内容是否为空If nisgList,Rows 1 Then提示信息If MsgBoxT真的要删除机舱等级为” & Trim(msgLisLTextMatrix(nisgLisl.Row. 2) & 的记录吗？ vbOKCancel + vbExcIamatioit 警告“)=vbOK Then记录选择记录位aintCount = msgLisi.Row删除重复记录txlSQL = deleie from serviceinfb where serviceNO =* & Trim(nisgLisl.TextMatrix(intCount.I）&Set mrc = Execu 忙 SQLdxiSQL. MsgTexi)卸载窗体Unload frmService重新救入记录并显示frmService.wSQL ”select * from serviceinfo frmService.ShowEnd IfEnd IfEnd Sub7客机信息管理模块的创建客