📄 ufrmmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form UfrmMain
BorderStyle = 1 'Fixed Single
Caption = "客户管理"
ClientHeight = 4485
ClientLeft = 45
ClientTop = 330
ClientWidth = 7215
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4485
ScaleWidth = 7215
StartUpPosition = 3 '窗口缺省
Begin MSComctlLib.ListView ListView1
Height = 3975
Left = 120
TabIndex = 1
Top = 360
Width = 6975
_ExtentX = 12303
_ExtentY = 7011
Sorted = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.ImageList ImageList2
Left = 960
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 12
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":0000
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":09DC
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":12B8
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":1414
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":19B0
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":228C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":2B68
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":3444
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":3D20
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":42BC
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":4858
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":49B4
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList ImageList1
Left = 360
Top = 3000
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 13
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":5290
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":5C6C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":6548
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":66A4
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":6800
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":6C54
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":7530
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":7E0C
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":86E8
Key = ""
EndProperty
BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":8C84
Key = ""
EndProperty
BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":8DE0
Key = ""
EndProperty
BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":937C
Key = ""
EndProperty
BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "UfrmMain.frx":9698
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar TbrMenu
Align = 1 'Align Top
Height = 360
Left = 0
TabIndex = 0
Top = 0
Width = 7215
_ExtentX = 12726
_ExtentY = 635
ButtonWidth = 609
ButtonHeight = 582
Appearance = 1
Style = 1
ImageList = "ImageList2"
HotImageList = "ImageList1"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 10
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "DisPlayInstall"
Object.ToolTipText = "设置成员的管理员角色"
ImageIndex = 12
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "againnew"
Object.ToolTipText = "刷新记录集"
ImageIndex = 3
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Add"
Object.ToolTipText = "添加新记录"
ImageIndex = 11
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Delete"
Object.ToolTipText = "删除数据"
ImageIndex = 4
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Update"
Object.ToolTipText = "更新数据"
ImageIndex = 5
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "progress"
ImageIndex = 9
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
ImageIndex = 8
EndProperty
BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "Exit"
Object.ToolTipText = "退出当前窗口"
ImageIndex = 10
EndProperty
EndProperty
End
Begin VB.Menu menu
Caption = "menu"
Visible = 0 'False
Begin VB.Menu menuAdd
Caption = "添加"
End
Begin VB.Menu menuDrop
Caption = "删除"
End
Begin VB.Menu menuChange
Caption = "修改"
End
Begin VB.Menu menuHen
Caption = "-"
End
Begin VB.Menu menuProgress
Caption = "属性"
End
End
End
Attribute VB_Name = "UfrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim Cn As New Connection
Dim rs As New Recordset
Call ConnectDataBase
Cn.Open cnDataBase_GivePower
Cn.CursorLocation = adUseClient
rs.Open "select 姓名 , 身份证, 电话号码, 手机号码, 联系地址 from KeHuMember where 业务员='" & strLoginName & "'", Cn, adOpenStatic
Call InListItems(ListView1, ImageList1, rs, 1)
End Sub
Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
If ColumnHeader.Icon = 7 Then
For i = 1 To ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders.Item(i).Icon = 0
Next
ListView1.SortKey = ColumnHeader.SubItemIndex
ListView1.SortOrder = lvwAscending
ColumnHeader.Icon = 6
Else
For i = 1 To ListView1.ColumnHeaders.Count
ListView1.ColumnHeaders.Item(i).Icon = 0
Next
ListView1.SortKey = ColumnHeader.SubItemIndex
ListView1.SortOrder = lvwDescending
ColumnHeader.Icon = 7
End If
End Sub
Private Sub ListView1_DblClick()
Call menuProgress_Click
End Sub
Private Sub ListView1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 2 Then
PopupMenu menu
End If
End Sub
Private Sub menuAdd_Click()
Me.MousePointer = 11
strKeHuWay = "Add"
UfrmKeHu.Show
Me.MousePointer = 0
End Sub
Private Sub menuChange_Click()
Me.MousePointer = 11
strKeHuWay = "Update"
Call ChangeKeHu(ListView1.SelectedItem)
Me.MousePointer = 0
End Sub
Private Sub menuDrop_Click()
Dim Dropname(10)
fbwtfanb = MsgBox("你确信要删除记录吗？", vbInformation + vbYesNo, "提示")
If fbwtfanb = 7 Then
Exit Sub
End If
Me.MousePointer = 11
For i = 0 To 10
Dropname(i) = ""
Next
Dropname(0) = ListView1.SelectedItem
Dropname(10) = "删除"
MsgBox Execproc("procInsertIntoKeHu", 12, Dropname()), vbInformation
ListView1.ListItems.Remove ListView1.SelectedItem.Index
Me.MousePointer = 0
End Sub
Private Sub menuProgress_Click()
Me.MousePointer = 11
UfrmKeHu.Frame1.Enabled = False
Call ChangeKeHu(ListView1.SelectedItem)
Me.MousePointer = 0
End Sub
Private Sub TbrMenu_ButtonClick(ByVal Button As MSComctlLib.Button)
Select Case Button.Key
Case "Exit"
Unload Me
Case "Add"
Call menuAdd_Click
Case "progress"
Call menuProgress_Click
Case "Update"
Call menuChange_Click
Case "Delete"
Call menuDrop_Click
End Select
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -