frmin_kmyejc.frm

一个用VB写的财务软件源码

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Begin VB.Form frmIN_Kmyejc 
   Caption         =   "平衡检查"
   ClientHeight    =   4530
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   9105
   ControlBox      =   0   'False
   LinkTopic       =   "Form1"
   Moveable        =   0   'False
   ScaleHeight     =   4530
   ScaleWidth      =   9105
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  '所有者中心
   Begin CELL50Lib.Cell Cllr 
      Height          =   3495
      Left            =   120
      TabIndex        =   3
      Top             =   480
      Width           =   8895
      _Version        =   65536
      _ExtentX        =   15690
      _ExtentY        =   6165
      _StockProps     =   0
   End
   Begin MSComctlLib.TabStrip tsp 
      Height          =   330
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   8955
      _ExtentX        =   15796
      _ExtentY        =   582
      TabMinWidth     =   1176
      _Version        =   393216
      BeginProperty Tabs {1EFB6598-857C-11D1-B16A-00C0F0283628} 
         NumTabs         =   2
         BeginProperty Tab1 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "借  贷  平  衡 "
            ImageVarType    =   2
         EndProperty
         BeginProperty Tab2 {1EFB659A-857C-11D1-B16A-00C0F0283628} 
            Caption         =   "资产负债权益平衡"
            ImageVarType    =   2
         EndProperty
      EndProperty
   End
   Begin VB.CommandButton cmdPrint 
      Caption         =   "打印(&P)"
      Height          =   405
      Left            =   6075
      TabIndex        =   1
      Top             =   4095
      Width           =   1035
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "确定(&O)"
      Default         =   -1  'True
      Height          =   405
      Left            =   4680
      TabIndex        =   0
      Top             =   4095
      Width           =   1125
   End
End
Attribute VB_Name = "frmIN_Kmyejc"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Public sYear As String

Public dNcJfTotal As Double '年初借方合计
Public dNcDfTotal As Double '年初贷方合计
Public dLjJfTotal As Double '累计借方合计
Public dLjDfTotal As Double '累计贷方合计
Public dQcJfTotal As Double '期初借方合计
Public dQcDfTotal As Double '期初贷方合计

Public dNcZc As Double      '年初资产
Public dNcCb As Double      '年初成本
Public dNcFz As Double      '年初负债
Public dNcQy As Double      '年初权益
Public dNcSy As Double      '年初损益


Public dQcZc As Double      '期初资产
Public dQcCb As Double      '期初成本
Public dQcFz As Double      '期初负债
Public dQcQy As Double      '期初权益
Public dQcSy As Double      '期初损益

Const FL_COL = 1
Const JFMC_COL = 2
Const JF_COL = 3
Const DFMC_COL = 4
Const DF_COL = 5
Const CE_COL = 6

Const GridHead1 = "@年,,借方,,贷方,差额"
Const GridHead2 = "@年,资产,借方,负债及权益,贷方,差额"

Const GridWidth1 = "70,0,130,0,130,130"
Const GridWidth2 = "70,70,130,70,130,130"

Const RowTitle = 1
Const RowHead = 2

Private Sub SetDouble(ByVal col As Long, ByVal row As Long, ByVal Sheet As Long, ByVal value As Double)
With Cllr
    .SetCellDouble col, row, Sheet, value
    .SetCellAlign col, row, Sheet, 34
    .SetCellHideZero col, row, Sheet, 1
    .SetCellNumType col, row, Sheet, 1
    .SetCellSeparator col, row, Sheet, 2
    .SetCellDigital col, row, Sheet, 2
End With
End Sub

Public Sub FillGrid(ByVal IsQcUsed As Boolean)
With Cllr
    .SetCellString FL_COL, RowHead, 0, sYear + .GetCellString(FL_COL, RowHead, 0)
    SetDouble JF_COL, RowHead + 1, 0, dNcJfTotal
    SetDouble DF_COL, RowHead + 1, 0, dNcDfTotal
    SetDouble CE_COL, RowHead + 1, 0, Format(dNcJfTotal - dNcDfTotal, "0.00")
    
    SetDouble JF_COL, RowHead + 2, 0, dLjJfTotal
    SetDouble DF_COL, RowHead + 2, 0, dLjDfTotal
    SetDouble CE_COL, RowHead + 2, 0, Format(dLjJfTotal - dLjDfTotal, "0.00")
    
    SetDouble JF_COL, RowHead + 3, 0, dQcJfTotal
    SetDouble DF_COL, RowHead + 3, 0, dQcDfTotal
    SetDouble CE_COL, RowHead + 3, 0, Format(dQcJfTotal - dQcDfTotal, "0.00")
    
    .SetCellString FL_COL, RowHead, 1, sYear + .GetCellString(FL_COL, RowHead, 1)
    
    SetDouble JF_COL, RowHead + 1, 1, dNcZc
    SetDouble JF_COL, RowHead + 2, 1, dNcCb
    SetDouble DF_COL, RowHead + 1, 1, dNcFz
    SetDouble DF_COL, RowHead + 2, 1, dNcQy
    SetDouble DF_COL, RowHead + 3, 1, dNcSy
    SetDouble JFMC_COL, RowHead + 4, 1, dNcZc + dNcCb
    SetDouble DFMC_COL, RowHead + 4, 1, dNcFz + dNcQy + dNcSy
    SetDouble CE_COL, RowHead + 4, 1, Format(dNcZc + dNcCb - (dNcFz + dNcQy + dNcSy), "0.00")
    
    SetDouble JF_COL, RowHead + 5, 1, dQcZc
    SetDouble JF_COL, RowHead + 6, 1, dQcCb
    SetDouble DF_COL, RowHead + 5, 1, dQcFz
    SetDouble DF_COL, RowHead + 6, 1, dQcQy
    SetDouble DF_COL, RowHead + 7, 1, dQcSy
    
    SetDouble JFMC_COL, RowHead + 8, 1, dQcZc + dQcCb
    SetDouble DFMC_COL, RowHead + 8, 1, dQcFz + dQcQy + dQcSy
    SetDouble CE_COL, RowHead + 8, 1, Format(dQcZc + dQcCb - (dQcFz + dQcQy + dQcSy), "0.00")
    
    If IsQcUsed = False Then
        .SetRows RowHead + 1 + 1, 0
        .SetRows RowHead + 4 + 1, 1
    End If
End With
End Sub

Private Sub SetGrid()
Dim s() As String
Dim i As Integer
With Cllr
    .Login "南京伊康计算机工程公司", "11010504", "0060-1733-7722-3004"
    .ResetContent
    .InsertSheet 0, 1
    .AllowDragdrop = False
    .SetDefaultFont .FindFontIndex("宋体", 1), 10
    .WorkbookReadonly = True
    .AllowSizeColInGrid = True
    .ShowSideLabel 0, 0
    .ShowTopLabel 0, 0
    .ShowSheetLabel 0, 0
    .SetSelectMode 0, 2
    
    .ShowSideLabel 0, 1
    .ShowTopLabel 0, 1
    .ShowSheetLabel 0, 1
    .SetSelectMode 1, 2
    
    .SetCellString FL_COL, RowTitle, 0, "试算平衡"
    .SetCellFont FL_COL, RowTitle, 0, .FindFontIndex("宋体", 1)
    .SetCellFontSize FL_COL, RowTitle, 0, 14
    .SetCellAlign FL_COL, RowTitle, 0, 36
    .SetRowHeight 1, 20, RowTitle, 0
    
    .SetCellString FL_COL, RowTitle, 1, "试算平衡"
    .SetCellFont FL_COL, RowTitle, 1, .FindFontIndex("宋体", 1)
    .SetCellFontSize FL_COL, RowTitle, 1, 14
    .SetCellAlign FL_COL, RowTitle, 1, 36
    .SetRowHeight 1, 20, RowTitle, 1
    
    s = Split(GridHead1, ",")
    i = UBound(s) - LBound(s) + 2
    .SetCols i, 0
    .SetCols i, 1
    
    For i = LBound(s) To UBound(s)
        .SetCellString i + 1, RowHead, 0, Replace(s(i), "@", sYear)
        .SetCellAlign i + 1, RowHead, 0, 36
    Next
    s = Split(GridHead2, ",")
    For i = LBound(s) To UBound(s)
        .SetCellString i + 1, RowHead, 1, Replace(s(i), "@", sYear)
        .SetCellAlign i + 1, RowHead, 1, 36
    Next
    
    s = Split(GridWidth1, ",")
    For i = LBound(s) To UBound(s)
        .SetColWidth 1, CLng(s(i)), i + 1, 0
    Next
    
    s = Split(GridWidth2, ",")
    For i = LBound(s) To UBound(s)
        .SetColWidth 1, CLng(s(i)), i + 1, 1
    Next
        
    .s FL_COL, RowHead + 1, 0, "年初余额"
    .SetCellAlign FL_COL, RowHead + 1, 0, 36
    .s FL_COL, RowHead + 2, 0, "累计发生"
    .SetCellAlign FL_COL, RowHead + 2, 0, 36
    .s FL_COL, RowHead + 3, 0, "期初余额"
    .SetCellAlign FL_COL, RowHead + 3, 0, 36
    .SetRows RowHead + 4, 0
    
    .MergeCells 1, RowTitle, .GetCols(0), RowTitle
    .DrawGridLine 1, RowHead, .GetCols(0), .GetRows(0), 0, 2, vbBlack
    .SetCurSheet 1
    
    .s FL_COL, RowHead + 1, 0, "年初"
    .SetCellAlign FL_COL, RowHead + 1, 1, 36
    .s JFMC_COL, RowHead + 1, 0, "资产"
    .SetCellAlign JFMC_COL, RowHead + 1, 1, 36
    .s DFMC_COL, RowHead + 1, 0, "负债"
    .SetCellAlign DFMC_COL, RowHead + 1, 1, 36
    .s JFMC_COL, RowHead + 2, 0, "成本"
    .SetCellAlign JFMC_COL, RowHead + 2, 1, 36
    .s DFMC_COL, RowHead + 2, 0, "权益"
    .SetCellAlign DFMC_COL, RowHead + 2, 1, 36
    .s DFMC_COL, RowHead + 3, 0, "损益"
    .SetCellAlign DFMC_COL, RowHead + 3, 1, 36
    .s FL_COL, RowHead + 4, 0, "合计"
    .SetCellAlign FL_COL, RowHead + 4, 1, 36
    
    .s FL_COL, RowHead + 5, 0, "期初"
    .SetCellAlign FL_COL, RowHead + 5, 1, 36
    .s JFMC_COL, RowHead + 5, 0, "资产"
    .SetCellAlign JFMC_COL, RowHead + 5, 1, 36
    .s DFMC_COL, RowHead + 5, 0, "负债"
    .SetCellAlign DFMC_COL, RowHead + 5, 1, 36
    .s JFMC_COL, RowHead + 6, 0, "成本"
    .SetCellAlign JFMC_COL, RowHead + 6, 1, 36
    .s DFMC_COL, RowHead + 6, 0, "权益"
    .SetCellAlign DFMC_COL, RowHead + 6, 1, 36
    .s DFMC_COL, RowHead + 7, 0, "损益"
    .SetCellAlign DFMC_COL, RowHead + 7, 1, 36
    .s FL_COL, RowHead + 8, 0, "合计"
    .SetCellAlign FL_COL, RowHead + 8, 1, 36
    .SetRows RowHead + 9, 1
    
    .MergeCells 1, RowTitle, .GetCols(0), RowTitle
    .MergeCells FL_COL, RowHead + 1, FL_COL, RowHead + 3
    .MergeCells JFMC_COL, RowHead + 4, JF_COL, RowHead + 4
    .MergeCells DFMC_COL, RowHead + 4, DF_COL, RowHead + 4
    .MergeCells FL_COL, RowHead + 5, FL_COL, RowHead + 7
    .MergeCells JFMC_COL, RowHead + 8, JF_COL, RowHead + 8
    .MergeCells DFMC_COL, RowHead + 8, DF_COL, RowHead + 8
    .DrawGridLine 1, RowHead, .GetCols(1), .GetRows(1), 0, 2, vbBlack
    .SetCurSheet 0
    
    
    
End With

End Sub

Private Sub Cllr_AllowSizeCol(ByVal col As Long, ByVal row As Long, approve As Long)
approve = 1
End Sub



Private Sub cmdOk_Click()
   Unload Me
End Sub

Private Sub cmdPrint_Click()
Cllr.PrintPreview 1, Cllr.GetCurSheet
End Sub

Private Sub form_load()
SetGrid
End Sub

Private Sub tsp_Click()
Cllr.SetCurSheet tsp.SelectedItem.Index - 1
End Sub