formmain.frm

来自「能实现图书馆的图书操作」· FRM 代码 · 共 79 行

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "欢迎进入我的图书管理信息系统"
   ClientHeight    =   5775
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7380
   LinkTopic       =   "Form1"
   Picture         =   "formmain.frx":0000
   ScaleHeight     =   5775
   ScaleWidth      =   7380
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu sysmanage 
      Caption         =   "系统管理"
      Begin VB.Menu m_relogin 
         Caption         =   "注销"
      End
      Begin VB.Menu m_usermanage 
         Caption         =   "用户管理"
      End
      Begin VB.Menu m_exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu m_bookmanage 
      Caption         =   "图书管理"
      Begin VB.Menu m_query 
         Caption         =   "图书信息查询"
      End
      Begin VB.Menu m_basicbook 
         Caption         =   "图书基本资料管理"
      End
   End
   Begin VB.Menu m_help 
      Caption         =   "帮助"
      Begin VB.Menu m_copyright 
         Caption         =   "版本"
      End
      Begin VB.Menu m_helpfile 
         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 m_basicbook_Click()
 frmbookinfo.Show
End Sub

Private Sub m_copyright_Click()
 formabout.Show
End Sub

Private Sub m_exit_Click()
 End
End Sub

Private Sub m_helpfile_Click()
  s = MsgBox("对不起，你没有管理本功能的权限，请与管理员联系！", vbInformation + vbOKOnly, " 警告")
      ' MsgBox "本软件为测试版，请注册后使用！"
End Sub

Private Sub m_query_Click()
  frmquery.Show
End Sub

Private Sub m_relogin_Click()
 frmlogin.Show
End Sub

Private Sub m_usermanage_Click()
   frmuser.Show
End Sub