软件工程课程设计航空售票系统

软件工程课程设计航空售票系统内容摘要：

, [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 , 15 [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 [PRIMARY] 航空公司管理信息系统主窗体的创建 创建公用模块 函数，用以执行各种 SQL 语句。 添加函数 ExecuteSQL，代码如下： Public Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As 39。 执行 SQL 语句，并返回记录集对象 ‘声明一个连接 Dim n As ‘声明一个数据集对象 Dim rst As Dim sTokens() As String 39。 异常处理 On Error GoTo ExecuteSQL_Error 39。 用 Split 函数产生一个包含各个子串的数组 sTokens = Split(SQL) ‘创建一个连接 Set n = New 39。 打开连接 ConnectString If InStr(INSERT,DELETE,UPDATE, _ UCase$(sTokens(0))) Then ‘执行查询语句 16 SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 39。 get RecordCount 39。 返回记录集对象 Set ExecuteSQL = rst MsgString = 查询到 amp。 amp。 _ 条记录 End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL 函数中使用了 Connect String 函数，这个函数用来连接数据库，代码如下： Public Function ConnectString() _ As String 39。 返回一个数据库连接 ConnectString = FileDSN=。 UID=sa。 PWD= End Function 17 舱位信息管理模块的创 建 代码如下： Private Sub menuCarbin_Click() = select * from serviceInfo 0 End Sub 窗体的 Show 方法后面加上 0 或者 1，可以得到不同的窗体显示方式。 参数为 0 时，显示的窗体为无模式形式，窗体切换时不需要进行其他操作；参数为 1时，显示的窗体为有模式形式，窗体切换时必须进行相关操作。 载入窗体时将自动显示各条记录，代码如下： Private Sub Form_Load() ShowTitle ShowData End 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) = 是否可以退票 18 .TextMatrix(0, 10) = 是否可以打折 .TextMatrix(0, 11) = 备注信息 39。 固定表头 .FixedRows = 1 39。 设置各列的对齐方式 For i = 0 To 11 .ColAlignment(i) = 0 Next i 39。 表头项居中 .FillStyle = flexFillRepeat .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 39。 设置单元大小 .ColWidth(0) = 1000 .ColWidth(1) = 1000 .ColWidth(2) = 2020 .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 With 19 End 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 ‘移动到下一行 .Rows = .Rows + 1 ‘循环 For i = 1 To ‘判断是否为空 If Not IsNull(Trim((i 1))) Then ‘根据数据类型显示 Select Case (i 1).Type Case adDBDate .TextMatrix(.Rows 1, i) = Format((i 1) amp。 , yyyymmdd) Case Else .TextMatrix(.Rows 1, i) = (i 1) amp。 End Select End If Next I ‘移动到下一条记录 20 Loop End With ‘关闭数据集对象 End Sub 在窗体显示时，可以控制窗体中各个控件按照要求的位置显示。 可以在窗体的Resize 事件中加入代码，代码如下： Private Sub Form_Resize() ‘判断当前窗体所处的状态，当前窗体不处于最小化状态并且主窗体不处于最小化状态时进行后面的操作 If vbMinimized And vbMinimized Then 39。 边界处理 If 10 * Then Exit Sub End If If + / 2 Then Exit Sub End If 39。 控制控件的位置 = = ( ) / 2 ‘控制表格控件的位置 = + + / 2 = 200 = + 100 = 1500。