?? frm_main.frm
字號:
Caption = "-"
Visible = 0 'False
End
Begin VB.Menu 退出
Caption = "退出"
End
End
Begin VB.Menu kcgl
Caption = "【庫存管理】"
Begin VB.Menu kccx
Caption = "庫存商品查詢(&Z)"
Shortcut = ^Z
End
Begin VB.Menu kcpd
Caption = "庫存盤點(&P)"
Shortcut = ^P
End
End
Begin VB.Menu CXTJ
Caption = "【查詢統計】"
Begin VB.Menu xscx
Caption = "銷售查詢"
End
Begin VB.Menu rkcx
Caption = "入庫查詢"
End
End
Begin VB.Menu ysyf
Caption = "【應收應付管理】"
Begin VB.Menu fkd
Caption = "付款單(&J)"
Shortcut = ^J
End
Begin VB.Menu line25
Caption = "-"
End
Begin VB.Menu skcx
Caption = "應收款查詢"
End
Begin VB.Menu fkcx
Caption = "應付款查詢"
End
End
Begin VB.Menu tjbb
Caption = "【統計報表】"
Begin VB.Menu xsrbb
Caption = "銷售日報表"
End
Begin VB.Menu xsybb
Caption = "銷售月報表"
End
Begin VB.Menu line9
Caption = "-"
End
Begin VB.Menu khxsbb
Caption = "客戶銷售報表"
End
Begin VB.Menu zyxsbb
Caption = "職員銷售報表"
End
End
Begin VB.Menu khxxgl
Caption = "【基礎信息管理】"
Begin VB.Menu spinf
Caption = "商品信息管理"
End
Begin VB.Menu yginf
Caption = "職員信息管理"
End
Begin VB.Menu ckinf
Caption = "倉庫信息管理"
End
Begin VB.Menu w2
Caption = "-"
End
Begin VB.Menu gysinf
Caption = "供應商信息管理(&W)"
Shortcut = ^W
End
Begin VB.Menu khinf
Caption = "客戶信息管理"
End
End
Begin VB.Menu xtcs
Caption = "【系統設置】"
Begin VB.Menu bdwdy
Caption = "本單位定義"
End
Begin VB.Menu line8
Caption = "-"
End
Begin VB.Menu czysz
Caption = "操作員及密碼管理"
End
Begin VB.Menu qxsz
Caption = "權限設置"
End
Begin VB.Menu xtcsh
Caption = "系統初始化"
End
End
Begin VB.Menu bz
Caption = "【幫助】"
Begin VB.Menu bz1
Caption = "幫助"
End
Begin VB.Menu line6
Caption = "-"
End
Begin VB.Menu gy
Caption = "關于"
End
End
Begin VB.Menu exit
Caption = "【退出】"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
'在標題欄上顯示軟件名稱及版本
Me.Caption = App.Title & " 版本: V" & App.Major & "." & App.Minor & "." & App.Revision
Dim i As Integer '定義整型變量
For i = 0 To 1
Label1(i).Caption = App.Title
Next i
Label2.Caption = "版本: V" & App.Major & "." & App.Minor & "." & App.Revision
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case Is = "rk" '調入入庫窗口
rkd_Click
Case Is = "kc" '調入庫存查詢窗口
kccx_Click
Case Is = "xscx" '調入銷售查詢窗口
xscx_Click
Case Is = "rkcx" '調入入庫查詢窗口
Case Is = "fkd" '調入付款單窗口
fkd_Click
Case Is = "kh" '調入客戶基本信息管理窗口
khinf_Click
Case Is = "gys" '調入供應商基本信息管理窗口
gysinf_Click
Case Is = "bz" '調入幫助窗口
bz1_Click
End Select
End Sub
Private Sub Timer1_Timer() '設置時間
St1.Panels(1).Text = Format(Date, "long date") & " " & Time
End Sub
Private Sub rkd_Click() '調入入庫窗口
Load main_rcyw_rk
main_rcyw_rk.Show
frm_main.Enabled = False
End Sub
Private Sub kccx_Click() '調入庫存查詢窗口
Load main_kcgl_kccx
main_kcgl_kccx.Show
frm_main.Enabled = False
End Sub
Private Sub kcpd_Click() '調入庫存盤點窗口
Load main_kcgl_kcpd
main_kcgl_kcpd.Show
frm_main.Enabled = False
End Sub
Private Sub xscx_Click() '調入銷售查詢窗口
Load main_cxtj_xscx
main_cxtj_xscx.Show
frm_main.Enabled = False
End Sub
Private Sub rkcx_Click() '調入入庫查詢窗口
Load main_cxtj_rkcx
main_cxtj_rkcx.Show
frm_main.Enabled = False
End Sub
Private Sub fkd_Click() '調入付款單
Load main_ysyf_fkd
main_ysyf_fkd.Show
frm_main.Enabled = False
End Sub
Private Sub skcx_Click() '調入應收款查詢窗口
Load main_ysyf_skcx
main_ysyf_skcx.Show
frm_main.Enabled = False
End Sub
Private Sub fkcx_Click() '調入應付款查詢窗口
Load main_ysyf_fkcx
main_ysyf_fkcx.Show
frm_main.Enabled = False
End Sub
Private Sub xsrbb_Click() '調入銷售日報表
Load main_tjbb_xsrbb
main_tjbb_xsrbb.Show
frm_main.Enabled = False
End Sub
Private Sub xsybb_Click() '調入銷售月報表
Load main_tjbb_xsybb
main_tjbb_xsybb.Show
frm_main.Enabled = False
End Sub
Private Sub khxsbb_Click() '調入客戶銷售報表
Load main_tjbb_khxsbb
main_tjbb_khxsbb.Show
frm_main.Enabled = False
End Sub
Private Sub zyxsbb_Click() '調入職員銷售報表
Load main_tjbb_zyxsbb
main_tjbb_zyxsbb.Show
frm_main.Enabled = False
End Sub
Private Sub spinf_Click() '調入商品信息管理窗口
Load main_jbxx_spinf
main_jbxx_spinf.Show
frm_main.Enabled = False
End Sub
Private Sub yginf_Click() '調入員工信息管理窗口
Load main_jbxx_yginf
main_jbxx_yginf.Show
frm_main.Enabled = False
End Sub
Private Sub ckinf_Click() '調入倉庫信息管理窗口
Load main_jbxx_ckinf
main_jbxx_ckinf.Show
frm_main.Enabled = False
End Sub
Private Sub gysinf_Click() '調入供應商信息管理窗口
Load main_jbxx_gys
main_jbxx_gys.Show
frm_main.Enabled = False
End Sub
Private Sub khinf_Click() '調入客戶信息管理窗口
Load main_jbxx_kh
main_jbxx_kh.Show
frm_main.Enabled = False
End Sub
Private Sub bdwdy_Click() '調入本單位定義
Load main_bdwdy
main_bdwdy.Show
frm_main.Enabled = False
End Sub
Private Sub czysz_Click() '調入操作員及密碼管理窗口
Load main_xtsz_czysz
main_xtsz_czysz.Show
frm_main.Enabled = False
End Sub
Private Sub qxsz_Click() '調入權限設置
Load main_xtsz_qxsz
main_xtsz_qxsz.Show
frm_main.Enabled = False
End Sub
Private Sub xtcsh_Click() '調入初始化窗口
Load main_xtsz_xtcsh
main_xtsz_xtcsh.Show
frm_main.Enabled = False
End Sub
Private Sub bz1_Click() '調入幫助窗口
Load frmTip
frmTip.Show
frm_main.Enabled = False
End Sub
Private Sub gy_Click() '調入關于窗口
Load frmAbout
frmAbout.Show
frm_main.Enabled = False
End Sub
Private Sub exit_Click()
End
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -