📄 frmmain.frm
字号:
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "统计"
Key = "统计"
Object.ToolTipText = "统计"
ImageIndex = 3
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 2
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "货物出入"
Text = "货物出入统计"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "职员操作"
Text = "职员操作统计"
EndProperty
EndProperty
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 9
Style = 3
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "打印"
Key = "打印"
Object.ToolTipText = "打印"
ImageIndex = 9
EndProperty
BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "日志"
Key = "日志"
Object.ToolTipText = "查看日志"
ImageIndex = 6
EndProperty
BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "帮助"
Key = "帮助"
Object.ToolTipText = "帮助"
ImageIndex = 5
EndProperty
BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "写信"
Key = "写信"
Object.ToolTipText = "给作者写信"
ImageIndex = 7
EndProperty
BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "关于"
Key = "关于"
Object.ToolTipText = "关于软件"
ImageIndex = 1
EndProperty
EndProperty
OLEDropMode = 1
Begin VB.Timer Timer1
Interval = 100
Left = 8340
Top = 300
End
End
Begin VB.Menu M登记信息
Caption = "登记信息(&F)"
HelpContextID = 21
Index = 1
Begin VB.Menu M货物信息
Caption = "货物信息"
HelpContextID = 211
End
Begin VB.Menu M仓库信息
Caption = "仓库信息"
HelpContextID = 212
End
Begin VB.Menu M供应商
Caption = "供应商"
HelpContextID = 212
End
Begin VB.Menu M往来客户
Caption = "往来客户"
HelpContextID = 214
End
Begin VB.Menu M库存状况
Caption = "库存状况"
HelpContextID = 215
End
Begin VB.Menu mnuFileBar1
Caption = "-"
End
Begin VB.Menu mnuFileExit
Caption = "退出(&X)"
End
End
Begin VB.Menu M单据管理
Caption = "单据管理"
HelpContextID = 22
Begin VB.Menu M新增入库单
Caption = "新增入库单"
HelpContextID = 221
End
Begin VB.Menu M新增出库单
Caption = "新增出库单"
HelpContextID = 222
End
Begin VB.Menu M新增借入单
Caption = "新增借入单"
HelpContextID = 223
End
Begin VB.Menu M新增借出单
Caption = "新增借出单"
HelpContextID = 224
End
Begin VB.Menu M新增调拔单
Caption = "新增调拔单"
HelpContextID = 225
End
Begin VB.Menu M新增报损单
Caption = "新增报损单"
HelpContextID = 226
End
Begin VB.Menu mnuFileBar19
Caption = "-"
End
Begin VB.Menu M入库单
Caption = "入库单管理"
HelpContextID = 221
End
Begin VB.Menu M出库单
Caption = "出库单管理"
HelpContextID = 222
End
Begin VB.Menu M借入单
Caption = "借入单管理"
HelpContextID = 223
End
Begin VB.Menu M借出单
Caption = "借出单管理"
HelpContextID = 224
End
Begin VB.Menu M调拔单
Caption = "调拔单管理"
HelpContextID = 225
End
Begin VB.Menu M报损单
Caption = "报损单管理"
HelpContextID = 226
End
Begin VB.Menu mnuFileBar12
Caption = "-"
End
Begin VB.Menu M月盘点
Caption = "进行月盘点"
HelpContextID = 227
End
End
Begin VB.Menu 查询统计
Caption = "查询统计(&J)"
HelpContextID = 23
Begin VB.Menu M单据查询
Caption = "单据查询"
HelpContextID = 231
End
Begin VB.Menu M库存查询
Caption = "库存查询"
HelpContextID = 232
End
Begin VB.Menu mnuFileBar17
Caption = "-"
End
Begin VB.Menu M高级查询
Caption = "高级查询"
HelpContextID = 233
End
Begin VB.Menu 自定义查询
Caption = "自定义查询"
HelpContextID = 234
Begin VB.Menu M自定义一
Caption = "自定义1"
End
Begin VB.Menu M自定义二
Caption = "自定义2"
End
Begin VB.Menu M自定义三
Caption = "自定义3"
End
Begin VB.Menu M自定义四
Caption = "自定义4"
End
Begin VB.Menu M自定义五
Caption = "自定义5"
End
Begin VB.Menu M自定义六
Caption = "自定义6"
End
Begin VB.Menu M自定义七
Caption = "自定义7"
End
Begin VB.Menu M自定义八
Caption = "自定义8"
End
Begin VB.Menu mnuFileBar16
Caption = "-"
End
Begin VB.Menu M管理查询
Caption = "管理自定义查询"
HelpContextID = 235
End
End
Begin VB.Menu mnuFileBar14
Caption = "-"
End
Begin VB.Menu M货物出入统计
Caption = "货物出入统计"
HelpContextID = 236
End
Begin VB.Menu M职员操作统计
Caption = "职员操作统计"
HelpContextID = 237
End
End
Begin VB.Menu 报表中心
Caption = "报表中心"
Begin VB.Menu M打印入库单
Caption = "打印入库单"
End
Begin VB.Menu M打印出库单
Caption = "打印出库单"
End
Begin VB.Menu M打印借入单
Caption = "打印借入单"
End
Begin VB.Menu M打印借出单
Caption = "打印借出单"
End
Begin VB.Menu M打印调拔单
Caption = "打印调拔单"
End
Begin VB.Menu M打印报损单
Caption = "打印报损单"
End
Begin VB.Menu mnuFileBar18
Caption = "-"
End
Begin VB.Menu M打印月盘点
Caption = "打印月盘点"
End
Begin VB.Menu mnuFileBar3
Caption = "-"
End
Begin VB.Menu mnuFilePageSetup
Caption = "页面设置(&U)..."
End
End
Begin VB.Menu mnuView
Caption = "视图(&V)"
Begin VB.Menu mnuViewToolbar
Caption = "工具栏(&T)"
Checked = -1 'True
End
Begin VB.Menu mnuViewStatusBar
Caption = "状态栏(&B)"
Checked = -1 'True
End
End
Begin VB.Menu M维护设置
Caption = "维护设置"
HelpContextID = 24
Begin VB.Menu M公司信息
Caption = "公司信息"
HelpContextID = 241
End
Begin VB.Menu M职员信息
Caption = "职员信息"
HelpContextID = 242
End
Begin VB.Menu mnuFileBar5
Caption = "-"
End
Begin VB.Menu M查看日志
Caption = "查看日志"
HelpContextID = 243
End
Begin VB.Menu M数据清除
Caption = "数据清除"
HelpContextID = 244
End
Begin VB.Menu M系统初始化
Caption = "系统初始化"
HelpContextID = 245
End
Begin VB.Menu mnuFileBar15
Caption = "-"
End
Begin VB.Menu M备份数据库
Caption = "备份数据库"
HelpContextID = 246
End
Begin VB.Menu M还原数据库
Caption = "还原数据库"
HelpContextID = 247
End
Begin VB.Menu M还原到昨天数据库
Caption = "还原到昨天数据库"
HelpContextID = 248
End
Begin VB.Menu mnuFileBar4
Caption = "-"
End
Begin VB.Menu mnuModifyPassword
Caption = "修改密码(&E)"
HelpContextID = 249
End
Begin VB.Menu mnuUserManage
Caption = "用户管理(&M)"
HelpContextID = 2410
End
Begin VB.Menu M换用户登陆
Caption = "换用户登陆"
HelpContextID = 2411
End
End
Begin VB.Menu mnuHelp
Caption = "帮助(&H)"
Begin VB.Menu M查看帮助
Caption = "查看帮助(&H)"
HelpContextID = 25
End
Begin VB.Menu mnuHelpBar0
Caption = "-"
End
Begin VB.Menu mnuHelpAbout
Caption = "关于(&A) "
HelpContextID = 3
Shortcut = ^A
End
End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Public Sub InitPurview()
'初始化17种权限状态
Dim i As Integer
For i = 16 To 0 Step -1
If GetBit(Purview, i + 1) = 0 Then
权限类别(16 - i) = 0
Else
权限类别(16 - i) = 1
End If
Next
End Sub
'根据用户权限来初始化菜单
Private Sub InitMenu()
If 权限类别(0) = 0 Then
M新增入库单.Enabled = False
M新增出库单.Enabled = False
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -