frmac_indexresult.frm

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

VERSION 5.00
Object = "{7802D41A-28B0-43C4-95EA-17B7E32337D1}#1.0#0"; "CellCtrl5.ocx"
Begin VB.Form frmAC_IndexResult 
   Caption         =   "科目索引表"
   ClientHeight    =   6015
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   8775
   Icon            =   "frmAC_IndexResult.frx":0000
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   6015
   ScaleWidth      =   8775
   WindowState     =   2  'Maximized
   Begin VB.ComboBox cboAccountFormat 
      Height          =   300
      Left            =   30
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   630
      Width           =   1605
   End
   Begin CELL50Lib.Cell Cllr 
      Height          =   5895
      Left            =   120
      TabIndex        =   1
      Top             =   120
      Width           =   8535
      _Version        =   65536
      _ExtentX        =   15055
      _ExtentY        =   10398
      _StockProps     =   0
   End
End
Attribute VB_Name = "frmAC_IndexResult"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Option Explicit

'索引表

'Cell单元格对齐方式: 33 = 左对齐, 34 = 右对齐, 36 = 居中对齐;

Const ROWS_PAGE = 30                        '每页行数

Const COL_START = 1                         '开始列数
Const COL_SUBJECTCODE = 1                   '科目代码
Const COL_SUBJECTNAME = 2                   '科目名称

Const COL_BEGIN_DEBIT_AMOUNT = 3          '期初数量借方
Const COL_BEGIN_DEBIT_FOREIGN = 4         '期初外币借方
Const COL_BEGIN_DEBIT_MONEY = 5           '期初金额借方
Const COL_BEGIN_CREDIT_AMOUNT = 6         '期初数量贷方
Const COL_BEGIN_CREDIT_FOREIGN = 7        '期初外币贷方
Const COL_BEGIN_CREDIT_MONEY = 8          '期初金额贷方

Const COL_HAPPEN_DEBIT_AMOUNT = 9           '发生数量借方
Const COL_HAPPEN_DEBIT_FOREIGN = 10          '发生外币借方
Const COL_HAPPEN_DEBIT_MONEY = 11           '发生金额借方
Const COL_HAPPEN_CREDIT_AMOUNT = 12         '发生数量贷方
Const COL_HAPPEN_CREDIT_FOREIGN = 13        '发生外币贷方
Const COL_HAPPEN_CREDIT_MONEY = 14          '发生金额贷方

Const COL_END_DEBIT_AMOUNT = 15            '期末数量余额
Const COL_END_DEBIT_FOREIGN = 16           '期末外币余额
Const COL_END_DEBIT_MONEY = 17             '期末金额余额
Const COL_END_CREDIT_AMOUNT = 18           '期末数量余额
Const COL_END_CREDIT_FOREIGN = 19          '期末外币余额
Const COL_END_CREDIT_MONEY = 20            '期末金额余额

Const COL_END = 20                          '结束列

Const ROW_TITLE = 1                         '标题
Const ROW_ACCOUNTFORMAT = 2                 '账页格式行
Const ROW_PERIOD = 3                        '页眉
Const ROW_HEAD1 = 4                         '页标头行1
Const ROW_HEAD2 = 5                         '页标头行2
Const ROW_GRID_START = 6                    '表格开始行

'Const CRB_LINE = vbBlack                    '表格线颜色

'金额式账页缺省列宽
Const COLWIDTH_MONEY = "100,100,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120"

'数量金额式账页缺省列宽
Const COLWIDTH_AMOUNT = "100,100,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0"

'外币金额式账页缺省列宽
Const COLWIDTH_FOREIGN = "100,100,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0,0,120,0"

''数量外币式账页缺省列宽
'Const COLWIDTH_AMOUNT_FOREIGN = "100,100,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,120,1"

'标题
Const DefaultTitleFontName = "黑体"
Const DefaultTitleFontSize = 20
Const DefaultTitleRowHigh = 10.25
'表头
Const DefaultHeadFontName = "仿宋_GB2312"
Const DefaultHeadFontSize = 10
Const DefaultHeadRowHigh = 4
'数据
Const DefaultDataFontName = "宋体"
Const DefaultDataFontSize = 9
Const DefaultDataRowHigh = 4

'打印使用标题
Const PrintTitleFontName = "黑体"
Const PrintTitleFontSize = 20
Const PrintTitleRowHigh = 10.25
'打印表头
Const PrintHeadFontName = "仿宋_GB2312"
Const PrintHeadFontSize = 12
Const PrintHeadRowHigh = 6
'打印数据
Const PrintDataFontName = "宋体"
Const PrintDataFontSize = 11
Const PrintDataRowHigh = 6

Dim m_sMonthFrom As String, m_sMonthTo As String                        '查询起始月份、截止月份
Dim m_sMaxEndMonth As String                                            '查询最小月份、查询最大月份
Dim m_sSubjectCodeFrom As String, m_sSubjectNameFrom As String          '查询起始科目代码、科目名称
Dim m_sSubjectCodeTo As String, m_sSubjectNameTo As String              '查询截止科目代码、科目名称
Dim m_iSubjectLevelFrom As Integer, m_iSubjectLevelTo As Integer        '科目起始级次、截止级次
Dim m_bIsEndLevelSubject As Boolean                                     '是否末级科目
Dim m_sSubjectType As String                                            '科目类型
Dim m_sSort As String                                                   '排序方式
Dim m_bIncludeNotRecordVoucher As Boolean                               '是否包含未记账凭证
Dim m_bIncludeBlankKm As Boolean                                        '是否包含空白科目
Dim m_sEnterName As String          '单位名称
Dim m_sStyle As String              '格式：发生额、余额

Dim m_bFormLoad As Boolean          '是否在窗体引导状态

Dim m_iCol As Integer               '鼠标右击单元格所在行
Dim m_iRow As Integer               '鼠标右击单元格所在列
Dim m_iColWidth() As Integer        '存放表格各列的宽度
Dim m_iColWidthTemp() As Integer    '存放表格列宽被修改后的宽度
Dim m_sDefaultColWidth As String    '当前账页的缺省列宽


Dim sQuantity As String             '各个种类的凭证数量

Private Type NotRecordUDT
    sKmdm As String
    sFx As String
    iKjqj As Integer
    dSumAmount As Double
    dSumForeign As Double
    dSumMoney As Double
End Type

Private Type pzbh
    iKjqj As Integer
    sPZZL As String
    sMaxBh As String
    sMinBh As String
End Type

Dim tPzbh() As pzbh

Private NotRecordData() As NotRecordUDT '存放未记账凭证的科目代码、方向、数量和、外币和、金额和
Private mPrintTitle As New clsRowType          '打印时标题类型
Private mPrintData As New clsRowType           '打印时数据类型
Private mPrintHead As New clsRowType           '打印时表头类型
Private mIsPrint As Boolean                    '是否在打印
Private mColMonth As Integer                   '查询月份个数

Dim rstTemp As ADODB.Recordset
Dim sSQL As String
 
Public usAccountType As String      '账页类型
Public usAccountFormat As String    '账页格式
Dim m_iID As Integer

Public uIsFullSubject As Boolean    '是否所有科目
Public uIsDisplayVoucherInfo As Boolean  '是否显示凭证缺号


'开始查询月
Public Property Let usMonthFrom(ByVal sMonthFrom As String)
    m_sMonthFrom = sMonthFrom
    If IsNumeric(m_sMonthFrom) Then
        mColMonth = FormatToDouble(m_sMonthTo) - FormatToDouble(m_sMonthFrom) + 1
    End If
End Property

'截止查询月
Public Property Let usMonthTo(ByVal sMonthTo As String)
    m_sMonthTo = sMonthTo
    If IsNumeric(m_sMonthTo) Then
        mColMonth = FormatToDouble(m_sMonthTo) - FormatToDouble(m_sMonthFrom) + 1
    End If
End Property

'查询最大月份
Public Property Let usMaxEndMonth(ByVal sMaxEndMonth As String)
    m_sMaxEndMonth = sMaxEndMonth
End Property


'开始查询科目代码
Public Property Let usSubjectCodeFrom(ByVal sCodeFrom As String)
    m_sSubjectCodeFrom = sCodeFrom
End Property

'开始查询科目名称
Public Property Let usSubjectNameFrom(ByVal sNameFrom As String)
    m_sSubjectNameFrom = sNameFrom
End Property

'截止查询科目代码
Public Property Let usSubjectCodeTo(ByVal sCodeTo As String)
    m_sSubjectCodeTo = sCodeTo
End Property

'截止查询科目名称
Public Property Let usSubjectNameTo(ByVal sNameTo As String)
    m_sSubjectNameTo = sNameTo
End Property

'查询科目起始级次
Public Property Let usSubjectLevelFrom(ByVal sLevelFrom As Integer)
    m_iSubjectLevelFrom = sLevelFrom
End Property

'查询科目结束级次
Public Property Let usSubjectLevelTo(ByVal sLevelTo As Integer)
    m_iSubjectLevelTo = sLevelTo
End Property

'是否查询最末级科目
Public Property Let ubIsEndSubject(ByVal bIsEndSubject As Boolean)
    m_bIsEndLevelSubject = bIsEndSubject
End Property


'查询科目类型
Public Property Let usSubjectType(ByVal sSubjectType As String)
    m_sSubjectType = sSubjectType
End Property

'排序内容
Public Property Let usSort(ByVal sSort As String)
    m_sSort = sSort
End Property

'格式
Public Property Let usStyle(ByVal sStyle As String)
    m_sStyle = sStyle