mainform.frm

vb超市销售管理系统源码

         EndProperty
      EndProperty
   End
   Begin VB.Menu M_BaseManage 
      Caption         =   "基本管理(&B)"
      Begin VB.Menu M_InStorehouse 
         Caption         =   "进库管理"
         Shortcut        =   ^I
      End
      Begin VB.Menu M_OutStorehouse 
         Caption         =   "出库管理"
         Shortcut        =   ^O
      End
      Begin VB.Menu bar1 
         Caption         =   "-"
      End
      Begin VB.Menu M_Exchange 
         Caption         =   "交接班"
         Shortcut        =   {F12}
      End
      Begin VB.Menu M_ChangePassword 
         Caption         =   "修改个人密码"
      End
      Begin VB.Menu M_TEMP 
         Caption         =   "临时离开"
         Shortcut        =   ^Q
      End
      Begin VB.Menu bar2 
         Caption         =   "-"
      End
      Begin VB.Menu M_Exit 
         Caption         =   "退出"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu M_Find 
      Caption         =   "查询(&F)"
      Begin VB.Menu M_FindDate 
         Caption         =   "按日期查询"
      End
      Begin VB.Menu M_FindPerson 
         Caption         =   "按人员查询"
         Shortcut        =   ^M
      End
      Begin VB.Menu M_FindArticle 
         Caption         =   "按物品查询"
         Shortcut        =   ^A
      End
   End
   Begin VB.Menu M_Total 
      Caption         =   "统计(&T)"
      Begin VB.Menu M_TotalMonth 
         Caption         =   "按月统计"
         Shortcut        =   ^T
      End
   End
   Begin VB.Menu M_Print 
      Caption         =   "打印(&P)"
      Begin VB.Menu M_PrintMust 
         Caption         =   "需采购的物品打印"
      End
      Begin VB.Menu M_PrintMonth 
         Caption         =   "按月打印"
         Shortcut        =   ^P
      End
   End
   Begin VB.Menu M_Setup 
      Caption         =   "设置(&S)"
      Begin VB.Menu M_OperaterSetup 
         Caption         =   "操作员设置"
      End
      Begin VB.Menu M_ManSetup 
         Caption         =   "人员设置"
      End
      Begin VB.Menu bar 
         Caption         =   "-"
      End
      Begin VB.Menu M_DataMake 
         Caption         =   "数据整理"
         Shortcut        =   ^D
      End
   End
   Begin VB.Menu M_Help 
      Caption         =   "帮助(&H)"
      Begin VB.Menu M_HelpObject 
         Caption         =   "帮助主题"
         Shortcut        =   ^H
      End
      Begin VB.Menu bar4 
         Caption         =   "-"
      End
      Begin VB.Menu M_About 
         Caption         =   "关于"
      End
   End
End
Attribute VB_Name = "Mainform"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub M_ChangePassword_Click()
  ChangePassword.Show
End Sub

Private Sub M_ClearData_Click()
  FrmClearData.Show
End Sub

Private Sub M_DataBackup_Click()
FrmDataBackup.Show
End Sub

Private Sub M_DataMake_Click()
  FrmDataMake.Show
End Sub

Private Sub M_Exchange_Click()
  Login1 = 1
  Login.Caption = "交接班"
  Login.Show 1
  Mainform.Show
End Sub

Private Sub M_Exit_Click()
  aa = MsgBox("退出前请确定数据是否保存!!", 1 + 32)
  If aa = 1 Then End
End Sub

Private Sub M_FindArticle_Click()
  FrmFindArticle.Show
End Sub

Private Sub M_FindDate_Click()
  FrmFinddate.Show
End Sub

Private Sub M_FindPerson_Click()
  FrmFindperson.Show
End Sub

Private Sub M_InStorehouse_Click()
  FrmInstorehouse.Show
End Sub

Private Sub M_ManSetup_Click()
  frmPerson.Show
End Sub

Private Sub M_OperaterSetup_Click()
  frmOperater.Show
End Sub

Private Sub M_OutStorehouse_Click()
   FrmOutstorehouse.Show
End Sub

Private Sub M_PrintDay_Click()
  DataReport1.Show
End Sub

Private Sub M_Printjgj_Click()
 Frmprintgz.Show
End Sub

Private Sub M_PrintMonth_Click()
   FrmPrintMonth.Show
End Sub

Private Sub M_Printmustbuy_Click()
DataReport3.Show
End Sub



Private Sub M_ProducePlan_Click()
  FrmProduceplanManage1.Show
End Sub

Private Sub M_Sparelist_Click()
FrmSpareList.Show
End Sub

Private Sub M_StorehouseManage_Click()
  FrmStorehousemanage.Show
End Sub

Private Sub M_StorehouseSetup_Click()
  frmStorehouse.Show
End Sub

Private Sub M_PrintMust_Click()
   FrmPrintMust.Show
End Sub

Private Sub M_TEMP_Click()
  frmTEMP.Show 1
End Sub

Private Sub M_TotalDay_Click()
  FrmTotalDay.Show
End Sub

Private Sub M_TotalMonth_Click()
  FrmTotalmonth.Show
End Sub

Private Sub MDIForm_Load()
  Mainform.BackColor = &H80000003
  Mainform.WindowState = 2
  str1 = "日一二三四五六"
  StatusBar1.Panels.Item(4).Text = "星期" & Mid(str1, Weekday(Date), 1)
  StatusBar1.Panels.Item(3).Text = Date
  StatusBar1.Panels.Item(1).Text = "管理员:    " & Operater1
End Sub

Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
    Cancel = MsgBox("退出前请确定数据是否保存!!", 1 + 32)
    If Cancel = 1 Then End
End Sub

Private Sub MDIForm_Resize()
'  Mainform.WindowState = 2
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
  Select Case Button.Key
    Case "T_InStorehouse"
      Call M_InStorehouse_Click
    Case "T_Calc"
      Shell (App.Path + "\calc.exe")
    Case "T_Exchange"
      Call M_Exchange_Click
    Case "T_Temp"
      Call M_TEMP_Click
    Case "T_Exit"
      Call M_Exit_Click
    Case "T_OutStorehouse"
      Call M_OutStorehouse_Click
    Case "T_StorehouseManage"
      Call M_StorehouseManage_Click
    Case "T_FindPerson"
      Call M_FindPerson_Click
    Case "T_FindArticle"
      Call M_FindArticle_Click
    Case "T_ProducePlan"
      Call M_ProducePlan_Click
    End Select
End Sub