form2.frm

英语字典

VERSION 5.00
Begin VB.Form frmAdmainUser 
   BackColor       =   &H00FF8080&
   Caption         =   "管理员"
   ClientHeight    =   3150
   ClientLeft      =   165
   ClientTop       =   1095
   ClientWidth     =   4680
   LinkTopic       =   "Form2"
   Picture         =   "Form2.frx":0000
   ScaleHeight     =   3150
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
   Begin VB.Menu mnuSystem 
      Caption         =   "系统管理"
      Begin VB.Menu mnuAdd1 
         Caption         =   "添加用户"
      End
      Begin VB.Menu mnuChange1 
         Caption         =   "修改密码"
      End
      Begin VB.Menu mnuDelete 
         Caption         =   "删除用户"
      End
      Begin VB.Menu mnu1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit1 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuMessage 
      Caption         =   "用户基本信息"
      Begin VB.Menu mnuAdd2 
         Caption         =   "添加用户信息"
      End
      Begin VB.Menu mnuChange2 
         Caption         =   "修改用户信息"
      End
      Begin VB.Menu mnuLook 
         Caption         =   "查询用户信息"
      End
      Begin VB.Menu mnu2 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit2 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuDic 
      Caption         =   "词典基本信息"
      Begin VB.Menu mnuAdd3 
         Caption         =   "添加词典信息"
      End
      Begin VB.Menu mnuChange3 
         Caption         =   "修改词典信息"
      End
      Begin VB.Menu mnu3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit3 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu mnuQuestion 
      Caption         =   "题目基本信息"
      Begin VB.Menu mnuAddQuestion 
         Caption         =   "添加题目信息"
      End
      Begin VB.Menu mnu4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuExit 
         Caption         =   "退出"
      End
   End
End
Attribute VB_Name = "frmAdmainUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub mnuAdd1_Click()
Load frmAddUser
frmAddUser.Visible = True
End Sub

Private Sub mnuAdd2_Click()
Load frmAddInfo
frmAddInfo.Visible = True
End Sub

Private Sub mnuAdd3_Click()
Load frmDic
frmDic.Visible = True
End Sub

Private Sub mnuAddQuestion_Click()
Load frmAddQuestion
frmAddQuestion.Visible = True
End Sub

Private Sub mnuChange1_Click()
Load frmPsChange
frmPsChange.Visible = True
End Sub

Private Sub mnuChange2_Click()
Load frmInformation
frmInformation.Visible = True
End Sub

Private Sub mnuChange3_Click()
Load frmDic
frmDic.Visible = True
End Sub

Private Sub mnuExit_Click()
Load frmLogin
frmLogin.Visible = True
End Sub

Private Sub mnuExit1_Click()
Load frmLogin
frmLogin.Visible = True
End Sub

Private Sub mnuExit2_Click()
Load frmLogin
frmLogin.Visible = True
End Sub

Private Sub mnuExit3_Click()
Load frmLogin
frmLogin.Visible = True
End Sub

Private Sub mnuLook_Click()
Load frmInformation
frmInformation.Visible = True
End Sub

Private Sub mnuDelete_Click()
Load frmDeleteUser
frmDeleteUser.Visible = True
End Sub