frmmain.frm

Visual Basic + Oracle 9i数据库应用系统开发与实例（企业购销存管理系统）界面简洁,数据库完整,还不错~适合学生利用和使用!

VERSION 5.00
Begin VB.Form FrmMain 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "企业购销存管理系统"
   ClientHeight    =   8220
   ClientLeft      =   60
   ClientTop       =   660
   ClientWidth     =   11805
   Icon            =   "FrmMain.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   8220
   ScaleWidth      =   11805
   StartUpPosition =   2  '屏幕中心
   Begin VB.Image Image1 
      Height          =   8220
      Left            =   0
      Picture         =   "FrmMain.frx":0CCA
      Stretch         =   -1  'True
      Top             =   0
      Width           =   11820
   End
   Begin VB.Menu mn_sys 
      Caption         =   "系统设置"
      Begin VB.Menu mn_client 
         Caption         =   "客户管理"
      End
      Begin VB.Menu mn_stocks 
         Caption         =   "仓库管理"
      End
      Begin VB.Menu mn_users 
         Caption         =   "用户管理"
      End
      Begin VB.Menu mn_exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu mn_Product 
      Caption         =   "产品管理"
      Begin VB.Menu mn_ProType 
         Caption         =   "产品类目"
      End
      Begin VB.Menu mn_ProInfo 
         Caption         =   "产品信息"
      End
   End
   Begin VB.Menu mn_Orders 
      Caption         =   "采购管理"
      Begin VB.Menu mn_Order1 
         Caption         =   "采购单管理"
      End
      Begin VB.Menu mn_Order2 
         Caption         =   "采购退货管理"
      End
      Begin VB.Menu mn_Lack 
         Caption         =   "商品短线报警"
      End
   End
   Begin VB.Menu mn_Sales 
      Caption         =   "销售管理"
      Begin VB.Menu mn_Sale1 
         Caption         =   "销售单管理"
      End
      Begin VB.Menu mn_Sale2 
         Caption         =   "销售退货管理"
      End
      Begin VB.Menu mn_Full 
         Caption         =   "商品超储报警"
      End
   End
   Begin VB.Menu mn_Operate 
      Caption         =   "库存操作"
      Begin VB.Menu mn_In 
         Caption         =   "入库管理"
      End
      Begin VB.Menu mn_Out 
         Caption         =   "出库管理"
      End
      Begin VB.Menu mn_Check 
         Caption         =   "库存盘点"
      End
   End
   Begin VB.Menu mn_financial 
      Caption         =   "财务管理"
      Begin VB.Menu mn_Income 
         Caption         =   "收款管理"
      End
      Begin VB.Menu mn_Payment 
         Caption         =   "付款管理"
      End
      Begin VB.Menu mn_Static 
         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_Check_Click()
  If CurUser.UserType = 4 Then
    FrmCheckMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_client_Click()
  If CurUser.UserType = 1 Then
    FrmCltMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_exit_Click()
  End
End Sub

Private Sub mn_Full_Click()
  If CurUser.UserType = 3 Then
    FrmFullAlarm.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_In_Click()
  If CurUser.UserType = 4 Then
    FrmStoreinMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Invalid_Click()
  FrmValidAlarm.Show 1
End Sub

Private Sub mn_Income_Click()
  If CurUser.UserType = 5 Then
    FrmIncomeMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Lack_Click()
  If CurUser.UserType = 2 Then
    FrmLackAlarm.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_num_Click()
  FrmNumAlarm.Show 1
End Sub

Private Sub mn_Order1_Click()
  If CurUser.UserType = 2 Then
    Frm_OrderMan.Flag = 1
    Frm_OrderMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Order2_Click()
  If CurUser.UserType = 2 Then
    Frm_OrderMan.Flag = 2
    Frm_OrderMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Out_Click()
  If CurUser.UserType = 4 Then
    FrmTakeoutMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Payment_Click()
  If CurUser.UserType = 5 Then
    FrmPayMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_ProInfo_Click()
  FrmProMan.Show 1
End Sub

Private Sub mn_ProType_Click()
  If CurUser.UserType = 1 Then
    FrmProTypeMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Report1_Click()
  Frm_Report1.Show 1
End Sub

Private Sub mn_Report2_Click()
  Frm_Report2.Show 1
End Sub

Private Sub mn_Sale1_Click()
  If CurUser.UserType = 3 Then
    Frm_SaleMan.Flag = 1
    Frm_SaleMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Sale2_Click()
  If CurUser.UserType = 3 Then
    Frm_SaleMan.Flag = 2
    Frm_SaleMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_Static_Click()
  If CurUser.UserType = 5 Then
    FrmStatic.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

Private Sub mn_stocks_Click()
  If CurUser.UserType = 1 Then
    FrmStoreMan.Show 1
  Else
    MsgBox "没有权限"
  End If
End Sub

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