frmgrkh.frm

朋友给的

        End If
        rs.MoveNext
    Next
    If rs.State = 1 Then rs.Close
    '算出总标准考核金
    If YWY = "" Then
        strsql = "select 业务员工号,考核标准 from viewbxyw where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0  group by 业务员工号,考核标准"
        rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
        For i = 0 To rs.RecordCount - 1
            If rs("考核标准") <> Null Then
                zbzkh = zbzkh + rs("考核标准")
            Else
                zbzkh = zbzkh
            End If
'            zbzkh = zbzkh + rs("考核标准")
            rs.MoveNext
        Next
        
        Label4.Caption = "总记录数为：" & rs.RecordCount
            Label5.Caption = "总保险费为：" & zbf
            Label6.Caption = "总考核佣金折算为：" & zkhyj
            Label7.Caption = "总标准考核为：" & zbzkh
    Else
        strsql = "select * from viewbxyw where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 业务员工号='" & Left(YWY, 4) & "'"
        rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
        
'此处开始对比得出考核状态：
        If Not rs.EOF Then
            zbzkh = rs("考核标准")
            Label5.Caption = "总保险费为：" & zbf
            Label6.Caption = "总考核佣金折算为：" & zkhyj
            Label7.Caption = "总标准考核为：" & zbzkh
            
            
            '如果大于考核
            If zkhyj = zbzkh Then
                Label4.Caption = "状态：维持"
            ElseIf zkhyj > zbzkh Then
                If Trim(rs("等级")) = "一级" Then
                    Label4 = "状态：维持"
                ElseIf Trim(rs("等级")) = "二级" Then
                    rs1.Open "select * from khsz where dj='一级'", gCnn, adOpenStatic, adLockReadOnly
                    If Not rs1.EOF Then
                        If zkhyj > rs("khbz") Then
                            Label4.Caption = "状态：晋级"
                        Else
                            Label4.Caption = "状态：维持"
                        End If
                    Else
                        MsgBox "没有设置等级一", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "三级" Then
                    rs1.Open "select * from khsz where dj='一级'", gCnn, adOpenStatic, adLockReadOnly
                    rs2.Open "select * from khsz where dj='二级'", gCnn, adOpenStatic, adLockReadOnly
                   If Not rs2.EOF Then
                        If zkhyj > rs2("khbz") Or zkhyj = rs2("khbz") Then
                            Label4.Caption = "状态：晋级"
                        End If
                    Else
                        MsgBox "没有设置等级二", vbInformation, "系统提示"
                        Exit Sub
                    End If
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Or zkhyj = rs1("zkbz") Then
                            Label4.Caption = "状态：晋级二级"
                        End If
                    Else
                        MsgBox "没有设置等级一", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "四级" Then
                    rs1.Open "select * from khsz where dj='二级'", gCnn, adOpenStatic, adLockReadOnly
                    rs2.Open "select * from khsz where dj='三级'", gCnn, adOpenStatic, adLockReadOnly
                   If Not rs2.EOF Then
                        If zkhyj > rs2("khbz") Or zkhyj = rs2("khbz") Then
                            Label4.Caption = "状态：晋级"
                        End If
                    Else
                        MsgBox "没有设置等级三", vbInformation, "系统提示"
                        Exit Sub
                    End If
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Or zkhyj = rs1("zkbz") Then
                            Label4.Caption = "状态：晋级二级"
                        End If
                    Else
                        MsgBox "没有设置等级二", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "五级" Then
                    rs1.Open "select * from khsz where dj='三级'", gCnn, adOpenStatic, adLockReadOnly
                    rs2.Open "select * from khsz where dj='四级'", gCnn, adOpenStatic, adLockReadOnly
                   If Not rs2.EOF Then
                        If zkhyj > rs2("khbz") Or zkhyj = rs2("khbz") Then
                            Label4.Caption = "状态：晋级"
                        End If
                    Else
                        MsgBox "没有设置等级四", vbInformation, "系统提示"
                        Exit Sub
                    End If
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Or zkhyj = rs1("zkbz") Then
                            Label4.Caption = "状态：晋级二级"
                        End If
                    Else
                        MsgBox "没有设置等级三", vbInformation, "系统提示"
                        Exit Sub
                    End If
                    
                End If
                
            '如果小于
            Else
                If Trim(rs("等级")) = "一级" Then
                    rs1.Open "select * from khsz where dj='二级'", gCnn, adOpenStatic, adLockReadOnly
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Then
                            Label4.Caption = "状态：降一级"
                        Else
                            Label4.Caption = "状态：降二级"
                        End If
                    Else
                        MsgBox "没有设置等级二", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "二级" Then
                    rs1.Open "select * from khsz where dj='三级'", gCnn, adOpenStatic, adLockReadOnly
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Then
                            Label4.Caption = "状态：降一级"
                        Else
                            Label4.Caption = "状态：降二级"
                        End If
                    Else
                        MsgBox "没有设置等级三", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "三级" Then
                    rs1.Open "select * from khsz where dj='四级'", gCnn, adOpenStatic, adLockReadOnly
                    If Not rs1.EOF Then
                        If zkhyj > rs1("khbz") Then
                            Label4.Caption = "状态：降一级"
                        Else
                            Label4.Caption = "状态：降二级"
                        End If
                    Else
                        MsgBox "没有设置等级四", vbInformation, "系统提示"
                        Exit Sub
                    End If
                ElseIf Trim(rs("等级")) = "四级" Then
                    rs1.Open "select * from khsz where dj='五级'", gCnn, adOpenStatic, adLockReadOnly
                    If Not rs1.EOF Then
                        Label4.Caption = "状态：降级"
                    Else
                        MsgBox "没有设置等级五", vbInformation, "系统提示"
                        Exit Sub
                    End If
                Else
                    Label4.Caption = "状态：维持"
                End If
            End If
            
            
        End If
    
        
        
    End If
   'Label4.Caption = "共统计出：" & rs.RecordCount & "条记录！！"
   

   Exit Sub
ErrHandle:
    MsgBox Err.Description
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 12510, 7885
    Dim rs As New ADODB.Recordset
    Dim i As Long
    rs.Open "select gh,xm from ygjbzl order by gh", gCnn, adOpenStatic, adLockReadOnly
    YWY.Clear
    For i = 0 To rs.RecordCount - 1
        YWY.AddItem rs(0) & "-" & rs(1)
        rs.MoveNext
    Next
    rs.Close
    TBRQFIRST = Date
    TBRQLAST = Date
    
End Sub