?? frm_main.frm
字號:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{D27CDB6B-AE6D-11CF-96B8-444553540000}#1.0#0"; "Flash8.ocx"
Begin VB.Form frm_main
BackColor = &H80000007&
BorderStyle = 1 'Fixed Single
Caption = "企業進銷存管理系統"
ClientHeight = 7920
ClientLeft = 4035
ClientTop = 4125
ClientWidth = 11835
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
Picture = "frm_main.frx":0000
ScaleHeight = 7920
ScaleWidth = 11835
StartUpPosition = 2 '屏幕中心
Begin ShockwaveFlashObjectsCtl.ShockwaveFlash Flash1
Height = 6525
Left = 2520
TabIndex = 7
Top = 1050
Width = 9270
_cx = 16351
_cy = 11509
FlashVars = ""
Movie = ""
Src = ""
WMode = "Window"
Play = -1 'True
Loop = -1 'True
Quality = "High"
SAlign = ""
Menu = -1 'True
Base = ""
AllowScriptAccess= ""
Scale = "ShowAll"
DeviceFont = 0 'False
EmbedMovie = 0 'False
BGColor = ""
SWRemote = ""
MovieData = ""
SeamlessTabbing = -1 'True
Profile = 0 'False
ProfileAddress = ""
ProfilePort = 0
End
Begin VB.Timer Timer1
Interval = 60
Left = 2670
Top = 7335
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 345
Left = 0
TabIndex = 0
Top = 7575
Width = 11835
_ExtentX = 20876
_ExtentY = 609
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 5
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 6086
MinWidth = 6086
Text = " 歡迎使用企業進銷存管理系統"
TextSave = " 歡迎使用企業進銷存管理系統"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4674
MinWidth = 4674
Object.ToolTipText = "當前操作員"
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3351
MinWidth = 3351
Object.ToolTipText = "登錄日期"
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 3351
MinWidth = 3351
Object.ToolTipText = "系統時間"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 4410
MinWidth = 4410
Text = "www.cccxy.com"
TextSave = "www.cccxy.com"
Object.ToolTipText = "公司網址"
EndProperty
EndProperty
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "系統維護"
Height = 180
Index = 5
Left = 570
TabIndex = 6
Top = 4455
Width = 720
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "數據統計與報表"
Height = 180
Index = 4
Left = 570
TabIndex = 5
Top = 3870
Width = 1260
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品銷售管理"
Height = 180
Index = 3
Left = 570
TabIndex = 4
Top = 3270
Width = 1080
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品庫存管理"
Height = 180
Index = 2
Left = 570
TabIndex = 3
Top = 2670
Width = 1080
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "商品入庫管理"
Height = 180
Index = 1
Left = 570
TabIndex = 2
Top = 2070
Width = 1080
End
Begin VB.Label Lbl_info
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "基礎信息設置"
Height = 180
Index = 0
Left = 570
TabIndex = 1
Top = 1455
Width = 1080
End
Begin VB.Menu jcxxsz
Caption = "基礎信息設置"
Begin VB.Menu GYSXXWH
Caption = "供應商信息設置"
End
Begin VB.Menu qq
Caption = "-"
End
Begin VB.Menu CKSZ
Caption = "倉庫信息設置"
End
Begin VB.Menu QCKCSZ
Caption = "期初庫存設置"
End
End
Begin VB.Menu SPRKGL
Caption = "商品入庫管理"
Begin VB.Menu HPRKGL
Caption = "商品入庫"
End
Begin VB.Menu RKXXCX
Caption = "入庫查詢"
End
End
Begin VB.Menu SPXXGL
Caption = "商品銷售管理"
Begin VB.Menu HPCKGL
Caption = "商品銷售"
End
Begin VB.Menu CKXXCX
Caption = "銷售查詢"
End
End
Begin VB.Menu CXTJ
Caption = "商品庫存管理"
Begin VB.Menu HPJC
Caption = "商品借出"
End
Begin VB.Menu HPJCCX
Caption = "商品借出查詢"
End
Begin VB.Menu QW
Caption = "-"
End
Begin VB.Menu HPGH
Caption = "商品歸還"
End
Begin VB.Menu HPGHCX
Caption = "商品歸還查詢"
End
Begin VB.Menu WE
Caption = "-"
End
Begin VB.Menu HPPDGL
Caption = "商品盤點"
End
Begin VB.Menu KCXXCX
Caption = "庫存查詢"
End
End
Begin VB.Menu SJBB
Caption = "數據統計與報表"
Begin VB.Menu CRKXXRTJ
Caption = "出入庫商品日統計"
End
Begin VB.Menu CRKNTJ
Caption = "出入庫現金年統計"
End
Begin VB.Menu qr
Caption = "-"
End
Begin VB.Menu PRINTOUT
Caption = "出庫報表"
End
Begin VB.Menu PRINTKC
Caption = "庫存報表"
End
End
Begin VB.Menu XTWH
Caption = "系統維護"
Begin VB.Menu CZYXXWH
Caption = "操作員管理"
End
Begin VB.Menu MMXG
Caption = "密碼修改"
End
Begin VB.Menu CZYQXSZ
Caption = "操作員權限設置"
End
Begin VB.Menu CC
Caption = "-"
End
Begin VB.Menu SJBF
Caption = "數據備份"
End
Begin VB.Menu SJHF
Caption = "數據恢復"
End
Begin VB.Menu DD
Caption = "-"
End
Begin VB.Menu SJQL
Caption = "數據清理"
End
Begin VB.Menu bb
Caption = "-"
End
Begin VB.Menu CKRZ
Caption = "查看日志"
End
Begin VB.Menu RZQL
Caption = "日志清理"
End
End
Begin VB.Menu TCXT
Caption = "退出系統"
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim itmX As ListItem '定義一個ListItem對象
Dim Intext As String '定義一個添加系統登錄日志功能的變量
Dim TStr As String
'聲明API函數及常量
Private Declare Function GetSystemMenu Lib "user32" (ByVal hwnd As Long, ByVal bRevert As Long) As Long
Private Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long
Private Declare Function AnimateWindow Lib "user32" (ByVal hwnd As Long, ByVal mytime As Long, ByVal style As Long) As Boolean
Private Const MF_REMOVE = &H1000&
Private Const SC_MAXIMIZE = &HF030
Private Sub CKRZ_Click()
frm_look.Show '顯示查看日志窗體
Me.Enabled = False
End Sub
Private Sub CKSZ_Click()
frm_cksz.Show '顯示倉庫設置窗體
Me.Enabled = False
End Sub
Private Sub CKXXCX_Click()
frm_OutQuery.Show '顯示出庫查詢窗體
Me.Enabled = False
End Sub
Private Sub CRKNTJ_Click()
frm_YStats.Show '顯示出入庫現金年統計窗體
Me.Enabled = False
End Sub
Private Sub CRKXXRTJ_Click()
frm_Stat.Show '顯示出入庫信息日統計窗體
Me.Enabled = False
End Sub
Private Sub CZYQXSZ_Click()
frm_setoperator.Show '顯示操作員權限設置窗體
Me.Enabled = False
End Sub
Private Sub CZYXXWH_Click()
frm_systemer.Show '顯示操作員設置窗體
Me.Enabled = False
End Sub
Private Sub Flash1_FSCommand(ByVal command As String, ByVal args As String)
Select Case command
'基礎信息設置
Case "ckxx" '倉庫信息
If CKSZ.Enabled = True Then
CKSZ_Click
Else
MsgBox "您沒有該權限！", vbCritical
End If
Case "qckc" '期初庫存設置
If QCKCSZ.Enabled = True Then
QCKCSZ_Click
Else
MsgBox "您沒有該權限！", vbCritical
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -