frmmain.frm

主要是基本的办公用品管理操作界面, 包含基本信息管理、办公用品管理

VERSION 5.00
Begin VB.Form FrmMain 
   Caption         =   "办公用品管理系统"
   ClientHeight    =   8595
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   Picture         =   "FrmMain.frx":0000
   ScaleHeight     =   8595
   ScaleWidth      =   11880
   StartUpPosition =   2  'CenterScreen
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "办公用品管理系统"
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   42
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000080&
      Height          =   840
      Left            =   3840
      TabIndex        =   0
      Top             =   3600
      Width           =   6840
   End
   Begin VB.Menu mn_1 
      Caption         =   "基本信息设置"
      Begin VB.Menu mn_Types 
         Caption         =   "分类设置"
      End
      Begin VB.Menu mn_Department 
         Caption         =   "部门设置"
      End
      Begin VB.Menu mn_Supplier 
         Caption         =   "供应商设置"
      End
      Begin VB.Menu mn_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_2 
      Caption         =   "办公用品管理"
      Begin VB.Menu mn_Draw 
         Caption         =   "领用管理"
      End
      Begin VB.Menu mn_In 
         Caption         =   "入库管理"
      End
      Begin VB.Menu mn_Store 
         Caption         =   "库存管理"
      End
   End
   Begin VB.Menu mn_3 
      Caption         =   "数据统计"
      Begin VB.Menu mn_Short 
         Caption         =   "库存短缺统计"
      End
      Begin VB.Menu mn_SByIn 
         Caption         =   "入库统计"
      End
      Begin VB.Menu mn_SByDraw 
         Caption         =   "领用统计"
      End
   End
   Begin VB.Menu mn_4 
      Caption         =   "系统管理"
      Begin VB.Menu mn_Users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_ChangePwd 
         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()
  FrmLogin.Show 1
End Sub

Private Sub mn_ChangePwd_Click()
  With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.UserPwd
    .txtPass2 = CurUser.UserPwd
    .txtUserName.Enabled = False
    .Modify = True
    .Show 1
  End With
End Sub

Private Sub mn_Department_Click()
  FrmDepMan.Show 1
End Sub

Private Sub mn_Draw_Click()
  FrmDrawMan.Show 1
End Sub

Private Sub mn_Exit_Click()
  DBapi_Disconnect
  End
End Sub

Private Sub mn_In_Click()
  FrmStoreInMan.Show 1
End Sub

Private Sub mn_SByDraw_Click()
  FrmSByDraw.Show 1
End Sub

Private Sub mn_SByIn_Click()
  FrmSByIn.Show 1
End Sub

Private Sub mn_Short_Click()
  FrmShortMan.Show 1
End Sub

Private Sub mn_Store_Click()
  FrmStoreMan.Show 1
End Sub

Private Sub mn_Supplier_Click()
  FrmSupplierMan.Show 1
End Sub

Private Sub mn_Types_Click()
  FrmTypeMan.Show 1
End Sub

Private Sub mn_Users_Click()
  '只有系统管理员才能进入用户管理窗体
  If Trim(CurUser.UserName) = "Admin" Then
    FrmUserMan.Show 1
  Else
    '其他用户只能编辑自己的用户信息
    With FrmUserEdit
    .OriUser = CurUser.UserName
    .txtUserName = CurUser.UserName
    .txtPass = CurUser.UserPwd
    .txtPass2 = CurUser.UserPwd
    .txtUserName.Enabled = False
    .Modify = True
    .Show 1
    End With
  End If
End Sub