frmwageevolvmentedit.frm

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

         Caption         =   "工资"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   3660
         TabIndex        =   5
         Top             =   885
         Width           =   1725
      End
      Begin VB.Label Label4 
         Caption         =   "工资级别"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   90
         TabIndex        =   4
         Top             =   885
         Width           =   1725
      End
      Begin VB.Label Label3 
         Caption         =   "工资演变代码"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   3660
         TabIndex        =   3
         Top             =   480
         Width           =   1725
      End
      Begin VB.Label Label2 
         Caption         =   "职工名称"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   345
         Left            =   90
         TabIndex        =   2
         Top             =   480
         Width           =   1725
      End
      Begin VB.Label Label1 
         Caption         =   "机构名称"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   330
         Left            =   90
         TabIndex        =   1
         Top             =   90
         Width           =   1725
      End
   End
End
Attribute VB_Name = "frmWageEvolvmentEdit"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public m_bIsAdd As Boolean
Public m_j As Long
Private m_oRs4This As New ADODB.Recordset

Private Sub Command4Close_Click()
    Unload Me
End Sub

Private Sub Command4Save_Click()
    Dim strOrganNo As String
    Dim lEmpNo As Long
    Dim lWageEvolvmentNo As Long
    Dim strSQL As String
    
    MousePointer = 11
    
    If SSComboBoxEx4Small.text <> " " And SSComboBoxEx4Small.ListIndex <> -1 Then
        strOrganNo = SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex)
    ElseIf SSComboBoxEx4Large.text <> " " And SSComboBoxEx4Large.ListIndex <> -1 Then
        strOrganNo = SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)
    ElseIf SSComboBoxEx4Company.text <> " " And SSComboBoxEx4Company.ListIndex <> -1 Then
        strOrganNo = SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)
    Else
        strOrganNo = SSComboBoxEx4Organ.ItemData(SSComboBoxEx4Organ.ListIndex)
    End If
    
    If SSComboBoxEx4Emp.text <> " " And SSComboBoxEx4Emp.ListIndex <> -1 Then
        lEmpNo = SSComboBoxEx4Emp.ItemData(SSComboBoxEx4Emp.ListIndex)
    Else
        MsgBox "人员不能为空。", vbOKOnly, "确定"
        MousePointer = 1
        Exit Sub
    End If
    
    If m_bIsAdd = True Then
        If m_oRs4This.State = adStateOpen Then m_oRs4This.Close
        m_oRs4This.CursorLocation = adUseClient
        m_oRs4This.Open "select max(wage_evolvement_no) from t_old_wage_evolvement", g_oConnection4This, adOpenKeyset, adLockOptimistic
        
        If m_oRs4This.EOF = False And Not IsNull(m_oRs4This.Fields(0).Value) Then
            lWageEvolvmentNo = m_oRs4This.Fields(0).Value + 1
        Else
            lWageEvolvmentNo = 1
        End If
        
        strSQL = "insert into t_old_wage_evolvement(wage_evolvement_no,organ_no,emp_no,wage_evolvement_standard_no,wage_rate_no,wage_money,evolvement_time) values" _
                & "(" & lWageEvolvmentNo & "," & CSQL(strOrganNo) & "," & lEmpNo & ","
        If SSComboBoxEx4Evolvment.text <> " " And SSComboBoxEx4Evolvment.ListIndex <> -1 Then
            strSQL = strSQL & SSComboBoxEx4Evolvment.ItemData(SSComboBoxEx4Evolvment.ListIndex) & ","
        Else
            strSQL = strSQL & "NULL,"
        End If
        
        If SSComboBoxEx4Duty.text <> " " And SSComboBoxEx4Duty.ListIndex <> -1 Then
            strSQL = strSQL & SSComboBoxEx4Duty.ItemData(SSComboBoxEx4Duty.ListIndex) & "," & CSQL(Text4Wage.text, 0) & ","
        Else
            strSQL = strSQL & "NULL," & CSQL(Text4Wage.text, 0) & ","
        End If
        
        If IsNull(DTPicker4Date.Value) Then
            strSQL = strSQL & "null" & ")"
        Else
            strSQL = strSQL & ConvertDate2Int(DTPicker4Date.Value) & ")"
        End If
        
        If ExcuteSQL(strSQL) <> 0 Then
            MousePointer = 1
            Exit Sub
        End If
    Else
        strSQL = "update t_old_wage_evolvement set organ_no=" & CSQL(strOrganNo) & ",emp_no=" & CSQL(lEmpNo, 0) & ","
        If SSComboBoxEx4Evolvment.text <> " " And SSComboBoxEx4Evolvment.ListIndex <> -1 Then
            strSQL = strSQL & "wage_evolvement_standard_no=" & SSComboBoxEx4Evolvment.ItemData(SSComboBoxEx4Evolvment.ListIndex) & ","
        Else
            strSQL = strSQL & "wage_evolvement_standard_no=NULL,"
        End If
        
        If SSComboBoxEx4Duty.text <> " " And SSComboBoxEx4Duty.ListIndex <> -1 Then
            strSQL = strSQL & "wage_rate_no=" & SSComboBoxEx4Duty.ItemData(SSComboBoxEx4Duty.ListIndex) & ",wage_money=" & CSQL(Text4Wage.text, 0) & ","
        Else
            strSQL = strSQL & "wage_rate_no=NULL,wage_money=" & CSQL(Text4Wage.text, 0) & ","
        End If
        
        If IsNull(DTPicker4Date.Value) Then
            strSQL = strSQL & "evolvement_time=null"
        Else
            strSQL = strSQL & "evolvement_time=" & ConvertDate2Int(DTPicker4Date.Value)
        End If
        
        strSQL = strSQL & " from t_old_wage_evolvement where wage_evolvement_no=" & g_array4WorkerType(1, SSSpin4Count.text) & " and organ_no='" & g_array4WorkerType(2, SSSpin4Count.text) & "'"
        
        If ExcuteSQL(strSQL) <> 0 Then
            MousePointer = 1
            Exit Sub
        Else
            g_array4WorkerType(2, SSSpin4Count.text) = strOrganNo
        End If
    End If
    
    MousePointer = 1
    MsgBox "保存成功。", vbOKOnly, "确定"
End Sub

Private Sub Form_Load()
    If Len(g_str4LoginUnit) = C_BUREAUE_LENGTH Then
        Me.Command4Save.Visible = False
    End If
    
    If m_bIsAdd = True Then
        SSSpin4Count.Visible = False
        PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_str4LoginUnit, g_str4LoginUnitLevel
    Else
        If m_j = 1 Then
            SSSpin4Count.Visible = False
            SSSpin4Count.text = 1
            DTPicker4Date.Value = Date
        Else
            SSSpin4Count.MaxValue = m_j
            SSSpin4Count.Visible = True
            SSSpin4Count.SpinDatatype = ssNumerics
            SSSpin4Count.MinValue = 1
            SSSpin4Count.Increment = 1
            SSSpin4Count.text = 1
        End If
        FillComboBox SSComboBoxEx4Evolvment, "T_OLD_WAGE_EVOLVEMENT_STANDARD", "WAGE_EVOLVEMENT_STANDARD_NO", "WAGE_EVOLVEMENT_NAME"
        FillComboBox SSComboBoxEx4Duty, "t_old_wage_rate", "wage_rate_no", "wage_rate_name"
        Call SSSpin4Count_Change
    End If
    
    Unload frmSplash
End Sub

Private Sub SSComboBoxEx4Large_Click()
    If SSComboBoxEx4Large.ListIndex <> -1 And SSComboBoxEx4Large.text <> " " Then
        FillComboBox SSComboBoxEx4Small, "t_organ", "organ_no", "organ_name", , "where len(organ_no)=" & Len(SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)) + 3 & " and left(organ_no," & Len(SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex)) & ")='" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        FillComboBox SSComboBoxEx4Emp, "t_emp_basic", "emp_no", "emp_name", , "where organ_no='" & SSComboBoxEx4Large.ItemData(SSComboBoxEx4Large.ListIndex) & "'" & HaveEmpMark
    End If
End Sub

Private Sub SSComboBoxEx4Company_Click()
    If SSComboBoxEx4Company.ListIndex <> -1 And SSComboBoxEx4Company.text <> " " Then
        FillComboBox SSComboBoxEx4Large, "t_organ", "organ_no", "organ_name", , "where len(organ_no)=" & Len(SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)) + 3 & " and left(organ_no," & Len(SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)) & ")='" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' and organ_level=1 " & HaveOrganMark
        FillComboBox SSComboBoxEx4Small, "t_organ", "organ_no", "organ_name", , "where len(organ_no)=" & Len(SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)) + 3 & " and left(organ_no," & Len(SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex)) & ")='" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' and organ_level=0 " & HaveOrganMark
        FillComboBox SSComboBoxEx4Emp, "t_emp_basic", "emp_no", "emp_name", , "where organ_no='" & SSComboBoxEx4Company.ItemData(SSComboBoxEx4Company.ListIndex) & "' " & HaveEmpMark
    End If
End Sub

Private Sub SSComboBoxEx4Small_Click()
    If SSComboBoxEx4Small.ListIndex <> -1 And SSComboBoxEx4Small.text <> " " Then
        FillComboBox SSComboBoxEx4Emp, "t_emp_basic", "emp_no", "emp_name", , "where organ_no='" & SSComboBoxEx4Small.ItemData(SSComboBoxEx4Small.ListIndex) & "' " & HaveEmpMark
    End If
End Sub

Private Sub SSSpin4Count_Change()
    LoadData CInt(SSSpin4Count.text)
End Sub
Private Function GetOrganLevel(ByVal organNo As String) As Long
    Dim oRs4That As New ADODB.Recordset
    Dim strSQL As String
    
    strSQL = "select organ_level from t_organ where organ_no='" & organNo & "'"
    If oRs4That.State = adStateOpen Then oRs4That.Close
    oRs4That.CursorLocation = adUseClient
    oRs4That.Open strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
    
    GetOrganLevel = oRs4That.Fields(0).Value
End Function
Private Sub LoadData(ByVal int4sspin As Long)
    Dim strSQL As String
    Dim str4FactoryOrgan  As String
    strSQL = "select t_old_wage_evolvement.organ_No as organ_No , WAGE_EVOLVEMENT_NO,EMP_NO,WAGE_EVOLVEMENT_STANDARD_NO,WAGE_RATE_NO,WAGE_MONEY,EVOLVEMENT_TIME,organ_level from t_old_wage_evolvement,t_organ where t_old_wage_evolvement.organ_no =t_organ.organ_no and  wage_evolvement_no=" & g_array4WorkerType(1, int4sspin) & " and t_old_wage_evolvement.organ_no='" & g_array4WorkerType(2, int4sspin) & "'"
    If m_oRs4This.State = adStateOpen Then m_oRs4This.Close
    m_oRs4This.CursorLocation = adUseClient
    m_oRs4This.Open strSQL, g_oConnection4This, adOpenKeyset, adLockOptimistic
    PrcessSSComboxExFormLoad SSComboBoxEx4Organ, SSComboBoxEx4Company, SSComboBoxEx4Large, SSComboBoxEx4Small, g_array4WorkerType(2, int4sspin), m_oRs4This.Fields("organ_level").Value
    FillComboBox Me.SSComboBoxEx4Emp, "t_emp_basic", "emp_no", "emp_name", , " where emp_no='" & m_oRs4This.Fields("emp_No").Value & "' and organ_no='" & g_array4WorkerType(2, int4sspin) & "'"
    Me.SSComboBoxEx4Emp.ListIndex = 0
    SSComboBoxEx4Emp.Enabled = False
    SSComboBoxEx4Organ.Enabled = False
    SSComboBoxEx4Company.Enabled = False
    SSComboBoxEx4Large.Enabled = False
    SSComboBoxEx4Small.Enabled = False
    
    FillComboBox SSComboBoxEx4Evolvment, "t_old_wage_evolvement_standard", "wage_evolvement_standard_no", "wage_evolvement_name"
    FillComboBox SSComboBoxEx4Duty, "t_old_wage_rate", "wage_rate_no", "wage_rate_name"
    
    If IsNull(m_oRs4This.Fields("wage_evolvement_no").Value) Then
        SSComboBoxEx4Evolvment.ListIndex = -1
    Else
        SSComboBoxEx4Evolvment.ListIndex = FindIndex(m_oRs4This.Fields("wage_evolvement_no").Value, SSComboBoxEx4Evolvment)
    End If
    
    If IsNull(m_oRs4This.Fields("wage_rate_no").Value) Then
        SSComboBoxEx4Duty.ListIndex = -1
    Else
        SSComboBoxEx4Duty.ListIndex = FindIndex(m_oRs4This.Fields("wage_rate_no").Value, SSComboBoxEx4Duty)
    End If
    
    Text4Wage.text = CheckVariant(m_oRs4This.Fields("wage_money").Value)
    If Not IsNull(m_oRs4This.Fields("evolvement_time").Value) Then
        DTPicker4Date.Value = ConvertInt2Date(m_oRs4This.Fields("evolvement_time").Value)
    End If


End Sub