📄 frmcbhs.frm
字号:
VERSION 5.00
Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
Begin VB.Form frmCBHS
Caption = "应收应付统计"
ClientHeight = 5430
ClientLeft = 60
ClientTop = 450
ClientWidth = 9630
LinkTopic = "Form1"
MDIChild = -1 'True
ScaleHeight = 5430
ScaleWidth = 9630
Begin VB.Frame Frame5
Height = 2115
Left = 120
TabIndex = 17
Top = 3240
Width = 7335
Begin VB.Label Label3
Caption = "总已付："
Height = 375
Left = 3720
TabIndex = 25
Top = 1620
Width = 1875
End
Begin VB.Label Label12
Caption = "总已收："
Height = 375
Left = 540
TabIndex = 24
Top = 1620
Width = 3015
End
Begin VB.Label Label13
Caption = "总应付保险公司（已付）："
Height = 375
Left = 3720
TabIndex = 23
Top = 1155
Width = 3555
End
Begin VB.Label Label14
Caption = "总应收保险公司（已收）："
Height = 375
Left = 540
TabIndex = 22
Top = 1155
Width = 3315
End
Begin VB.Label Label15
Caption = "总应付客户（已付）："
Height = 375
Left = 3720
TabIndex = 21
Top = 705
Width = 3555
End
Begin VB.Label Label16
Caption = "总应收客户（已收）："
Height = 375
Left = 540
TabIndex = 20
Top = 705
Width = 3075
End
Begin VB.Label Label17
Caption = "总应付业务员（已付）："
Height = 375
Left = 3720
TabIndex = 19
Top = 240
Width = 3555
End
Begin VB.Label Label18
Caption = "总应收业务员（已收）："
Height = 375
Left = 540
TabIndex = 18
Top = 240
Width = 3315
End
End
Begin VB.Frame Frame4
Height = 2115
Left = 120
TabIndex = 8
Top = 1020
Width = 7335
Begin VB.Label Label4
Caption = "总应收业务员："
Height = 375
Left = 540
TabIndex = 16
Top = 240
Width = 3195
End
Begin VB.Label Label5
Caption = "总应付业务员："
Height = 375
Left = 3720
TabIndex = 15
Top = 240
Width = 3495
End
Begin VB.Label Label6
Caption = "总应收客户："
Height = 375
Left = 540
TabIndex = 14
Top = 705
Width = 3135
End
Begin VB.Label Label7
Caption = "总应付客户："
Height = 375
Left = 3720
TabIndex = 13
Top = 705
Width = 3555
End
Begin VB.Label Label8
Caption = "总应收保险公司："
Height = 375
Left = 540
TabIndex = 12
Top = 1155
Width = 3195
End
Begin VB.Label Label9
Caption = "总应付保险公司："
Height = 375
Left = 3720
TabIndex = 11
Top = 1155
Width = 3495
End
Begin VB.Label Label10
Caption = "总应收："
Height = 375
Left = 540
TabIndex = 10
Top = 1620
Width = 3135
End
Begin VB.Label Label11
Caption = "总应付："
Height = 375
Left = 3720
TabIndex = 9
Top = 1620
Width = 3555
End
End
Begin VB.Frame Frame3
Height = 5295
Left = 7500
TabIndex = 5
Top = 60
Width = 2115
Begin VB.CommandButton Command2
Caption = "退出"
Height = 495
Left = 240
TabIndex = 7
Top = 2220
Width = 1515
End
Begin VB.CommandButton Command1
Caption = "统计"
Height = 495
Left = 240
TabIndex = 6
Top = 1320
Width = 1515
End
End
Begin VB.Frame Frame1
Height = 915
Left = 120
TabIndex = 0
Top = 60
Width = 7335
Begin MSComCtl2.DTPicker TBRQFIRST
Height = 375
Left = 1800
TabIndex = 2
Top = 300
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 61407233
CurrentDate = 38936
End
Begin MSComCtl2.DTPicker TBRQLAST
Height = 375
Left = 4020
TabIndex = 3
Top = 300
Width = 1575
_ExtentX = 2778
_ExtentY = 661
_Version = 393216
Format = 61407233
CurrentDate = 38936
End
Begin VB.Label Label2
Caption = "至"
Height = 255
Left = 3660
TabIndex = 4
Top = 360
Width = 615
End
Begin VB.Label Label1
Caption = "日期"
Height = 375
Left = 660
TabIndex = 1
Top = 420
Width = 1755
End
End
End
Attribute VB_Name = "frmCBHS"
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 zysywy As Single
Dim zyskh As Single
Dim zysbxgs As Single
Dim zyfywy As Single
Dim zyfkh As Single
Dim zyfbxgs As Single
Dim zysywy1 As Single
Dim zyskh1 As Single
Dim zysbxgs1 As Single
Dim zyfywy1 As Single
Dim zyfkh1 As Single
Dim zyfbxgs1 As Single
Dim zys As Single
Dim zyf As Single
Dim zys1 As Single
Dim zyf1 As Single
'strsql = "select * from viewbxyw where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 "
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=1 and 应收应付类别=0"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
If Not rs.EOF Then
zysywy = IIf(IsNull(rs(0)), 0, rs(0))
zysywy1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
End If
If rs.State = 1 Then rs.Close
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=2 and 应收应付类别=0"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
zyskh = IIf(IsNull(rs(0)), 0, rs(0))
zyskh1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
If rs.State = 1 Then rs.Close
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=3 and 应收应付类别=0"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
zysbxgs = IIf(IsNull(rs(0)), 0, rs(0))
zysbxgs1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
If rs.State = 1 Then rs.Close
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=1 and 应收应付类别=1"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
zyfywy = IIf(IsNull(rs(0)), 0, rs(0))
zyfywy1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
If rs.State = 1 Then rs.Close
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=2 and 应收应付类别=1"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
zyfkh = IIf(IsNull(rs(0)), 0, rs(0))
zyfkh1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
If rs.State = 1 Then rs.Close
strsql = "select sum(应收应付) as ysyfall,sum(剩余) as syall from viewcbhs where Datediff(Day,'" & Format(TBRQFIRST, "yyyy-MM-dd") & "',投保日期)>=0 And Datediff(Day,投保日期,'" & Format(TBRQLAST, "yyyy-MM-dd") & "')>=0 and 客户类型=3 and 应收应付类别=1"
rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
zyfbxgs = IIf(IsNull(rs(0)), 0, rs(0))
zyfbxgs1 = IIf(IsNull(rs(0)), 0, rs(0)) - IIf(IsNull(rs(1)), 0, rs(1))
zys = zysywy + zyskh + zysbxgs
zyf = zyfywy + zyfkh + zyfbxgs
zys1 = zysywy1 + zyskh1 + zysbxgs1
zyf1 = zyfywy1 + zyfkh1 + zyfbxgs1
'显示：
Label4.Caption = "总应收业务员：" & zysywy
Label6.Caption = "总应收客户：" & zyskh
Label8.Caption = "总应收保险公司：" & zysbxgs
Label5.Caption = "总应付业务员：" & zyfywy
Label7.Caption = "总应付客户：" & zyfkh
Label9.Caption = "总应付保险公司：" & zyfbxgs
Label10.Caption = "总应收：" & zys
Label11.Caption = "总应付：" & zyf
Label18.Caption = "总应收业务员（已收）：" & zysywy1
Label16.Caption = "总应收客户（已收）：" & zyskh1
Label14.Caption = "总应收保险公司（已收）：" & zysbxgs1
Label17.Caption = "总应付业务员（已付）：" & zyfywy1
Label15.Caption = "总应付客户（已付）：" & zyfkh1
Label13.Caption = "总应付保险公司（已付）：" & zyfbxgs1
Label12.Caption = "总已收：" & zys1
Label3.Caption = "总已付：" & zyf1
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
If Me.WindowState = 0 Then Me.Move 0, 0, 9750, 5940
TBRQFIRST = Date
TBRQLAST = Date
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -