frmbank.frm

金算盘软件代码

      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Height          =   180
      Index           =   16
      Left            =   7350
      TabIndex        =   29
      Top             =   4770
      Width           =   90
   End
   Begin VB.Label lblBank 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Height          =   180
      Index           =   15
      Left            =   3690
      TabIndex        =   28
      Top             =   5190
      Width           =   90
   End
   Begin VB.Label lblBank 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Height          =   180
      Index           =   14
      Left            =   3690
      TabIndex        =   27
      Top             =   4980
      Width           =   90
   End
   Begin VB.Label lblBank 
      Alignment       =   1  'Right Justify
      AutoSize        =   -1  'True
      Height          =   180
      Index           =   13
      Left            =   3690
      TabIndex        =   26
      Top             =   4770
      Width           =   90
   End
   Begin VB.Line Line1 
      Index           =   8
      X1              =   90
      X2              =   7560
      Y1              =   5910
      Y2              =   5910
   End
   Begin VB.Line Line1 
      Index           =   7
      X1              =   90
      X2              =   7560
      Y1              =   4650
      Y2              =   4650
   End
   Begin VB.Line Line1 
      Index           =   6
      X1              =   90
      X2              =   7560
      Y1              =   2610
      Y2              =   2610
   End
   Begin VB.Line Line1 
      Index           =   5
      X1              =   90
      X2              =   7560
      Y1              =   2550
      Y2              =   2550
   End
   Begin VB.Line Line1 
      Index           =   4
      X1              =   90
      X2              =   7560
      Y1              =   510
      Y2              =   510
   End
   Begin VB.Line Line1 
      Index           =   3
      X1              =   7560
      X2              =   7560
      Y1              =   510
      Y2              =   2550
   End
   Begin VB.Line Line1 
      Index           =   1
      X1              =   90
      X2              =   7560
      Y1              =   5400
      Y2              =   5400
   End
   Begin VB.Line Line1 
      Index           =   0
      X1              =   90
      X2              =   7560
      Y1              =   4710
      Y2              =   4710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "+:企业已收银行未收:"
      Height          =   180
      Index           =   12
      Left            =   3900
      TabIndex        =   25
      Top             =   4980
      Width           =   1710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "调整后对帐单余额:"
      Height          =   180
      Index           =   11
      Left            =   3900
      TabIndex        =   24
      Top             =   5460
      Width           =   1530
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "-:企业已付银行未付:"
      Height          =   180
      Index           =   10
      Left            =   3900
      TabIndex        =   23
      Top             =   5190
      Width           =   1710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "对帐单余额:"
      Height          =   180
      Index           =   9
      Left            =   3900
      TabIndex        =   22
      Top             =   4770
      Width           =   990
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "银行帐与对帐单差额:"
      Height          =   180
      Index           =   8
      Left            =   180
      TabIndex        =   21
      Top             =   5670
      Width           =   1710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "调整后银行帐余额:"
      Height          =   180
      Index           =   7
      Left            =   180
      TabIndex        =   20
      Top             =   5460
      Width           =   1530
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "-:银行已付企业未付:"
      Height          =   180
      Index           =   6
      Left            =   180
      TabIndex        =   19
      Top             =   5190
      Width           =   1710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "+:银行已收企业未收:"
      Height          =   180
      Index           =   5
      Left            =   180
      TabIndex        =   18
      Top             =   4980
      Width           =   1710
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "银行帐帐面余额:"
      Height          =   180
      Index           =   4
      Left            =   180
      TabIndex        =   17
      Top             =   4770
      Width           =   1350
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "币种(&C)"
      Height          =   180
      Index           =   1
      Left            =   4200
      TabIndex        =   2
      Top             =   180
      Width           =   645
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "银行科目(&A)"
      Height          =   180
      Index           =   0
      Left            =   105
      TabIndex        =   0
      Top             =   180
      Width           =   990
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "银行帐(&K)"
      Height          =   180
      Index           =   3
      Left            =   180
      TabIndex        =   8
      Top             =   2670
      Width           =   7275
   End
   Begin VB.Label lblBank 
      AutoSize        =   -1  'True
      Caption         =   "对帐单(&B)"
      Height          =   180
      Index           =   2
      Left            =   180
      TabIndex        =   6
      Top             =   570
      Width           =   7275
   End
   Begin VB.Menu mnuBank 
      Caption         =   "Bank"
      Visible         =   0   'False
      Begin VB.Menu mnuAuto 
         Caption         =   "自动对帐(&F)"
      End
      Begin VB.Menu mnuMode 
         Caption         =   "对帐方式(&R)"
      End
      Begin VB.Menu mnuCancel 
         Caption         =   "取消对帐(&L)"
      End
      Begin VB.Menu mnuRefer 
         Caption         =   "参照(&F)"
      End
   End
End
Attribute VB_Name = "frmBank"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''
'
'对帐窗体
'
'作者：苏涛
'
'日期：1998-07-03
'
'接口：引入：银行对帐主界面的AccountID,CurrencyID;
'      引出：AcnID,CurID
''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Option Compare Text

Private WithEvents mclsSubClassform As SubClass32.SubClass
Attribute mclsSubClassform.VB_VarHelpID = -1
Private mblnIsChanged As Boolean  'TRUE--对过帐        FALSE--未对过帐
Private mblnIsBill As Boolean     'TRUE--选中msgBill   FALSE-选中msgBank
Private mblnBillChan As Boolean
Private mblnBankChan As Boolean
Private mbytCurDec As Byte
Private mdblBillBalance As Double, mdblBankBalance As Double
Private mintRow As Integer        '选中的GRID的ROW
Private mlngAcnID As Long
Private mlngCurID As Long
Private mlngBillDebitCount As Long
Private mlngBillCreditCount As Long
Private mlngBankDebitCount As Long
Private mlngBankCreditCount As Long
Private mintBankDebitCol As Integer
Private mintBankCreditCol As Integer
Private WithEvents mclsBillGrid As Grid
Attribute mclsBillGrid.VB_VarHelpID = -1
Private WithEvents mclsBankGrid As Grid
Attribute mclsBankGrid.VB_VarHelpID = -1
Private mrecBankAccount As rdoResultset

Public Property Get AcnID() As Long
    AcnID = mlngAcnID
End Property

Public Property Get CurID() As Long
    CurID = mlngCurID
End Property

Private Sub AutoCollate()
    Dim intResult As Integer
    Dim dblBillDebit As Double, dblBillCredit As Double
    Dim dblBankDebit As Double, dblBankCredit As Double
    Dim i As Integer, j As Integer, strMess As String
    Dim c As Integer, r As Integer
    
    j = 1
    r = 0
    For i = 1 To mlngBillDebitCount
        c = IIf(r = 0, j, r)
        r = 0
        For j = c To mlngBankCreditCount
            intResult = Match(i, j)
            If intResult = 0 Then
                msgBill.TextMatrix(i, 1) = "√"
                msgBank.TextMatrix(j, 1) = "√"
                If TxtToDouble(msgBill.TextMatrix(i, 6)) <> 0 Then
                    dblBillDebit = dblBillDebit + CDbl(msgBill.TextMatrix(i, 6))
                    dblBankCredit = dblBankCredit + CDbl(msgBank.TextMatrix(j, mintBankCreditCol))
                Else
                    dblBillCredit = dblBillCredit + CDbl(msgBill.TextMatrix(i, 7))
                    dblBankDebit = dblBankDebit + CDbl(msgBank.TextMatrix(j, mintBankDebitCol))
                End If
                Exit For
            ElseIf intResult = -1 Then
                Exit For
            ElseIf intResult = 3 Then
                r = c
            End If
        Next j
    Next i
    
    j = mlngBankCreditCount + 1
    r = 0
    For i = mlngBillDebitCount + 1 To msgBill.Rows - 1
        c = IIf(r = 0, j, r)
        r = 0
        For j = c To msgBank.Rows - 1
            intResult = Match(i, j)
            If intResult = 0 Then
                msgBill.TextMatrix(i, 1) = "√"
                msgBank.TextMatrix(j, 1) = "√"
                If TxtToDouble(msgBill.TextMatrix(i, 6)) <> 0 Then
                    dblBillDebit = dblBillDebit + CDbl(msgBill.TextMatrix(i, 6))
                    dblBankCredit = dblBankCredit + CDbl(msgBank.TextMatrix(j, mintBankCreditCol))
                Else
                    dblBillCredit = dblBillCredit + CDbl(msgBill.TextMatrix(i, 7))
                    dblBankDebit = dblBankDebit + CDbl(msgBank.TextMatrix(j, mintBankDebitCol))
                End If
                Exit For
            ElseIf intResult = -1 Then
                Exit For
            ElseIf intResult = 3 Then
                r = c
            End If
        Next j
    Next i
    strMess = "银行帐  借方: " & Left(CStr(dblBankDebit) & String(10, " "), 10) _
        & "贷方: " & Left(CStr(dblBankCredit) & String(10, " "), 10) & Chr(13) _
        & "对帐单  借方: " & Left(CStr(dblBillDebit) & String(10, " "), 10) _
        & "贷方: " & Left(CStr(dblBillCredit) & String(10, " "), 10)
    ShowMsg hwnd, strMess, vbInformation + MB_TASKMODAL, "自动对帐结果"
    If dblBankDebit <> 0 Or dblBankCredit <> 0 Then
        mblnIsChanged = True
        mblnBankChan = True
        mblnBillChan = True
    End If
'    cmdCollate(2).Enabled = (dblBankDebit + dblBankCredit + dblBillDebit + dblBillCredit > 0)
'    chkAll_Click
End Sub

Private Sub cboBank_Click(index As Integer)
    Dim i As Integer