📄 frmtdkh.frm

📁 朋友给的
💻 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 frmTDKH 
   Caption         =   "团队考核"
   ClientHeight    =   7410
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   12360
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7410
   ScaleWidth      =   12360
   Begin VB.Frame Frame3 
      Height          =   7335
      Left            =   9900
      TabIndex        =   9
      Top             =   0
      Width           =   2415
      Begin VB.CommandButton Command1 
         Caption         =   "统计"
         Height          =   495
         Left            =   480
         TabIndex        =   11
         Top             =   1080
         Width           =   1515
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   495
         Left            =   480
         TabIndex        =   10
         Top             =   1920
         Width           =   1515
      End
   End
   Begin VB.Frame Frame1 
      Height          =   975
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   9855
      Begin VB.ComboBox TD 
         Height          =   300
         Left            =   6900
         TabIndex        =   3
         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        =   5
         Top             =   300
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         Format          =   57081857
         CurrentDate     =   38936
      End
      Begin VB.Label Label1 
         Caption         =   "投保日期"
         Height          =   375
         Left            =   540
         TabIndex        =   8
         Top             =   360
         Width           =   1575
      End
      Begin VB.Label Label2 
         Caption         =   "至"
         Height          =   255
         Left            =   3360
         TabIndex        =   7
         Top             =   360
         Width           =   615
      End
      Begin VB.Label Label3 
         Caption         =   "团队选择"
         Height          =   375
         Left            =   5880
         TabIndex        =   6
         Top             =   360
         Width           =   1575
      End
   End
   Begin VB.Frame Frame2 
      Height          =   6375
      Left            =   0
      TabIndex        =   0
      Top             =   960
      Width           =   9855
      Begin ResizeLibCtl.ReSize ReSize1 
         Left            =   1605
         Top             =   2535
         _Version        =   196608
         _ExtentX        =   741
         _ExtentY        =   741
         _StockProps     =   64
         Enabled         =   -1  'True
         Enabled         =   -1  'True
         FormMinWidth    =   0
         FormMinHeight   =   0
         FormDesignHeight=   7410
         FormDesignWidth =   12360
      End
      Begin MSFlexGridLib.MSFlexGrid MSFLGYWYYJ 
         Height          =   4965
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   9675
         _ExtentX        =   17066
         _ExtentY        =   8758
         _Version        =   393216
         Cols            =   8
         FormatString    =   "序号    |日期          |保单号                   |被保人      |投保险种       |业务员      |所属团队    |"
      End
      Begin VB.Label Label4 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   210
         TabIndex        =   15
         Top             =   5430
         Width           =   5145
      End
      Begin VB.Label Label5 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   5370
         TabIndex        =   14
         Top             =   5400
         Width           =   4215
      End
      Begin VB.Label Label6 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   210
         TabIndex        =   13
         Top             =   5910
         Width           =   4485
      End
      Begin VB.Label Label7 
         Caption         =   "共统计出：XX条记录"
         Height          =   315
         Left            =   5370
         TabIndex        =   12
         Top             =   5910
         Width           =   4665
      End
   End
End
Attribute VB_Name = "frmTDKH"
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 strsql As String
    Dim zbf As Single               '总保险费
    Dim zkhyj As Single             '总考核佣金
    Dim zbzkh As Single             '总标准考核金
    Dim i As Long
    If TD = "" 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 业务员所属团队='" & Trim(TD) & "'"
    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) = ""
        End If
        If rs("业务员所属团队") = Null Then
            MSFLGYWYYJ.TextMatrix(i, 6) = ""
        End If
        rs.MoveNext
    Next
    If rs.State = 1 Then rs.Close
    '算出总标准考核金
'    Dim KHVZ As String
    If TD = "" 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
'        KHVZ = rs("考核标准")
            If rs("考核标准") <> Null Then
                zbzkh = zbzkh + rs("考核标准")
            Else
                zbzkh = zbzkh
            End If
            rs.MoveNext
        Next
    Else
        strsql = "select 业务员工号,考核标准 from viewbxyw where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 业务员所属团队='" & Trim(TD) & "'"
        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
    End If
    Label4.Caption = "共统计出：" & rs.RecordCount & "条记录！！"
   Label5.Caption = "总保险费为：" & zbf
   Label6.Caption = "总考核佣金为：" & zkhyj
   Label7.Caption = "总标准考核为：" & zbzkh

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 i As Long
    Dim rs As New ADODB.Recordset
    rs.Open "select  tdmc from tdgl order by tdmc", gCnn, adOpenStatic, adLockReadOnly
    TD.Clear
    For i = 0 To rs.RecordCount - 1
        TD.AddItem rs(0)
        rs.MoveNext
    Next
    rs.Close
    TBRQFIRST = Date
    TBRQLAST = Date
    
End Sub
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -