📄 frm_bykgl.frm
字号:
Begin VB.CheckBox Check1
BackColor = &H0080C0FF&
Caption = "包全年"
Enabled = 0 'False
Height = 255
Left = 3495
TabIndex = 19
Top = 1080
Width = 900
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 2910
TabIndex = 30
Top = 330
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "诊断："
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 195
TabIndex = 28
Top = 720
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "金额："
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 2910
TabIndex = 27
Top = 735
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编号："
ForeColor = &H00000000&
Height = 180
Index = 0
Left = 192
TabIndex = 26
Top = 324
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "日期："
ForeColor = &H00000000&
Height = 180
Index = 4
Left = 192
TabIndex = 25
Top = 1140
Width = 540
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "备注："
ForeColor = &H00000000&
Height = 180
Index = 5
Left = 192
TabIndex = 24
Top = 1536
Width = 540
End
End
Begin VB.Frame Frame2
BackColor = &H0080C0FF&
Caption = "请输入查询条件："
Height = 1920
Left = 3804
TabIndex = 31
Top = 90
Visible = 0 'False
Width = 5388
Begin VB.Frame Frame3
BackColor = &H0080C0FF&
Caption = "时间范围："
Height = 735
Left = 180
TabIndex = 41
Top = 1005
Visible = 0 'False
Width = 5115
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Index = 0
Left = 735
TabIndex = 36
Top = 255
Width = 1650
_ExtentX = 2910
_ExtentY = 529
_Version = 393216
Format = 56295424
CurrentDate = 36792
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 300
Index = 1
Left = 3300
TabIndex = 37
Top = 255
Width = 1650
_ExtentX = 2910
_ExtentY = 529
_Version = 393216
Format = 56295424
CurrentDate = 36792
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "从"
Height = 180
Index = 1
Left = 330
TabIndex = 43
Top = 315
Width = 180
End
Begin VB.Label Label5
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "到"
Height = 180
Index = 0
Left = 2520
TabIndex = 42
Top = 330
Width = 180
End
End
Begin VB.CheckBox Check2
BackColor = &H0080C0FF&
Caption = "在一定时间范围内查询"
Height = 195
Left = 3090
TabIndex = 35
Top = 750
Width = 2145
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 270
Index = 2
Left = 900
MaxLength = 20
TabIndex = 34
Top = 690
Width = 1665
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 270
Index = 0
Left = 900
TabIndex = 32
Top = 285
Width = 1665
End
Begin VB.TextBox Text2
BackColor = &H00C0E0FF&
Height = 270
Index = 1
Left = 3480
MaxLength = 4
TabIndex = 33
Top = 285
Width = 1665
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "诊断："
Height = 180
Index = 2
Left = 315
TabIndex = 40
Top = 735
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编号："
Height = 180
Index = 0
Left = 315
TabIndex = 39
Top = 330
Width = 540
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "姓名："
Height = 180
Index = 1
Left = 2895
TabIndex = 38
Top = 330
Width = 540
End
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "诊断类型："
Height = 180
Index = 1
Left = 120
TabIndex = 3
Top = 75
Width = 900
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "编号-持卡人："
Height = 180
Index = 0
Left = 2025
TabIndex = 2
Top = 90
Width = 1170
End
Begin VB.Label Label3
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "注：三个月内有效"
Height = 180
Left = 3825
TabIndex = 0
Top = 4155
Width = 1455
End
End
Attribute VB_Name = "frm_bykgl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim db As Database
Dim rec As Recordset
Dim sqlrec As Recordset
Dim childrec As Recordset
Dim con As ColumnHeader
Dim kl As String
Private Sub OKButton_Click()
End Sub
Private Sub Check2_Click()
If Check2.Value Then
Frame3.Visible = True
Else
Frame3.Visible = False
End If
End Sub
Public Sub Command1_Click(Index As Integer)
On Error GoTo jgqerr
Select Case Index
Case 0
Load frm_kxk
Select Case jjj
Case 0
frm_kxk.Caption = "开新卡--包月卡"
Case 1
frm_kxk.Caption = "开新卡--疗程卡"
Case 2
frm_kxk.Caption = "开新卡--美发包月卡"
End Select
frm_kxk.Show 1
Case 1 '全部删除
yn = MsgBox("真的想全部删除" + kl + "记录吗？" + Chr(13) + "关于该卡的单次登记资料也将一起删除", vbYesNo + vbInformation + vbDefaultButton2, "提示")
If yn = vbNo Then
Exit Sub
End If
sqlstr = "delete * from 包月卡 where 类型='" + kl + "'"
db.Execute sqlstr
sqlstr = "delete * from 包月明细卡 where 类型='" + kl + "'"
db.Execute sqlstr
sqlstr = "delete * from 客户表 where 类型='" + kl + "'"
db.Execute sqlstr
Select Case jjj
Case 0
byk_maxno = "0"
Case 1
lck_maxno = "0"
Case 2
mfbyk_maxno = "0"
End Select
ss
Case 2 '退卡
If MsgBox("真的要想退卡吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示") = vbNo Then
Exit Sub
End If
If Text1(5) = "已退卡" Then
MsgBox "该客户已经退卡，不能再退卡", vbOKOnly + vbCritical, "错误"
Exit Sub
End If
Select Case jjj
Case 0
If ListView1.ListItems.Count >= 4 Then
yn = MsgBox("该客户美容已经超过 4 次，建议不能退卡" + Chr(13) + "真的要退卡吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
If yn = vbNo Then
Exit Sub
End If
End If
Case 1
If ListView1.ListItems.Count >= 5 Then
yn = MsgBox("该客户美容已经超过 5 次，建议不能退卡" + Chr(13) + "真的要退卡吗？", vbYesNo + vbInformation + vbDefaultButton2, "提示")
If yn = vbNo Then
Exit Sub
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -