mditrain.frm

初学者必看! 作者初学时的作品 一般了,适合初学者看

VERSION 5.00
Begin VB.MDIForm MdiTrain 
   BackColor       =   &H8000000C&
   Caption         =   "售票系统"
   ClientHeight    =   6105
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   6675
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu MnuFiel 
      Caption         =   "文件"
      Begin VB.Menu MnuExit 
         Caption         =   "退出(&E)"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu MnuInput 
      Caption         =   "售票"
      Begin VB.Menu MnuInputInfo 
         Caption         =   "售票窗口(&S)"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu MnuQuer 
      Caption         =   "综合查询"
      Begin VB.Menu MnuQuery 
         Caption         =   "售票情况查询(&Q)"
         Shortcut        =   ^Q
      End
   End
End
Attribute VB_Name = "MdiTrain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub MnuExit_Click()
    If MsgBox("确实要退出吗?", vbOKCancel + vbQuestion, "系统退出") = vbOK Then
        End
    Else
        Exit Sub
    End If
End Sub

Private Sub MnuInputInfo_Click()
    frmInput.Show
End Sub

Private Sub MnuQuery_Click()
    frmQuery.Show
End Sub