📄 tp_refresh.frm
字号:
VERSION 5.00
Object = "{F0D2F211-CCB0-11D0-A316-00AA00688B10}#1.0#0"; "MSDATLST.OCX"
Begin VB.Form TP_Refresh
Caption = "工号编辑"
ClientHeight = 3780
ClientLeft = 60
ClientTop = 345
ClientWidth = 6570
LinkTopic = "Form1"
ScaleHeight = 3780
ScaleWidth = 6570
StartUpPosition = 2 '屏幕中心
Begin VB.CommandButton cmdAdd
Caption = "查找"
Height = 500
Index = 4
Left = 5400
Picture = "TP_Refresh.frx":0000
Style = 1 'Graphical
TabIndex = 21
Top = 240
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "校对"
Enabled = 0 'False
Height = 500
Index = 3
Left = 5400
Picture = "TP_Refresh.frx":0102
Style = 1 'Graphical
TabIndex = 20
Top = 2880
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "未修改"
Height = 500
Index = 0
Left = 5400
Picture = "TP_Refresh.frx":024C
Style = 1 'Graphical
TabIndex = 18
Top = 900
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "退出"
Height = 500
Index = 2
Left = 5400
Picture = "TP_Refresh.frx":0396
Style = 1 'Graphical
TabIndex = 17
Top = 2220
Width = 735
End
Begin VB.CommandButton cmdAdd
Caption = "保存"
Height = 500
Index = 1
Left = 5400
Picture = "TP_Refresh.frx":06A0
Style = 1 'Graphical
TabIndex = 16
Top = 1560
Width = 735
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Height = 300
Index = 4
Left = 1860
TabIndex = 14
Top = 3000
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 3
Left = 1860
TabIndex = 12
Top = 2520
Width = 3000
End
Begin VB.CommandButton Command1
Height = 320
Index = 3
Left = 4320
Picture = "TP_Refresh.frx":07A2
Style = 1 'Graphical
TabIndex = 11
Top = 3360
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 2
Left = 3960
Picture = "TP_Refresh.frx":0818
Style = 1 'Graphical
TabIndex = 10
Top = 3360
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 1
Left = 2520
Picture = "TP_Refresh.frx":0882
Style = 1 'Graphical
TabIndex = 9
Top = 3360
Width = 320
End
Begin VB.CommandButton Command1
Height = 320
Index = 0
Left = 2160
Picture = "TP_Refresh.frx":08EC
Style = 1 'Graphical
TabIndex = 8
Top = 3360
Width = 320
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 0
Left = 1860
TabIndex = 2
Top = 825
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 1
Left = 1860
TabIndex = 1
Top = 1380
Width = 3000
End
Begin VB.TextBox txtFields
BackColor = &H00C0DCC0&
Enabled = 0 'False
Height = 300
Index = 2
Left = 1860
TabIndex = 0
Top = 1950
Width = 3000
End
Begin MSDataListLib.DataCombo DataCombo1
Height = 330
Index = 0
Left = 1860
TabIndex = 3
Top = 225
Width = 3015
_ExtentX = 5318
_ExtentY = 582
_Version = 393216
Enabled = 0 'False
BackColor = 12639424
Text = ""
End
Begin VB.Label Label2
ForeColor = &H00FF0000&
Height = 180
Left = 2880
TabIndex = 19
Top = 3480
Width = 1035
End
Begin VB.Label Label1
Caption = "新工号"
Height = 180
Index = 3
Left = 840
TabIndex = 15
Top = 3120
Width = 915
End
Begin VB.Label Label1
Caption = "编号"
Height = 180
Index = 2
Left = 840
TabIndex = 13
Top = 2640
Width = 915
End
Begin VB.Label Label1
Caption = "部门"
Height = 180
Index = 5
Left = 840
TabIndex = 7
Top = 330
Width = 795
End
Begin VB.Label Label1
Caption = "卡序号"
Height = 180
Index = 0
Left = 840
TabIndex = 6
Top = 885
Width = 795
End
Begin VB.Label Label1
Caption = "卡号"
Height = 180
Index = 1
Left = 840
TabIndex = 5
Top = 1440
Width = 795
End
Begin VB.Label Label1
Caption = "姓名"
Height = 180
Index = 15
Left = 840
TabIndex = 4
Top = 2040
Width = 915
End
End
Attribute VB_Name = "TP_Refresh"
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
Dim s As String
Dim s2 As String
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
Case 1
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)
If adoprimaryRS.RecordCount Then
bHave = True
s2 = adoprimaryRS.Fields("CardNo").Value
GoTo GO11
End If
strSQL = "select * from HolderData where HolderNo='" & s & "'"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
If adoprimaryRS.RecordCount Then
bHave = True
s2 = Mid(adoprimaryRS.Fields("GetCardNo").Value, 2, 4)
GoTo GO11
End If
strSQL = "select * from HolderCardData where HolderNo='" & s & "'"
Set adoprimaryRS = mDB.adoprimaryRS(strSQL)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -