frmpz_newbalance.frm

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

VERSION 5.00
Object = "{5E9E78A0-531B-11CF-91F6-C2863C385E30}#1.0#0"; "msflxgrd.ocx"
Begin VB.Form frmPZ_NewBalance 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "最新余额一览表"
   ClientHeight    =   3000
   ClientLeft      =   45
   ClientTop       =   285
   ClientWidth     =   7830
   Icon            =   "frmPZ_NewBalance.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3000
   ScaleWidth      =   7830
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin MSFlexGridLib.MSFlexGrid mFg 
      Height          =   2175
      Left            =   120
      TabIndex        =   4
      Top             =   660
      Width           =   7575
      _ExtentX        =   13361
      _ExtentY        =   3836
      _Version        =   393216
      Rows            =   7
      Cols            =   5
      BackColor       =   -2147483634
      BackColorFixed  =   11657393
      GridColor       =   128
      AllowUserResizing=   3
      FormatString    =   "^|^方向|^金额|^外币|^数量;|期初余额|本期借方发生|本期贷方发生|借方累计|贷方累计|期末余额"
   End
   Begin VB.Label lblbz 
      AutoSize        =   -1  'True
      Caption         =   "外币币种："
      Height          =   180
      Left            =   3840
      TabIndex        =   3
      Top             =   405
      Width           =   900
   End
   Begin VB.Label lbldw 
      AutoSize        =   -1  'True
      Caption         =   "计量单位："
      Height          =   180
      Left            =   5760
      TabIndex        =   2
      Top             =   405
      Width           =   900
   End
   Begin VB.Label lblTime 
      AutoSize        =   -1  'True
      Caption         =   "时  间："
      Height          =   180
      Left            =   240
      TabIndex        =   1
      Top             =   405
      Width           =   720
   End
   Begin VB.Label lblkm 
      AutoSize        =   -1  'True
      Caption         =   "科  目："
      Height          =   180
      Left            =   240
      TabIndex        =   0
      Top             =   195
      Width           =   2280
   End
End
Attribute VB_Name = "frmPZ_NewBalance"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Dim m_Kmdm As String
Dim m_iMonth As String
Dim m_sFx As String
Dim m_dJe As Double
Dim m_dSl As Double
Dim m_dWb As Double
Dim m_sPZZL As String
Dim m_iKjqj As Integer
Dim m_sPzbh As String
Dim bIncludePz As Boolean

Public Property Let ubPz(ByVal vNewValue As Boolean)
bIncludePz = vNewValue
End Property

Public Property Get usPZZL() As String
usPZZL = m_sPZZL
End Property

Public Property Let usPZZL(ByVal vNewValue As String)
m_sPZZL = vNewValue
End Property

Public Property Get uiKjqj() As Integer
uiKjqj = m_iKjqj
End Property

Public Property Let uiKjqj(ByVal vNewValue As Integer)
m_iKjqj = vNewValue
End Property

Public Property Get usPZBH() As String
usPZBH = m_sPzbh
End Property

Public Property Let usPZBH(ByVal vNewValue As String)
m_sPzbh = vNewValue
End Property

Public Property Get usKmdm() As String
usKmdm = m_Kmdm
End Property

Public Property Let usKmdm(ByVal vNewValue As String)
m_Kmdm = vNewValue
End Property
Public Property Get uiMonth() As Integer
uiMonth = m_iMonth
End Property

Public Property Let uiMonth(ByVal vNewValue As Integer)
m_iMonth = vNewValue
End Property

Public Property Get usFx() As String
usFx = m_sFx
End Property

Public Property Let usFx(ByVal vNewValue As String)
m_sFx = vNewValue
End Property

Public Property Get udJe() As Double
udJe = m_dJe
End Property
Public Property Let udJe(ByVal vNewValue As Double)
m_dJe = vNewValue
End Property

Public Property Let udSl(ByVal vNewValue As Double)
m_dSl = vNewValue
End Property
Public Property Get udSl() As Double
udSl = m_dSl
End Property
Public Property Let udWb(ByVal vNewValue As Double)
m_dWb = vNewValue
End Property
Public Property Get udWb() As Double
udWb = m_dWb
End Property


Private Sub form_load()
Dim i As Integer, j As Integer
Dim sKmdm As String

With mFg
    .FormatString = "^|^方向|^金额|^外币|^数量;|期初余额|本期借方发生|本期贷方发生|借方累计|贷方累计|期末余额"
    .COLWIDTH(0) = 1400
    .COLWIDTH(1) = 810
    .COLWIDTH(2) = 1760
    .COLWIDTH(3) = 1760
    .COLWIDTH(4) = 1760
    For i = 2 To 4
        For j = 1 To 6
            .row = j
            .col = i
            .CellAlignment = flexAlignRightCenter
        Next j
    Next i
    .row = 1
    .col = 1
    For i = 1 To 6
        .RowHeight(i) = 300
    Next i
End With
lblTime.Caption = "时  间：" & glo.sOperateYear & "." & CStr(m_iMonth)

'计算并显示
'sKmdm = Replace(Trim$("" & m_Kmdm), "" + Chr(10), "")
Call GetKmBalance(m_Kmdm)


End Sub

'尧====2002/7/20

Private Sub GetKmBalance(sCode As String)
'get the balance of the scode
    Dim rstTemp As New ADODB.Recordset
    Dim sSQL As String
    Dim sTemp As String
    Dim sNotRecordAccount As String
    Dim sKmmc As String
    'yao====
    Dim sFx(6) As String    '方向
    Dim dJe(6) As Double    '金额
    Dim dWb(6) As Double    '外币
    Dim dSl(6) As Double    '数量
    Dim sFxTmp As String    '期初方向
    Dim dJeTmpj As Double    '期初金额借方
    Dim dWbTmpj As Double    '期初外币
    Dim dSlTmpj As Double    '期初数量
    Dim dJeTmpd As Double    '期初金额
    Dim dWbTmpd As Double    '期初外币
    Dim dSlTmpd As Double    '期初数量
    Dim sPzfx As String      '凭证方向
    Dim dPzJej As Double     '未记账凭证金额借方合计
    Dim dPzSlj As Double
    Dim dPzWbj As Double
    Dim dPzJed As Double     '未记账凭证金额贷方合计
    Dim dPzSld As Double
    Dim dPzWbd As Double
    Dim i As Integer
    Dim sDw As String
    Dim sBz As String
    Dim m_aryKmCodeLen() As String
    Dim iLevel As Integer
    Dim sCodePre As String
    Dim sKmdmTemp As String
    Dim sKmdmTmp() As String

    'get the Account month
    Set rstTemp = New ADODB.Recordset
    With rstTemp
         .CursorLocation = adUseClient
         sSQL = "SELECT * FROM tSYS_SubSysUsed WHERE AccountID = '" & glo.sAccountID & _
                "' AND SubSysID = '" & gloSys.sSubSysID & "'"
         .Open sSQL, gloSys.cnnSYS, adOpenStatic, adLockReadOnly

        If Not (.EOF And .BOF) Then