📄 zjm.frm
字号:
Height = 285
Left = 337
TabIndex = 6
Top = 615
Width = 630
End
End
Begin VB.Frame Frame1
BackColor = &H00C0FFFF&
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00C0FFFF&
Height = 1035
Left = 375
TabIndex = 2
Top = 915
Width = 3345
Begin VB.Label SC
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H0000FFFF&
BackStyle = 0 'Transparent
Caption = "批量删除"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 1965
MouseIcon = "zjm.frx":1E3AB
TabIndex = 17
Top = 570
Width = 1035
End
Begin VB.Label TJ
Alignment = 2 'Center
AutoSize = -1 'True
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "批量添加"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 240
Left = 420
MouseIcon = "zjm.frx":1E4FD
TabIndex = 16
Top = 570
Width = 1035
End
End
Begin MSComctlLib.ListView lv
Height = 9300
Left = 4185
TabIndex = 0
Top = 915
Width = 13230
_ExtentX = 23336
_ExtentY = 16404
View = 3
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
Checkboxes = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
SmallIcons = "ImageList1"
ForeColor = -2147483640
BackColor = 16777215
BorderStyle = 1
Appearance = 0
NumItems = 0
End
Begin VB.Frame Frame2
BackColor = &H00C0FFFF&
Caption = " "
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 945
Left = 315
TabIndex = 3
Top = 2325
Width = 3345
Begin VB.Label TJ1
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "账户管理"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 1980
MouseIcon = "zjm.frx":1E64F
TabIndex = 13
Top = 510
Width = 1020
End
Begin VB.Label SG1
Alignment = 2 'Center
BackColor = &H00C0FFFF&
BackStyle = 0 'Transparent
Caption = "修改密码"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00FF0000&
Height = 285
Left = 435
MouseIcon = "zjm.frx":1E7A1
TabIndex = 12
Top = 510
Width = 1020
End
End
Begin VB.CommandButton RefreshList
Caption = "刷新列表"
Height = 435
Left = 4275
TabIndex = 31
Top = 1035
Width = 1020
End
Begin MSComctlLib.ImageList ImageList2
Left = 12285
Top = 195
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 6
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":1E8F3
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":20A2D
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":21907
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":227E1
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":230BB
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "zjm.frx":24DC5
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Align = 1 'Align Top
Height = 600
Left = 0
TabIndex = 32
Top = 0
Width = 17700
_ExtentX = 31221
_ExtentY = 1058
ButtonWidth = 3360
ButtonHeight = 1005
Appearance = 1
Style = 1
TextAlignment = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "新增联系人"
Key = "tooXZYH"
Object.ToolTipText = "新增用户"
ImageIndex = 1
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "联系人高级查询"
Key = "tooWXJL"
Object.ToolTipText = "维修记录"
ImageIndex = 6
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "来往记录查询"
Object.ToolTipText = "回访记录"
ImageIndex = 3
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "账户管理"
Object.ToolTipText = "导出Excel"
ImageIndex = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "快捷操作"
ImageIndex = 5
Style = 5
BeginProperty ButtonMenus {66833FEC-8583-11D1-B16A-00C0F0283628}
NumButtonMenus = 4
BeginProperty ButtonMenu1 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "ShutdownAll"
Text = "【关闭所有子窗口】"
EndProperty
BeginProperty ButtonMenu2 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "MinAll"
Text = "【最小化所有子窗口】"
EndProperty
BeginProperty ButtonMenu3 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "MeBack"
Text = "【当前窗口放到最后】"
EndProperty
BeginProperty ButtonMenu4 {66833FEE-8583-11D1-B16A-00C0F0283628}
Key = "reAll"
Text = "【还原所有窗口】"
EndProperty
EndProperty
EndProperty
EndProperty
End
Begin VB.Image Image1
Height = 240
Left = 30
Picture = "zjm.frx":26ACF
Stretch = -1 'True
Top = 525
Width = 17625
End
Begin VB.Shape Shape2
BorderColor = &H000000FF&
FillColor = &H000000FF&
Height = 9525
Left = 4050
Top = 810
Width = 13470
End
Begin VB.Shape Shape1
BorderColor = &H000080FF&
Height = 9525
Left = 120
Top = 795
Width = 3750
End
Begin VB.Menu mnuFile
Caption = "〖文件〗&F"
WindowList = -1 'True
Begin VB.Menu mnuFileExit
Caption = "【退出】&Q"
End
End
Begin VB.Menu sy
Caption = "〖系统设置〗"
Begin VB.Menu tab
Caption = "【选项】"
Shortcut = ^T
End
End
Begin VB.Menu cx
Caption = "〖查询〗"
Begin VB.Menu gj
Caption = "【高级查询】"
Shortcut = ^F
End
End
Begin VB.Menu bj
Caption = "〖编辑〗"
Begin VB.Menu add
Caption = "【批量添加联系人】"
End
Begin VB.Menu q
Caption = "-"
End
Begin VB.Menu del
Caption = "【批量删除联系人】"
End
End
Begin VB.Menu qxgl
Caption = "〖权限〗"
Begin VB.Menu gl
Caption = "【用户管理】"
Shortcut = ^M
End
End
Begin VB.Menu xs
Caption = "〖显示〗"
Begin VB.Menu all
Caption = "【显示所有】"
Shortcut = ^Y
End
Begin VB.Menu rr
Caption = "-"
End
Begin VB.Menu AllCancel
Caption = "【全部不显示】"
Shortcut = ^N
End
End
Begin VB.Menu Look
Caption = "〖查看〗"
Begin VB.Menu LookAll
Caption = "【查看全部来往记录】"
Shortcut = ^D
End
Begin VB.Menu tte
Caption = "-"
End
Begin VB.Menu geren
Caption = "【当前联系人资料】"
End
Begin VB.Menu oop
Caption = "-"
End
Begin VB.Menu addjl
Caption = "【为当前联系人添加来往记录】"
End
End
Begin VB.Menu gongju
Caption = "〖实用工具〗"
Begin VB.Menu bwlmenu
Caption = "【备忘录】"
End
Begin VB.Menu uui
Caption = "-"
End
Begin VB.Menu jsq
Caption = "【表达式计算器】"
End
End
Begin VB.Menu datawh
Caption = "〖数据维护〗"
Begin VB.Menu sjbfgl
Caption = "【数据备份管理器】"
End
Begin VB.Menu yyu
Caption = "-"
End
Begin VB.Menu databf
Caption = "【备份当前数据库】"
End
Begin VB.Menu ss
Caption = "-"
End
Begin VB.Menu datahf
Caption = "【恢复数据库到最近一次备份】"
End
End
Begin VB.Menu bz
Caption = "〖帮助〗"
Begin VB.Menu aboutmenu
Caption = "【关于】"
End
Begin VB.Menu ty
Caption = "-"
End
Begin VB.Menu help
Caption = "【帮助】"
End
End
Begin VB.Menu menu1
Caption = "〖功能菜单〗"
Begin VB.Menu addlw
Caption = "【添加来往记录】"
Shortcut = ^H
End
Begin VB.Menu fdsfs
Caption = "-"
End
Begin VB.Menu newadd
Caption = "【新增联系人】"
Shortcut = ^J
End
Begin VB.Menu fe
Caption = "-"
End
Begin VB.Menu LookForAll
Caption = "【显示所有】(刷新列表)"
Shortcut = ^R
End
Begin VB.Menu fda
Caption = "-"
End
Begin VB.Menu LookSelect
Caption = "【查看详细资料】"
End
Begin VB.Menu ew
Caption = "-"
End
Begin VB.Menu SelectAll
Caption = "【全选】"
Shortcut = ^A
End
Begin VB.Menu fee
Caption = "-"
End
Begin VB.Menu LookSelectAll
Caption = "【查看所有选中详细资料】"
End
Begin VB.Menu ere
Caption = "-"
End
Begin VB.Menu deletenow
Caption = "【删除当前】"
Shortcut = {DEL}
End
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -