📄 frmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.MDIForm frmMain
BackColor = &H8000000C&
Caption = "泽安代理业务管理系统"
ClientHeight = 8115
ClientLeft = 165
ClientTop = 855
ClientWidth = 10065
LinkTopic = "MDIForm1"
StartUpPosition = 3 '窗口缺省
WindowState = 2 'Maximized
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 855
Left = 0
TabIndex = 1
Top = 0
Width = 10065
_ExtentX = 17754
_ExtentY = 1508
ButtonWidth = 1138
ButtonHeight = 1349
Appearance = 1
ImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 3
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "计算器"
Key = "tolJsq"
ImageIndex = 16
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "记事本"
Key = "tolNote"
ImageIndex = 10
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "退 出"
Key = "tolExit"
ImageIndex = 12
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar1
Align = 2 'Align Bottom
Height = 270
Left = 0
TabIndex = 0
Top = 7845
Width = 10065
_ExtentX = 17754
_ExtentY = 476
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 9
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1940
MinWidth = 1940
Text = "系统提示:"
TextSave = "系统提示:"
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
AutoSize = 1
EndProperty
BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1940
MinWidth = 1940
Text = "程序开发："
TextSave = "程序开发："
EndProperty
BeginProperty Panel4 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 5010
MinWidth = 5010
Text = "上海诠山网络科技有限公司"
TextSave = "上海诠山网络科技有限公司"
EndProperty
BeginProperty Panel5 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1940
MinWidth = 1940
Text = "用户名称："
TextSave = "用户名称："
EndProperty
BeginProperty Panel6 {8E3867AB-8586-11D1-B16A-00C0F0283628}
EndProperty
BeginProperty Panel7 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 1940
MinWidth = 1940
Text = "系统时间"
TextSave = "系统时间"
EndProperty
BeginProperty Panel8 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 6
Alignment = 1
Object.Width = 2116
MinWidth = 2116
TextSave = "2006-8-18"
EndProperty
BeginProperty Panel9 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Style = 5
Alignment = 1
AutoSize = 2
Object.Width = 1984
MinWidth = 1993
TextSave = "20:53"
EndProperty
EndProperty
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9.75
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 2940
Top = 3405
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 19
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":031A
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":0634
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1486
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":17A0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":1ABA
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2394
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":26B6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":2F90
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":386A
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":3B84
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":43D6
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":6B88
Key = ""
EndProperty
BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":7E0A
Key = ""
EndProperty
BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":9F44
Key = ""
EndProperty
BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A25E
Key = ""
EndProperty
BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A580
Key = ""
EndProperty
BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":A89A
Key = ""
EndProperty
BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmMain.frx":ABB4
Key = ""
EndProperty
EndProperty
End
Begin VB.Menu mnuMnuA
Caption = "业务管理"
Begin VB.Menu mnuMnuA1
Caption = "保险公司管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA2
Caption = "客户信息管理"
Begin VB.Menu mnuMnuA15
Caption = "个人客户管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA16
Caption = "企业客户管理"
Enabled = 0 'False
End
End
Begin VB.Menu mnuMnuA4
Caption = "承保信息管理"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuMnuA10
Caption = "单证管理"
Enabled = 0 'False
Begin VB.Menu mnuMnuA12
Caption = "单证领用"
End
Begin VB.Menu mnuMnuA13
Caption = "单证发放"
End
End
Begin VB.Menu mnuMnuA11
Caption = "应收应付"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuMnuA5
Caption = "业务信息查询"
Begin VB.Menu mnuMnuA6
Caption = "个人客户查询"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA7
Caption = "企业客户查询"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA8
Caption = "保险公司查询"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA9
Caption = "承保信息查询（个人）"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA17
Caption = "承保信息查询（企业）"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuA14
Caption = "单证查询"
Enabled = 0 'False
End
End
End
Begin VB.Menu mnuMnuB
Caption = "考核管理"
Begin VB.Menu mnuMnuB1
Caption = "个人业绩考核"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuB2
Caption = "团队业绩考核"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuB3
Caption = "团队主管考核"
Enabled = 0 'False
Visible = 0 'False
End
Begin VB.Menu mnuMnuB4
Caption = "薪资计算"
Enabled = 0 'False
End
End
Begin VB.Menu mnuMnuC
Caption = "人事管理"
Begin VB.Menu mnuMnuC1
Caption = "员工信息管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuC2
Caption = "员工考勤管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuC3
Caption = "员工基本资料查询"
Enabled = 0 'False
End
End
Begin VB.Menu mnuMnuD
Caption = "财务管理"
Begin VB.Menu mnuMnuD1
Caption = "应收帐款管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuD2
Caption = "应付帐款管理"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuD3
Caption = "成本利润核算"
Enabled = 0 'False
End
End
Begin VB.Menu mnuMnuF
Caption = "市场活动"
Begin VB.Menu mnuMnuF1
Caption = "拜访记录"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF2
Caption = "拜访计划安排"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF3
Caption = "企业客户管理（市场）"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF4
Caption = "个人客户管理（市场）"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF5
Caption = "生日提醒"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF6
Caption = "计划书添加"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF7
Caption = "客户查询统计"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF8
Caption = "企业客户查询（市场）"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuF9
Caption = "个人客户查询（市场）"
Enabled = 0 'False
End
End
Begin VB.Menu mnuMnuE
Caption = "系统设置"
Begin VB.Menu mnuMnuE1
Caption = "团队设置"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuE8
Caption = "部门设置"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuE2
Caption = "用户设置"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuE9
Caption = "考核设置"
Enabled = 0 'False
End
Begin VB.Menu mnuMnuE7
Caption = "业务类别设置"
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -