frm_main.frm

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

      End
      Begin VB.Menu menu6 
         Caption         =   "设置主窗口图片"
         Index           =   7
      End
   End
   Begin VB.Menu Bzxx 
      Caption         =   "帮助信息"
      Begin VB.Menu menu7 
         Caption         =   "本单位信息"
         Index           =   0
      End
      Begin VB.Menu menu7 
         Caption         =   "关于"
         Index           =   1
      End
      Begin VB.Menu menu7 
         Caption         =   "-"
         Index           =   2
      End
      Begin VB.Menu menu7 
         Caption         =   "帮助"
         Index           =   3
      End
   End
   Begin VB.Menu Exit 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "Frm_Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'声明API函数
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim rs3 As New ADODB.Recordset

Private Sub Exit_Click()
End
End Sub

Private Sub Form_Load()
rs1.Open "select * from tb_SCGL_gzbw where gzbw_txrq='" + str(Date) + "'", cnn, adOpenKeyset
If rs1.RecordCount > 0 Then
  If MsgBox("今日重要工作：" & Trim(rs1.Fields("gzbw_bt")) & ",是否查看详细信息？", 4, "信息提示") = vbYes Then
     '显示工作备忘窗体
     sql = "select * from tb_SCGL_gzbw where gzbw_txrq='" + str(Date) + "'"
     Load Frm_Fzgj_Gzbw
     Frm_Fzgj_Gzbw.Show 1
     
  End If
End If
rs1.Close
TreeView1.LabelEdit = tvwManual
Call Tree_change

'设置主窗口图片
On Error GoTo LoadErr    '转出错处理
  Open (App.Path & "\picture.txt") For Input As #1
    Line Input #1, intext
        temp = intext
  Close #1
 Image1.Picture = LoadPicture(intext)

 b = App.Path & "\image\生产管理系统主界面.jpg"
 Exit Sub
LoadErr:   '如果所设置的主窗体图片找不到，则赋给它一个固定路径的图片
   Image1.Picture = LoadPicture(App.Path & "\image\生产管理系统主界面.jpg")
 
'根据用户权限设置控件使用状态
rs3.Open "select * from tb_user where user_name='" + Frm_mm.Lbl_Name.Caption + "'", cnn, adOpenKeyset
If rs3.RecordCount > 0 Then
  If rs3.Fields("产品基础信息") = 1 Then
     menu1(0).Enabled = True
     Toolbar1.Buttons(1).Enabled = True
  ElseIf rs3.Fields("产品基础信息") = 0 Then
     menu1(0).Enabled = False
     Toolbar1.Buttons(1).Enabled = False
  End If
  If rs3.Fields("物料基本信息") = 1 Then
     menu1(1).Enabled = True
     Toolbar1.Buttons(2).Enabled = True
  ElseIf rs3.Fields("物料基本信息") = 0 Then
     menu1(1).Enabled = False
     Toolbar1.Buttons(2).Enabled = False
  End If
  If rs3.Fields("设备状态设置") = 1 Then
     menu1(3).Enabled = True
  ElseIf rs3.Fields("设备状态设置") = 0 Then
     menu1(3).Enabled = False
  End If
  If rs3.Fields("设备类型设置") = 1 Then
     menu1(4).Enabled = True
  ElseIf rs3.Fields("设备类型设置") = 0 Then
     menu1(4).Enabled = False
  End If
  If rs3.Fields("设备摊销时间设置") = 1 Then
     menu1(5).Enabled = True
  ElseIf rs3.Fields("设备摊销时间设置") = 0 Then
     menu1(5).Enabled = False
  End If
   If rs3.Fields("车间部门设置") = 1 Then
     menu1(7).Enabled = True
  ElseIf rs3.Fields("车间部门设置") = 0 Then
     menu1(7).Enabled = False
  End If
  If rs3.Fields("生产计划单管理") = 1 Then
     menu2(0).Enabled = True
  ElseIf rs3.Fields("生产计划单管理") = 0 Then
     menu2(0).Enabled = False
  End If
  If rs3.Fields("生产计划单查询") = 1 Then
     menu2(1).Enabled = True
  ElseIf rs3.Fields("生产计划单查询") = 0 Then
     menu2(1).Enabled = False
  End If
  If rs3.Fields("物料需求计划") = 1 Then
     menu2(3).Enabled = True
  ElseIf rs3.Fields("物料需求计划") = 0 Then
     menu2(3).Enabled = False
  End If
  If rs3.Fields("物料需求查询") = 1 Then
     menu2(4).Enabled = True
  ElseIf rs3.Fields("物料需求查询") = 0 Then
     menu2(4).Enabled = False
  End If
  If rs3.Fields("生产设备档案") = 1 Then
     menu3(0).Enabled = True
  ElseIf rs3.Fields("生产设备档案") = 0 Then
     menu3(0).Enabled = False
  End If
  If rs3.Fields("生产设备查询") = 1 Then
     menu3(1).Enabled = True
  ElseIf rs3.Fields("生产设备查询") = 0 Then
     menu3(1).Enabled = False
  End If
  If rs3.Fields("生产设备报废") = 1 Then
     menu3(3).Enabled = True
  ElseIf rs3.Fields("生产设备报废") = 0 Then
     menu3(3).Enabled = False
  End If
  If rs3.Fields("生产设备报废查询") = 1 Then
     menu3(4).Enabled = True
  ElseIf rs3.Fields("生产设备报废查询") = 0 Then
     menu3(4).Enabled = False
  End If
  If rs3.Fields("生产设备维修") = 1 Then
     menu3(6).Enabled = True
  ElseIf rs3.Fields("生产设备维修") = 0 Then
     menu3(6).Enabled = False
  End If
   If rs3.Fields("生产设备维修查询") = 1 Then
     menu3(7).Enabled = True
  ElseIf rs3.Fields("生产设备维修查询") = 0 Then
     menu3(7).Enabled = False
  End If
   If rs3.Fields("产品完工入库") = 1 Then
     menu4(0).Enabled = True
  ElseIf rs3.Fields("产品完工入库") = 0 Then
     menu4(0).Enabled = False
  End If
   If rs3.Fields("产品入库查询") = 1 Then
     menu4(1).Enabled = True
     Toolbar1.Buttons(3).Enabled = True
  ElseIf rs3.Fields("产品入库查询") = 0 Then
     menu4(1).Enabled = False
     Toolbar1.Buttons(3).Enabled = False
  End If
   If rs3.Fields("物料入库") = 1 Then
     menu4(3).Enabled = True
     Toolbar1.Buttons(4).Enabled = True
  ElseIf rs3.Fields("物料入库") = 0 Then
     menu4(3).Enabled = False
     Toolbar1.Buttons(4).Enabled = False
  End If
   If rs3.Fields("物料入库查询") = 1 Then
     menu4(4).Enabled = True
  ElseIf rs3.Fields("物料入库查询") = 0 Then
     menu4(4).Enabled = False
  End If
   If rs3.Fields("生产领料") = 1 Then
     menu4(6).Enabled = True
     Toolbar1.Buttons(5).Enabled = True
  ElseIf rs3.Fields("生产领料") = 0 Then
     menu4(6).Enabled = False
     Toolbar1.Buttons(5).Enabled = False
  End If
  If rs3.Fields("生产领料查询") = 1 Then
     menu4(7).Enabled = True
  ElseIf rs3.Fields("生产领料查询") = 0 Then
     menu4(7).Enabled = False
  End If
  If rs3.Fields("物料库存信息查询") = 1 Then
     menu4(9).Enabled = True
     Toolbar1.Buttons(6).Enabled = True
  ElseIf rs3.Fields("物料库存信息查询") = 0 Then
     menu4(9).Enabled = False
     Toolbar1.Buttons(6).Enabled = False
  End If
  If rs3.Fields("工作备忘") = 1 Then
     menu5(5).Enabled = True
  ElseIf rs3.Fields("工作备忘") = 0 Then
     menu5(5).Enabled = False
  End If
  If rs3.Fields("操作员设置") = 1 Then
     menu6(0).Enabled = True
  ElseIf rs3.Fields("操作员设置") = 0 Then
     menu6(0).Enabled = False
  End If
  If rs3.Fields("密码修改") = 1 Then
     menu6(1).Enabled = True
  ElseIf rs3.Fields("密码修改") = 0 Then
     menu6(1).Enabled = False
  End If
  If rs3.Fields("权限设置") = 1 Then
     menu6(2).Enabled = True
  ElseIf rs3.Fields("权限设置") = 0 Then
     menu6(2).Enabled = False
  End If
  If rs3.Fields("系统数据清理") = 1 Then
     menu6(4).Enabled = True
  ElseIf rs3.Fields("系统数据清理") = 0 Then
     menu6(4).Enabled = False
  End If
  If rs3.Fields("数据库备份与恢复") = 1 Then
     menu6(5).Enabled = True
  ElseIf rs3.Fields("数据库备份与恢复") = 0 Then
     menu6(5).Enabled = False
  End If
End If
rs3.Close
 

End Sub





Private Sub menu1_Click(Index As Integer)
'基础信息管理
Select Case Index
Case 0
  '产品基础信息
  Load Frm_Jcxx_Cpxx
  Frm_Jcxx_Cpxx.Show 1
Case 1
  '物料基础信息
  Load Frm_Jcxx_Wlxx
  Frm_Jcxx_Wlxx.Show 1
Case 3
 '设备状态设置
  Load Frm_Jcxx_Sbzt
  Frm_Jcxx_Sbzt.Show 1
Case 4
  '设备类型设置
  Load Frm_Jcxx_Sblx
  Frm_Jcxx_Sblx.Show 1
Case 5
 '设备摊销时间设置
  Load Frm_Jcxx_Sbtx
  Frm_Jcxx_Sbtx.Show 1
Case 7
  '车间部门设置
  Load Frm_Jcxx_Cjsz
  Frm_Jcxx_Cjsz.Show 1
End Select
End Sub

Private Sub menu2_Click(Index As Integer)
'计划信息管理
Select Case Index
Case 0
  ''生产订单管理
  Load Frm_Jhgl_Scjhd
  Frm_Jhgl_Scjhd.Show 1
Case 1
  '生产计划单查询
  Load Frm_Jhgl_Scjhd_cx
  Frm_Jhgl_Scjhd_cx.Show 1
Case 3
 '物料需求计划
  Load Frm_Jhgl_Wlxq
  Frm_Jhgl_Wlxq.Show 1
Case 4
  '物料需求查询
  Load Frm_Jhgl_Wlxq_cx
  Frm_Jhgl_Wlxq_cx.Show 1
End Select
End Sub

Private Sub menu3_Click(Index As Integer)
'生产设备管理
Select Case Index
Case 0
'生产设备档案
   Load Frm_Sbgl_Sbda
   Frm_Sbgl_Sbda.Show 1
Case 1
'生产设备查询
   Load Frm_Sbgl_Scsb_cx
   Frm_Sbgl_Scsb_cx.Show 1
Case 3
  '生产设备报废
  Load Frm_Sbgl_Sbbf
  Frm_Sbgl_Sbbf.Show 1
Case 4
 '生产设备报废查询
  Load Frm_Sbgl_Sbbf_cx
  Frm_Sbgl_Sbbf_cx.Show 1
Case 6
 '生产设备维修
   Load Frm_Sbgl_Sbwx
   Frm_Sbgl_Sbwx.Show 1
Case 7
  '生产设备维修查询
  Load Frm_Sbgl_Sbwx_cx
  Frm_Sbgl_Sbwx_cx.Show 1
End Select
End Sub

Private Sub menu4_Click(Index As Integer)
'产品库存管理
Select Case Index
Case 0
  '产品完工入库
  Load Frm_Kcgl_Cprk
  Frm_Kcgl_Cprk.Show 1
Case 1
  '产品入库查询
  Load Frm_Kcgl_Cprk_cx
  Frm_Kcgl_Cprk_cx.Show 1
Case 3
  '物料入库
  Load Frm_Kcgl_Wlrk
  Frm_Kcgl_Wlrk.Show 1
Case 4
  '物料入库查询
  Load Frm_Kcgl_Wlrk_cx
  Frm_Kcgl_Wlrk_cx.Show 1
Case 6
  '生产领料
   Load Frm_Kcgl_Scll
   Frm_Kcgl_Scll.Show 1
Case 7
   '生产领料查询
   Load Frm_Kcgl_Scll_cx
   Frm_Kcgl_Scll_cx.Show 1
Case 9
   '物料库存信息查询
   Load Frm_Kcgl_Kcxx_cx
   Frm_Kcgl_Kcxx_cx.Show 1
End Select
End Sub

Private Sub menu5_Click(Index As Integer)
'辅助功能
Select Case Index
Case 0
  '调用Word
    ShellExecute Me.hwnd, "open", "winword.exe", "", 1, 5
Case 1
  '调用Excel
   ShellExecute Me.hwnd, "open", "excel.exe", "", 1, 5
Case 2
   '调用计算器
   ShellExecute Me.hwnd, "open", "CALC.EXE", "", 1, 5
Case 3
   '登录Internet
    ShellExecute Me.hwnd, "open", "http://www.mingrisoft.com", 1, 1, 5
Case 5
  '工作备忘
  Load Frm_Fzgj_Gzbw
  Frm_Fzgj_Gzbw.Show 1
End Select

End Sub

Private Sub menu6_Click(Index As Integer)
'系统维护
Select Case Index
Case 0