frmgrkh.frm

朋友给的

VERSION 5.00
Object = "{A964BDA3-3E93-11CF-9A0F-9E6261DACD1C}#3.0#0"; "SetMe.ocx"
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "MSFLXGRD.OCX"
Begin VB.Form frmGRKH 
   Caption         =   "个人业绩考核"
   ClientHeight    =   7485
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   12390
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   7485
   ScaleWidth      =   12390
   Begin VB.Frame Frame3 
      Height          =   7335
      Left            =   9960
      TabIndex        =   2
      Top             =   60
      Width           =   2415
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   495
         Left            =   480
         TabIndex        =   11
         Top             =   1920
         Width           =   1515
      End
      Begin VB.CommandButton Command1 
         Caption         =   "统计"
         Height          =   495
         Left            =   480
         TabIndex        =   10
         Top             =   1080
         Width           =   1515
      End
   End
   Begin VB.Frame Frame2 
      Height          =   6375
      Left            =   60
      TabIndex        =   1
      Top             =   1050
      Width           =   9855
      Begin ResizeLibCtl.ReSize ReSize1 
         Left            =   1125
         Top             =   2340
         _Version        =   196608
         _ExtentX        =   741
         _ExtentY        =   741
         _StockProps     =   64
         Enabled         =   -1  'True
         Enabled         =   -1  'True
         FormMinWidth    =   0
         FormMinHeight   =   0
         FormDesignHeight=   7485
         FormDesignWidth =   12390
      End
      Begin MSFlexGridLib.MSFlexGrid MSFLGYWYYJ 
         Height          =   5055
         Left            =   120
         TabIndex        =   7
         Top             =   240
         Width           =   9675
         _ExtentX        =   17066
         _ExtentY        =   8916
         _Version        =   393216
         Cols            =   7
         FormatString    =   "序号    |日期            |保单号                         |被保人      |投保险种          |业务员      |"
      End
      Begin VB.Label Label7 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   5310
         TabIndex        =   15
         Top             =   5970
         Width           =   4305
      End
      Begin VB.Label Label6 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   180
         TabIndex        =   14
         Top             =   5970
         Width           =   5265
      End
      Begin VB.Label Label5 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   5310
         TabIndex        =   13
         Top             =   5490
         Width           =   4215
      End
      Begin VB.Label Label4 
         Caption         =   "状态："
         Height          =   315
         Left            =   180
         TabIndex        =   12
         Top             =   5490
         Width           =   5145
      End
   End
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   9855
      Begin VB.ComboBox YWY 
         Height          =   300
         Left            =   6900
         TabIndex        =   9
         Top             =   300
         Width           =   1995
      End
      Begin MSComCtl2.DTPicker TBRQFIRST 
         Height          =   375
         Left            =   1500
         TabIndex        =   4
         Top             =   300
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         Format          =   57081857
         CurrentDate     =   38936
      End
      Begin MSComCtl2.DTPicker TBRQLAST 
         Height          =   375
         Left            =   3720
         TabIndex        =   6
         Top             =   300
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         Format          =   57081857
         CurrentDate     =   38936
      End
      Begin VB.Label Label3 
         Caption         =   "业务员"
         Height          =   375
         Left            =   5880
         TabIndex        =   8
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "至"
         Height          =   255
         Left            =   3360
         TabIndex        =   5
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label1 
         Caption         =   "投保日期"
         Height          =   375
         Left            =   540
         TabIndex        =   3
         Top             =   360
         Width           =   1575
      End
   End
End
Attribute VB_Name = "frmGRKH"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
    Dim rs As New ADODB.Recordset
    Dim rs1 As New ADODB.Recordset
    Dim rs2 As New ADODB.Recordset
    Dim strsql As String
    Dim i As Long
    Dim zbf As Single               '总保险费
    Dim zkhyj As Single             '总考核佣金
    Dim zbzkh As Single             '总标准考核金
    On Error GoTo ErrHandle:
    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 "
    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) & "'"
    End If
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    MSFLGYWYYJ.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        zbf = zbf + rs("保险费")
        zkhyj = zkhyj + rs("保险费") * rs("业务员佣金") * 0.01 * rs("考核佣金折算比例") * 0.01
        
        MSFLGYWYYJ.TextMatrix(i, 0) = i
        MSFLGYWYYJ.TextMatrix(i, 1) = Format(rs("投保日期"), "yyyy-MM-dd")
        MSFLGYWYYJ.TextMatrix(i, 2) = rs("保单合同号")
        MSFLGYWYYJ.TextMatrix(i, 3) = rs("被保险人")
        MSFLGYWYYJ.TextMatrix(i, 4) = rs("投保险种")
        If rs("业务员姓名") = Null Then
        MSFLGYWYYJ.TextMatrix(i, 5) = ""