frmwagestandardcode.frm

本公司开发得大请油田人事管理系统c/s结构

'                    m_strSQL = ""
'                    m_strSQL = m_strSQL & "select STATION_WAGE_STANDARD_NO,STATION_SORT_NO from T_WORK_CONTRACT_WAGE where STATION_WAGE_STANDARD_NO=" & CSQL(.TextMatrix(OldRow, 2), 0) & " and STATION_SORT_NO=" & CSQL(.TextMatrix(OldRow, 3), 0) & " And WORK_CONTRACT_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
'                        'm_int4row = .Rows - 1
'                    Else
'                        m_strSQL = ""
'                        m_strSQL = m_strSQL & "update T_WORK_CONTRACT_WAGE set STATION_WAGE_STANDARD_NO=" & CSQL(VSFlexGrid4This.Cell(flexcpText, OldRow, 2), 0) & ",STATION_SORT_NO=" & CSQL(VSFlexGrid4This.TextMatrix(OldRow, 3), 0) & ",WORK_CONTRACT_WAGE_NUMBER=" & VSFlexGrid4This.TextMatrix(OldRow, 4) & " where WORK_CONTRACT_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
'    End Select
'    Call search
'End Sub
'
'Private Sub Command4Save_Click()
'    With VSFlexGrid4This
'        If (.RowData(.Row) = C_Insert Or .RowData(.Row) = C_Update) Then
'            InsertOrUpdate (.Row)
'        Else
'            Exit Sub
'        End If
'    End With
'End Sub
'
'Private Sub Form_Load()
'    Me.Height = 5460
'    Me.Width = 9540
'
'    With VSFlexGrid4This
'        .ExtendLastCol = True
'        .AllowUserResizing = flexResizeColumns
'        .AllowBigSelection = False
'        .AllowSelection = False
'        .ExplorerBar = flexExSortShow
'        .SelectionMode = flexSelectionByRow
'        .Editable = flexEDKbdMouse
'    End With
'
'    vsIndexTab4This.CurrTab = 0
'    Call search
'    Call InitForm
'    Unload frmSplash
'End Sub
'Private Sub search()
'    With VSFlexGrid4This
'        Select Case Me.vsIndexTab4This.CurrTab
'            Case 0
'                m_strSQL = ""
'                m_strSQL = m_strSQL & "select STATION_TECHNICAL_WAGE_NO,STATION_TECHNICAL_WAGE_GRADE,WORKER_TYPE_NO,EMP_TYPE_NO,TECHNICAL_GRADE_NO,STATION_WAGE_STANDARD_NO,STATION_TECHNICAL_WAGE_NUMBER,OPERATER_SORT" & " from T_STATION_TECHNICAL_WAGE"
''                           & " where T_STATION_TECHNICAL_WAGE.WORKER_TYPE_NO=T_WORKER_TYPE.WORKER_TYPE_NO and T_STATION_TECHNICAL_WAGE.EMP_TYPE_NO=T_EMP_TYPE.EMP_TYPE_NO and T_STATION_TECHNICAL_WAGE.TECHNICAL_GRADE_NO=T_TECHNICAL_GRADE.TECHNICAL_GRADE_NO and T_STATION_TECHNICAL_WAGE.STATION_WAGE_STANDARD_NO=T_STATION_WAGE_STANDARD.STATION_WAGE_STANDARD_NO and STATION_TECHNICAL_WAGE_NO<>-1"
'                If m_oRs4WageStandar.State = adStateOpen Then m_oRs4WageStandar.Close
'                m_oRs4WageStandar.Open m_strSQL, g_oConnection4This
'                Set VSFlexGrid4This.DataSource = m_oRs4WageStandar
'
'            Case 1
'                m_strSQL = ""
'                m_strSQL = m_strSQL & "select NEW_EMP_WAGE_NO,EDUCATION_NO,STATION_SORT_NO,STATION_WAGE_STANDARD_NO,NEW_EMP_WAGE_NUMBER" & " from T_NEW_EMP_WAGE"
''                          & " where T_NEW_EMP_WAGE.EDUCATION_NO=T_EDUCATION_LEVEL.EDUCATION_NO and T_NEW_EMP_WAGE.STATION_SORT_NO=T_STATION_SORT.STATION_SORT_NO and T_NEW_EMP_WAGE.STATION_WAGE_STANDARD_NO =T_STATION_WAGE_STANDARD.STATION_WAGE_STANDARD_NO and NEW_EMP_WAGE_NO<>-1"
'                If m_oRs4WageStandar.State = adStateOpen Then m_oRs4WageStandar.Close
'                m_oRs4WageStandar.Open m_strSQL, g_oConnection4This
'                Set VSFlexGrid4This.DataSource = m_oRs4WageStandar
'
'            Case 2
'                m_strSQL = ""
'                m_strSQL = m_strSQL & "select WORK_CONTRACT_WAGE_NO,STATION_WAGE_STANDARD_NO,STATION_SORT_NO,WORK_CONTRACT_WAGE_NUMBER" & " from T_WORK_CONTRACT_WAGE" _
''                        & " where T_WORK_CONTRACT_WAGE.STATION_WAGE_STANDARD_NO=T_STATION_WAGE_STANDARD.STATION_WAGE_STANDARD_NO and T_WORK_CONTRACT_WAGE.STATION_SORT_NO=T_STATION_SORT.STATION_SORT_NO and WORK_CONTRACT_WAGE_NO<>-1"
'                If m_oRs4WageStandar.State = adStateOpen Then m_oRs4WageStandar.Close
'                m_oRs4WageStandar.Open m_strSQL, g_oConnection4This
'                Set VSFlexGrid4This.DataSource = m_oRs4WageStandar
'
'        End Select
'    End With
'End Sub
'
'Private Sub Form_Unload(Cancel As Integer)
'    UnloadCurrentForm "ID_MENU_WAGE_STANDARD", "ID_TOOLBAR_WAGE"
'End Sub
'
'Private Sub VSFlexGrid4This_AfterDataRefresh()
'    Dim ifor As Long
'    With VSFlexGrid4This
'        m_int4row = .Rows - 1
'        Select Case Me.vsIndexTab4This.CurrTab
'            Case 0
'                .TextMatrix(0, 1) = "岗技工资编号"
'                .TextMatrix(0, 2) = "岗位工资档次"
'                .TextMatrix(0, 3) = "工种名称"
'                .TextMatrix(0, 4) = "人员类别名称"
'                .TextMatrix(0, 5) = "技术等级名称"
'                .TextMatrix(0, 6) = "职工岗位工资标准名称"
'                .TextMatrix(0, 7) = "岗位工资"
'                .TextMatrix(0, 8) = "操作人员岗位类别"
'                .ColHidden(1) = True
'
'                .ColComboList(8) = "#1;一类|#2;二类|#3;三类|#4;四类"
'                .ColComboList(2) = "#1;一档|#2;二档|#3;三档|#4;四档"
'                .ColDataType(7) = flexDTDouble
'                .ColFormat(7) = ".##"
'                .ColWidth(1) = .ClientWidth * 0.1
'                .ColWidth(2) = .ClientWidth * 0.15
'                .ColWidth(3) = .ClientWidth * 0.12
'                .ColWidth(4) = .ClientWidth * 0.15
'                .ColWidth(5) = .ClientWidth * 0.15
'                .ColWidth(6) = .ClientWidth * 0.22
'                .ColWidth(7) = .ClientWidth * 0.1
'                .ColWidth(8) = .ClientWidth * 0.2
'            Case 1
'                .TextMatrix(0, 1) = "新增职工工资编号"
'                .TextMatrix(0, 2) = "学历名称"
'                .TextMatrix(0, 3) = "岗位类别名称"
'                .TextMatrix(0, 4) = "职工岗位工资标准名称"
'                .TextMatrix(0, 5) = "新增职工工资"
'                .ColHidden(1) = True
'
'                .ColDataType(5) = flexDTDouble
'                .ColFormat(5) = ".##"
'                .ColWidth(1) = .ClientWidth * 0.2
'                .ColWidth(2) = .ClientWidth * 0.2
'                .ColWidth(3) = .ClientWidth * 0.2
'                .ColWidth(4) = .ClientWidth * 0.2
'                .ColWidth(5) = .ClientWidth * 0.2
'            Case 2
'                .TextMatrix(0, 1) = "劳务合同工工资编号"
'                .TextMatrix(0, 2) = "职工岗位工资标准名称"
'                .TextMatrix(0, 3) = "岗位类别名称"
'                .TextMatrix(0, 4) = "劳务合同工工资"
'                .ColHidden(1) = True
'
'                .ColDataType(4) = flexDTDouble
'                .ColFormat(4) = ".##"
'                .ColWidth(1) = .ClientWidth * 0.3
'                .ColWidth(2) = .ClientWidth * 0.3
'                .ColWidth(3) = .ClientWidth * 0.3
'                .ColWidth(4) = .ClientWidth * 0.3
'        End Select
'        .RowData(0) = C_Update
'                For ifor = 1 To .Rows - 1
'                    .RowData(ifor) = C_NoChange
'                Next
'        For ifor = 1 To .Cols - 1
'            .ColAlignment(ifor) = flexAlignCenterCenter
'        Next
'
'
'
'        Select Case Me.vsIndexTab4This.CurrTab
'            Case 0
'                .ColComboList(6) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_STATION_WAGE_STANDARD", "STATION_WAGE_STANDARD_NAME", "STATION_WAGE_STANDARD_NO")
'                .ColComboList(3) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_WORKER_TYPE", "WORKER_TYPE_NAME", "WORKER_TYPE_NO")
'                .ColComboList(4) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_EMP_TYPE", "EMP_TYPE_NAME", "EMP_TYPE_NO")
'                .ColComboList(5) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_TECHNICAL_GRADE", "TECHNICAL_GRADE_NAME", "TECHNICAL_GRADE_NO")
'            Case 1
'                .ColComboList(2) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_EDUCATION_LEVEL", "EDUCATION_NAME", "EDUCATION_NO")
'                .ColComboList(3) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_STATION_SORT", "STATION_SORT_NAME", "STATION_SORT_NO")
'                .ColComboList(4) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_STATION_WAGE_STANDARD", "STATION_WAGE_STANDARD_NAME", "STATION_WAGE_STANDARD_NO")
'            Case 2
'                .ColComboList(2) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_STATION_WAGE_STANDARD", "STATION_WAGE_STANDARD_NAME", "STATION_WAGE_STANDARD_NO")
'                .ColComboList(3) = MakeComboListString4VSFlex(VSFlexGrid4This, "T_STATION_SORT", "STATION_SORT_NAME", "STATION_SORT_NO")
'        End Select
'
'    End With
'End Sub
'
'Private Sub VSFlexGrid4This_AfterRowColChange(ByVal OldRow As Long, ByVal OldCol As Long, ByVal NewRow As Long, ByVal NewCol As Long)
'    With VSFlexGrid4This
'        m_int4row = .Rows - 1
'        If OldRow <> NewRow Then
'            If OldRow > 0 And (.RowData(OldRow) = C_Insert Or .RowData(OldRow) = C_Update) Then
'                InsertOrUpdate OldRow
'            End If
'        Else
'            Exit Sub
'        End If
'    End With
'End Sub
'
'Private Sub VSFlexGrid4This_CellChanged(ByVal Row As Long, ByVal Col As Long)
'    With VSFlexGrid4This
'        If .RowData(Row) = C_Insert Or .RowData(Row) = C_Update Then Exit Sub
'        .RowData(Row) = .RowData(Row) + 1
'    End With
'End Sub
'
'Private Sub VSFlexGrid4This_Click()
'    With Me.VSFlexGrid4This
'        m_int4row = .Row
'    End With
'End Sub
'
'Private Sub VSFlexGrid4This_KeyDownEdit(ByVal Row As Long, ByVal Col As Long, KeyCode As Integer, ByVal Shift As Integer)
'    Select Case vsIndexTab4This.CurrTab
'        Case 0
'            If VSFlexGrid4This.Col = 7 Then m_int4iPosition = VSFlexGrid4This.EditSelStart
'        Case 1
'            If VSFlexGrid4This.Col = 5 Then m_int4iPosition = VSFlexGrid4This.EditSelStart
'        Case 2
'            If VSFlexGrid4This.Col = 4 Then m_int4iPosition = VSFlexGrid4This.EditSelStart
'
'    End Select
'End Sub
'
'Private Sub VSFlexGrid4This_KeyPressEdit(ByVal Row As Long, ByVal Col As Long, KeyAscii As Integer)
'    Select Case Me.vsIndexTab4This.CurrTab
'        Case 0
'            If VSFlexGrid4This.Col = 7 Then
'                CheckText KeyAscii, VSFlexGrid4This.EditText, m_int4iPosition, True
'            End If
'        Case 1
'            If VSFlexGrid4This.Col = 5 Then
'                CheckText KeyAscii, VSFlexGrid4This.EditText, m_int4iPosition, True
'            End If
'        Case 2
'            If VSFlexGrid4This.Col = 4 Then
'                CheckText KeyAscii, VSFlexGrid4This.EditText, m_int4iPosition, True
'            End If
'    End Select
'End Sub
'
'Private Sub VSFlexGrid4This_StartEdit(ByVal Row As Long, ByVal Col As Long, Cancel As Boolean)
'    With VSFlexGrid4This
'        If Me.vsIndexTab4This.CurrTab = 0 Then
'            .ColComboList(8) = "#1;一类|#2;二类|#3;三类|#4;四类"
'            .ColComboList(2) = "#1;一档|#2;二档|#3;三档|#4;四档"
'        End If
'    End With
'End Sub
'
'Private Sub vsIndexTab4This_Click()
'    Call search
'End Sub
'Private Sub InitForm()
'    Dim str4CheckPermission As String
'    str4CheckPermission = CheckPermission("MENU_WAGE_STANDARD")
'    If Mid(str4CheckPermission, 2, 1) = 0 Then
'        Command4Add.Enabled = False
'        Command4Save.Enabled = False
'    End If
'    If Mid(str4CheckPermission, 4, 1) = 0 Then Command4Delete.Enabled = False
'End Sub