航班售票信息管理系统

航班售票信息管理系统内容摘要：

AS NULL , [discount] [numeric](18, 0) NULL , [airlineNO] [char] (14) COLLAT E Chinese_P RC_CI_AS NULL , [departCity] [nvarchar] (50) COLLATE Chinese_PRC_CI_AS NULL , [arriva lC ity] [nvarchar] (50) COLLATE Chinese_P RC_CI_AS NULL , [ticketDate] [datetime] NULL , [serviceType] [nvarchar] (20) COLLAT E Chinese_P RC_CI_AS NULL , [ticketP rice] [numeric](18, 2) NULL , [ticketSum] [numeric](18, 2) NULL , [ticketMemo] [text] COLLAT E Chinese_P RC_CI_AS NULL ) ON [P RIMARY] T EXT IMAGE _ON [P RIMARY] 15 第四章 航班售票管理信息系统主窗体的创建 上面 的 SQL 语 句在 SQL Server 2020 中查询 分析 器 的执行， 将 自动 产 生需 要 的所 有 表格。 有 关数 据 库结 构 的所 有后台 工 作已 经 完成。 现在 将 通过 航 班 售票 管 理信 息 系统 中各个 功 能模 块 的实 现，讲解 如 何使 用 Visual Basic 来编写数据库系统的客户端程序。 4． 1 创 建 工 程 项目 —— MIS Ticket 启动 Visual Basic 后，单 击 Filr1New Project 菜单，在工 程 模板 中 选择 Standard EXE， Visual Basic 将自动 产生一 个 FORM 窗体 ，属 性都 是 缺省 设 置。 这 里 我们 删 除这 个窗体 ， 单击 Filr1Save Project 菜单，将 这 个工 程 项目 命名为 MIS Ticket。 4． 2 创 建 航 班 售票 管 理信 息 系 统的 主 窗 体 这 个 项 目 我 们 使 用 多 文 档 界 面 ， 单 击 工 具 栏 中 的 ADD MDI Form 按钮， 产生 一 个窗 体。 添 加 所需 的 控件 ， 窗体 和控件的属性设置见下表。 创建好的窗体如下图所示。 16 控件 属性 属性取值 Frmmain(from) Name F f rmmain Caption 航 班售票管理信息系统 S tartupstion centerscreen Windowstate maximized Sb statusbar(statusbar) name Sbstatusbar Panels(1) Style Sbrtext Sb statusbar(statusbar) Pnels(2) Style Sbrdate Panels(3) Style Sbrtime 在主 窗 体中 加 入状 态 栏控 件，可 以实 时反 映 系统 中 的各个状 态 的变 化。 状 态 栏控 件 需要 在 通 常的 属 性窗 口 中 设置一般 属 性， 还 需要 在 其特 有 的弹 出 式 菜单 中 进行 设 置。 选中状 态 栏控 件， 单 击鼠 标 右键 ， 选中 Proper ty 菜 单 ，然 后设置 属 性。 面 板 1 用 来显 示 各种 文 本信 息 ，面 板 2 用来 显示当前日期，面板 3 用来 显 示当 前时 间。 4． 3 创建主窗体的菜单 在如 下 图所 示 的主 窗 体中 ，单击 鼠 标右 键 ，选 择 弹出 式菜单中的 Menu Editor，创建菜单 结 构 . 4． 4 创建公用模块 17 在 Visual Basic 中可 以 用公 模 块来 存放 整 个工 程 项目 公用的 函 数、 过 程和 全 局变 量 等。 这 样 可以 极 大地 提 高代 码的效 率。 在项 目 资源 管 理器 中 为项 目 添加 一 个 Modu le，保存为 Modu le1. Bas。 由 于 系 统 中 各个 功 能 模 块 都 将频 繁 使用数 据 库中 的 各种 数 据， 因 此需 要 一 个公 共 的数 据 操作 函数，用以 执 行各 种 SQ L 语 句。 添加 函 数 Execute QL，代 码如下 ： P ublic fMainForm As frmMain P ublic gintSmode As Integer 39。 for service P ublic gintP mode As Integer 39。 for plane P ublic gintAmode As Integer 39。 for airline P ublic gintT mode As Integer 39。 for customertype P ublic gintCmode As Integer 39。 for customer P ublic gintKmode As Integer 39。 for ticket Sub Main() Dim fLogin As New frmLogin fLogin. Show vbModal If Not fLogin. OK T hen 39。 Login Failed so exit app End End If Unload fLogin Set fMainForm = New frmMain fMainForm. Show End Sub P ublic Function ConnectString() _ As String 39。 returns a DB ConnectString ConnectString = FileDSN=。 UID=sa。 PWD= End Function P ublic Function ExecuteSQL(ByVal SQL _ As String, MsgString As String) _ As ADODB. Recordset 39。 executes SQL and returns Recordset Dim n As ADODB. Connection Dim rst As ADODB. Recordset Dim sTokens() As String 18 On Error GoTo ExecuteSQL_Error sTokens = Split(SQL) Set n = N ew ADODB. Connection n. Open ConnectString If InStr(INSERT, DELETE, UPDAT E, _ UCase$(sTokens(0))) Then n. Execute SQL MsgString = sTokens(0) amp。 _ query successful Else Set rst = New ADODB. Recordset rst. Open Trim$(SQL), n, _ adOpenKeyset, _ adLockOptimistic 39。 rst. MoveLast 39。 get RecordCount Set ExecuteSQL = rst MsgString = 查询到 amp。 rst. RecordCount amp。 _ End If ExecuteSQL_Exit: Set rst = Nothing Set n = Nothing Exit Function ExecuteSQL_Error: MsgString = 查询错误 : amp。 _ Err. Description Resume ExecuteSQL_Exit End Function P ublic Sub EnterToTab(Keyasc As Integer) If Keyasc = 13 T hen SendKeys {TAB} End If End Sub P ublic Function GetRkno( ) As String GetRkno = Format(Now, yymmddhhmmss) Randomize GetRkno = GetRkno amp。 Int((99 10 + 1) * Rnd + 10) End Function 由于 航 班售 票 管理 信 息管 理 系统 启动 后 ，需要 对 用户 进行判 断。 如 果 登录 者 是授 权 用户 ， 将 进入 系 统， 否 则将 停止程 序 的执 行。 这 个 判断 需 要在 系 统 运行 的 最初 进 行， 因此将代码放在公用模块中。 19 第五章 系统用户管理模块的创建 用户管理模块主要实现： 用户登录。 添加用户 修改用户密码。 窗体设计如下图所示： 20 第六章 舱位信息管理模块的创建 舱位信息管理模块主要实现如下功能： 添加舱位信息。 修改舱位信息。 删除舱位信息。 6． 1 显 示 舱 位 信息 窗 体的 创 建 选择“航 线 信息 管 理 1 舱 位信 息”菜 单，将出 现 如下 图所示的窗体。 21 这个 窗 体用 来 显示 舱 位等 级 信息 ，并且 可 以对 各 条纪 录进行 操 作。 在 载入 窗 体时 ， 程序 将 自 动载 入 所有 纪 录， 窗体的 Show 方 法后 面 加上 0 或者 1，可 以得 到 不同 的 窗体 显示方 式。 参 数 为 0 时 ， 显示 的 窗体 为 无模 式 形式 ， 窗体 切换时 不 需要 进 行其 它 操作 ； 参数 为 1 时， 显 示的 窗 体为 有模式形式，窗体切换时必须进行相关操作。 载入 窗 体时 将 自动 显 示各 条 纪录 ，函 数 Show Title 用来显 示 表头 ， 函数 Shoe Data 把各 条 记录 加 到表 格 中， 并显示 出 来 ,在 窗体 显 示时 ，可 以 控制 窗 体中 各 个控 件 按照 要求的位置显示。 可以在窗体的 Resize 事 件中 加 入代 码 . 6． 2 添 加 舱 位 信息 窗 体的 创 建 在舱 位 信息 显 示窗 体 中单 击“ 添 加”按钮 ，将 出 现如 下图所示的窗体。 载入 窗 体时 ，首先 根 据标 志 变量 判 断状 态 ，然 后 决定 是添加 还 是修 改 ，输 入 内容 完 毕， 单 击 “保 存 ”按 钮 ，将 首 22 先判 断 输入 内 容 是 否 满足 要 求， 然 后 添加 到 数据 库 中。 修改舱 位 等级 信 息在 舱 位等 级 信息 列 表 中选 择 需要 修 改的 记录， 然 后单 击 “修 改 ”按 钮。 选 择 记 录的 内 容将 显 示在 窗体中 ， 可以 进 行修 改 ，最 后 保存 修 改 后的 记 录。 在 舱位 等级信 息 列表 中 选择 需 要删 除 的记 录 ， 然后 单 击“ 删 除” 按钮，将删除当前记录。 第七章 客机信息管理模块的创建 客机信息管理模块主要实现如下功能： 添加客机信息。 修改客机信息。 删除客机信息。 查询客机信息。 7． 1 显示客机信息窗体的创建 选择“航 线 信息 管 理 1 客 机信 息”菜 单，将出 现 如下 图所示的窗体。 所有 客 机的 信 息都 将 显示 出 来。 窗体 的 Load 事 件调 用Show Title、 Show Data 函数，将所有记录显示出来。 23 7． 2 添加客机信息窗体的创建 单击 客 机信 息 列表 中 的“ 添加 ”按 钮，将 出现 如 下图 所示的窗体。 输入 内 容完 毕，单击“保 存”按 钮，将 首 先判 断 输入 内容是 否 满足 要 求， 然 后将 记 录添 加 到 数据 库 中。 在 客机 信息列 表 中选 择 记录 ， 然后 单 击“ 修 改 ”按 钮。 当 前 记录 将显示 在 如下 图 所示 的 窗体 中 ，可 以 进 行修 改。 在 客 机信 息列表 中 选择 记 录， 然 后单 击。