frm_main.frm

PMS是一个生产管理系统,功能强大,供大家享用,希望大家支持!!

  '操作员设置
  Load Frm_Xtgl_Czy
  Frm_Xtgl_Czy.Show 1
Case 1
  '密码修改
  Load Frm_Xtgl_Mmxg
  Frm_Xtgl_Mmxg.Show 1
Case 2
  '操作权限设置
   Load Frm_Xtgl_Czqy
   Frm_Xtgl_Czqy.Show 1
Case 4
  '数据清理
   Sign = True
   Load Frm_Qr
   Frm_Qr.Show 1
Case 5
  '数据备份与恢复
   Sign = False
   Load Frm_Qr
   Frm_Qr.Show 1
  
  End
Case 7
'  设置主窗口图片
   Dim str   '定义变量
      CommonDialog1.Filter = "BMP图片(*.BMP)|*.BMP|JPG图片(*.JPG)|*.JPG|GIF图片(*.GIF)|*.GIF|所有文件(*.*)|*.*"
      CommonDialog1.ShowOpen
      If CommonDialog1.FileName <> "" Then
        Image1.Picture = LoadPicture(CommonDialog1.FileName)
        str = CommonDialog1.FileName
        Open (App.Path & "\picture.txt") For Output As #1
        Print #1, str
        Close #1
        CommonDialog1.FileName = ""
      Else
        CommonDialog1.FileName = ""
      End If
End Select
End Sub

Private Sub menu7_Click(Index As Integer)
'帮助信息
Select Case Index
Case 0
  '本单位信息
  Load Frm_Bzxx_Bdwxx
  Frm_Bzxx_Bdwxx.Show 1
Case 1
  '关于
  Load Frm_Bzxx_Gy
  Frm_Bzxx_Gy.Show 1
Case 3
  '帮助
  CommonDialog2.HelpFile = App.Path & "\生产管理系统帮助.HLP"
  CommonDialog2.HelpCommand = cdlHelpContents
  CommonDialog2.ShowHelp
End Select
End Sub

'自定义一个过程，用于显示TreeView控件中的数据
Public Sub Tree_change()
  Dim key, Text, BH, StrTemp As String
  Dim Nod As Node '定义一个节点变量
  rs1.Open "select distinct menu_menu,menu_menuid from tb_SCGL_menu order by menu_menuid", cnn, adOpenKeyset
  If rs1.RecordCount > 0 Then
       rs1.MoveFirst
          Do While rs1.EOF = False    '循环读取第1层节点中的数据信息
            key = Trim(rs1.Fields("menu_menu"))
            Text = rs1.Fields("menu_menu")
            StrTemp = rs1.Fields("menu_menu")
            Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 1)   '给第1层节点赋与数值
                       rs2.Open "select * from tb_SCGL_menu  where menu_menu ='" + StrTemp + "'", cnn, adOpenKeyset
                       If rs2.RecordCount > 0 Then
                         rs2.MoveFirst
                         Do While rs2.EOF = False    '循环读取第2层节点中的数据信息
                                key = Trim(rs2.Fields("menu_submenu"))
                                Text = rs2.Fields("menu_submenu")
                                Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 2)   '给第2层节点赋与数值
                                rs2.MoveNext
                         Loop
                       End If
                       rs2.Close
          rs1.MoveNext
          Loop
  End If
  rs1.Close
End Sub

Private Sub Timer1_Timer()
Frm_Main.StatusBar1.Panels(3).Text = "  当前系统时间为：  " + " " + Format(Date, "long date") + " " + Format(Now, " hh点mm分ss秒") + "   "
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Index
Case 1
   '产品基础信息
  Load Frm_Jcxx_Cpxx
  Frm_Jcxx_Cpxx.Show 1
Case 2
  '物料基础信息
  Load Frm_Jcxx_Wlxx
  Frm_Jcxx_Wlxx.Show 1
Case 3
 '产品完工入库
  Load Frm_Kcgl_Cprk
  Frm_Kcgl_Cprk.Show 1
Case 4
   '物料入库
  Load Frm_Kcgl_Wlrk
  Frm_Kcgl_Wlrk.Show 1
Case 5
 '生产领料
   Load Frm_Kcgl_Scll
   Frm_Kcgl_Scll.Show 1
Case 6
   '物料库存信息查询
   Load Frm_Kcgl_Kcxx_cx
   Frm_Kcgl_Kcxx_cx.Show 1
Case 7
  End
End Select

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If TreeView1.SelectedItem.key = "产品基础信息" And menu1(0).Enabled = True Then
      '产品基础信息
  Load Frm_Jcxx_Cpxx
  Frm_Jcxx_Cpxx.Show 1
  ElseIf TreeView1.SelectedItem.key = "产品基础信息" And menu1(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "物料基本信息" And menu1(1).Enabled = True Then
      '物料基础信息
  Load Frm_Jcxx_Wlxx
  Frm_Jcxx_Wlxx.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料基本信息" And menu1(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "设备状态设置" And menu1(3).Enabled = True Then
       '设备状态设置
  Load Frm_Jcxx_Sbzt
  Frm_Jcxx_Sbzt.Show 1
  ElseIf TreeView1.SelectedItem.key = "设备状态设置" And menu1(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "设备类型设置" And menu1(4).Enabled = True Then
       '设备类型设置
  Load Frm_Jcxx_Sblx
  Frm_Jcxx_Sblx.Show 1
  ElseIf TreeView1.SelectedItem.key = "设备类型设置" And menu1(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
  End If
  If TreeView1.SelectedItem.key = "设备摊销时间设置" And menu1(5).Enabled = True Then
     '设备摊销时间设置
  Load Frm_Jcxx_Sbtx
  Frm_Jcxx_Sbtx.Show 1
  ElseIf TreeView1.SelectedItem.key = "设备摊销时间设置" And menu1(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "车间部门设置" And menu1(7).Enabled = True Then
     '车间部门设置
  Load Frm_Jcxx_Cjsz
  Frm_Jcxx_Cjsz.Show 1
  ElseIf TreeView1.SelectedItem.key = "车间部门设置" And menu1(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "生产计划单管理" And menu2(0).Enabled = True Then
  ''生产订单管理
  Load Frm_Jhgl_Scjhd
  Frm_Jhgl_Scjhd.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产计划单管理" And menu2(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
   If TreeView1.SelectedItem.key = "生产计划单查询" And menu2(1).Enabled = True Then
     '生产计划单查询
  Load Frm_Jhgl_Scjhd_cx
  Frm_Jhgl_Scjhd_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产计划单查询" And menu2(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "物料需求计划" And menu2(3).Enabled = True Then
     '物料需求计划
  Load Frm_Jhgl_Wlxq
  Frm_Jhgl_Wlxq.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料需求计划" And menu2(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "物料需求查询" And menu2(4).Enabled = True Then
      '物料需求查询
  Load Frm_Jhgl_Wlxq_cx
  Frm_Jhgl_Wlxq_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料需求查询" And menu2(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备档案" And menu3(0).Enabled = True Then
    '生产设备档案
   Load Frm_Sbgl_Sbda
   Frm_Sbgl_Sbda.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备档案" And menu3(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备查询" And menu3(1).Enabled = True Then
     '生产设备查询
   Load Frm_Sbgl_Scsb_cx
   Frm_Sbgl_Scsb_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备查询" And menu3(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备报废" And menu3(3).Enabled = True Then
       '生产设备报废
  Load Frm_Sbgl_Sbbf
  Frm_Sbgl_Sbbf.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备报废" And menu3(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备报废查询" And menu3(4).Enabled = True Then
        '生产设备报废查询
  Load Frm_Sbgl_Sbbf_cx
  Frm_Sbgl_Sbbf_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备报废查询" And menu3(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备维修" And menu3(6).Enabled = True Then
       '生产设备维修
   Load Frm_Sbgl_Sbwx
   Frm_Sbgl_Sbwx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备维修" And menu3(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产设备维修查询" And menu3(7).Enabled = True Then
       '生产设备维修查询
  Load Frm_Sbgl_Sbwx_cx
  Frm_Sbgl_Sbwx_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产设备维修查询" And menu3(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "产品完工入库" And menu4(0).Enabled = True Then
       '产品完工入库
  Load Frm_Kcgl_Cprk
  Frm_Kcgl_Cprk.Show 1
  ElseIf TreeView1.SelectedItem.key = "产品完工入库" And menu4(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "产品入库查询" And menu4(1).Enabled = True Then
     '产品入库查询
  Load Frm_Kcgl_Cprk_cx
  Frm_Kcgl_Cprk_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "产品入库查询" And menu4(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "物料入库" And menu4(3).Enabled = True Then
       '物料入库
  Load Frm_Kcgl_Wlrk
  Frm_Kcgl_Wlrk.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料入库" And menu4(3).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "物料入库查询" And menu4(4).Enabled = True Then
      '物料入库查询
  Load Frm_Kcgl_Wlrk_cx
  Frm_Kcgl_Wlrk_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料入库查询" And menu4(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产领料" And menu4(6).Enabled = True Then
         '生产领料
   Load Frm_Kcgl_Scll
   Frm_Kcgl_Scll.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产领料" And menu4(6).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "生产领料查询" And menu4(7).Enabled = True Then
        '生产领料查询
   Load Frm_Kcgl_Scll_cx
   Frm_Kcgl_Scll_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "生产领料查询" And menu4(7).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "物料库存信息查询" And menu4(9).Enabled = True Then
        '物料库存信息查询
   Load Frm_Kcgl_Kcxx_cx
   Frm_Kcgl_Kcxx_cx.Show 1
  ElseIf TreeView1.SelectedItem.key = "物料库存信息查询" And menu4(9).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "工作备忘" And menu5(5).Enabled = True Then
       '工作备忘
  Load Frm_Fzgj_Gzbw
  Frm_Fzgj_Gzbw.Show 1
  ElseIf TreeView1.SelectedItem.key = "工作备忘" And menu5(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "操作员设置" And menu6(0).Enabled = True Then
         '操作员设置
  Load Frm_Xtgl_Czy
  Frm_Xtgl_Czy.Show 1
  ElseIf TreeView1.SelectedItem.key = "操作员设置" And menu6(0).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "密码修改" And menu6(1).Enabled = True Then
        '密码修改
  Load Frm_Xtgl_Mmxg
  Frm_Xtgl_Mmxg.Show 1
  ElseIf TreeView1.SelectedItem.key = "密码修改" And menu6(1).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "操作权限设置" And menu6(2).Enabled = True Then
       '操作权限设置
   Load Frm_Xtgl_Czqy
   Frm_Xtgl_Czqy.Show 1
  ElseIf TreeView1.SelectedItem.key = "操作权限设置" And menu6(2).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据清理" And menu6(4).Enabled = True Then
         '数据清理
   Load Frm_Qr
   Frm_Qr.Show 1
  ElseIf TreeView1.SelectedItem.key = "数据清理" And menu6(4).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据备份与恢复" And menu6(5).Enabled = True Then
         '数据备份与恢复
    Shell App.Path & "\数据库备份与恢复.exe", vbNormalFocus
  End
  ElseIf TreeView1.SelectedItem.key = "数据备份与恢复" And menu6(5).Enabled = False Then
     MsgBox "您没有操作此项功能的权限", , "信息提示"
     Exit Sub
  End If
  If TreeView1.SelectedItem.key = "调用Word" Then
        ShellExecute Me.hwnd, "open", "winword.exe", "", 1, 5
  End If
  If TreeView1.SelectedItem.key = "调用Excel" Then
      ShellExecute Me.hwnd, "open", "excel.exe", "", 1, 5
  End If
  If TreeView1.SelectedItem.key = "调用计算器" Then
       ShellExecute Me.hwnd, "open", "CALC.EXE", "", 1, 5
  End If
   If TreeView1.SelectedItem.key = "登录Internet" Then
       ShellExecute Me.hwnd, "open", "http://www.mingrisoft.com", 1, 1, 5
  End If
   If TreeView1.SelectedItem.key = "本单位信息" Then
      Load Frm_Bzxx_Bdwxx
      Frm_Bzxx_Bdwxx.Show 1
  End If
   If TreeView1.SelectedItem.key = "关于" Then
      Load Frm_Bzxx_Gy
      Frm_Bzxx_Gy.Show 1
  End If
''''''   If TreeView1.SelectedItem.key = "帮助" Then
''''''      Load Frm_Bzxx_Gy
''''''      Frm_Bzxx_Gy.Show 1
''''''  End If
End Sub