📄 frmmember.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmMember
Caption = "会员管理"
ClientHeight = 6270
ClientLeft = 60
ClientTop = 630
ClientWidth = 9150
Icon = "frmMember.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MDIChild = -1 'True
ScaleHeight = 6270
ScaleWidth = 9150
WindowState = 2 'Maximized
Begin VB.Frame Frame1
Height = 735
Left = 120
TabIndex = 7
Top = 30
Width = 8580
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "关闭(&C)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 7425
TabIndex = 6
Top = 195
Width = 1500
End
Begin VB.CommandButton cmdPrint
Caption = "打印列表(&P)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 6240
TabIndex = 5
Top = 195
Width = 1500
End
Begin VB.CommandButton cmdAdd
Caption = "添加会员(&A)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 120
TabIndex = 1
Top = 195
Width = 1500
End
Begin VB.CommandButton cmdModify
Caption = "修改会员(&M)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 1650
TabIndex = 2
Top = 195
Width = 1500
End
Begin VB.CommandButton cmdDel
Caption = "删除会员(&D)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 3180
TabIndex = 3
Top = 195
Width = 1500
End
Begin VB.CommandButton cmdSearch
Caption = "会员查询(&F)"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 435
Left = 4710
TabIndex = 4
Top = 195
Width = 1500
End
End
Begin MSComctlLib.ListView lstPro
Height = 4065
Left = 75
TabIndex = 0
Top = 795
Width = 8685
_ExtentX = 15319
_ExtentY = 7170
View = 3
LabelEdit = 1
LabelWrap = -1 'True
HideSelection = 0 'False
AllowReorder = -1 'True
FullRowSelect = -1 'True
GridLines = -1 'True
_Version = 393217
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 9
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "编号与卡号"
Object.Width = 1940
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "姓名"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 2
SubItemIndex = 2
Text = "性别"
Object.Width = 1058
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "电话"
Object.Width = 2469
EndProperty
BeginProperty ColumnHeader(5) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 4
Text = "手机"
Object.Width = 1764
EndProperty
BeginProperty ColumnHeader(6) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 5
Text = "地址"
Object.Width = 3263
EndProperty
BeginProperty ColumnHeader(7) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 6
Text = "卡内余额"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(8) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Alignment = 1
SubItemIndex = 7
Text = "消费累计"
Object.Width = 1852
EndProperty
BeginProperty ColumnHeader(9) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 8
Text = "会员等级"
Object.Width = 1764
EndProperty
End
Begin VB.Menu mnuControl
Caption = "控制中心(&C)"
Begin VB.Menu mnuMemberAdd
Caption = "会员添加(&A)"
Shortcut = ^N
End
Begin VB.Menu mnuDetail
Caption = "会员详细资料 ..."
End
Begin VB.Menu asdf
Caption = "-"
End
Begin VB.Menu mnuAdd
Caption = "会员卡充值"
Shortcut = {F5}
End
Begin VB.Menu mnuBack
Caption = "会员退卡(&Back)"
Shortcut = ^B
End
Begin VB.Menu asdfasdf
Caption = "-"
End
Begin VB.Menu mnuCard
Caption = "会员卡消费对帐..."
End
Begin VB.Menu rr44
Caption = "-"
End
Begin VB.Menu mnuMemberModify
Caption = "会员修改(&M)"
Shortcut = ^M
End
Begin VB.Menu mnuMemberDel
Caption = "会员删除(&D)"
Shortcut = {DEL}
End
Begin VB.Menu LIne02
Caption = "-"
End
Begin VB.Menu mnuMemberSearch
Caption = "会员查询(&S)"
Shortcut = {F3}
End
Begin VB.Menu mnuRefresh
Caption = "显示所有会员(&R)"
Shortcut = {F4}
End
Begin VB.Menu Line202
Caption = "-"
End
Begin VB.Menu mnuExit
Caption = "关闭返回(&X)"
Shortcut = ^X
End
End
End
Attribute VB_Name = "frmMember"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub cmdAdd_Click()
frmNewForm.Show 1
End Sub
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdDel_Click()
'删除会员
If lstPro.ListItems.Count = 0 Then Exit Sub
If lstPro.SelectedItem.Text = "" Then
MsgBox "请选定需要删除的会员,然后按删除按钮？ " & vbCrLf & "该会员删除后，所有消费记录都将删除。", vbExclamation, "Design By Yusilong."
Exit Sub
ElseIf MsgBox("确认删除编号为【" & lstPro.SelectedItem.Text & "】会员吗（Y/N）？ " _
& vbCrLf & vbCrLf & "如果已经发卡而且卡内金额不为0时，自动建立退卡操作。", vbCritical + vbYesNo, "删除后不能恢复 ：-( ") = vbYes Then
' 删除所有关联表代码
If DelRecords(lstPro.SelectedItem.Text, CCur(lstPro.SelectedItem.SubItems(6))) = True Then
lstPro.ListItems.Remove lstPro.SelectedItem.Index
End If
End If
End Sub
Private Sub cmdModify_Click()
If lstPro.ListItems.Count = 0 Then Exit Sub
If lstPro.SelectedItem.Text = "" Then
MsgBox "请选定需要修改的会员,然后按修改按钮？ ", vbExclamation, "Design By Yusilong."
Exit Sub
Else
frmModifyForm.Show 1
End If
End Sub
Private Sub cmdPrint_Click()
If lstPro.ListItems.Count = 0 Then Exit Sub
'打印列表
If MsgBox("真的要打印【会员列表】吗？(Y/N) " & vbCrLf _
& "请设置打印机的纸张：A4 纵向 " & vbCrLf & vbCrLf _
& "如果需要打印部份会员,请首先查询后再打印。 ", vbInformation + vbYesNo, "www.vb-code.net") = vbNo Then
Exit Sub
End If
Dim ptGrid As listViewPrint
'建立打印对象
On Error GoTo Err1
Dim strPageLeft As String
Dim strPageTop As String
Dim PageTop As Long
Dim PageLeft As Long
Set ptGrid = New listViewPrint
ptGrid.N_Border = 1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -