计算机论文－软件开发－航空公司管理信息系统论文

计算机论文－软件开发－航空公司管理信息系统论文内容摘要：

ring = 查询错误 : amp。 _ Resume ExecuteSQL_Exit End Function 在 ExecuteSQL函数中使用了 Connect String函数，这个函数用来连接数据库，代码如下： Public Function ConnectString() _ As String 39。 返回一个数据库连接 ConnectString = FileDSN=。 UID=sa。 PWD= End Function 在录入有关信息时，需要回车来进入下一个文本框，这样对软件使用者非常方便。 在所有的功能模块都需要这个函数，所以将它放在公用模块中，代码如下： Public Sub EnterToTab(Keyasc As Integer) 39。 判断是否为回车键 If Keyasc = 13 Then 39。 转换成 Tab 键 SendKeys {TAB} End If End Sub Keyasc 用来保存当前按键， SendKeys 函数用来指定的按键。 一旦按下回车键，将返回Tab 键，下一个控件自动获得输入焦点。 添加全局变量，用来记录各个功能模块的读写状态，代码如下： Public gintSmode As Integer 39。 记载舱位等级功能模块的读写状态 Public gintPmode As Integer 39。 记载客机信息模块的读写状态 Public gintAmode As Integer 39。 记载航线信息模块的读写状态 Public gintTmode As Integer 39。 记载客户类型模块的读写状态 Public gintCmode As Integer 39。 记载客户信息模块的读写状态 Public gintKmode As Integer 39。 记载订票信息模块的读写状态 这些全局变量用来记录是添加状态还是修改状态，赋值 1 为添加，赋值 2 为修改。 由于航空公司管理信息管理系统启动后，需要对用户进行判断。 如果登录者是授权用户，将进入系统，否则将停止程序的执行。 这个判断需要在系统运行的最初进行，因此将代码放在公用模块中。 易瑞六月风计算机毕业设计辅导网 ——— 提供毕业设计辅导及相关资料的专业网站 ： 380856 ： 380856918 电子邮箱： 手机： 13955813944918 电子邮箱： 手机： 13955813944 – 438 – 5 系统用户管理模块的创建 用户管理模块主要实现：  用户登录。  添加用户。  修改用户密码。 6 舱位信息管理模块的创建 舱位信息管理模块主要实现如下功能：  添加舱位信息。  修改舱位信息。  删除舱位信息。 显示舱位信息窗体的创建 选择“航线信息管理 |舱位信息”菜单，将出现如图 912 所示的窗体。 图 912 舱位等级信息窗体 这个窗体用来显示舱位等级信息，并且可以对各条记录进行操作。 在载入窗体时，程序航空公司管理系统 国 将自动载入所有记录，代码如下： 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) = 是否可以退票 .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 易瑞六月风计算机毕业设计辅导网 ——— 提供毕业设计辅导及相关资料的专业网站 ： 380856 ： 380856918 电子邮箱： 手机： 13955813944918 电子邮箱： 手机： 13955813944 – 440 – .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 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 ‘移动到下一条记录 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 易瑞六月风计算机毕业设计辅导网 ——— 提供毕业设计辅导及相关资料的专业网站 ： 380856 ： 380856918 电子邮箱： 手机： 13955813944918 电子邮箱： 手机： 13955813944 – 442 – ‘控制按钮位置 = + + 50 = / 2 3000 End If End Sub 添加舱位信息窗体的创建 在舱位信息显示窗体中单击“添加”按钮，将出现如图 913 所示的窗体。 图 913 添加舱位等级信息窗体 载入窗体时，首先根据标志变量判断状态，然后决定是添加还是修改，代码如下： Private Sub Form_Load() Dim intCount As Integer Dim MsgText As String Dim i As Integer ‘判断是否为添加 If gintSmode = 1 Then = amp。 添加 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 = 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 = amp。 修改。