vb航空订退票系统数据流图+流程图+源代码 第2页

vb航空订退票系统数据流图+流程图
4.2软件结构设计
系统软件设计遵循模块化程序设计的思想，自顶向下，步步求精。系统程序由订票模块、退票模块和系统重置模块组成。
4.3数据流程图
数据流程图符合如下：
 总体数据流图：
订票管理子系统数据流程图
退票管理子系统数据流图
 4.4功能结构图
毕业论文http://www.youerw.com 4.5系统的流程图
4.6 E-R图
5.系统使用说明
本系统分为订票管理、退票管理和系统重置、退出系统四个主要功能模块。
主界面窗口见图
5.1订票本文来自优文论文网原文请找QQ752018766管理
（1）订票管理的查询模块见图。
在这窗口中能够查询所有的航班信息，见图。
在查询模块中也能查询具体的某一天某一趟航班的信息，2005-5-1 A1次航班查询见图。
 (2)订票窗口见图。
 如果某一次航班的客满，将会不显示本次航班没有座位的信息。如果某位乘客已经订过某一趟航班，系统将会提示此乘客已经订过次趟航班，不允许其在订票。
 如果说乘客没有订过此趟航班，航班也有座位，则允许其订票。见图。
5.2退票管理
    退票窗口见图。
 在本窗口中，可输入乘客所要退的票，如果机票为有效票，见图。
如果机票为无效票，系统将会提示“此机票为无效票！“
5.3系统重置
下图所显示的就是系统重置中的数据清空功能。
在图所示的系统重置中，选择数据清空的功能按钮，清空数据库中的数据，能重新使用该系统。   
 5.4退出系统
选择退出系统的功能按钮，该软件就会退出。
6程序代码
(1)Booksystem(code)
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 = "Provider=Microsoft.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本文来自优文论文网原文请找QQ752018766
     strQuery = "select * from line where line.book=true"
     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 rsdata!book = True Then
                rsdata!book = 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
毕业论文http://www.youerw.com
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 = "Provider=Microsoft.jet.oledb.3.51;" & _
    "Data Source='" & App.Path & "\zhuyong.mdb'"
    cnnrsdata.Open strcnn
    Set rsdata = New ADODB.Recordset
    rsdata.CursorType = adOpenKeyset

上一页  [1] [2] 

vb航空订退票系统数据流图+流程图+源代码 第2页下载如图片无法显示或论文不完整，请联系qq752018766