frmadmin.frm

多方讨价还价系统

VERSION 5.00
Begin VB.Form frmAdmin 
   Caption         =   "管理员管理"
   ClientHeight    =   4485
   ClientLeft      =   60
   ClientTop       =   750
   ClientWidth     =   5970
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   4485
   ScaleWidth      =   5970
   Begin VB.Menu manuFile 
      Caption         =   "文件(&F)"
      Begin VB.Menu menuChangepassword 
         Caption         =   "修改密码(&M)"
      End
      Begin VB.Menu menuLogoff 
         Caption         =   "注销(&L)"
      End
      Begin VB.Menu menuSplitBar1 
         Caption         =   "-"
      End
      Begin VB.Menu menuExit 
         Caption         =   "退出(&E)"
      End
   End
   Begin VB.Menu menuEditor 
      Caption         =   "编辑(&E)"
      Begin VB.Menu menuBuyermanage 
         Caption         =   "买方管理(B&)"
      End
      Begin VB.Menu menuSellermanage 
         Caption         =   "卖方管理(&S)"
      End
   End
   Begin VB.Menu menuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu menuAbout 
         Caption         =   "关于(&A)"
      End
   End
End
Attribute VB_Name = "frmAdmin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub menuAbout_Click()
frmabout.Show vbModal
End Sub