frmmain.frm

图书馆管理系统 VB制作 用户名admin和密码123456

VERSION 5.00
Begin VB.Form frmmain 
   Caption         =   "欢迎访问图书馆"
   ClientHeight    =   5775
   ClientLeft      =   165
   ClientTop       =   825
   ClientWidth     =   7155
   ControlBox      =   0   'False
   Icon            =   "frmmain.frx":0000
   LinkTopic       =   "Form2"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5775
   ScaleWidth      =   7155
   StartUpPosition =   3  '窗口缺省
   Begin VB.Image Image1 
      Height          =   5955
      Left            =   0
      Picture         =   "frmmain.frx":0442
      Stretch         =   -1  'True
      Top             =   0
      Width           =   8415
   End
   Begin VB.Menu mnumanage 
      Caption         =   "系统管理"
      Begin VB.Menu mnulogin 
         Caption         =   "登录系统"
      End
      Begin VB.Menu mnuexit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mnuaction 
      Caption         =   "用户操作"
      Begin VB.Menu mnuselect 
         Caption         =   "查询图书"
      End
      Begin VB.Menu mnuadd 
         Caption         =   "添加图书"
      End
      Begin VB.Menu mnuupdate 
         Caption         =   "修改记录"
      End
      Begin VB.Menu mnudelete 
         Caption         =   "删除信息"
      End
      Begin VB.Menu mnushow 
         Caption         =   "显示所有信息"
      End
   End
   Begin VB.Menu mnuhelp 
      Caption         =   "帮助"
      Begin VB.Menu mnuhelpshow 
         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 Form_Load()
    mnuaction.Enabled = False
End Sub


Private Sub mnuhelpshow_Click()
    frmmain.Hide
    frmhelpshow.Show
End Sub

Private Sub mnuadd_Click()
    frmmain.Hide
    frmadd.Show
End Sub

Private Sub mnudelete_Click()
    frmmain.Hide
    frmdelete.Show
End Sub

Private Sub mnuexit_Click()
    Unload Me
End Sub

Private Sub mnulogin_Click()
    frmmain.Hide
    frmcheck.Show
End Sub

Private Sub mnumodifyPsw_Click()
    frmmain.Hide
    frmmodifyPsw.Show
End Sub

Private Sub mnuselect_Click()
    frmmain.Hide
    frmselect.Show
End Sub

Private Sub mnushow_Click()
    frmmain.Hide
    frmshow.Show
End Sub

Private Sub mnuupdate_Click()
    frmmain.Hide
    frmupdate.Show
End Sub