frm_main.frm

完整的物资管理系统源码

   Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C5", "审核入库", 2)
   Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C6", "进货查询", 2)
   Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C7", "送检查询", 2)
   Set nodX = TreeView1.Nodes.Add("X1", tvwChild, "C8", "检验结果查询", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X2", "物资退货管理", 1)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C9", "不合格物资退货", 2)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C10", "合格物资退货", 2)
   Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C11", "退货查询", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X3", "库存管理", 1)
   Set nodX = TreeView1.Nodes.Add("X3", tvwChild, "C12", "仓库管理", 2)
   Set nodX = TreeView1.Nodes.Add("X3", tvwChild, "C13", "物资资料管理", 2)
   Set nodX = TreeView1.Nodes.Add("X3", tvwChild, "C14", "库存查询", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X4", "统计报表", 1)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C15", "物资进货检验统计报表", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C16", "物资盘点报表", 2)
   Set nodX = TreeView1.Nodes.Add("X4", tvwChild, "C17", "不合格商品报表", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X5", "基本资料管理", 1)
   Set nodX = TreeView1.Nodes.Add("X5", tvwChild, "C18", "商品类别管理", 2)
   Set nodX = TreeView1.Nodes.Add("X5", tvwChild, "C19", "经手人管理", 2)
   Set nodX = TreeView1.Nodes.Add("X5", tvwChild, "C20", "本单位信息", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X6", "系统管理", 1)
   Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C21", "用户管理", 2)
   Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C22", "密码修改", 2)
   Set nodX = TreeView1.Nodes.Add("X6", tvwChild, "C23", "数据初始化", 2)
   Set nodX = TreeView1.Nodes.Add(, , "X7", "帮助", 1)
   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C24", "帮助", 2)
   Set nodX = TreeView1.Nodes.Add("X7", tvwChild, "C25", "关于", 2)
   nodX.EnsureVisible
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   '在面板 2 和 3 中显示 x、y
   StatusBar1.Panels(2).text = "X = " & X
   StatusBar1.Panels(3).text = "Y = " & Y
End Sub

Private Sub Image1_Click()
  Image1.Height = 200
End Sub
Private Sub Label2_Click(Index As Integer)
  Select Case Index
    Case 0
      m7_Click (0)
    Case 1
      m7_Click (1)
    Case 2
      Dim Temp As String
      Temp = "www.cccxy.com"                                         '所要连接的网站名称
      ShellExecute 0&, vbNullString, Temp, vbNullString, vbNullString, 0  '调用IE
    Case 3
      End
  End Select
End Sub

Private Sub m1_Click(Index As Integer)
  text = m1(Index).Caption
  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_jhgl_gys
      main_jhgl_gys.Show 1
    Case 1
      Load main_jhgl_jh
      main_jhgl_jh.Show 1
    Case 2
      Load main_jhgl_sj
      main_jhgl_sj.Show 1
    Case 3
      Load main_jhgl_jyjg
      main_jhgl_jyjg.Show 1
    Case 4
      Load main_jhgl_shrk
      main_jhgl_shrk.Show 1
    Case 5
      Load main_jhgl_jhcx
      main_jhgl_jhcx.Show 1

    Case 6
      Load main_jhgl_sjcx
      main_jhgl_sjcx.Show 1
    Case 7
      Load main_jhgl_jycx
      main_jhgl_jycx.Show 1
  End Select

End Sub

Private Sub m2_Click(Index As Integer)
  text = m2(Index).Caption
  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + 8) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_thgl_bhgth
      main_thgl_bhgth.Show 1
    Case 1
      Load main_thgl_hgth
      main_thgl_hgth.Show 1
    Case 2
      Load main_thgl_thcx
      main_thgl_thcx.Show 1
  End Select
End Sub

Private Sub m3_Click(Index As Integer)
  text = m3(Index).Caption

  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + 11) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_kcgl_kw
      main_kcgl_kw.Show 1
    Case 1
      Load main_kcgl_sp
      main_kcgl_sp.Show 1
    Case 2
      Load main_kcgl_kccx
      main_kcgl_kccx.Show 1
  End Select
End Sub

Private Sub m4_Click(Index As Integer)
  text = m4(Index).Caption
  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + 14) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      intTag = 1
      Load main_bb_datawindow
      main_bb_datawindow.Show 1
    Case 1
      Load main_kcgl_kcpd
      main_kcgl_kcpd.Show 1
    Case 2
      intTag = 2
      Load main_bb_datawindow
      main_bb_datawindow.Show 1
  End Select
End Sub
Private Sub m5_Click(Index As Integer)
  text = m5(Index).Caption
  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + 17) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_jbzl_splb
      main_jbzl_splb.Show 1
    Case 1
      Load main_jbzl_jsr
      main_jbzl_jsr.Show 1
    Case 2
      Load main_jbzl_myunits
      main_jbzl_myunits.Show 1
  End Select
End Sub
Private Sub m6_Click(Index As Integer)
  text = m6(Index).Caption
  rs1.Open "select * from tb_power where 操作员='" & czy & "'", cnn, adOpenStatic
  If rs1.RecordCount > 0 Then
     If rs1.Fields(Index + 20) = False Then
        MsgBox "对不起，您没有使用此项功能的权限！", vbInformation, "提示窗口"
        rs1.Close
        Exit Sub
     End If
  End If
  rs1.Close
  Select Case Index
    Case 0
      Load main_xtgl_czqx
      main_xtgl_czqx.Show 1
    Case 1
      Load main_xtgl_mm
      main_xtgl_mm.Show 1
    Case 2
      Load frm_deldata
      frm_deldata.Show 1
  End Select
End Sub
Private Sub m7_Click(Index As Integer)
  Select Case Index
    Case 0
     Load frmTip
     frmTip.Show 1
    Case 1
     Load frmAbout
     frmAbout.Show 1
  End Select
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  For i = 0 To 7
  If TreeView1.SelectedItem.Key = "C" & i + 1 Then
     '
     m1_Click (i)
  End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 9 Then
     '
     m2_Click (i)
  End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 12 Then
     '
     m3_Click (i)
  End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 15 Then
     '
     m4_Click (i)
  End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 18 Then
     '
     m5_Click (i)
  End If
  Next i
  For i = 0 To 2
  If TreeView1.SelectedItem.Key = "C" & i + 21 Then
     m6_Click (i)
  End If
  Next i
  For i = 0 To 1
  If TreeView1.SelectedItem.Key = "C" & i + 24 Then
     m7_Click (i)
  End If
  Next i
End Sub