?? 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_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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -