📄 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 + -