frmmain.frm

引用枕善居的天宏钢构仓库管理系统 Ver 2.96

      End
      Begin VB.Menu M新增退货单 
         Caption         =   "新增退货单"
         HelpContextID   =   241
      End
      Begin VB.Menu M新增借入单 
         Caption         =   "新增借入单"
         HelpContextID   =   223
      End
      Begin VB.Menu M新增借出单 
         Caption         =   "新增借出单"
         HelpContextID   =   224
      End
      Begin VB.Menu M新增调拔单 
         Caption         =   "新增调拔单"
         HelpContextID   =   225
      End
      Begin VB.Menu M新增报损单 
         Caption         =   "新增报损单"
         HelpContextID   =   226
      End
      Begin VB.Menu mnuFileBar19 
         Caption         =   "-"
      End
      Begin VB.Menu M入库单 
         Caption         =   "入库单管理"
         HelpContextID   =   221
      End
      Begin VB.Menu M出库单 
         Caption         =   "出库单管理"
         HelpContextID   =   222
      End
      Begin VB.Menu M借入单 
         Caption         =   "借入单管理"
         HelpContextID   =   223
      End
      Begin VB.Menu M借出单 
         Caption         =   "借出单管理"
         HelpContextID   =   224
      End
      Begin VB.Menu M调拔单 
         Caption         =   "调拔单管理"
         HelpContextID   =   225
      End
      Begin VB.Menu M报损单 
         Caption         =   "报损单管理"
         HelpContextID   =   226
      End
      Begin VB.Menu mnuFileBar12 
         Caption         =   "-"
      End
      Begin VB.Menu M月盘点 
         Caption         =   "进行月盘点"
         HelpContextID   =   227
      End
   End
   Begin VB.Menu 查询统计 
      Caption         =   "查询统计(&J)"
      HelpContextID   =   23
      Begin VB.Menu M库存状况 
         Caption         =   "库存信息"
      End
      Begin VB.Menu M单据查询 
         Caption         =   "单据查询"
         HelpContextID   =   231
      End
      Begin VB.Menu M库存查询 
         Caption         =   "货物信息"
         HelpContextID   =   232
      End
      Begin VB.Menu mnuFileBar17 
         Caption         =   "-"
      End
      Begin VB.Menu M高级查询 
         Caption         =   "高级查询"
         HelpContextID   =   233
      End
      Begin VB.Menu 自定义查询 
         Caption         =   "自定义查询"
         HelpContextID   =   234
         Begin VB.Menu M自定义一 
            Caption         =   "自定义1"
         End
         Begin VB.Menu M自定义二 
            Caption         =   "自定义2"
         End
         Begin VB.Menu M自定义三 
            Caption         =   "自定义3"
         End
         Begin VB.Menu M自定义四 
            Caption         =   "自定义4"
         End
         Begin VB.Menu M自定义五 
            Caption         =   "自定义5"
         End
         Begin VB.Menu M自定义六 
            Caption         =   "自定义6"
         End
         Begin VB.Menu M自定义七 
            Caption         =   "自定义7"
         End
         Begin VB.Menu M自定义八 
            Caption         =   "自定义8"
         End
         Begin VB.Menu mnuFileBar16 
            Caption         =   "-"
         End
         Begin VB.Menu M管理查询 
            Caption         =   "管理自定义查询"
            HelpContextID   =   235
         End
      End
      Begin VB.Menu mnuFileBar14 
         Caption         =   "-"
      End
      Begin VB.Menu M货物出入统计 
         Caption         =   "货物出入统计"
         HelpContextID   =   236
      End
      Begin VB.Menu M职员操作统计 
         Caption         =   "职员操作统计"
         HelpContextID   =   237
      End
   End
   Begin VB.Menu 报表中心 
      Caption         =   "报表中心"
      Begin VB.Menu M打印入库单 
         Caption         =   "打印入库单"
      End
      Begin VB.Menu M打印出库单 
         Caption         =   "打印出库单"
      End
      Begin VB.Menu M打印借入单 
         Caption         =   "打印借入单"
      End
      Begin VB.Menu M打印借出单 
         Caption         =   "打印借出单"
      End
      Begin VB.Menu M打印调拔单 
         Caption         =   "打印调拔单"
      End
      Begin VB.Menu M打印报损单 
         Caption         =   "打印报损单"
      End
      Begin VB.Menu mnuFileBar80 
         Caption         =   "-"
      End
      Begin VB.Menu m打印库存信息 
         Caption         =   "打印库存信息"
      End
      Begin VB.Menu mnuFileBar18 
         Caption         =   "-"
      End
      Begin VB.Menu M打印月盘点 
         Caption         =   "打印月盘点"
      End
      Begin VB.Menu mnuFileBar3 
         Caption         =   "-"
      End
      Begin VB.Menu mnuFilePageSetup 
         Caption         =   "页面设置(&U)..."
      End
   End
   Begin VB.Menu mnuView 
      Caption         =   "视图(&V)"
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "工具栏(&T)"
         Checked         =   -1  'True
      End
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "状态栏(&B)"
         Checked         =   -1  'True
      End
   End
   Begin VB.Menu M维护设置 
      Caption         =   "维护设置"
      HelpContextID   =   24
      Begin VB.Menu M查看日志 
         Caption         =   "查看日志"
         HelpContextID   =   243
      End
      Begin VB.Menu M数据清除 
         Caption         =   "数据清除"
         HelpContextID   =   244
      End
      Begin VB.Menu M系统初始化 
         Caption         =   "系统初始化"
         HelpContextID   =   245
      End
      Begin VB.Menu mnuFileBar15 
         Caption         =   "-"
      End
      Begin VB.Menu M备份数据库 
         Caption         =   "备份数据库"
         HelpContextID   =   246
      End
      Begin VB.Menu M还原数据库 
         Caption         =   "还原数据库"
         HelpContextID   =   247
      End
      Begin VB.Menu M还原到昨天数据库 
         Caption         =   "还原到昨天数据库"
         HelpContextID   =   248
      End
      Begin VB.Menu mnuFileBar4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuModifyPassword 
         Caption         =   "修改密码(&E)"
         HelpContextID   =   249
      End
      Begin VB.Menu mnuUserManage 
         Caption         =   "用户管理(&M)"
         HelpContextID   =   2410
      End
      Begin VB.Menu M换用户登陆 
         Caption         =   "换用户登陆"
         HelpContextID   =   2411
      End
   End
   Begin VB.Menu mnuHelp 
      Caption         =   "帮助(&H)"
      Begin VB.Menu M查看帮助 
         Caption         =   "查看帮助(&H)"
         HelpContextID   =   25
      End
      Begin VB.Menu mnuHelpBar0 
         Caption         =   "-"
      End
      Begin VB.Menu mnuHelpAbout 
         Caption         =   "关于(&A) "
         HelpContextID   =   3
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu sys 
      Caption         =   "系统(&S)"
      NegotiatePosition=   3  'Right
      Begin VB.Menu mnuFileExit 
         Caption         =   "退出系统(&X)"
      End
      Begin VB.Menu suoding 
         Caption         =   "锁定操作界面"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居收藏整理
'发布日期：2008/05/11
'描    述：天宏钢构仓库管理系统 Ver 2.96
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long

Dim strCharB, strCharA '此段代码是终止程序的
  Dim strSectionTemp As String
  Dim strNameTemp As String
  Dim strreturn As String
Public Sub InitPurview()
 On Error Resume Next
    '初始化17种权限状态
    Dim i As Integer
    
    For i = 16 To 0 Step -1
       
            权限类别(16 - i) = 0
        
            权限类别(16 - i) = 1
        
    Next
    
End Sub

'根据用户权限来初始化菜单
Private Sub InitMenu()
On Error Resume Next
    If 权限类别(0) = 0 Then
        M新增入库单.Enabled = False
        M新增出库单.Enabled = False
        M新增借入单.Enabled = False
        M新增借出单.Enabled = False
        M新增调拔单.Enabled = False
        M新增报损单.Enabled = False
        
   
        新增单据(0).MouseIcon = Picture1.MouseIcon
        新增单据(1).MouseIcon = Picture1.MouseIcon
        新增单据(2).MouseIcon = Picture1.MouseIcon
        新增单据(3).MouseIcon = Picture1.MouseIcon
        新增单据(4).MouseIcon = Picture1.MouseIcon
        新增单据(5).MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(2).Enabled = False
    End If
    
    If 权限类别(3) = 0 Then
        M月盘点.Enabled = False
        
        tbToolBar.Buttons(4).Enabled = False
    End If
    If 权限类别(4) = 0 Then
        M供应商.Enabled = False
        登记新供应商.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(5) = 0 Then
        M往来客户.Enabled = False
        登记新客户.MouseIcon = Picture1.MouseIcon
    End If
    If 权限类别(6) = 0 Then
        M单据查询.Enabled = False
        M库存查询.Enabled = False
        M货物出入统计.Enabled = False
        M职员操作统计.Enabled = False
        
        L货物出入统计.MouseIcon = Picture1.MouseIcon
        L职员操作统计.MouseIcon = Picture1.MouseIcon
        L单据查询.MouseIcon = Picture1.MouseIcon
        L库存查询.MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(5).Enabled = False
        tbToolBar.Buttons(8).Enabled = False
    End If
    If 权限类别(7) = 0 Then
        M高级查询.Enabled = False
        自定义查询.Enabled = False
        
        L高级查询.MouseIcon = Picture1.MouseIcon
        L自定义查询管理.MouseIcon = Picture1.MouseIcon
        
        tbToolBar.Buttons(7).Enabled = False
    End If
    If 权限类别(8) = 0 Then
        M打印入库单.Enabled = False
        M打印出库单.Enabled = False
        M打印借入单.Enabled = False
        M打印借出单.Enabled = False
        M打印调拔单.Enabled = False
        M打印报损单.Enabled = False
        
        M打印月盘点.Enabled = False
        
        tbToolBar.Buttons(10).Enabled = Fal