?? 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 + -