📄 frmwagestandardcode.frm
字号:
'Option Explicit
'Private m_oRs4WageStandar As New ADODB.Recordset
'Private m_strSQL As String
'Private m_strTemp As String
'Private m_int4row As Long
'Private m_Int4Temp As Long
'Private m_int4iPosition As Long
'Dim Is_Add_Mark As Boolean
'Private Sub Command4Add_Click()
' Is_Add_Mark = True
' With VSFlexGrid4This
' Select Case Me.vsIndexTab4This.CurrTab
' Case 0
' If .TextMatrix(.Row, 2) = "" Or .TextMatrix(.Row, 4) = "" Or .TextMatrix(.Row, 6) = "" Or .TextMatrix(.Row, 7) = "" Then
' MsgBox "请录入完整信息或删除该记录!", vbOKOnly, "警告"
' Exit Sub
' End If
' Case 1
' If .TextMatrix(.Row, 2) = "" Or .TextMatrix(.Row, 3) = "" Or .TextMatrix(.Row, 4) = "" Or .TextMatrix(.Row, 5) = "" Then
' MsgBox "请录入完整信息或删除该记录!", vbOKOnly, "警告"
' Exit Sub
' End If
' Case 2
' If .TextMatrix(.Row, 2) = "" Or .TextMatrix(.Row, 3) = "" Or .TextMatrix(.Row, 4) = "" Then
' MsgBox "请录入完整信息或删除该记录!", vbOKOnly, "警告"
' Exit Sub
' End If
' End Select
'' If g_bIsSave = True Then m_oRs4WageStandar.Requery
' .AddItem ""
' .Row = .Rows - 1
' .RowData(.Row) = C_Init
' m_int4row = .Row
' End With
' Is_Add_Mark = False
'End Sub
'
'Private Sub Command4Close_Click()
' Unload Me
'End Sub
'
'Private Sub Command4Delete_Click()
' With VSFlexGrid4This
' Select Case Me.vsIndexTab4This.CurrTab
' Case 0
' If .TextMatrix(.Row, 1) = "" Then
' .RemoveItem .Row
' m_int4row = .Rows - 1
' Else
' If .Row <> 0 Then
' If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "") Then
' m_strSQL = "delete from T_STATION_TECHNICAL_WAGE where STATION_TECHNICAL_WAGE_NO=" & .TextMatrix(.Row, 1)
' If ExcuteSQL(m_strSQL) = 0 Then .RemoveItem (.Row)
' End If
' Else
' MsgBox "请选择记录", vbOKOnly, "提示！"
' End If
' End If
' Case 1
' If .TextMatrix(.Row, 1) = "" Then
' .RemoveItem .Row
' m_int4row = .Rows - 1
' Else
' If .Row > 0 Then
' If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "") Then
' m_strSQL = "delete from T_NEW_EMP_WAGE where NEW_EMP_WAGE_NO = " & .TextMatrix(.Row, 1)
' If ExcuteSQL(m_strSQL) = 0 Then .RemoveItem (.Row)
' End If
' Else
' MsgBox "请选择记录", vbOKOnly, "提示！"
' End If
' End If
' Case 2
' If .TextMatrix(.Row, 1) = "" Then
' .RemoveItem .Row
' m_int4row = .Rows - 1
' Else
' If .Row > 0 Then
' If vbYes = MsgBox("确认删除该记录吗?", vbYesNo + vbDefaultButton2, "") Then
' m_strSQL = "delete from T_WORK_CONTRACT_WAGE where WORK_CONTRACT_WAGE_NO = " & .TextMatrix(.Row, 1)
' If ExcuteSQL(m_strSQL) = 0 Then
' .RemoveItem (.Row)
' End If
' End If
' Else
' MsgBox "请选择记录", vbOKOnly, "提示！"
' End If
' End If
' End Select
' End With
'End Sub
'
'Private Sub InsertOrUpdate(ByVal OldRow As Long)
' Dim ors As New ADODB.Recordset
' Dim lNO As Long
' Select Case Me.vsIndexTab4This.CurrTab
' Case 0
' With VSFlexGrid4This
' If Trim(.TextMatrix(OldRow, 2)) = "" Then
' MsgBox "岗位工资档次不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 4)) = "" Then
' MsgBox "人员类别名称不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 6)) = "" Then
' MsgBox "职工岗位工资标准名称不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 7)) = "" Then
' MsgBox "岗位工资不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If OldRow = 0 Then Exit Sub
' If .RowData(OldRow) = C_Insert Then
' m_strSQL = "select * from T_STATION_TECHNICAL_WAGE where WORKER_TYPE_NO "
' If Trim(.TextMatrix(OldRow, 3)) = "" Then
' m_strSQL = m_strSQL & " is null "
' Else
' m_strSQL = m_strSQL & "= " & CSQL(.TextMatrix(OldRow, 3), 0)
' End If
' m_strSQL = m_strSQL & " and EMP_TYPE_NO=" & CSQL(.TextMatrix(OldRow, 4), 0) & "and TECHNICAL_GRADE_NO"
' If Trim(.TextMatrix(OldRow, 5)) = "" Then
' m_strSQL = m_strSQL & "is null"
' Else
' m_strSQL = m_strSQL & "=" & CSQL(.TextMatrix(OldRow, 5), 0)
' End If
' m_strSQL = m_strSQL & " and STATION_WAGE_STANDARD_NO=" & CSQL(.TextMatrix(OldRow, 6), 0)
' If ors.State = adStateOpen Then ors.Close
' ors.Open m_strSQL, g_oConnection4This
' If ors.EOF = False Then
' MsgBox "该信息已存在，请输入新的信息!", vbOKOnly, "警告"
' .RemoveItem OldRow
' OldRow = .Rows - 1
' Else
' m_strSQL = ""
' m_strSQL = m_strSQL & "insert into T_STATION_TECHNICAL_WAGE(STATION_TECHNICAL_WAGE_GRADE,WORKER_TYPE_NO,EMP_TYPE_NO,TECHNICAL_GRADE_NO,STATION_WAGE_STANDARD_NO,STATION_TECHNICAL_WAGE_NUMBER,OPERATER_SORT )" _
' & " values (" & .TextMatrix(OldRow, 2) & "," & CSQL(.TextMatrix(OldRow, 3), 0) & "," & CSQL(.TextMatrix(OldRow, 4), 0) & "," & CSQL(.TextMatrix(OldRow, 5), 0) & "," & CSQL(.TextMatrix(OldRow, 6), 0) & "," & CSQL(.TextMatrix(OldRow, 7), 0) & "," & CSQL(.TextMatrix(OldRow, 8), 0) & ")"
' If ExcuteSQL(m_strSQL) = 0 Then
' .RowData(OldRow) = C_NoChange
' Else
' Exit Sub
' End If
' End If
' Else
' If .RowData(OldRow) = C_Update Then
' m_strSQL = ""
' m_strSQL = m_strSQL & "select WORKER_TYPE_NO,EMP_TYPE_NO,TECHNICAL_GRADE_NO,STATION_WAGE_STANDARD_NO from T_STATION_TECHNICAL_WAGE where WORKER_TYPE_NO=" & CSQL(.TextMatrix(OldRow, 3), 0) & " and EMP_TYPE_NO=" & CSQL(.TextMatrix(OldRow, 4), 0) & " and TECHNICAL_GRADE_NO=" & CSQL(.TextMatrix(OldRow, 5), 0) & " and STATION_WAGE_STANDARD_NO=" & CSQL(.TextMatrix(OldRow, 6), 0) & " And STATION_TECHNICAL_WAGE_NO <> " & .TextMatrix(OldRow, 1)
' If ors.State = adStateOpen Then ors.Close
' ors.Open m_strSQL, g_oConnection4This
' If ors.EOF = False Then
' MsgBox "该信息已存在，请输入新的信息!", vbOKOnly, "警告"
' .RemoveItem OldRow
' OldRow = .Rows - 1
' Else
' m_strSQL = ""
' m_strSQL = "update T_STATION_TECHNICAL_WAGE set STATION_TECHNICAL_WAGE_GRADE=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 2) & ",WORKER_TYPE_NAME=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 3) & ",EMP_TYPE_NAME=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 4) & "," _
' & "TECHNICAL_GRADE_NAME =" & VSFlexGrid4This.Cell(flexcpText, OldRow, 5) & ",STATION_WAGE_STANDARD_NAME=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 6) & ",STATION_TECHNICAL_WAGE_NUMBER=" & VSFlexGrid4This.TextMatrix(OldRow, 7) & ",OPERATER_SORT=" & CSQL(.TextMatrix(OldRow, 8), 0) & " where STATION_TECHNICAL_WAGE_NO=" & .TextMatrix(OldRow, 1)
' If ExcuteSQL(m_strSQL) = 0 Then
' .RowData(OldRow) = C_NoChange
' g_bIsSave = True
' Else
' Exit Sub
' End If
' End If
' End If
' End If
' End With
' Case 1
' With VSFlexGrid4This
' If Trim(.TextMatrix(OldRow, 2)) = "" Then
' MsgBox "学历名称不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 3)) = "" Then
' MsgBox "岗位类别名称不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 4)) = "" Then
' MsgBox "职工岗位工资标准名称不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If Trim(.TextMatrix(OldRow, 5)) = "" Then
' MsgBox "新增职工工资不能为空！", vbOKOnly, "警告"
' Exit Sub
' End If
' If OldRow = 0 Then Exit Sub
' If .RowData(OldRow) = C_Insert Then
' m_strSQL = ""
' m_strSQL = m_strSQL & "select * from T_NEW_EMP_WAGE where EDUCATION_NO=" & CSQL(.TextMatrix(OldRow, 2), 0) & " and STATION_SORT_NO=" & CSQL(.TextMatrix(OldRow, 3), 0) & " and STATION_WAGE_STANDARD_NO=" & CSQL(.TextMatrix(OldRow, 4), 0)
' If ors.State = adStateOpen Then ors.Close
' ors.Open m_strSQL, g_oConnection4This
' If ors.EOF = False Then
' MsgBox "该信息已存在，请输入新的信息!", vbOKOnly, "警告"
' .RemoveItem OldRow
' ' OldRow = .Rows - 1
' Else
' m_strSQL = ""
' m_strSQL = m_strSQL & "insert into T_NEW_EMP_WAGE(EDUCATION_NO,STATION_SORT_NO,STATION_WAGE_STANDARD_NO,NEW_EMP_WAGE_NUMBER )" _
' & "values(" & CSQL(.TextMatrix(OldRow, 2), 0) & "," & CSQL(.TextMatrix(OldRow, 3), 0) & "," & CSQL(.TextMatrix(OldRow, 4), 0) & "," & CSQL(.TextMatrix(OldRow, 5), 0) & ")"
' If ExcuteSQL(m_strSQL) = 0 Then
' .RowData(OldRow) = C_NoChange
' Else
' Exit Sub
' End If
' End If
' Else
' If .RowData(OldRow) = C_Update Then
' m_strSQL = ""
' m_strSQL = m_strSQL & "select EDUCATION_NO,STATION_SORT_NO,STATION_WAGE_STANDARD_NO from T_NEW_EMP_WAGE where EDUCATION_NO=" & CSQL(.TextMatrix(OldRow, 2), 0) & " and STATION_SORT_NO=" & CSQL(.TextMatrix(OldRow, 3), 0) & " and STATION_WAGE_STANDARD_NO=" & CSQL(.TextMatrix(OldRow, 4), 0) & " and NEW_EMP_WAGE_NO<>" & .TextMatrix(OldRow, 1)
' If ors.State = adStateOpen Then ors.Close
' ors.Open m_strSQL, g_oConnection4This
' If ors.EOF = False Then
' MsgBox "该信息已存在，请输入新的信息!", vbOKOnly, "警告"
' .RemoveItem OldRow
' ' OldRow = .Rows - 1
' Else
' m_strSQL = "update T_NEW_EMP_WAGE set EDUCATION_NO=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 2) & ",STATION_SORT_NO=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 3) & ",STATION_WAGE_STANDARD_NO=" & VSFlexGrid4This.Cell(flexcpText, OldRow, 4) & "," _
' & "NEW_EMP_WAGE_NUMBER = " & VSFlexGrid4This.TextMatrix(OldRow, 5) & " where NEW_EMP_WAGE_NO=" & .TextMatrix(OldRow, 1)
' If ExcuteSQL(m_strSQL) = 0 Then
' .RowData(OldRow) = C_NoChange
' g_bIsSave = True
' Else
' Exit Sub
' End If
' End If
' End If
' End If
' End With
' Case 2
' With VSFlexGrid4This
' If OldRow = 0 Then Exit Sub
' If .RowData(OldRow) = C_Insert Then
' m_strSQL = ""
' m_strSQL = m_strSQL & "select STATION_WAGE_STANDARD_NO,STATION_SORT_NO from T_WORK_CONTRACT_WAGE where STATION_WAGE_STANDARD_NO=(select STATION_WAGE_STANDARD_NO from T_STATION_WAGE_STANDARD where STATION_WAGE_STANDARD_NAME=" & CSQL(.TextMatrix(OldRow, 2), 0) & ") and STATION_SORT_NO=(select STATION_SORT_NO from T_STATION_SORT where STATION_SORT_NAME=" & CSQL(.TextMatrix(OldRow, 3), 0) & ")"
' If ors.State = adStateOpen Then ors.Close
' ors.Open m_strSQL, g_oConnection4This
' If ors.EOF = False Then
' MsgBox "该信息已存在，请输入新的信息!", vbOKOnly, "警告"
' .RemoveItem OldRow
' 'm_int4row = .Rows - 1
' Else
' m_strSQL = ""
' m_strSQL = m_strSQL & "insert into T_WORK_CONTRACT_WAGE(STATION_WAGE_STANDARD_NO,STATION_SORT_NO,WORK_CONTRACT_WAGE_NUMBER) values (" & CSQL(.TextMatrix(OldRow, 2), 0) & "," & CSQL(.TextMatrix(OldRow, 3), 0) & "," & CSQL(.TextMatrix(OldRow, 4), 0) & ")"
' If ExcuteSQL(m_strSQL) = 0 Then
' .RowData(OldRow) = C_NoChange
' Else
' Exit Sub
' End If
' End If
' Else
' If .RowData(OldRow) = C_Update Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -