📄 frmstopuseandloss.frm
字号:
VERSION 5.00
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "TABCTL32.OCX"
Begin VB.Form frmStopUseAndLoss
BorderStyle = 3 'Fixed Dialog
Caption = "卡停用及挂失"
ClientHeight = 4020
ClientLeft = 45
ClientTop = 330
ClientWidth = 4320
Icon = "frmStopUseAndLoss.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4020
ScaleWidth = 4320
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdFind
Caption = "查 询"
Height = 375
Left = 3240
TabIndex = 4
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdChangeCard
Caption = "挂失换卡"
Height = 375
Left = 240
TabIndex = 3
Top = 3480
Visible = 0 'False
Width = 975
End
Begin VB.CommandButton cmdRecall
Caption = "撤 消"
Height = 375
Left = 2280
TabIndex = 2
Top = 3480
Width = 855
End
Begin VB.CommandButton cmdStopUse
Caption = "停 用"
Height = 375
Left = 1320
TabIndex = 1
Top = 3480
Width = 855
End
Begin TabDlg.SSTab SSTStopUseAndLoss
Height = 3255
Left = 240
TabIndex = 0
Top = 120
Width = 3855
_ExtentX = 6800
_ExtentY = 5741
_Version = 393216
Tabs = 2
TabHeight = 520
TabCaption(0) = "停 用"
TabPicture(0) = "frmStopUseAndLoss.frx":000C
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "lblC_ID"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "lblDate"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "lblDay"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "lblUse_Date"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "lblUse_DateList"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "lblMemo"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "lblCH_Name"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).Control(7)= "lblCH_NameList"
Tab(0).Control(7).Enabled= 0 'False
Tab(0).Control(8)= "lblList"
Tab(0).Control(8).Enabled= 0 'False
Tab(0).Control(9)= "txtC_ID"
Tab(0).Control(9).Enabled= 0 'False
Tab(0).Control(10)= "cboDate"
Tab(0).Control(10).Enabled= 0 'False
Tab(0).Control(11)= "txtMemo"
Tab(0).Control(11).Enabled= 0 'False
Tab(0).Control(12)= "cmdList"
Tab(0).Control(12).Enabled= 0 'False
Tab(0).ControlCount= 13
TabCaption(1) = "挂 失"
TabPicture(1) = "frmStopUseAndLoss.frx":0028
Tab(1).ControlEnabled= 0 'False
Tab(1).Control(0)= "CmdInfomation"
Tab(1).Control(1)= "txtMemoLoss"
Tab(1).Control(2)= "txtC_IDLoss"
Tab(1).Control(3)= "lblMemoLoss"
Tab(1).Control(4)= "lblLoss_DateList"
Tab(1).Control(5)= "lblLoss_Date"
Tab(1).Control(6)= "lblCH_NameLossList"
Tab(1).Control(7)= "lblCH_NameLoss"
Tab(1).Control(8)= "lblC_IDLoss"
Tab(1).ControlCount= 9
Begin VB.CommandButton CmdInfomation
Caption = "...."
Height = 255
Left = -72360
TabIndex = 26
Top = 600
Width = 495
End
Begin VB.CommandButton cmdList
Caption = "...."
Height = 255
Left = 2760
TabIndex = 25
Top = 600
Width = 495
End
Begin VB.TextBox txtMemoLoss
Height = 1095
Left = -73560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 23
Top = 1800
Width = 2175
End
Begin VB.TextBox txtC_IDLoss
Height = 270
Left = -73440
MaxLength = 10
TabIndex = 17
Top = 600
Width = 1095
End
Begin VB.TextBox txtMemo
Height = 855
Left = 1560
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 13
Top = 2160
Width = 1935
End
Begin VB.ComboBox cboDate
Height = 300
ItemData = "frmStopUseAndLoss.frx":0044
Left = 1560
List = "frmStopUseAndLoss.frx":0057
Style = 2 'Dropdown List
TabIndex = 8
Top = 1365
Width = 855
End
Begin VB.TextBox txtC_ID
Height = 270
Left = 1560
MaxLength = 10
TabIndex = 6
Top = 600
Width = 1215
End
Begin VB.Label lblList
Caption = "Label1"
Height = 255
Left = 1560
TabIndex = 24
Top = 1320
Visible = 0 'False
Width = 1095
End
Begin VB.Label lblMemoLoss
AutoSize = -1 'True
Caption = "挂失描述："
Height = 180
Left = -74640
TabIndex = 22
Top = 1760
Width = 900
End
Begin VB.Label lblLoss_DateList
AutoSize = -1 'True
Height = 180
Left = -73440
TabIndex = 21
Top = 1395
Width = 90
End
Begin VB.Label lblLoss_Date
AutoSize = -1 'True
Caption = "挂失日期："
Height = 180
Left = -74640
TabIndex = 20
Top = 1400
Width = 900
End
Begin VB.Label lblCH_NameLossList
AutoSize = -1 'True
Height = 180
Left = -73440
TabIndex = 19
Top = 1005
Width = 90
End
Begin VB.Label lblCH_NameLoss
AutoSize = -1 'True
Caption = "持卡人姓名："
Height = 180
Left = -74640
TabIndex = 18
Top = 1000
Width = 1080
End
Begin VB.Label lblC_IDLoss
AutoSize = -1 'True
Caption = "持卡人ID："
Height = 180
Left = -74640
TabIndex = 16
Top = 650
Width = 900
End
Begin VB.Label lblCH_NameList
AutoSize = -1 'True
Height = 180
Left = 1560
TabIndex = 15
Top = 1005
Width = 90
End
Begin VB.Label lblCH_Name
AutoSize = -1 'True
Caption = "持卡人姓名："
Height = 255
Left = 360
TabIndex = 14
Top = 1000
Width = 1095
End
Begin VB.Label lblMemo
AutoSize = -1 'True
Caption = "停用描述："
Height = 255
Left = 360
TabIndex = 12
Top = 2160
Width = 975
End
Begin VB.Label lblUse_DateList
AutoSize = -1 'True
Height = 180
Left = 1560
TabIndex = 11
Top = 1800
Width = 90
End
Begin VB.Label lblUse_Date
AutoSize = -1 'True
Caption = "开启日期："
Height = 255
Left = 360
TabIndex = 10
Top = 1780
Width = 975
End
Begin VB.Label lblDay
AutoSize = -1 'True
Caption = "天"
Height = 180
Left = 2520
TabIndex = 9
Top = 1440
Width = 180
End
Begin VB.Label lblDate
AutoSize = -1 'True
Caption = "停用时间："
Height = 255
Left = 360
TabIndex = 7
Top = 1400
Width = 975
End
Begin VB.Label lblC_ID
AutoSize = -1 'True
Caption = "持卡人ID："
Height = 255
Left = 360
TabIndex = 5
Top = 650
Width = 975
End
End
End
Attribute VB_Name = "frmStopUseAndLoss"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rsStopUse As Recordset
Dim rsloss As Recordset
Dim rsLossChange As Recordset
Dim rsCardholderLoss As Recordset
Dim RsCardholder As Recordset
Dim rsCardholderChange As Recordset
Dim rsLossRecall As Recordset
Dim rsStopUseRecall As Recordset
Dim rsClass As Recordset
Dim rsLossFind As Recordset
Dim rsStopUseFind As Recordset
Dim rsSaving As Recordset
Dim rsShangJi As Recordset
Dim RsCreateNo As Recordset
Dim StrNewNo As String
Dim strtype As String
Private Sub cboDate_Click()
If cboDate.Text <> "" Then
lblUse_DateList.Caption = Date + cboDate.Text
End If
End Sub
Private Sub cmdChangeCard_Click()
If JudgeLoss = True Then
If MsgBox("确实要换卡吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
Set rsCardholderChange = New Recordset
rsCardholderChange.Open "select * from TBCardholder where CH_ID like '" & txtC_IDLoss.Text & "'", Modmain.conn, 3, 2
If rsCardholderLoss.Fields!State = "正常" Then
If Left(txtC_IDLoss.Text, 2) = "0B" Or Left(txtC_IDLoss.Text, 2) = "0Z" Or Left(txtC_IDLoss.Text, 2) = "0Y" Then
Student
ElseIf Left(txtC_IDLoss.Text, 2) = "0J" Or Left(txtC_IDLoss.Text, 2) = "0W" Then
strtype = Left(txtC_IDLoss.Text, 2)
XueYuan
ElseIf Left(txtC_IDLoss.Text, 2) = "0L" Then
strtype = Left(txtC_IDLoss.Text, 2)
LinShi
End If
ChangNo
Call AddLog("L34", "Loss") '挂失换卡记入操作日志
End If
End If
End If
'txtC_IDLoss.Text = ""
lblCH_NameLossList.Caption = ""
lblLoss_DateList.Caption = ""
txtMemoLoss.Text = ""
End Sub
Private Sub cmdFind_Click()
If SSTStopUseAndLoss.Tab = 0 Then
frmStopUseFind.Show 1
Call AddLog("L37", "Find")
ElseIf SSTStopUseAndLoss.Tab = 1 Then
frmLossFind.Show 1
Call AddLog("L38", "Find")
End If
End Sub
Private Sub CmdInfomation_Click()
frmCardholderList.StrForm = "frmStopUseAndLoss22"
frmCardholderList.Show 1
txtC_IDLoss.SetFocus
End Sub
Private Sub cmdList_Click()
frmCardholderList.StrForm = "frmStopUseAndLoss11"
frmCardholderList.Show 1
txtC_ID.SetFocus
End Sub
Private Sub cmdRecall_Click()
If SSTStopUseAndLoss.Tab = 0 Then
If JudgeRecall = True Then
If MsgBox("确实要撤消吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
SaveStopUseRecall
Call AddLog("L36", "StopUse") '记入操作日志
End If
End If
ElseIf SSTStopUseAndLoss.Tab = 1 Then
If JudgeLoss = True Then
If MsgBox("确实要撤消吗?", vbYesNo + vbQuestion, "机房管理") = vbYes Then
SaveLossRecall
Call AddLog("L33", "Loss") '记入操作日志
End If
End If
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -