frm_main.frm

这是个进销存管理系统

End Sub

Private Sub file_exit_Click()
  End
End Sub

Private Sub file_FL_Click()
  UL = 2  '下限设置变量
  frm_ULLclew.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_help_Click()
  'App.Path在此的作用是获帮助文件的路径
   CommonDialog1.HelpFile = App.Path & "/EMS_HELP.HLP"
   CommonDialog1.HelpCommand = cdlHelpContents
   CommonDialog1.ShowHelp ' 显示 Visual Basic 帮助目录主题
End Sub

Private Sub file_interner_Click()
  '使用API函数 登陆 指定的网址
  ShellExecute Me.hWnd, "open", "http://www.mingrisoft.com", 1, 1, 5
End Sub

Private Sub file_MingRiSoft_Click()
  '使用API函数 登陆 指定的网址
  ShellExecute Me.hWnd, "open", "http://www.mingrisoft.com", 1, 1, 5
End Sub

Private Sub file_monthSell_Click()
  frm_saleStatus.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_op_Click()
  frm_setOP.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_sell_Click()
  frm_saleBill.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_sellCost_Click()
  frm_costBook.Show  '窗体的 Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_sellStat_Click()
  billSum = 2            '等于2时，为销售统计
  frm_stockBillSum.Show  '窗体的 Show方法 显示指定的窗体
  frm_main.Enabled = False
  billSum = 2            '等于2时，为销售统计
End Sub

Private Sub file_sellStock_Click()
  frm_saleBillExit.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_sellTexis_Click()
  frm_CheckData.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_setSys_Click()
  frm_setOP.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_softEdition_Click()
  frm_about.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
   frm_main.Enabled = False
End Sub

Private Sub file_stat_Click()
  billSum = 1            '等于1时，为进货统计
  frm_stockBillSum.Show  '窗体的 Show方法 显示指定的窗体
  frm_main.Enabled = False
  billSum = 1            '等于1时，为进货统计
End Sub

Private Sub file_stockCheck_Click()
  frm_checkStock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_stockExit_Click()
    frm_stockBillExit.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
    frm_main.Enabled = False
End Sub

Private Sub file_stockStatus_Click()
  frm_Stock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_supply_Click()
  frm_unitsList.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_UL_Click()
  UL = 1  '上限设置变量
  frm_ULLclew.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_unit_Click()
  frm_LocalUnits.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub file_word_Click()
  ShellExecute Me.hWnd, "open", "winword.exe", "", 1, 5
End Sub

Private Sub Form_Load()

  Me.Top = Screen.Width / 12
  Me.Left = Screen.Height / 12
  Me.Caption = App.Title
  '使用API函数来设置窗体展开形式
  outspread = AnimateWindow(Me.hWnd, 1000, 16)
  Me.Refresh
 
  Call cnn
  str = "select * from tbS_unit"
  rs.Open str, cnn, adOpenStatic, adLockOptimistic
  On Error Resume Next
  Me.Caption = Me.Caption & "   【" + rs.Fields(0) + "】"
  rs.Close
  cnn.Close

End Sub

Private Sub Label0_Click(Index As Integer)
  Select Case Index
         Case 0
               frm_stockBill.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
               frm_main.Enabled = False
         Case 1
               frm_stockBillExit.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
               frm_main.Enabled = False
         Case 2
               frm_Stock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
               frm_main.Enabled = False
         Case 3
               frm_stockBillAnalyse.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
               frm_main.Enabled = False
         Case 4
               billSum = 1            '等于1时，为进货统计
               frm_stockBillSum.Show  '窗体的 Show方法 显示指定的窗体
               frm_main.Enabled = False
               billSum = 1            '等于1时，为进货统计
         Case 5
               frm_unitsList.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
               frm_main.Enabled = False
  End Select
End Sub

Private Sub Label1_Click(Index As Integer)
  Select Case Index
         Case 0
              frm_saleBill.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 1
              frm_saleBillExit.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 2
             frm_Stock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
             frm_main.Enabled = False
         Case 3
              billSum = 2            '等于2时，为销售统计
              frm_stockBillSum.Show  '窗体的 Show方法 显示指定的窗体
              frm_main.Enabled = False
              billSum = 2            '等于2时，为销售统计
         Case 4
              frm_saleStatus.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 5
              frm_CheckData.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 6
              frm_unitsList.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 7
              frm_costBook.Show  '窗体的 Show方法 显示指定的窗体
              frm_main.Enabled = False
  End Select
End Sub

Private Sub Label2_Click(Index As Integer)
  Select Case Index
         Case 0
              frm_Stock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 1
              frm_checkStock.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 2
              UL = 1  '上限设置变量
              frm_ULLclew.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 3
              UL = 2  '下限设置变量
              frm_ULLclew.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 4
              frm_stockChangeTb.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
  End Select
End Sub

Private Sub Label3_Click(Index As Integer)
  Select Case Index
         Case 0
              frm_setOP.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 1
              frm_BackRestore.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              Me.Enabled = False
         Case 2
              frm_clearDB.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 3
              frm_LocalUnits.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
         Case 4
              frm_setOP.Show  '窗体的 Show方法 显示指定的窗体  '使用Show方法 显示指定的窗体
              frm_main.Enabled = False
  End Select
End Sub

Private Sub labFile_Click(Index As Integer)
  Select Case Index
         Case 0:
               Me.Picture = LoadPicture(App.Path & "\image\1.jpg")
               For i = 0 To Label0.Count - 1
                   Label0(i).Visible = True
               Next i
               For i = 0 To Label1.Count - 1
                   Label1(i).Visible = False
               Next i
               For i = 0 To Label2.Count - 1
                   Label2(i).Visible = False
               Next i
               For i = 0 To Label3.Count - 1
                   Label3(i).Visible = False
               Next i
         Case 1:
              Me.Picture = LoadPicture(App.Path & "\image\2.jpg")
              For i = 0 To Label0.Count - 1
                   Label0(i).Visible = False
               Next i
               For i = 0 To Label1.Count - 1
                   Label1(i).Visible = True
               Next i
               For i = 0 To Label2.Count - 1
                   Label2(i).Visible = False
               Next i
               For i = 0 To Label3.Count - 1
                   Label3(i).Visible = False
               Next i
         Case 2:
               Me.Picture = LoadPicture(App.Path & "\image\3.jpg")
               For i = 0 To Label0.Count - 1
                   Label0(i).Visible = False
               Next i
               For i = 0 To Label1.Count - 1
                   Label1(i).Visible = False
               Next i
               For i = 0 To Label2.Count - 1
                   Label2(i).Visible = True
               Next i
               For i = 0 To Label3.Count - 1
                   Label3(i).Visible = False
               Next i
         Case 3
               Me.Picture = LoadPicture(App.Path & "\image\4.jpg")
               For i = 0 To Label0.Count - 1
                   Label0(i).Visible = False
               Next i
               For i = 0 To Label1.Count - 1
                   Label1(i).Visible = False
               Next i
               For i = 0 To Label2.Count - 1
                   Label2(i).Visible = False
               Next i
               For i = 0 To Label3.Count - 1
                   Label3(i).Visible = True
               Next i
         Case 4:
               If MsgBox("是否退出系统！", vbOKCancel + vbQuestion, "系统提示") = vbOK Then
                  End
               End If
  End Select
End Sub

Private Sub Stock_Click()
  frm_basic_stock.Show  '窗体的 Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub

Private Sub Timer1_Timer()
  SBar1.Panels(1).Text = Format(Date, "yyyy年mm月dd日")
  SBar1.Panels(2).Text = Format(Date, "本年第  q  个季度")
  SBar1.Panels(3).Text = Format(Date, "本年第  ww 个星期")
  Text1.Text = Format(Time, "HH:MM:S:AM/PM")
End Sub

Private Sub Unit_Click()
  frm_basic_units.Show  '窗体的 Show方法 显示指定的窗体
  frm_main.Enabled = False
End Sub