frmcbhs1.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"
Begin VB.Form frmCBHS1 
   Caption         =   "成本核算"
   ClientHeight    =   3225
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   7035
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   3225
   ScaleWidth      =   7035
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   3300
      Top             =   1410
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      FormDesignHeight=   3225
      FormDesignWidth =   7035
   End
   Begin VB.Frame Frame1 
      Height          =   915
      Left            =   0
      TabIndex        =   7
      Top             =   0
      Width           =   4845
      Begin MSComCtl2.DTPicker TBRQFIRST 
         Height          =   375
         Left            =   810
         TabIndex        =   8
         Top             =   300
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         Format          =   21102593
         CurrentDate     =   38936
      End
      Begin MSComCtl2.DTPicker TBRQLAST 
         Height          =   375
         Left            =   2910
         TabIndex        =   9
         Top             =   300
         Width           =   1575
         _ExtentX        =   2778
         _ExtentY        =   661
         _Version        =   393216
         Format          =   21102593
         CurrentDate     =   38936
      End
      Begin VB.Label Label1 
         Caption         =   "日期"
         Height          =   375
         Left            =   270
         TabIndex        =   11
         Top             =   420
         Width           =   1755
      End
      Begin VB.Label Label2 
         Caption         =   "至"
         Height          =   255
         Left            =   2580
         TabIndex        =   10
         Top             =   390
         Width           =   615
      End
   End
   Begin VB.Frame Frame3 
      Height          =   3075
      Left            =   4860
      TabIndex        =   4
      Top             =   0
      Width           =   2115
      Begin VB.CommandButton Command1 
         Caption         =   "统计"
         Height          =   495
         Left            =   240
         TabIndex        =   6
         Top             =   660
         Width           =   1515
      End
      Begin VB.CommandButton Command2 
         Caption         =   "退出"
         Height          =   495
         Left            =   240
         TabIndex        =   5
         Top             =   1560
         Width           =   1515
      End
   End
   Begin VB.Frame Frame4 
      Height          =   2115
      Left            =   0
      TabIndex        =   0
      Top             =   960
      Width           =   4845
      Begin VB.Label Label6 
         Caption         =   "总毛利："
         Height          =   375
         Left            =   540
         TabIndex        =   3
         Top             =   1155
         Width           =   3195
      End
      Begin VB.Label Label5 
         Caption         =   "总业务员佣金："
         Height          =   375
         Left            =   540
         TabIndex        =   2
         Top             =   705
         Width           =   3135
      End
      Begin VB.Label Label4 
         Caption         =   "总手续费："
         Height          =   375
         Left            =   540
         TabIndex        =   1
         Top             =   240
         Width           =   3195
      End
   End
End
Attribute VB_Name = "frmCBHS1"
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 i As Long
    Dim ZSXF As Single               '总手续费
    Dim zywyyj As Single             '总业务员佣金
    Dim zml As Single             '总毛率
    strsql = "select * from viewbxyw where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 "
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    For i = 0 To rs.RecordCount - 1
        ZSXF = ZSXF + rs("保险费") * rs("总手续费") * 0.01
        zywyyj = rszywyyj + rs("保险费") * rs("业务员佣金") * 0.01
        zml = zml + rs("保险费") * (rs("总手续费") - rs("业务员佣金")) * 0.01
        rs.MoveNext
    Next
    Label4.Caption = "总手续费为：" & ZSXF
    Label5.Caption = "总业务员佣金为：" & zywyyj
    Label6.Caption = "总毛率为：" & zml
End Sub

Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 7155, 3735
    TBRQFIRST = Date
    TBRQLAST = Date
End Sub