机票预订系统 课程设计 数据库

1概述应用对数据库技术及应用的理论学习，通过上机实践的方式将理论知识与实践更好的结合起来，巩固所学知识。实践和巩固在课堂教学中学习的关于数据库的有关知识，熟练掌握对于给定实训任务的数据库的创建、基本操作、程序系统的建立和调试以及系统评价。实践和巩固在课堂教学中学习的关于关系数据库原理的有关知识和数据库系统的建立方法，熟练掌握对于给定实际问题，为了建立一个关系数据库信息管理系统，必须得经过系统调研、需求分析、概念设计、逻辑设计、物理设计、系统调试、维护以及系统评价的一般过程，为将来在学习工作中的应用打下基础。1.1课程实训目的与要求课程实训的目的是：本次课程实训的主要任务是运用在数据库原理及应用课程中学到的理论知识来指导实践，了解数据库设计过程及其实现方法，学会用数据库建模的方法解决实际问题。掌握数据库原理、范式理论、规范化等相关知识，掌握数据库分析设计的具体步骤与基本方法，掌握SQL语言的基本语法和基本内容，并能运用SQL Server 2005实现设计数据库，掌握SQL Server 2005数据库、表、视图、约束、索引、存储过程、触发器的使用，利用一种前台开发工具实现数据库管理系统的开发，实现特定的业务功能。通过综合课程实训，提高实践动手技能，培养独立分析分析问题和解决问题的能力。课程实训的要求：本次课程实训的选题比较灵活，可以是自主选题，也可以自己选择比较感兴趣的题目，重点是完成数据库的分析、设计与实现，题目要符合数据库原理及应用的要求，并且具备一定的难度和深度；除此以外，可以从备选题目之外选择一个题目完成。1.2机票预订系统在所给的实训题目中，我选择的是机票预订系统的设计。1.2.1系统功能的基本要求每个航班信息的输入；每个航班的坐位信息的输入；当旅客进行机票预定时，输入旅客基本信息，系统为旅客安排航班，打印取票通知和帐单；旅客在飞机起飞前一天凭取票通知交款取票；旅客能够退订机票；能够查询每个航班的预定情况、计算航班的满座率。1.2.2 数据库要求在数据库中至少应该包含下列数据表：航班信息表；航班坐位情况表；旅客订票信息表；取票通知表；帐单。2需求分析2.1背景分析随着社会发展的不断进步，民航事业的壮大，人们消费水平的提高，乘坐民航的消费者也越来越多，旅游也逐渐成为普通老百姓的生活组成部分，飞机票预定查询系统在各机票预定网点中的作用也越显重要。目前，我国一些旅行社和酒店的机票预定还停留在人工处理阶段，这已经严重制约了工作效率，在计算机技术高速发展的今天，有必要引入高效的计算机系统，来协助处理机票预定工作。因此，开发一套具有完整的存储，查询，核对，打印机票功能的实时机票预定系统势在必行。机票预定系统是为机场工作人员和客户提供订票退票等与机票相关内容和管理的系统，它具有开放体系结构的、易扩充的、易维护的、具有良好人机界面的优点.它除克服了存储乘客信息少，查询效率低下等问题外，更重要的是其安全性，可靠性，实现航空公司的机票销售的自动化。它为企业的决策层提供准确、精细、迅速的机票销售信息，为乘客出行提供方便，便于机场工作人员对机票信息进行管理，提高了机场工作人员对机票管理的工作效率。2.2功能分析经过综合分析，确定了机票预订系统主要包括以下功能：(1) 航班信息管理功能主要实现航班的一些基本信息，航班编号、票价、起飞地、目的地、起飞时间的添加、修改、删除和查询。(2) 航班座位信息管理功能主要实现航班座位，也就是机票的一些基本信息，航班编号、座位号、座位信息、机票类型的添加、修改、删除和查询。(3) 旅客信息管理功能此模块的主要实现旅客一些基本信息，姓名、性别、联系方式、证件号码、的查询功能。(4) 取票信息管理功能此模块用于取票信息的管理，包括对航班基本信息，航班编号等，旅客基本信息，旅客姓名、座位号、取票时间的查询。(5) 退票信息管理功能此模块用于退票信息的管理，包括对订单号、旅客姓名、联系方式、证件号码的查询。2.3数据词典经分析之后，本系统要用到五个基本表：航班信息表，航班座位情况表，旅客订票信息表，取票和账单信息表，退票信息表。数据结构定义如表：数据结构名含义说明组成航班信息表定义了航班的有关信息航班号，起飞地，目的地，起飞时间，票价航班座位情况表定义了航班座位有关信息航班号，座位号,座位信息，机票类型旅客订票信息表定义了旅客有关信息旅客姓名，身份证号，性别，电话号取票和账单信息表定义了取票通知相关有关信息旅客姓名，取票时间，航班号，座位号，机票类型退票信息表定义了退票旅客的有关信息旅客姓名，身份证号，订单号，电话号机票预订系统的主要数据字典如下：（1）航班信息 数据流来源：航班管理 数据流去向：航班安排 数据项组成：航班号，起飞地，目的地，起飞时间，票价（2）航班座位情况数据流来源：航班管理和订票情况数据流去向：旅客座位数据项组成：航班号，座位号,座位信息，机票类型（3）旅客信息 数据流来源：确定旅客信息后管理人员输入系统数据流去向：安排顾客的航班 数据项组成：旅客姓名，身份证号，性别，电话号（4）取票通知和账单信息 数据流来源：打印取票通知和账单 数据流去向：核对订票信息 数据项组成：旅客姓名，取票时间，航班号，座位号，机票类型（5）退票信息数据流来源：旅客退票申请数据流去向：订票信息申请退票数据项组成：旅客姓名，身份证号，订单号，电话号3概念结构设计3.1 概念结构设计的方法与步骤1 概念结构设计的方法概念设计阶段我采用自底向上的方法，即自顶向下的进行需求分析，然后再自底向上的进行概念结构设计。对已经细化到无法再分的阶段逐步集成在一起，最终合成一个全局概念模式。2 概念结构设计的步骤第一步是进行局部视图的设计：由于高层的数据流图只能反映系统的概貌，而中层流图能较好的反映系统中各局部应用的子系统组成。因此我们先逐一的设计分E-R图。第二步是进行视图的集成：各子系统的E-R图设计好之后，下一步就是要将所有的分E-R图合成一个系统的总E-R图，一般有两个方式，多个分E-R图一次集成，另一种是一次集成两个分E-R图。我想采用一次集成两个分E-R图的方式。3.2局部E-R图设计根据需求分析抽象出信息结构，可得该系统的E-R图。(1) 航班信息E-R图，如图3.1所示。航班信息起飞时间航班编号目的地票价起飞地图3.1航班信息E-R图(2) 航班座位信息E-R图，如图3.2所示。航班座位信息航班编号座位号座位信息码机票类型图3.2机票信息E-R图 (3) 旅客E-R图，如图3.3所示。旅客身份证号姓名电话号性别图3.3旅客E-R图(4) 取票通知E-R图，如图3.4所示。取票通知和账单航班编号旅客姓名座位号取票时间机票类型图3.4取票通知E-R图(5) 退票信息E-R图，如图3.5所示。退票信息旅客姓名订单号身份证号电话号图3.5退票信息E-R图3.3总体概念E-R图结构经过逐步细化再进行每两个一集成初步形成一个E-R图，最后得到图3.6总体概念结构E-R图。nnn11mn退票信息航班信息旅客购买包含退票取票通知和账单航班座位信息购买1姓名性别身份证号电话号起飞时间航班编号目的地起飞地票价航班编号座位号机票类型座位信息码航班编号旅客姓名座位号取票时间订单号旅客姓名身份证号码电话号机票类型图3.6系统总体结构E-R图4逻辑结构设计4.1 逻辑结构设计（1） E-R图向关系模型的转换将图3.6总体概念结构E-R图转化成关系模型。 退票信息（订单号，旅客姓名，联系方式，证件号码）旅客（旅客姓名，证件号码，联系方式，性别) 航班信息表（航班号，票价，起飞地，目的地，起飞时间） 取票通知单（旅客姓名，取票时间，证件号码，航班号，座位号）机票信息表（座位号，航班号，座位信息，机票类型）（2）数据模型的优化将转化的关系模式进行优化，最终达到第三范式。 确定数据依赖退票信息（订单号，旅客姓名，联系方式，证件号码）根据这个关系写出数据依赖订单号旅客姓名，订单号联系方式，订单号证件号码旅客（旅客姓名，证件号码，联系方式，性别)旅客姓名证件号码，旅客姓名联系方式，旅客姓名性别 航班信息表（航班号，票价，起飞地，目的地，起飞时间）航班号起飞地，航班号票价，航班号目的地，航班号起飞时间取票通知单（旅客姓名，取票时间，航班号，座位号）旅客姓名取票时间，旅客姓名航班号，旅客姓名座位号，机票信息表（座位号，航班号，座位信息，机票类型）（座位号，航班号）舱位类型，（座位号，航班号，座位信息）机票类型对各关系模式间数据依赖进行极小化处理，消除冗余订单号旅客姓名，订单号联系方式，订单号证件号码旅客姓名性别，旅客姓名取票时间，旅客姓名航班号，旅客姓名座位号，旅客姓名机票类型航班号起飞地，航班号目的地，航班号起飞时间（座位号，航班号）座位信息看这些模式是否符合要求，确定是否要对某些模式进行合并或者分解 最终分解成第三范式： （订单号，联系方式，证件号码）（订单号，旅客姓名）（旅客姓名，取票时间，性别，机票类型）（旅客姓名，航班号）（旅客姓名，座位号）（航班号，座位号，票价）（航班号，起飞地，目的地，起飞时间）（3）数据库的结构根据总体结构图设计机票预定系统基本表结构，其相应标的定义如下：表4-1 航班信息系统的结构字段名数据类型长度约束描述flight numberdecimal主键航班号take off placevarchar50不为空起飞地destinationvarchar50不为空目的地flight timetime不为空起飞时间priceint不为空票价表4-2 航班座位信息表字段名数据类型长度约束描述seat numberdecimal主键座位号flight numberdecimal不为空航班号seat messagevarchar50不为空座位信息flight ticket typevarchar50不为空机票类型表4-3旅客信息系统的结构字段名数据类型长度约束描述passager namevarchar50主键旅客姓名iddecimal不为空身份证号telephone numberdecimal不为空联系方式sexvarchar50不为空性别表4-4取票和账单信息系统的结构字段名数据类型长度约束描述passager name varchar50主键旅客姓名get ticket timetime不为空取票时间flight numberdecimal不为空航班号seat numberdecimal不为空座位号flight ticket typevarchar50不为空机票类型表4-5 退票信息系统的结构字段名数据类型长度约束描述order form decimal主键订单号passager namevarchar50不为空旅客姓名telephone numberdecimal不为空联系方式idvarchar50不为空证件号码4.2数据库表的建立根据数据库的基本表结构分别建立5个基本表： （1）创建航班信息表（2）创建航班座位信息表（3）创建旅客信息表（4）创建取票和账单信息表（5）创建退票信息表5物理结构设计数据库物理设计是指设计出数据库的物理数据模型，它是数据库在物理设备上的具体实现，即数据库服务器物理空间上的表空间、表、字段、索引、视图、存储过程、触发器以及相应的数字字典的设计。经过数据库的需求分析和概念模型设计，得到数据库的逻辑结构，现在可以设计好的逻辑结构在SQL server中建立数据库及数据库的数据表。5.1表的建立与数据载入需要明确数据库需要建立几张表，以及每个表中所要包括的属性。在建立表的过程中。要对每个表进行字段属性的设置。（至少包括5张表，每个表都有主键；根据实际情况，建立视图）在机票预订系统中，主要建立了5个表，分别是：航班信息表，航班座位情况表，旅客订票信息表，取票和账单信息表，退票信息表。5.2视图建立视图是查看数据库表中数据的一种方式。视视图提供了存储预定义的查询语句作为数据库中的对象以备以后使用的能力。视图是一种逻辑对象，是一种虚拟表。在机票预订系统中，我建立了两个视图。分别是航班和座位视图和旅客和取票信息视图。他们分别通过飞机编号也就是flight number项和旅客信息也就是passage number项联系起来。5.3索引建立索引是一个单独的、物理的数据库结构，它是某个表中一列或若干列值的集合和相应的指向表中物理标识这些值的数据页的逻辑指针清单。索引依赖于表建立，它提供了数据库中编排表中数据的内部方法。在机票预订系统中，我建立了三个索引，分别是在航班信息表中建立了flight number索引，在旅客信息表中建立passage name索引，在航班座位信息表中建立了seat number索引。索引类型为唯一性的非聚集索引。5.4存储过程我创建了三个存储过程，输出三个表的全部信息。分别是航班信息表、航班座位信息表、旅客信息表。命令为：CREATE PROC aaaASSELECT *FROM 航班信息CREATE PROC bbbASSELECT *FROM 航班座位信息CREATE PROC cccASSELECT *FROM 旅客信息5.5触发器触发器是一种实施复杂的完整性约束的特殊存储过程，它在SQL server进行某个特定的表修改时由SQL Server自动执行。触发器一般用于加强数据库的某些使用规则。在机票管理系统中，我建立了一个DDL触发器，用于保护当前SQL Server服务器里的所有数据库不被删除。具体代码为：CREATE TRIGGER notdeleteON all serverFOR DROP_DATABASEASPRINT不能删除数据库ROLLBACKGO另外分别在航班信息表、航班座位信息表、旅客信息表、取票通知和账单这四个表中建立了四个触发器，对于表中的添加和更改数据，提示错误信息。代码为：CREATE TRIGGER a ON hangbanxinxiFOR INSERT,UPDATEAS RAISERROR(不能添加和更新数据,16,1)ROLLBACK TRANSACTIONGOCREATE TRIGGER b ON hangbanzuoweixinxiFOR INSERT,UPDATEAS RAISERROR(不能添加和更新数据,16,1)ROLLBACK TRANSACTIONGOCREATE TRIGGER c ON lvkexinxiFOR INSERT,UPDATEAS RAISERROR(不能添加和更新数据,16,1)ROLLBACK TRANSACTIONGOCREATE TRIGGER d ON qupiaotongzhihezhangdanFOR INSERT,UPDATEAS RAISERROR(不能添加和更新数据,16,1)ROLLBACK TRANSACTIONGO5.6创建登陆账户和添加数据库用户在实训中，我利用SQL创建了一个“login1”的登陆账号。密码为123456。在一个数据库中，用户账号唯一标识一个用户，用户对数据库的访问权限以及对数据库对象的所有关系都是通过用户账号来控制的。在机票预订系统中，我创建了一个用户名为user1的用户。6数据流图及程序结构框图6.1功能模块图根据所需的功能，可以设计出系统的总体功能模块，如图6.1所示。机票预订系统航班信息管理模块机票信息管理模块退票信息管理模块取票信息管理模块旅客信息管理模块图6.1 机票预订系统功能模块示意图 取票信息管理模块的细化功能模块如图6.2所示。取票信息管理旅客基本信息查询机票基本信息查询图6.2 取票信息管理模块退票信息管理模块的细化功能模块如图6.3所示。取票信息管理旅客基本信息查询订单信息查询图6.3 退票信息管理模块6.2数据流图旅客旅客机票预订系统订票信息付费信息取票通知和账单机票图6.4 0层数据流图旅客旅客订票取票旅客信息通知、账单信息通知、账单信息图6.5 1层数据流图7界面设计与功能测试7.1登录界面及代码代码如下：Private Declare Function GetUserName Lib advapi32.dll Alias GetUserNameA (ByVal lpbuffer As String, nSize As Long) As LongPublic OK As BooleanPrivate Sub Form_Load() Dim sBuffer As String Dim lSize As Long sBuffer = Space$(255) lSize = Len(sBuffer) Call GetUserName(sBuffer, lSize) If lSize 0 Then txtUserName.Text = Left$(sBuffer, lSize) Else txtUserName.Text = vbNullString End IfEnd SubPrivate Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdOK_Click() ToDo: create test for correct password check for correct password If txtPassword.Text = Then OK = True Me.Hide Else MsgBox Invalid Password, try again!, , Login txtPassword.SetFocus txtPassword.SelStart = 0 txtPassword.SelLength = Len(txtPassword.Text) End IfEnd Sub7.2进入系统界面代码如下：Private Sub MDIForm_Load() Me.Left = GetSetting(App.Title, Settings, MainLeft, 1000) Me.Top = GetSetting(App.Title, Settings, MainTop, 1000) Me.Width = GetSetting(App.Title, Settings, MainWidth, 6500) Me.Height = GetSetting(App.Title, Settings, MainHeight, 6500) End SubPrivate Sub MDIForm_Unload(Cancel As Integer) If Me.WindowState vbMinimized Then SaveSetting App.Title, Settings, MainLeft, Me.Left SaveSetting App.Title, Settings, MainTop, Me.Top SaveSetting App.Title, Settings, MainWidth, Me.Width SaveSetting App.Title, Settings, MainHeight, Me.Height End IfEnd SubPrivate Sub menuAirline_Click() frmAirline.txtSQL = select * from airlineInfo frmAirline.Show 0End SubPrivate Sub menuBookticket_Click() frmTicket.txtSQL = select * from ticketInfo frmTicket.Show 0End SubPrivate Sub menuCarbin_Click() frmService.txtSQL = select * from serviceInfo frmService.Show 0End SubPrivate Sub menuCtype_Click() frmcType.txtSQL = select * from customerType frmcType.Show 0End SubPrivate Sub menuCustomer_Click() frmCustomer.txtSQL = select * from customerInfo frmCustomer.Show 0End SubPrivate Sub menuPlane_Click() frmPlane.txtSQL = select * from planeInfo frmPlane.Show 0End SubPrivate Sub searchcustom_Click() frmCustomer.Show 1End Sub7.3订票过程代码如下：Private Sub Form_Load() ShowTitle ShowData End SubPrivate 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 SubPublic Sub FormClose() Unload MeEnd SubPrivate 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.Close End Sub显示Grid表头Private Sub ShowTitle() Dim i As Integer With msgList .Cols = 7 .TextMatrix(0, 0) = 旅客姓名 .TextMatrix(0, 1) = 旅客性别 .TextMatrix(0, 2) = 身份证号码 .TextMatrix(0, 3) = 联系电话 .TextMatrix(0, 4) = 起飞时间 .TextMatrix(0, 5) = 目的地 .TextMatrix(0, 6) = 备注信息固定表头 .FixedRows = 1 设置各列的对齐方式 For i = 0 To 6 .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) = 1000 .ColWidth(3) = 1000 .ColWidth(4) = 2000 .ColWidth(5) = 1000 .ColWidth(6) = 3000 .Row = 1 End WithEnd SubPrivate Sub msgList_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single) 右键弹出 If Button = 2 And Shift = 0 Then End If End Sub添加用户信息：代码如下：Option Explicit是否改动过记录，ture为改过Dim mblChange As BooleanDim mrc As ADODB.RecordsetPublic txtSQL As StringPrivate Sub cmdExit_Click() If mblChange And cmdSave.Enabled Then If MsgBox(保存当前记录的变化吗？, vbOKCancel + vbExclamation, 警告) = vbOK Then 保存 Call cmdSave_Click End If End If Unload MeEnd SubPrivate Sub cmdSave_Click() Dim intCount As Integer Dim sMeg As String Dim MsgText As String For intCount = 0 To 2 If Trim(txtItem(intCount) & ) = Then Select Case intCount Case 0 sMeg = 旅客姓名 Case 1 sMeg = 身份证号码 Case 2 sMeg = 联系电话 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 txtItem(intCount).SetFocus Exit Sub End If Next intCount For intCount = 0 To 1 If Trim(Combo1(intCount) & ) = Then Select Case intCount Case 0 sMeg = 起飞时间 Case 1 sMeg = 目的地 End Select sMeg = sMeg & 不能为空！ MsgBox sMeg, vbOKOnly + vbExclamation, 警告 Combo1(intCount).SetFocus Exit Sub End If Next intCount 判断是否有相同内容的记录 txtSQL = select * from customerInfo where customerNO & Trim(txtNo) & and customerName= & Trim(txtItem(0) & Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then MsgBox 已经存在相同客户的记录！, vbOKOnly + vbExclamation, 警告 txtItem(0).SetFocus Exit Sub End If 先删除已有记录 txtSQL = delete from customerInfo where customerNO= & Trim(txtNo) & Set mrc = ExecuteSQL(txtSQL, MsgText) 再加入新记录 txtSQL = select * from customerInfo Set mrc = ExecuteSQL(txtSQL, MsgText) mrc.AddNew mrc.Fields(0) = Trim(txtNo) mrc.Fields(1) = Trim(txtItem(0) mrc.Fields(2) = Trim(Combo1(0) For intCount = 1 To 2 mrc.Fields(intCount + 2) = Trim(txtItem(intCount) Next intCount mrc.Fields(5) = Trim(Combo1(1) mrc.Fields(6) = Trim(txtItem(3) mrc.Update mrc.Close If gintCmode = 1 Then MsgBox 添加记录成功！, vbOKOnly + vbExclamation, 添加记录 For intCount = 0 To 3 txtItem(intCount) = Next intCount mblChange = False Unload frmCustomer frmCustomer.txtSQL = select * from customerInfo frmCustomer.Show ElseIf gintCmode = 2 Then Unload Me Unload frmCustomer frmCustomer.txtSQL = select * from customerInfo frmCustomer.Show End IfEnd SubPrivate Sub Form_Load() Dim intCount As Integer Dim MsgText As String Dim i As Integer Dim mrcc As ADODB.Recordset If gintCmode = 1 Then Me.Caption = Me.Caption & 添加 txtNo = GetRkno() ElseIf gintCmode = 2 Then Set mrc = ExecuteSQL(txtSQL, MsgText) If mrc.EOF = False Then With mrc txtNo = .Fields(0) txtItem(0) = .Fields(1) For intCount = 1 To 2 txtItem(intCount) = .Fields(intCount + 2) Next intCount txtItem(3) = .Fields(6) End With End If Me.Caption = Me.Caption & 修改 End If For intCount = 0 To 1 Combo1(intCount).Clear Next intCount Combo1(0).AddItem 男 Combo1(0).AddItem 女 txtSQL = select DISTINCT ctypeName from customerType Set mrcc = ExecuteSQL(txtSQL, MsgText) If Not mrcc.EOF Then Do While Not mrcc.EOF Combo1(1).AddItem mrcc.Fields(0) mrcc.MoveNext Loop End If mrcc.Close mblChange = FalseEnd SubPrivate Sub Form_Unload(Cancel As Integer) gintCmode = 0End SubPrivate Sub txtItem_Change(Index As Integer) 有变化设置gblchange mblChange = TrueEnd SubPrivate Sub txtItem_GotFocus(Index As Integer) txtItem(Index).SelStart = 0 txtItem(Index).SelLength = Len(txtItem(Index)End SubPrivate Sub txtItem_KeyDown(Index As Integer, KeyCode As Integer, Shift As Integer) EnterToTab KeyCodeEnd Sub8总结经过一周的实训，本次课程设计终于完成了。通过这次课程设计，使我对数据库这门课程有了更深入的理解。数据库是一门实践性较强的课程，通过这次课程设计，我明白了理论与实际应用相结合的重要性，掌握并熟练运用SQL语句以及VB 的应用，提高了我的综合运用所学知识的能力。在本次课程设计和过程中，由于时间不是很长，再加上要求独立完成，系统需求分析上可能不是很全面，程序中还存在很多不足，希望老师能给予批评和指导。经过这次课程设计，我的知识得到了很大提高，经验也更加丰富。希望能在今后的不断的学习中和努力中，把程序做得更好。最后，感谢指导老师所给我的帮助。主要参考文献：数据库技术及应用主编：刘太安 林晓霞 中国石油大学出版社