frmcwys.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 frmcwys 
   Caption         =   "财务应收"
   ClientHeight    =   6075
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   9300
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MDIChild        =   -1  'True
   ScaleHeight     =   6075
   ScaleWidth      =   9300
   Begin VB.CommandButton Command3 
      Caption         =   "统计"
      Height          =   480
      Left            =   3780
      TabIndex        =   17
      Top             =   5220
      Width           =   1545
   End
   Begin ResizeLibCtl.ReSize ReSize1 
      Left            =   4440
      Top             =   2820
      _Version        =   196608
      _ExtentX        =   741
      _ExtentY        =   741
      _StockProps     =   64
      Enabled         =   -1  'True
      Enabled         =   -1  'True
      FormMinWidth    =   0
      FormMinHeight   =   0
      FormDesignHeight=   6075
      FormDesignWidth =   9300
   End
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   480
      Left            =   5730
      TabIndex        =   4
      Top             =   5220
      Width           =   1545
   End
   Begin VB.CommandButton Command1 
      Caption         =   "保存"
      Height          =   480
      Left            =   1830
      TabIndex        =   3
      Top             =   5220
      Width           =   1545
   End
   Begin VB.Frame Frame3 
      Height          =   2295
      Left            =   120
      TabIndex        =   2
      Top             =   2565
      Width           =   9030
      Begin MSComCtl2.DTPicker RQ 
         Height          =   375
         Left            =   5490
         TabIndex        =   16
         Top             =   1560
         Width           =   2685
         _ExtentX        =   4736
         _ExtentY        =   661
         _Version        =   393216
         Format          =   20840449
         CurrentDate     =   38913
      End
      Begin VB.TextBox JBR 
         Enabled         =   0   'False
         Height          =   375
         Left            =   1425
         TabIndex        =   15
         Top             =   1560
         Width           =   2685
      End
      Begin VB.TextBox SY 
         Enabled         =   0   'False
         Height          =   375
         Left            =   5490
         TabIndex        =   14
         Top             =   1020
         Width           =   2685
      End
      Begin VB.TextBox BCSK 
         Height          =   375
         Left            =   1425
         TabIndex        =   13
         Top             =   1020
         Width           =   2685
      End
      Begin VB.TextBox KHMC 
         Height          =   375
         Left            =   5490
         TabIndex        =   12
         Top             =   480
         Width           =   2685
      End
      Begin VB.TextBox BXDH 
         Height          =   375
         Left            =   1425
         TabIndex        =   11
         Top             =   480
         Width           =   2685
      End
      Begin VB.Label Label6 
         Caption         =   "日期"
         Height          =   255
         Left            =   4485
         TabIndex        =   10
         Top             =   1650
         Width           =   735
      End
      Begin VB.Label Label5 
         Caption         =   "经 办 人"
         Height          =   255
         Left            =   405
         TabIndex        =   9
         Top             =   1650
         Width           =   735
      End
      Begin VB.Label Label4 
         Caption         =   "剩余"
         Height          =   255
         Left            =   4485
         TabIndex        =   8
         Top             =   1125
         Width           =   735
      End
      Begin VB.Label Label3 
         Caption         =   "本次收款"
         Height          =   255
         Left            =   360
         TabIndex        =   7
         Top             =   1125
         Width           =   735
      End
      Begin VB.Label Label2 
         Caption         =   "名称"
         Height          =   375
         Left            =   4485
         TabIndex        =   6
         Top             =   585
         Width           =   855
      End
      Begin VB.Label Label1 
         Caption         =   "保险单号"
         Height          =   375
         Left            =   390
         TabIndex        =   5
         Top             =   585
         Width           =   1095
      End
   End
   Begin VB.Frame Frame1 
      Height          =   2535
      Left            =   120
      TabIndex        =   0
      Top             =   15
      Width           =   9045
      Begin MSFlexGridLib.MSFlexGrid MSFLGLB 
         Height          =   2175
         Left            =   120
         TabIndex        =   1
         Top             =   240
         Width           =   8850
         _ExtentX        =   15610
         _ExtentY        =   3836
         _Version        =   393216
         Cols            =   7
         FormatString    =   "保险单号    |保险公司                    |投保客户         |应收类别     |应收      |剩余      |"
      End
   End
End
Attribute VB_Name = "frmcwys"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim ysje As Long

Private Sub BCSK_Change()
    If Val(BCSK) > Val(SY) Then
        MsgBox "本次应收大于业务员应收了！！", vbInformation, "系统提示"
        BCSK = ""
        SY = ysje
        SY = Val(ysje) - Val(BCSK)
        Exit Sub
    End If
    SY = Val(ysje) - Val(BCSK)
End Sub



Private Sub Command1_Click()
    Dim rs As ADODB.Recordset
    Dim strsql As String
    Set rs = New ADODB.Recordset
    strsql = "select * from cwysmx"
    rs.Open strsql, gCnn, adOpenStatic, adLockPessimistic
    rs.AddNew
        rs("bxdh") = BXDH
        rs("khmc") = KHMC
        rs("bcsk") = Val(BCSK)
        rs("sy") = Val(SY)
        rs("jbr") = JBR
        rs("rq") = RQ
        rs("lx") = 1
    rs.Update
    If MSFLGLB.TextMatrix(MSFLGLB.Row, 6) <> "" Then
        If MSFLGLB.TextMatrix(MSFLGLB.Row, 3) = "应收业务员" Then
            gCnn.Execute "update ysyf set sy=" & Val(SY) & "  where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 6)
        ElseIf MSFLGLB.TextMatrix(MSFLGLB.Row, 3) = "应收客户" Then
            gCnn.Execute "update ysyf set sy=" & Val(SY) & "  where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 6)
        Else
            'strsql = "update ysyf set sy=" & Val(SY) & "  where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 6)
            gCnn.Execute "update ysyf set sy=" & Val(SY) & "  where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 6)
        End If
    End If
    SHOWFLG
    ClearTxt
    
    
End Sub
Private Sub ClearTxt()
    BXDH = ""
    KHMC = ""
    BCSK = ""
    SY = ""
    'JBR = ""
    RQ = Date


End Sub
Private Sub SHOWFLG()
    Dim strsql As String
    Dim rs As New ADODB.Recordset
    Dim i As Long
    Set rs = New ADODB.Recordset
    strsql = "select * from T_应收应付 where 剩余>0 and 应收应付类型=0 order by id"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    MSFLGLB.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        MSFLGLB.TextMatrix(i, 0) = rs("保单合同号")
        MSFLGLB.TextMatrix(i, 1) = rs("保险公司")
        MSFLGLB.TextMatrix(i, 2) = rs("客户名称")
        If rs("客户类型") = 1 Then
            MSFLGLB.TextMatrix(i, 3) = "应收业务员"
        ElseIf rs("客户类型") = 2 Then
            MSFLGLB.TextMatrix(i, 3) = "应收用户"
        Else
            MSFLGLB.TextMatrix(i, 3) = "应收保险公司"
        End If
        MSFLGLB.TextMatrix(i, 4) = rs("应收应付")
        MSFLGLB.TextMatrix(i, 5) = rs("剩余")
        MSFLGLB.TextMatrix(i, 6) = rs("id")
        rs.MoveNext
    Next


    
    
    
    
    
    
    
    
End Sub
Private Sub Command2_Click()
    Unload Me
End Sub

Private Sub Command3_Click()
    frmCBHS.Show
End Sub

Private Sub Form_Load()
    If Me.WindowState = 0 Then Me.Move 0, 0, 9420, 6480
    RQ = Date
    Dim rs As ADODB.Recordset
    Dim strsql As String
    Dim i As Long
    Set rs = New ADODB.Recordset
    JBR = gUser
    strsql = "select * from T_应收应付 where 剩余>0 and 应收应付类型=0 order by id"
    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
    MSFLGLB.Rows = rs.RecordCount + 1
    For i = 1 To rs.RecordCount
        MSFLGLB.TextMatrix(i, 0) = rs("保单合同号")
        MSFLGLB.TextMatrix(i, 1) = rs("保险公司")
        MSFLGLB.TextMatrix(i, 2) = rs("客户名称")
        If rs("客户类型") = 1 Then
            MSFLGLB.TextMatrix(i, 3) = "应收业务员"
        ElseIf rs("客户类型") = 2 Then
            MSFLGLB.TextMatrix(i, 3) = "应收用户"
        Else
            MSFLGLB.TextMatrix(i, 3) = "应收保险公司"
        End If
        MSFLGLB.TextMatrix(i, 4) = rs("应收应付")
        MSFLGLB.TextMatrix(i, 5) = rs("剩余")
        MSFLGLB.TextMatrix(i, 6) = rs("id")
        rs.MoveNext
    Next
End Sub

Private Sub MSFLGLB_Click()
'    Dim strsql As String
'    Dim rs As New ADODB.Recordset
'    Dim i As Long
'    Set rs = New ADODB.Recordset
'    If Option1.Value = True Then
'        strsql = "select 保险单号,保险公司,投保客户,业务员应收,id from T_应收应付 where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 5)
'    ElseIf Option2.Value = True Then
'        strsql = "select 保险单号,保险公司,投保客户,客户应收,id  from T_应收应付 where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 5)
'    Else
'        strsql = "select 保险单号,保险公司,投保客户,保险公司应收,id  from T_应收应付 where id=" & MSFLGLB.TextMatrix(MSFLGLB.Row, 5)
'    End If
'    rs.Open strsql, gCnn, adOpenStatic, adLockReadOnly
'    If Not rs.EOF Then
        BXDH = MSFLGLB.TextMatrix(MSFLGLB.Row, 0)
        KHMC = MSFLGLB.TextMatrix(MSFLGLB.Row, 2)
        SY = MSFLGLB.TextMatrix(MSFLGLB.Row, 5)
        ysje = Val(MSFLGLB.TextMatrix(MSFLGLB.Row, 4))
'    End If
'
End Sub