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