【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。

    网学会员整理了VB开源代码-vb航空订退票系统数据流图+流程图+源代码-课程设计 - 行政公文的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

vb航空订退票系统数据流图流程图 目 录 1.引言 1 1.1课程设计目的及意义 1 1.2选题说明 1 2.系统需求分析 2 3.系统可行性分析 2 4. 系统设计 3 4.1数据库表设计 3 4.2软件结构设计 4 4.3数据流程图 4 4.4功能结构图 6 4.5系统的流程图 6 4.6 E-R图 7 5.系统使用说明 7 5.1订票管理 7 5.2退票管理 11 5.3系统重置 13 5.4退出系统 13 6.程序代码 14 7.小组分工 27 8.设计小结 27 1.引言：1.1课程设计目的及意义： 《管理信息系统》课程的学习，不仅需要理论上的深入探讨，而且需要通过实践上机，自己开发一个管理信息系统，才能真正理解书本知识，牢固掌握课堂教学内容。

    因此，本课程设计的目的就是要通过一个实际的管理信息系统的分析设计和开发，提高我们应用所学知识分析问题，解决问题和实际动手的能力，更加熟练地掌握管理信息系统开发的基本方法和工作步骤，对管理信息系统开发实践有进一步体会。

     1.2选题说明： 我们选做的系统名称是“航空订退票系统管理信息系统”随着经济的不断好转，航空业竞争日益激烈的现实，如何加强管理、提高工作效率和改善服务质量成了急待解决的问题。

    而解决这些问题的关键措施之一就是建立实用、先进、高效的电脑管理系统，引进创新的经营机制，适应新形式下的生存和发展的空间。

     我们开发的航空订退票管理信息系统主要思路是：针对现代航空业的基本要求，进行系统分析制作出系统所能具有的功能。

    制定出本系统，解决航空业务中存在的问题、优化系统提高效益，提出具有可行性的方案，做好系统对口分析，原文请找 设计出功能完善的航空订退票管理信息系统。

    同时，本系统涵盖四个子系统：订票管理、退票管理和系统重置、退出系统四方面内容，使得系统更加完善。

     2.系统需求分析 随着全球进入信息化时代，航空公司为了适应当前越来越激烈的竞争，增强公司的信息化程度，提高公司的售票管理的效率，就建立起了相应的航空预订票系统，成功实现提高了航空系统的售票效率和管理水平。

     本系统是利用VB6.0作为开发语言，Microsoft access作为后台数据库的航空预订票系统。

     功能分析：本系统主要分为四个功能模块，包括订票管理、退票管理和系统重置、退出系统四方面内容。

     运行环境：Win98、Win2000等操作系统，内存大于64，CPU主频P233以上的机器。

     3.系统可行性分析 1 技术可行性分析： 本方案技术要求不高，系统涉及范围不大，子系统间联系紧密，安全性、可靠性强；微机和网络的普遍应用和开发人员已掌握基本的VB软件，使得本系统的成功开发成为可能。

    可见，从技术上是完全能满足基本功能需要的。

     2 经济可行性分析： 工作人员会电脑基本操作，本系统操作简便，人-机界面友好，不需要另外的培训费用，因此，开发费用低，投入比较少。

    此系统建成后，实现本系统建立目标，使信息处理更快、更准确，提高工作效率，降低业务开展的成本。

    本系统运行后带来的效益高于投入，从经济上说是可行的。

    3 运行可行性分析： 通过前面的分析可知，技术上，没有开发和实施障碍；经济上，系统运行后带来的利润大于投入，能够带来更多经济效益和社会效益；所以，系统具有运行可行性。

     4.系统设计 4.1数据库表设计 系统数据库中有航班信息表、乘客信息表。

     A. 航班信息表 字段名称 数据类型 说明 Date 文本 日期 Line 文本 航班 Sno 文本 座位号 Book 是/否 是否预定 Price 数字 价格 B. 乘客信息 字段名称 数据类型 说明 Name 文本 姓名 Passcard 数字 身份证号 Line 文本 航班 Date 文本 日期 Sno 文本 座位号1425 vb航空订退票系统数据流图流程图 4.2软件结构设计 系统软件设计遵循模块化程序设计的思想，自顶向下，步步求精。

    系统程序由订票模块、退票模块和系统重置模块组成。

     4.3数据流程图 数据流程图符合如下： 总体数据流图： 订票管理子系统数据流程图 退票管理子系统数据流图 4.4功能结构图 4.5系统的流程图 4.6 E-R图 5.系统使用说明 本系统分为订票管理、退票管理和系统重置、退出系统四个主要功能模块。

     主界面窗口见图 5.1订票原文请找 管理 （1）订票管理的查询模块见图。

     在这窗口中能够查询所有的航班信息，见图。

     在查询模块中也能查询具体的某一天某一趟航班的信息，2005-5-1 A1次航班查询见图。

     2订票窗口见图。

     如果某一次航班的客满，将会不显示本次航班没有座位的信息。

    如果某位乘客已经订过某一趟航班，系统将会提示此乘客已经订过次趟航班，不允许其在订票。

     如果说乘客没有订过此趟航班，航班也有座位，则允许其订票。

    见图。

     5.2退票管理 退票窗口见图。

     在本窗口中，可输入乘客所要退的票，如果机票为有效票，见图。

     如果机票为无效票，系统将会提示“此机票为无效票！“ 5.3系统重置 下图所显示的就是系统重置中的数据清空功能。

     在图所示的系统重置中，选择数据清空的功能按钮，清空数据库中的数据，能重新使用该系统。

     5.4退出系统 选择退出系统的功能按钮，该软件就会退出。

     6程序代码 1Booksystemcode Option Explicit Private cnnrsdata As New ADODB.Connection Private rsdata As New ADODB.Recordset Dim strQuery As String Private Sub init_ado 初始化cnnrsdata和rsdata Dim strcnn Set cnnrsdata New ADODB.Connection strcnn ProviderMicrosoft.jet.oledb.3.51 _ Data Source App.Path zhuyong.mdb cnnrsdata.Open strcnn Set rsdata New ADODB.Recordset rsdata.CursorType adOpenKeyset rsdata.LockType adLockOptimistic End Sub Private Sub MDIForm_Load frmSplash.Show End Sub Private Sub mnubookfind_Click find.Show End Sub Private Sub mnudingpiao_Click frmbook.Show End Sub Private Sub mnuoutme_Click Unload Me End Sub Private Sub mnuspace_Click init_ado原文请找 strQuery select from line where line.booktrue rsdata.Open strQuery cnnrsdata adCmdText If rsdata.EOF Then MsgBox 数据已清空！ Else rsdata.MoveFirst End If Dim i As Integer For i 1 To rsdata.RecordCount If rsdatabook True Then rsdatabook False rsdata.Update rsdata.MoveNext End If Next i rsdata.Close strQuery select from customer rsdata.Open strQuery cnnrsdata adCmdText If rsdata.EOF Then booksystem.Show Else rsdata.MoveFirst End If Dim j As Integer For j 1 To rsdata.RecordCount rsdata.Delete rsdata.MoveNext Next j rsdata.Close End Sub Private Sub mnutuipiao_Click Frmback.Show Option Explicit Private cnnrsdata As New ADODB.Connection Private rsdata As New ADODB.Recordset Dim strQuery As String Dim bookinformation As String Dim response As Integer Private Sub init_ado 初始化cnnrsdata和rsdata Dim strcnn Set cnnrsdata New ADODB.Connection strcnn ProviderMicrosoft.jet.oledb.3.51 _ Data Source App.Path zhuyong.mdb cnnrsdata.Open strcnn Set rsdata New ADODB.Recordset rsdata.CursorType adOpenKeyset