📄 tp_refresh2.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form TP_Refresh2
Caption = "刷卡异常："
ClientHeight = 3645
ClientLeft = 60
ClientTop = 345
ClientWidth = 6480
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 3645
ScaleWidth = 6480
StartUpPosition = 3 '窗口缺省
Begin VB.CommandButton cmdAdd
Caption = "查找"
Height = 500
Index = 0
Left = 5280
Picture = "TP_Refresh2.frx":0000
Style = 1 'Graphical
TabIndex = 19
Top = 1080
Width = 735
End
Begin MSComCtl2.DTPicker DTPicker1
Height = 255
Left = 1560
TabIndex = 17
Top = 120
Width = 1575
_ExtentX = 2778
_ExtentY = 450
_Version = 393216
Format = 23855105
CurrentDate = 38610
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 2
Left = 1620
TabIndex = 10
Top = 1725
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 1
Left = 1620
TabIndex = 9
Top = 1155
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 0
Left = 1620
TabIndex = 8
Top = 600
Width = 3000
End
Begin VB.CommandButton Command1
Height = 320
Index = 0
Left = 1920
Picture = "TP_Refresh2.frx":0102
Style = 1 'Graphical
TabIndex = 7
Top = 3135
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 1
Left = 2280
Picture = "TP_Refresh2.frx":0177
Style = 1 'Graphical
TabIndex = 6
Top = 3135
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 2
Left = 3720
Picture = "TP_Refresh2.frx":01E1
Style = 1 'Graphical
TabIndex = 5
Top = 3135
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 3
Left = 4080
Picture = "TP_Refresh2.frx":024B
Style = 1 'Graphical
TabIndex = 4
Top = 3135
Width = 320
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 3
Left = 1620
TabIndex = 3
Top = 2295
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 4
Left = 1620
TabIndex = 2
Top = 2775
Width = 3000
End
Begin VB.CommandButton cmdAdd
Caption = "保存"
Height = 500
Index = 1
Left = 5280
Picture = "TP_Refresh2.frx":02C1
Style = 1 'Graphical
TabIndex = 1
Top = 1815
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "退出"
Height = 500
Index = 2
Left = 5280
Picture = "TP_Refresh2.frx":03C3
Style = 1 'Graphical
TabIndex = 0
Top = 2475
Width = 735
End
Begin VB.Label Label1
Caption = "考勤日期"
Height = 180
Index = 4
Left = 600
TabIndex = 18
Top = 240
Width = 795
End
Begin VB.Label Label1
Caption = "姓名"
Height = 180
Index = 15
Left = 600
TabIndex = 16
Top = 1815
Width = 915
End
Begin VB.Label Label1
Caption = "卡号"
Height = 180
Index = 1
Left = 600
TabIndex = 15
Top = 1215
Width = 795
End
Begin VB.Label Label1
Caption = "卡序号"
Height = 180
Index = 0
Left = 600
TabIndex = 14
Top = 660
Width = 795
End
Begin VB.Label Label1
Caption = "编号"
Height = 180
Index = 2
Left = 600
TabIndex = 13
Top = 2415
Width = 915
End
Begin VB.Label Label1
Caption = "新工号"
Height = 180
Index = 3
Left = 600
TabIndex = 12
Top = 2895
Width = 915
End
Begin VB.Label Label2
ForeColor = &H00FF0000&
Height = 180
Left = 2640
TabIndex = 11
Top = 3255
Width = 1035
End
End
Attribute VB_Name = "TP_Refresh2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mDB As mDB
Dim strSQL As String
Dim adoprimaryRS As ADODB.Recordset
Dim strSQL2 As String
Private WithEvents adoPrimaryRS2 As ADODB.Recordset
Attribute adoPrimaryRS2.VB_VarHelpID = -1
Dim SqlmDB As mDB
Dim strSQL3 As String
Dim adoPrimaryRS3 As ADODB.Recordset
Private Sub adoprimaryRS2_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
Label2 = CStr(adoPrimaryRS2.AbsolutePosition) & "--" & CStr(adoPrimaryRS2.RecordCount)
End Sub
Private Sub cmdAdd_Click(Index As Integer)
On Error GoTo Err1
Select Case Index
Case 0
''adoPrimaryRS2.Filter = "len(HolderData.HolderNo)<6"
' strSQL2 = "SELECT DepartmentData.DepartmentNo, CardData.CardNo, CardData.CardID, HolderData.HolderNo, HolderData.HolderName " & _
'" FROM DepartmentData INNER JOIN ((HolderCardData INNER JOIN CardData ON HolderCardData.CardNo = CardData.CardNo) INNER JOIN HolderData ON HolderCardData.HolderNo = HolderData.HolderNo) ON DepartmentData.DepartmentNo = HolderData.DepartmentNo WHERE ((Len(CardID)>3)) and ((len(HolderData.HolderNo)<6)) ORDER BY DepartmentData.DepartmentNo;"
'Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
'
'Reload_PrimaryRS
strSQL2 = "select distinct CardNo,HolderNo,HolderName from IOData where len(HolderNo)=4 and IODate=#" & DTPicker1.Value & "#"
Set adoPrimaryRS2 = mDB.adoprimaryRS(strSQL2)
Reload_PrimaryRS
Case 1
Dim s As String
Dim s2 As String
s = txtFields(4).Text
If Len(s) = 6 Then
Dim bHave As Boolean
bHave = False
strSQL = "select * from CardData where GetCardHolder='" & s & "'"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -