📄 frm_main.frm
字号:
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":5D2E5
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":5E93F
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":5FF99
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":615F3
Key = ""
EndProperty
BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":62C4D
Key = ""
EndProperty
BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":642A7
Key = ""
EndProperty
BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":65901
Key = ""
EndProperty
BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":66F5B
Key = ""
EndProperty
BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":685B5
Key = ""
EndProperty
BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":69C0F
Key = ""
EndProperty
BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6B269
Key = ""
EndProperty
BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6C8C3
Key = ""
EndProperty
BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frm_main.frx":6DF1D
Key = ""
EndProperty
EndProperty
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "退出"
ForeColor = &H00C0C0C0&
Height = 195
Index = 3
Left = 11310
TabIndex = 11
Top = 660
Width = 390
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "网上明日"
ForeColor = &H00C0C0C0&
Height = 195
Index = 2
Left = 10140
TabIndex = 10
Top = 660
Width = 720
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "关于"
ForeColor = &H00C0C0C0&
Height = 195
Index = 1
Left = 9240
TabIndex = 9
Top = 660
Width = 390
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "帮助"
ForeColor = &H00C0C0C0&
Height = 195
Index = 0
Left = 8280
TabIndex = 8
Top = 660
Width = 390
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "销售预测"
Height = 195
Index = 7
Left = 10470
TabIndex = 7
Top = 1095
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "销售数据导入"
Height = 195
Index = 6
Left = 8775
TabIndex = 6
Top = 1095
Width = 1080
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "市场走势"
Height = 195
Index = 5
Left = 7350
TabIndex = 5
Top = 1095
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "市场跟踪"
Height = 195
Index = 4
Left = 5985
TabIndex = 4
Top = 1095
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "销售业绩考核"
Height = 195
Index = 3
Left = 4275
TabIndex = 3
Top = 1095
Width = 1125
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "销售训练"
Height = 195
Index = 2
Left = 2910
TabIndex = 2
Top = 1095
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "销售组织"
Height = 195
Index = 1
Left = 1620
TabIndex = 1
Top = 1095
Width = 720
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "产品管理"
Height = 195
Index = 0
Left = 390
TabIndex = 0
Top = 1095
Width = 720
End
Begin VB.Menu m
Caption = "基础资料管理"
Index = 1
WindowList = -1 'True
Begin VB.Menu m1
Caption = "区域管理"
Index = 0
End
Begin VB.Menu m1
Caption = "产品管理"
Index = 1
End
Begin VB.Menu m1
Caption = "销售训练项目设置"
Index = 2
End
Begin VB.Menu m1
Caption = "销售考核指标设置"
Index = 3
End
End
Begin VB.Menu m
Caption = "销售组织"
Index = 2
Begin VB.Menu m2
Caption = "销售组织"
Index = 0
End
Begin VB.Menu m2
Caption = "业务员管理"
Index = 1
End
Begin VB.Menu m2
Caption = "销售训练"
Index = 2
End
Begin VB.Menu m2
Caption = "销售业绩考核"
Index = 3
End
End
Begin VB.Menu m
Caption = "市场管理"
Index = 3
Begin VB.Menu m3
Caption = "市场反馈"
Index = 0
End
Begin VB.Menu m3
Caption = "市场跟踪"
Index = 1
End
Begin VB.Menu m3
Caption = "市场走势"
Index = 2
End
End
Begin VB.Menu m
Caption = "销售业务管理"
Index = 4
Begin VB.Menu m4
Caption = "销售数据导入"
Index = 0
End
Begin VB.Menu m4
Caption = "销售数据录入"
Index = 1
End
Begin VB.Menu m4
Caption = "销售预测"
Index = 2
End
Begin VB.Menu m4
Caption = "年销售计划"
Index = 3
End
End
Begin VB.Menu m
Caption = "销售分析"
Index = 5
Begin VB.Menu m5
Caption = "月销售分析"
Index = 0
End
Begin VB.Menu m5
Caption = "季销售分析"
Index = 1
End
Begin VB.Menu m5
Caption = "年销售分析"
Index = 2
End
End
Begin VB.Menu m
Caption = "营销资源管理"
Index = 6
Begin VB.Menu m6
Caption = "企业名录"
Index = 0
End
Begin VB.Menu m6
Caption = "个人名录"
Index = 1
End
Begin VB.Menu m6
Caption = "邮箱资源"
Index = 2
End
Begin VB.Menu m6
Caption = "营销礼品"
Index = 3
End
End
Begin VB.Menu m
Caption = "系统管理"
Index = 7
Begin VB.Menu m7
Caption = "用户管理"
Index = 0
End
Begin VB.Menu m7
Caption = "密码修改"
Index = 1
End
Begin VB.Menu m7
Caption = "数据初始化"
Index = 2
End
End
Begin VB.Menu m
Caption = "辅助工具"
Index = 8
Begin VB.Menu m8
Caption = "帮助"
Index = 0
End
Begin VB.Menu m8
Caption = "关于"
Index = 1
End
Begin VB.Menu m8
Caption = "网上明日"
Index = 2
End
End
End
Attribute VB_Name = "frm_main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFlie As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Dim rs1 As New ADODB.Recordset
Dim i, j As Integer
Public strMenu As String
Private Sub Form_Load()
lblMenu_Click (0)
Dim pnlX As Panel
'添加面板，并将它们设置为目录。
StatusBar1.Panels(1).AutoSize = sbrContents
StatusBar1.Panels(1) = mytag
Set pnlX = StatusBar1.Panels.Add
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -