frm_main.frm

这是个库存管理系统

             Close #1
             MsgBox "日志清理成功完成!!", , "提示信息"
    Else
    End If
End Sub

Private Sub SJBF_Click()
   frm_backup.Caption = "数据备份"
   frm_backup.Frame1.Visible = True
   frm_backup.Frame2.Visible = False
   frm_backup.Show                            '显示数据备份窗体
End Sub

Private Sub SJHF_Click()
    frm_backup.Caption = "数据恢复"
    frm_backup.Frame1.Visible = False
    frm_backup.Frame2.Visible = True
    frm_backup.Show                            '显示数据备份窗体
End Sub

Private Sub SJQL_Click()                      '进行数据清理操作
    frm_sfyz.Show
    Me.Enabled = False
End Sub

Private Sub TCXT_Click()                      '退出系统操作
    '添加退出系统日志
    Dim c
    c = MsgBox("您确认要退出库存管理系统吗?", 33, "提示信息")
       If c = vbOK Then
            Open (App.Path & "\系统日志.ini") For Input As #1
        Do While Not EOF(1)
             Line Input #1, Intext
             TStr = TStr + Intext + Chr(13) + Chr(10)
        Loop
        Close #1
        TStr = TStr + "   " + Name1 + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "            " + "退出系统" + Chr(13) + Chr(10)
        Open (App.Path & "\系统日志.ini") For Output As #1
        Print #1, TStr
        Close #1
           End
       Else
       rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)      '运用API函数SetWindowPos，来实现取消窗体置前的功能
       End If
End Sub
'在窗体的状态栏中显示当前系统的日期时间
Private Sub Timer1_Timer()
   StatusBar1.Panels(4).Text = Format(Now, " hh点mm分ss秒")
End Sub

Private Sub Timer2_Timer()
    Me.WindowState = 2
    Me.WindowState = 0
    Timer2.Enabled = False
End Sub
'*** 单击工具栏中的按钮，调用相应的窗体，完成相应的操作 ***
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
   Select Case Button.Index
      Case 1
         frm_in.Show
      Case 3
         frm_out.Show
      Case 6
         frm_KCQuery.Show
      Case 8
         frm_Stat.Show
      Case 10
         frm_backup.Caption = "数据备份"
         frm_backup.Frame1.Visible = True
         frm_backup.Frame2.Visible = False
         frm_backup.Show                            '显示数据备份窗体
      Case 12
         frm_backup.Caption = "数据恢复"
         frm_backup.Frame1.Visible = False
         frm_backup.Frame2.Visible = True
         frm_backup.Show                            '显示数据备份窗体
      Case 15
    Dim c
    c = MsgBox("您确认要退出库存管理系统吗?", 33, "提示信息")
       If c = vbOK Then
            Open (App.Path & "\系统日志.ini") For Input As #1
        Do While Not EOF(1)
             Line Input #1, Intext
             TStr = TStr + Intext + Chr(13) + Chr(10)
        Loop
        Close #1
        TStr = TStr + "   " + Name1 + "               " + Format(Now, "yyyy-mm-dd hh:mm:ss") + "            " + "退出系统" + Chr(13) + Chr(10)
        Open (App.Path & "\系统日志.ini") For Output As #1
        Print #1, TStr
        Close #1
           End
       Else
           rtn = SetWindowPos(Me.hwnd, -2, 0, 0, 0, 0, 3)      '运用API函数SetWindowPos，来实现取消窗体置前的功能
       End If
   End Select
'   Me.Enabled = False                          '在单击工具栏中的按钮之后，使的窗体不可用
End Sub
'*** 单击TreeView控件中的节点，在ListView控件中显示TreeView节点中相对应的项，并且调用相应的窗体并且判断操作员是否具有相应的权限 ***
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  If TreeView1.SelectedItem.key = "期初设置" Then
       ListView1.ListItems.Clear
       Set itmX = ListView1.ListItems.Add(, , "供应商信息", 13)
       Set itmX = ListView1.ListItems.Add(, , "仓库设置", 14)
       Set itmX = ListView1.ListItems.Add(, , "期初库存设置", 15)
       Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品管理" Then
       ListView1.ListItems.Clear
       Set itmX = ListView1.ListItems.Add(, , "货品入库", 3)
       Set itmX = ListView1.ListItems.Add(, , "货品出库", 3)
       Set itmX = ListView1.ListItems.Add(, , "货品借出", 4)
       Set itmX = ListView1.ListItems.Add(, , "货品归还", 4)
       Set itmX = ListView1.ListItems.Add(, , "货品盘点", 5)
       Exit Sub
  End If
  If TreeView1.SelectedItem.key = "查询统计" Then
       ListView1.ListItems.Clear
       Set itmX = ListView1.ListItems.Add(, , "入库查询", 6)
       Set itmX = ListView1.ListItems.Add(, , "出库查询", 6)
       Set itmX = ListView1.ListItems.Add(, , "库存查询", 6)
       Set itmX = ListView1.ListItems.Add(, , "借出查询", 6)
       Set itmX = ListView1.ListItems.Add(, , "归还查询", 6)
       Set itmX = ListView1.ListItems.Add(, , "日统计", 6)
       Set itmX = ListView1.ListItems.Add(, , "出入库年统计", 6)
       Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据报表" Then
       ListView1.ListItems.Clear
       Set itmX = ListView1.ListItems.Add(, , "出库报表", 11)
       Set itmX = ListView1.ListItems.Add(, , "库存报表", 11)
       Exit Sub
  End If
  If TreeView1.SelectedItem.key = "系统维护" Then
       ListView1.ListItems.Clear
       Set itmX = ListView1.ListItems.Add(, , "数据备份", 8)
       Set itmX = ListView1.ListItems.Add(, , "数据恢复", 9)
       Set itmX = ListView1.ListItems.Add(, , "操作员管理", 7)
       Set itmX = ListView1.ListItems.Add(, , "密码修改", 4)
       Set itmX = ListView1.ListItems.Add(, , "权限设置", 12)
       Set itmX = ListView1.ListItems.Add(, , "查看日志", 11)
       Set itmX = ListView1.ListItems.Add(, , "数据清理", 10)
       Exit Sub
  End If
  '单击节点调用相应的窗体并且判断操作员是否具有相应的权限
  If TreeView1.SelectedItem.key = "仓库设置" And CKSZ.Enabled = True Then
    frm_cksz.Show
  ElseIf TreeView1.SelectedItem.key = "仓库设置" And CKSZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "期初库存设置" And QCKCSZ.Enabled = True Then
     frm_qckc.Show
  ElseIf TreeView1.SelectedItem.key = "期初库存设置" And QCKCSZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品入库" And HPRKGL.Enabled = True Then
     frm_in.Show
  ElseIf TreeView1.SelectedItem.key = "货品入库" And HPRKGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品出库" And HPCKGL.Enabled = True Then
      frm_out.Show
      StrNums = 0   '出库标识，用于标识调用库存检索窗体
  ElseIf TreeView1.SelectedItem.key = "货品出库" And HPCKGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品借出" And HPJC.Enabled = True Then
      StrNums = 2   '货品借出标识，用于标识调用库存检索窗体
      frm_hpout.Show
  ElseIf TreeView1.SelectedItem.key = "货品借出" And HPJC.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品归还" And HPGH.Enabled = True Then
      frm_hpin.Show
  ElseIf TreeView1.SelectedItem.key = "货品归还" And HPGH.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品盘点" And HPPDGL.Enabled = True Then
      frm_kcpd.Show
      StrNums = 1   '出库标识，用于标识调用库存检索窗体
  ElseIf TreeView1.SelectedItem.key = "货品盘点" And HPPDGL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "库存查询" And KCXXCX.Enabled = True Then
     frm_KCQuery.Show
  ElseIf TreeView1.SelectedItem.key = "库存查询" And KCXXCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "入库查询" And RKXXCX.Enabled = True Then
     frm_InQuery.Show
  ElseIf TreeView1.SelectedItem.key = "入库查询" And RKXXCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "出库查询" And CKXXCX.Enabled = True Then
    frm_OutQuery.Show
  ElseIf TreeView1.SelectedItem.key = "出库查询" And CKXXCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品借出查询" And HPJCCX.Enabled = True Then
       frm_HpjcQuery.Show
  ElseIf TreeView1.SelectedItem.key = "货品借出查询" And HPJCCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "货品归还查询" And HPGHCX.Enabled = True Then
       frm_HpghQuery.Show
  ElseIf TreeView1.SelectedItem.key = "货品归还查询" And HPGHCX.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "出入库日统计" And CRKXXRTJ.Enabled = True Then
       frm_Stat.Show
  ElseIf TreeView1.SelectedItem.key = "出入库日统计" And CRKXXRTJ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "出入库年统计" And CRKNTJ.Enabled = True Then
       frm_YStats.Show
  ElseIf TreeView1.SelectedItem.key = "出入库年统计" And CRKNTJ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "出库报表" And PRINTOUT.Enabled = True Then
       Data_out.Show
  ElseIf TreeView1.SelectedItem.key = "出库报表" And PRINTOUT.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "库存报表" And PRINTKC.Enabled = True Then
       Data_kc.Show
  ElseIf TreeView1.SelectedItem.key = "库存报表" And PRINTKC.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据备份" And SJBF.Enabled = True Then
     frm_backup.Caption = "数据备份"
     frm_backup.Frame1.Visible = True
     frm_backup.Frame2.Visible = False
     frm_backup.Show                            '显示数据备份窗体
  ElseIf TreeView1.SelectedItem.key = "数据备份" And SJBF.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据恢复" And SJHF.Enabled = True Then
      frm_backup.Caption = "数据恢复"
      frm_backup.Frame1.Visible = False
      frm_backup.Frame2.Visible = True
      frm_backup.Show                            '显示数据备份窗体
  ElseIf TreeView1.SelectedItem.key = "数据恢复" And SJHF.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "设置权限" And CZYQXSZ.Enabled = True Then
       frm_setoperator.Show
  ElseIf TreeView1.SelectedItem.key = "设置权限" And CZYQXSZ.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "日志清理" And RZQL.Enabled = True Then
     Dim del
     Dim temp1 As String
     On Error Resume Next  '错误处理语句
     del = MsgBox("确认要清除库存管理系统的日志信息吗?", 17, "提示信息")
         If del = vbOK Then
              Kill (App.Path & "\系统日志.ini")
                  Open (App.Path & "\系统日志.ini") For Output As #1
                       temp1 = "  操作员姓名             日期时间                      操作类型"
                  Print #1, temp1
                  Print #1,
                  Close #1
                  MsgBox "日志清理成功完成!!", , "提示信息"
         Else
         End If
  ElseIf TreeView1.SelectedItem.key = "日志清理" And RZQL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
    If TreeView1.SelectedItem.key = "查看日志" Then
         frm_look.Show
    End If
  If TreeView1.SelectedItem.key = "密码修改" And MMXG.Enabled = True Then
      frm_Edit_Password.Show
  ElseIf TreeView1.SelectedItem.key = "密码修改" And MMXG.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "数据清理" And SJQL.Enabled = True Then
    frm_sfyz.Show
  ElseIf TreeView1.SelectedItem.key = "数据清理" And SJQL.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  If TreeView1.SelectedItem.key = "操作员管理" And CZYXXWH.Enabled = True Then
     frm_systemer.Show
  ElseIf TreeView1.SelectedItem.key = "操作员管理" And CZYXXWH.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
    If TreeView1.SelectedItem.key = "供应商信息" And GYSXXWH.Enabled = True Then
     frm_gys.Show
  ElseIf TreeView1.SelectedItem.key = "供应商信息" And GYSXXWH.Enabled = False Then
    MsgBox "对不起,您没有操作此项功能的权限,请您与系统管理员联系!", 48, "提示信息"
    Exit Sub
  End If
  Me.Enabled = False                                      '在单击TreeView控件的节点之后，使得窗体不可用
End Sub
Private Sub Form_Resize()
    LeftSide_Resize
    RightSide_Resize
End Sub

Private Sub LeftSide_Resize()     '向左拖拽函数

   Dim y32&
   
   On Error Resume Next
   
   y32 = 60 + Toolbar1.Height
   
   With TreeView1
       .Left = 100
   End With
   
   With Picture1
        .Width = 30
   End With
   
   With ListView1
       .Width = TreeView1.Width + 10
       .Left = 25
   End With

End Sub

Private Sub RightSide_Resize()    '向右拖拽函数

On Error Resume Next

With ListView1
    .Left = TreeView1.Width + 100
    .Width = Me.ScaleWidth - .Left - 10
End With

With Picture1
    .Height = Me.ScaleHeight - StatusBar1.Height - .Top - 430
    .Left = TreeView1.Left + TreeView1.Width
End With

End Sub