frmmain.frm

一套鞋厂的销售管理系统

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H80000001&
   Caption         =   "销售回报系统"
   ClientHeight    =   4305
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   7110
   Icon            =   "frmMain.frx":0000
   LinkTopic       =   "MDIForm1"
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Menu muMail 
      Caption         =   "E-Mail 管理"
      Begin VB.Menu mnMailSend 
         Caption         =   "E-Mail 发送"
      End
      Begin VB.Menu mnMailRecive 
         Caption         =   "E-Mail 接收"
      End
      Begin VB.Menu menuformcode 
         Caption         =   "单据追踪"
      End
   End
   Begin VB.Menu ddfdfdfdf 
      Caption         =   "销售管理"
      Begin VB.Menu muSellQuery 
         Caption         =   "销售统计"
      End
      Begin VB.Menu munSellfx 
         Caption         =   "销售分析"
      End
      Begin VB.Menu muSellPHDD 
         Caption         =   "销售排行(地点)"
      End
      Begin VB.Menu munSellphCP 
         Caption         =   "销售排行(产品)"
      End
      Begin VB.Menu meunsdsd 
         Caption         =   "销售预测分析"
      End
   End
   Begin VB.Menu mnQuery 
      Caption         =   "库存管理"
      Begin VB.Menu muInQuery 
         Caption         =   "进货查询"
      End
      Begin VB.Menu muBackQuery 
         Caption         =   "退货查询"
      End
      Begin VB.Menu fgfgf 
         Caption         =   "-"
      End
      Begin VB.Menu muJXCQuery 
         Caption         =   "进销存分析"
      End
      Begin VB.Menu muStockQuery 
         Caption         =   "库存查询"
      End
      Begin VB.Menu dfdfdf 
         Caption         =   "-"
      End
      Begin VB.Menu muChgEdit 
         Caption         =   "调货处理"
      End
   End
   Begin VB.Menu mdDataDone 
      Caption         =   "基础数据"
      Begin VB.Menu muAreaEdit 
         Caption         =   "销售点资料管理"
      End
      Begin VB.Menu mnuPassWord 
         Caption         =   "用户权限管理"
      End
   End
   Begin VB.Menu munSys 
      Caption         =   "系统"
      Begin VB.Menu FilesClose 
         Caption         =   "关闭"
      End
      Begin VB.Menu MunHelp 
         Caption         =   "帮助"
      End
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub FilesClose_Click()
If MsgBox("确要退出销售回报系统！", vbYesNo) = vbYes Then
   Unload Me
End If
End Sub

Private Sub MDIForm_Unload(Cancel As Integer)
    End
End Sub

Private Sub menuformcode_Click()
Formcode.Show
End Sub

Private Sub meunsdsd_Click()
frmAllTotal.Show
End Sub

Private Sub mnMailRecive_Click()
    frmMailDone.Show
End Sub

Private Sub mnMailSend_Click()
    frmMailDone.Show
End Sub

Private Sub mnucon_Click()
    Dim i
    i = Shell(App.Path & "\scrsaver.exe", 3)
End Sub

Private Sub mnuPassWord_Click()
    frmpassword.Show
End Sub

Private Sub mnuscreen_Click()
Dim i
i = Shell(App.Path & "\screen.exe", 3)
End Sub

Private Sub muAreaEdit_Click()
 
  Shell App.Path & "\Client.exe", vbMaximizedFocus
End Sub

Private Sub muBackQuery_Click()
 Fm_Qry_Allocate.Show
Fm_Qry_Allocate.Option2 = True
End Sub

Private Sub muChgEdit_Click()
    Fm_Allocate_InOut.Show

End Sub

Private Sub muChgQuery_Click()
    Fm_Qry_Allocate.Show
End Sub

Private Sub muInQuery_Click()
    Fm_Qry_Allocate.Show

End Sub

Private Sub muJXCQuery_Click()
    qryStockMonth.Show
End Sub

Private Sub MunHelp_Click()
'Shell ("d\SELL\销售回报系统帮助文件.doc")
End Sub

Private Sub munSellfx_Click()
    XtQuery.Show
    XtQuery.OptionSellAssay = True
End Sub

Private Sub munSellph_Click()
    XtQuery.Show
    XtQuery.OptionSellAssay = True
End Sub

Private Sub munSellphCP_Click()
    XtQuery.Show
    XtQuery.OptionSellLineCP = True
End Sub

Private Sub muSellPHDD_Click()
    XtQuery.Show
    XtQuery.OptionSellLine = True
End Sub

Private Sub muSellQuery_Click()
    XtQuery.Show
End Sub

Private Sub muStockQuery_Click()
    qryStockQuery.Show
End Sub