frmmain.frm

所在类别： 随书资源/T 工业技术/TP 自动化技术、计算机技术/TP31 计算机软件 其他题名： 作者： 夏邦贵, 刘凡馨等编著 出版者： 机械工业出版社 出版年： 2006 I

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H8000000C&
   Caption         =   "图书销售管理"
   ClientHeight    =   1590
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   3555
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu mnuFile 
      Caption         =   "文件"
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuSys 
      Caption         =   "系统管理"
      Begin VB.Menu mnuAdmins 
         Caption         =   "系统用户"
      End
      Begin VB.Menu mnuRegister 
         Caption         =   "注册用户"
      End
      Begin VB.Menu mnuDiv 
         Caption         =   "-"
      End
      Begin VB.Menu mnuBooks 
         Caption         =   "图书信息"
      End
      Begin VB.Menu mnuSubscribe 
         Caption         =   "订购记录"
      End
      Begin VB.Menu mnuDiv2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuClicks 
         Caption         =   "站点访问量"
      End
   End
   Begin VB.Menu mnuWindows 
      Caption         =   "窗口"
      WindowList      =   -1  'True
      Begin VB.Menu mnuCascade 
         Caption         =   "层叠排列"
      End
      Begin VB.Menu mnuTileH 
         Caption         =   "水平平铺"
      End
      Begin VB.Menu mnuTileV 
         Caption         =   "垂直平铺"
      End
      Begin VB.Menu mnuIcons 
         Caption         =   "排列图标"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub mnuExit_Click()
    Unload Me       '关闭系统主窗体
End Sub
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    If MsgBox("你选择了关闭图书销售管理系统，是否继续？", _
        vbYesNo + vbQuestion, "图书销售管理系统") = vbYes Then
        '判断在所有子窗体关闭之后才能关闭系统主窗体
        If Not Me.ActiveForm Is Nothing Then
            MsgBox "请先关闭打开的子窗体！", vbCritical, "图书销售管理"
            Cancel = 1
        End If
    Else
        Cancel = 1
    End If
End Sub
Private Sub mnuAdmins_Click()
    frmManagers.Show: frmManagers.SetFocus
End Sub

Private Sub mnuBooks_Click()
    frmBooks.Show: frmBooks.SetFocus
End Sub

Private Sub mnuCascade_Click()
    Me.Arrange vbCascade              '层叠排列子窗体
End Sub

Private Sub mnuClicks_Click()
    frmClicks.Show: frmClicks.SetFocus
End Sub

Private Sub mnuIcons_Click()
    Me.Arrange vbArrangeIcons         '重新排列最小化的子窗体图标
End Sub

Private Sub mnuRegister_Click()
    frmRegisters.Show: frmRegisters.SetFocus
End Sub

Private Sub mnuSubscribe_Click()
    frmSubscribe.Show: frmSubscribe.SetFocus
End Sub

Private Sub mnuTileH_Click()
    Me.Arrange vbTileHorizontal           '水平平铺子窗体
End Sub

Private Sub mnuTileV_Click()
    Me.Arrange vbTileVertical             '垂直平铺子窗体
End Sub