frm_main.frm

这是个库存管理系统

         SJBF.Enabled = False
         Toolbar1.Buttons(10).Enabled = False
      End If
      If Adodc1.Recordset.Fields("16") = 1 Then
         SJHF.Enabled = True
         Toolbar1.Buttons(12).Enabled = True
      ElseIf Adodc1.Recordset.Fields("16") = 0 Then
         SJHF.Enabled = False
         Toolbar1.Buttons(12).Enabled = False
      End If
      If Adodc1.Recordset.Fields("17") = 1 Then
         SJQL.Enabled = True
      ElseIf Adodc1.Recordset.Fields("17") = 0 Then
         SJQL.Enabled = False
      End If
      If Adodc1.Recordset.Fields("18") = 1 Then
         RZQL.Enabled = True
      ElseIf Adodc1.Recordset.Fields("18") = 0 Then
         RZQL.Enabled = False
      End If
      If Adodc1.Recordset.Fields("19") = 1 Then
         HPJC.Enabled = True
      ElseIf Adodc1.Recordset.Fields("19") = 0 Then
         HPJC.Enabled = False
      End If
      If Adodc1.Recordset.Fields("20") = 1 Then
         HPGH.Enabled = True
      ElseIf Adodc1.Recordset.Fields("20") = 0 Then
         HPGH.Enabled = False
      End If
      If Adodc1.Recordset.Fields("21") = 1 Then
         GYSXXWH.Enabled = True
      ElseIf Adodc1.Recordset.Fields("21") = 0 Then
         GYSXXWH.Enabled = False
      End If
End If
End Sub
Private Sub Form_Load()
Call WHScreen
'利用代码连接数据库
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_kcgl.mdb;Persist Security Info=False"
    TreeView1.LabelEdit = tvwManual
    Call Tree_change                         '调用过程，用于显示TreeView控件中的数据信息
    If TWidth > 800 Or THeigth > 600 Then
    Timer2.Enabled = True
    RemoveMenu GetSystemMenu(frm_main.hwnd, 0), SC_MAXIMIZE, MF_REMOVE        '最大化按钮不可用
    Me.Left = (Screen.Width - Me.Width) / 2
    Me.Top = (Screen.Height - Me.Height) / 2
    Picture1.Width = 30
    Else
       Me.WindowState = 2
    End If
           ListView1.ListItems.Clear         '刷新ListView控件
       '向ListView控件中添加元素
       Set itmX = ListView1.ListItems.Add(, , "供应商信息", 13)
       Set itmX = ListView1.ListItems.Add(, , "仓库设置", 14)
       Set itmX = ListView1.ListItems.Add(, , "期初库存设置", 15)
    StatusBar1.Panels(3).Text = Format(Date, " yyyy年mm月dd日")
    Flash1.Movie = App.Path & "\mr.swf"
    Flash2.Movie = App.Path & "\mrkj.swf"
    
End Sub
'*** 自定义一个过程，用于显示TreeView控件中的数据 ***
Public Sub Tree_change()
  Dim key, Text, BH, StrTemp As String
  Dim Nod As Node             '定义一个节点变量
  Adodc1.RecordSource = "select * from tb_zcd "
  Adodc1.Refresh
     If Adodc1.Recordset.RecordCount > 0 Then
        Adodc1.Recordset.MoveFirst
          Do While Adodc1.Recordset.EOF = False                 '循环读取第1层节点中的数据信息
            key = Trim(Adodc1.Recordset.Fields("主菜单名称"))
            Text = Adodc1.Recordset.Fields("主菜单名称")
            StrTemp = Adodc1.Recordset.Fields("主菜单名称")
            Set node1 = TreeView1.Nodes.Add(, tvwChild, key, Text, 0)   '给第1层节点赋与数值
                       Adodc2.RecordSource = "select * from tb_zcd_zcd where 主菜单名称='" + StrTemp + "' "
                       Adodc2.Refresh
                            If Adodc2.Recordset.RecordCount > 0 Then
                            Adodc2.Recordset.MoveFirst
                                Do While Adodc2.Recordset.EOF = False        '循环读取第2层节点中的数据信息
                                    key = Trim(Adodc2.Recordset.Fields("子菜单名称"))
                                    Text = Adodc2.Recordset.Fields("子菜单名称")
                                    Set Node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, Text, 0)   '给第2层节点赋与数值
                                    Adodc2.Recordset.MoveNext
                                Loop
                            Else
                            End If
            Adodc1.Recordset.MoveNext
          Loop
     Else
     End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
    On Error Resume Next
    '添加退出系统日志
     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
End Sub

Private Sub GYSXXWH_Click()
  frm_gys.Show                           '显示供应商信息窗体
  Me.Enabled = False
End Sub

Private Sub HPCKGL_Click()
   frm_out.Show                          '显示货品出库信息窗体
   StrNums = 0                           '出库标识，用于标识调用库存检索窗体
   Me.Enabled = False
End Sub

Private Sub HPGH_Click()
   frm_hpin.Show                         '显示货品归还窗体
   Me.Enabled = False
End Sub

Private Sub HPGHCX_Click()
   frm_HpghQuery.Show                    '显示货品归还查询窗体
   Me.Enabled = False
End Sub

Private Sub HPJC_Click()
   StrNums = 2   '货品借出标识，用于标识调用库存检索窗体
   frm_hpout.Show                         '显示货品借出窗体
   Me.Enabled = False
End Sub

Private Sub HPJCCX_Click()
  frm_HpjcQuery.Show                      '显示货品借出查询窗体
  Me.Enabled = False
End Sub

Private Sub HPPDGL_Click()
      frm_kcpd.Show                       '显示库存盘点信息窗体
      StrNums = 1   '出库标识，用于标识调用库存检索窗体
      Me.Enabled = False
End Sub

Private Sub HPRKGL_Click()
   frm_in.Show                            '显示货品入库信息窗体
   Me.Enabled = False
End Sub

Private Sub KCXXCX_Click()
  frm_KCQuery.Show                        '显示库存查询信息窗体
  Me.Enabled = False
End Sub
'*** 通过单击ListView控件中的元素来显示相对应的窗体，并且判断登录用户是否具有操作该项功能的权限 ***
Private Sub ListView1_ItemClick(ByVal Item As MSComctlLib.ListItem)
  If ListView1.SelectedItem.Text = "仓库设置" And CKSZ.Enabled = True Then
     frm_cksz.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "仓库设置" And CKSZ.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "期初库存设置" And QCKCSZ.Enabled = True Then
     frm_qckc.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "期初库存设置" And QCKCSZ.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "货品入库" And HPRKGL.Enabled = True Then
     frm_in.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "货品入库" And HPRKGL.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "货品出库" And HPCKGL.Enabled = True Then
      frm_out.Show
      StrNums = 0   '出库标识，用于标识调用库存检索窗体
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "货品出库" And HPCKGL.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "货品借出" And HPJC.Enabled = True Then
      StrNums = 2   '货品借出标识，用于标识调用库存检索窗体
      frm_hpout.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "货品借出" And HPJC.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "货品归还" And HPGH.Enabled = True Then
      frm_hpin.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "货品归还" And HPGH.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "货品盘点" And HPPDGL.Enabled = True Then
      frm_kcpd.Show
      StrNums = 1   '出库标识，用于标识调用库存检索窗体
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "货品盘点" And HPPDGL.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "库存查询" And KCXXCX.Enabled = True Then
     frm_KCQuery.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "库存查询" And KCXXCX.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "入库查询" And RKXXCX.Enabled = True Then
     frm_InQuery.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "入库查询" And RKXXCX.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "出库查询" And CKXXCX.Enabled = True Then
    frm_OutQuery.Show
    Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "出库查询" And CKXXCX.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "借出查询" And HPJCCX.Enabled = True Then
       frm_HpjcQuery.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "借出查询" And HPJCCX.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "归还查询" And HPGHCX.Enabled = True Then
       frm_HpghQuery.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "归还查询" And HPGHCX.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "日统计" And CRKXXRTJ.Enabled = True Then
       frm_Stat.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "日统计" And CRKXXRTJ.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "出入库年统计" And CRKNTJ.Enabled = True Then
       frm_YStats.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "出入库年统计" And CRKNTJ.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "出库报表" And PRINTOUT.Enabled = True Then
       Data_out.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "出库报表" And PRINTOUT.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "库存报表" And PRINTKC.Enabled = True Then
       Data_kc.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "库存报表" And PRINTKC.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "数据备份" And SJBF.Enabled = True Then
       frm_backup.Caption = "数据备份"
       frm_backup.Frame1.Visible = True
       frm_backup.Frame2.Visible = False
       frm_backup.Show                            '显示数据备份窗体
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "数据备份" And SJBF.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "数据恢复" And SJHF.Enabled = True Then
       frm_backup.Caption = "数据恢复"
       frm_backup.Frame1.Visible = False
       frm_backup.Frame2.Visible = True
       frm_backup.Show                            '显示数据备份窗体
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "数据恢复" And SJHF.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "权限设置" And CZYQXSZ.Enabled = True Then
       frm_setoperator.Show
       Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "权限设置" And CZYQXSZ.Enabled = False Then
  End If
    If ListView1.SelectedItem.Text = "查看日志" Then
         frm_look.Show
         Me.Enabled = False
    Else
    End If
  If ListView1.SelectedItem.Text = "密码修改" And MMXG.Enabled = True Then
      frm_Edit_Password.Show
      Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "密码修改" And MMXG.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "数据清理" And SJQL.Enabled = True Then
    frm_sfyz.Show
    Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "数据清理" And SJQL.Enabled = False Then
  End If
  If ListView1.SelectedItem.Text = "操作员管理" And CZYXXWH.Enabled = True Then
     frm_systemer.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "操作员管理" And CZYXXWH.Enabled = False Then
  End If
    If ListView1.SelectedItem.Text = "供应商信息" And GYSXXWH.Enabled = True Then
     frm_gys.Show
     Me.Enabled = False
  ElseIf ListView1.SelectedItem.Text = "供应商信息" And GYSXXWH.Enabled = False Then
  End If
End Sub

Private Sub MMXG_Click()
  frm_Edit_Password.Show                      '显示修改密码窗体
  Me.Enabled = False
End Sub

Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Picture1.BackColor = &H0&
End Sub

Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    On Error Resume Next
    If Button = 1 Then Picture1.Left = Picture1.Left + x
End Sub

Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pl&
    
    On Error Resume Next
    
    pl = Picture1.Left
    
    If pl < 1000 Then
        pl = 1000
        Picture1.Left = pl
    End If
    If pl > (Me.ScaleWidth - 1000) Then
        pl = Me.ScaleWidth - 1000
        Picture1.Left = pl
    End If
    
    TreeView1.Width = pl - TreeView1.Left - 5
    ListView1.Width = pl - ListView1.Left - 5
    Picture1.Width = 30
    
    ListView1.Left = TreeView1.Width + 100
    ListView1.Width = Me.ScaleWidth - ListView1.Left - 10
    
    Picture1.BackColor = &HC0C000
End Sub

Private Sub PRINTKC_Click()
  Data_kc.Show                                '显示库存信息报表
  Me.Enabled = False
End Sub

Private Sub PRINTOUT_Click()
  Data_out.Show                               '显示出库信息报表
  Me.Enabled = False
End Sub

Private Sub QCKCSZ_Click()
   frm_qckc.Show                              '显示期初库存设置窗体
   Me.Enabled = False
End Sub

Private Sub RKXXCX_Click()
  frm_InQuery.Show                            '显示货品入库信息查询窗体
  Me.Enabled = False
End Sub

Private Sub RZQL_Click()                      '进行日志清理操作
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,