企业管理

开发平台：
Visual Basic

i-：源码内容
							VERSION 5.00
Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form ZB_FrmKmyebjg 
   Caption         =   "科目发生额及余额表"
   ClientHeight    =   7755
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11190
   HelpContextID   =   5001
   Icon            =   "帐簿_科目余额表查询结果.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7755
   ScaleWidth      =   11190
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   7620
      Top             =   90
   End
   Begin VB.PictureBox Pic_Title 
      Height          =   1155
      Left            =   0
      Picture         =   "帐簿_科目余额表查询结果.frx":1042
      ScaleHeight     =   1095
      ScaleWidth      =   11535
      TabIndex        =   1
      Top             =   570
      Width           =   11595
      Begin VB.ComboBox Combo_AccFormat 
         Height          =   300
         Left            =   6780
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   750
         Width           =   1725
      End
      Begin VB.Label Label1 
         Appearance      =   0  'Flat
         BackColor       =   &H80000005&
         BackStyle       =   0  'Transparent
         Caption         =   "科目类别合计"
         ForeColor       =   &H80000008&
         Height          =   195
         Index           =   2
         Left            =   9600
         TabIndex        =   10
         Top             =   480
         Width           =   1155
      End
      Begin VB.Label Lab_Color 
         Appearance      =   0  'Flat
         BackColor       =   &H00FFFF00&
         BorderStyle     =   1  'Fixed Single
         ForeColor       =   &H80000008&
         Height          =   195
         Index           =   0
         Left            =   9360
         TabIndex        =   9
         Top             =   450
         Width           =   195
      End
      Begin VB.Label Lab_TitleText 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   0
         Left            =   2040
         TabIndex        =   8
         Top             =   810
         Width           =   90
      End
      Begin VB.Label TsLabel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "帐页格式:"
         Height          =   180
         Index           =   7
         Left            =   5940
         TabIndex        =   7
         Top             =   810
         Width           =   810
      End
      Begin VB.Label TsLabel 
         AutoSize        =   -1  'True
         BackColor       =   &H80000018&
         BackStyle       =   0  'Transparent
         Caption         =   "科目发生额及余额表"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   14.25
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00000000&
         Height          =   285
         Index           =   4
         Left            =   630
         TabIndex        =   3
         Top             =   180
         Width           =   2700
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "会计期间:"
         Height          =   180
         Index           =   0
         Left            =   1080
         TabIndex        =   2
         Top             =   810
         Width           =   810
      End
   End
   Begin MSComctlLib.Toolbar GsToolbar 
      Height          =   525
      Left            =   9510
      TabIndex        =   0
      Top             =   0
      Width           =   1665
      _ExtentX        =   2937
      _ExtentY        =   926
      ButtonWidth     =   1455
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   2
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "保存格式"
            Key             =   "bcgs"
            ImageKey        =   "bcgs"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "默认列宽"
            Key             =   "hfmrgs"
            ImageKey        =   "mrlk"
         EndProperty
      EndProperty
   End
   Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
      Height          =   6885
      Left            =   60
      TabIndex        =   4
      Top             =   1740
      Width           =   11715
      _cx             =   5080
      _cy             =   5080
      Appearance      =   1
      BorderStyle     =   1
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      MousePointer    =   0
      BackColor       =   16777215
      ForeColor       =   -2147483640
      BackColorFixed  =   12632256
      ForeColorFixed  =   -2147483630
      BackColorSel    =   -2147483635
      ForeColorSel    =   -2147483634
      BackColorBkg    =   -2147483636
      BackColorAlternate=   16777215
      GridColor       =   -2147483633
      GridColorFixed  =   -2147483632
      TreeColor       =   -2147483632
      FloodColor      =   192
      SheetBorder     =   -2147483642
      FocusRect       =   1
      HighLight       =   1
      AllowSelection  =   -1  'True
      AllowBigSelection=   -1  'True
      AllowUserResizing=   0
      SelectionMode   =   0
      GridLines       =   1
      GridLinesFixed  =   2
      GridLineWidth   =   1
      Rows            =   50
      Cols            =   10
      FixedRows       =   1
      FixedCols       =   1
      RowHeightMin    =   0
      RowHeightMax    =   0
      ColWidthMin     =   0
      ColWidthMax     =   0
      ExtendLastCol   =   0   'False
      FormatString    =   ""
      ScrollTrack     =   0   'False
      ScrollBars      =   3
      ScrollTips      =   0   'False
      MergeCells      =   0
      MergeCompare    =   0
      AutoResize      =   -1  'True
      AutoSizeMode    =   0
      AutoSearch      =   0
      AutoSearchDelay =   2
      MultiTotals     =   -1  'True
      SubtotalPosition=   1
      OutlineBar      =   0
      OutlineCol      =   0
      Ellipsis        =   0
      ExplorerBar     =   0
      PicturesOver    =   0   'False
      FillStyle       =   0
      RightToLeft     =   0   'False
      PictureType     =   0
      TabBehavior     =   0
      OwnerDraw       =   0
      Editable        =   0
      ShowComboButton =   1
      WordWrap        =   0   'False
      TextStyle       =   0
      TextStyleFixed  =   0
      OleDragMode     =   0
      OleDropMode     =   0
      DataMode        =   0
      VirtualData     =   -1  'True
      DataMember      =   ""
      ComboSearch     =   3
      AutoSizeMouse   =   -1  'True
      FrozenRows      =   0
      FrozenCols      =   0
      AllowUserFreezing=   0
      BackColorFrozen =   0
      ForeColorFrozen =   0
      WallPaperAlignment=   9
      AccessibleName  =   ""
      AccessibleDescription=   ""
      AccessibleValue =   ""
      AccessibleRole  =   24
   End
   Begin MSComctlLib.Toolbar SzToolbar 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   5
      Top             =   0
      Width           =   11190
      _ExtentX        =   19738
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   15
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "ymsz"
            ImageKey        =   "sz"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "dy"
            ImageKey        =   "dy"
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "预览"
            Key             =   "yl"
            ImageKey        =   "yl"
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "查询"
            Key             =   "cx"
            ImageKey        =   "cx"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "累计"
            Key             =   "lj"
            ImageKey        =   "lj"
            Style           =   1
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "总帐"
            Key             =   "zz"
            ImageKey        =   "zz"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "明细"
            Key             =   "mxz"
            ImageKey        =   "mx"
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "刷新"
            Key             =   "sx"
            ImageKey        =   "sx"
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   5700
         Top             =   0
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   35
            BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":35106
               Key             =   "sz"
            EndProperty
            BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":354A0
               Key             =   "dy"
            EndProperty
            BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3583A
               Key             =   "yl"
            EndProperty
            BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":35BD4
               Key             =   "xg"
            EndProperty
            BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":35F6E
               Key             =   "zh"
            EndProperty
            BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":36308
               Key             =   "sh"
            EndProperty
            BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":366A2
               Key             =   "bc"
            EndProperty
            BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":36A3C
               Key             =   "fq"
            EndProperty
            BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":36DD6
               Key             =   "bz"
            EndProperty
            BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":37170
               Key             =   "tc"
            EndProperty
            BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3750A
               Key             =   "bcgs"
            EndProperty
            BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":378A4
               Key             =   "mrlk"
            EndProperty
            BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":37C3E
               Key             =   "xsxm"
            EndProperty
            BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":37FD8
               Key             =   "first"
            EndProperty
            BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":38372
               Key             =   "prev"
            EndProperty
            BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3870C
               Key             =   "next"
            EndProperty
            BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":38AA6
               Key             =   "last"
            EndProperty
            BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":38E40
               Key             =   "xx"
            EndProperty
            BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":391DA
               Key             =   "define"
            EndProperty
            BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":39574
               Key             =   "exec"
            EndProperty
            BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3990E
               Key             =   "xz"
            EndProperty
            BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":39CA8
               Key             =   "sc"
            EndProperty
            BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3A042
               Key             =   "sx"
            EndProperty
            BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3A3DC
               Key             =   "cx"
            EndProperty
            BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3A776
               Key             =   "zd"
            EndProperty
            BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3AB10
               Key             =   "dz"
            EndProperty
            BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3AEAA
               Key             =   "ph"
            EndProperty
            BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3B244
               Key             =   "fz"
            EndProperty
            BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3B5DE
               Key             =   "dw"
            EndProperty
            BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3B978
               Key             =   "hf"
            EndProperty
            BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3BD12
               Key             =   "pz"
            EndProperty
            BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3C0AC
               Key             =   "check"
            EndProperty
            BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3C446
               Key             =   "zz"
            EndProperty
            BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3C7E0
               Key             =   "mx"
            EndProperty
            BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
               Picture         =   "帐簿_科目余额表查询结果.frx":3CB7A
               Key             =   "lj"
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "ZB_FrmKmyebjg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*********************************************************************
'*    模 块 名 称 :科目发生额及余额表
'*    功 能 描 述 :本功能用于查询统计各级科目的本期发生额、累计
'*                 发生额和余额等。余额表则可输出某月或某几个月
'*                 的所有总帐科目或明细科目的期初余额、本期发生
'*                 额、累计发生额、期末余额。并支持包含未记帐凭
'*                 证查询。
'*    程序员姓名  : 张建忠
'*    最后修改人  : 奚俊峰
'*    最后修改时间: 2001-12-29
'*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
'*********************************************************************
'=====================变量声明区=======================================bsj==
Const FIRST_ACC_ADD = 0  '期初相加
Const BEN_QI = 1  '本期相加
Const LEI_JI = 2  '累计相加
Dim iAddState As Integer   '记录集相加标识
Dim temRs As New ADODB.Recordset  '临时
Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
Dim iPeriodStar As Integer, iPeriodEnd As Integer '会计期间
Dim sCodeStar As String, sCodeEnd As String  '会计科目代码
Dim iGradeStar As Integer, iGradeEnd As Integer  '科目级次
Dim sClass As String  '科目类型
'===========================================================================
Dim ReportTitle As String                '报表主标题
Dim Bln_ClassSum As Boolean              '是否进行科目类别合计
'以下为固定使用变量
Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
Dim GridCode As String                   '显示网格网格代码
Dim GridInf() As Variant                 '整个网格设置信息
Dim Tsxx As String                       '系统提示信息
Dim Qslz As Long                         '网格隐藏(非操作显示)列数
Dim Sjhgd As Double                      '网格数据行高度
Dim Sfxshjwg As Boolean                  '是否显示合计网格
Dim GridBoolean() As Boolean             '网格列信息(布尔型)
Dim GridStr()  As String                 '网格列信息(字符型)
Dim GridInt() As Integer                 '网格列信息(整型)
Dim Szzls As Integer                     '数组总列数(网格列数-1)
Dim Bln_Stop As Boolean                  '停止输出查询结果
Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
    On Error Resume Next
    With CxbbGrid
        .Width = Me.Width - 160
        .Height = Me.Height - .Top - 400
    End With
    With Pic_Title
        .Width = Me.Width - 160
    End With
    GsToolbar.Left = Me.Width - GsToolbar.Width - 140
End Sub
Private Sub Form_Load()                  '窗体装入
    '调入打印页面设置窗体
    XtReportCode = "Cwzz_kmyeb"
    Load Dyymctbl
    ReportTitle = "科目余额及发生额表"
    
    '调整标题栏及网格、格式工具条位置
    Pic_Title.Left = 40
    Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
    CxbbGrid.Left = Pic_Title.Left
    CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
    
    '调 入 网 格
    GridCode = "Cwzz_kmyeb"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
    
    '帐页格式
    Call FillCombo(Combo_AccFormat, "Cwzz_zygs", "", 0)
    Bln_End = True
    
    '调整标题位置
    SetTitlePos tsLabel(4)
    
    
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
    '-----------------------
    Set clsAccAss = Nothing
    '------------------------
    '卸载条件窗体
    ZB_Frmkmyebtj.UnloadCheck.Value = 1
    Unload ZB_Frmkmyebtj
    '卸载打印页面设置窗体
    Unload Dyymctbl
End Sub
Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
    Select Case Button.Key
    Case "bcgs"                                          '保存表格格式
        Call Bcwggs(CxbbGrid, GridCode, GridStr)
    Case "hfmrgs"                                        '恢复默认格式
        Call Hfmrgs(CxbbGrid, GridCode, GridStr)
    Case "szxsxm"                                        '设置显示项目
        Call Szxsxm(CxbbGrid, GridCode)
    End Select
End Sub
Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "ymsz"                                          '页面设置
        Dyymctbl.Show 1
    Case "yl"                                            '预 览
        Call bbyl(True)
    Case "dy"                                            '打 印
        Call bbyl(False)
    Case "cx"                                            '查 询
        ZB_Frmkmyebtj.Show 1
    Case "lj"                                            '累 计
        Call Combo_AccFormat_Click
    Case "zz"                                            '总 帐
        Call Sub_LcZflz
    Case "mxz"                                           '明细帐
        Call Sub_Lcmxz
    Case "sx"                                            '刷 新
        Call Timer1_Timer
    Case "bz"                                            '帮 助
        Call F1bz
    Case "fh"                                            '退 出
        Unload Me
    End Select
End Sub
Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
    Timer1.Enabled = False
    
    Xt_Wait.Show
    Xt_Wait.Refresh
    
    '加快显示速度
    CxbbGrid.Redraw = False
    
    '生成查询结果
    Call Sub_Query
    Call Combo_AccFormat_Click
    CxbbGrid.Redraw = True
    Xt_Wait.Hide
End Sub
Private Sub Sub_Query()                                    '生成查询结果
    Dim RecTemp As New ADODB.Recordset          '临时使用动态集
    Dim Rec_AccSum As New ADODB.Recordset       '科目总帐动态集
    Dim Str_QueryCondi As String                '用户录入查询条件
    Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
    Dim Sqlstr As String                        '查询字符串
    Dim Coljsq As Long                          '网格列计数器
    Dim Jsqte As Long                           '临时动态计数器
    Dim Bln_RemoveEmpty As Boolean              '是否删除空数据行
    Dim Bln_Empty As Boolean                    '此数据行是否为空数据行
    Dim Int_BPeriod As Integer                  '查询起始会计期间
    Dim Int_EPeriod As Integer                  '查询终止会计期间
    Dim Int_Year As Integer                     '查询会计年度
    Dim Str_Ccode As String                     '查询会计科目
    Dim Str_CclassIndex As String               '科目类别索引号
    Dim Lng_ParCol As Long                      '类别科目所在列
    Dim Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#   '期初金额,数量,外币
    Dim Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj# '本期合计(金额,数量,外币)
    Dim Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj# '截止累计(金额,数量,外币)
    Dim Dbl_Qmyete#, Dbl_Qmslte#, Dbl_Qmwbte#   '期末金额,数量,外币
    
    '以下为用户自定义部分[
    With ZB_Frmkmyebtj
        '显示查询会计期间
        Lab_TitleText(0).Caption = .Combo_Kjqj(0).Text & "-" & .Combo_Kjqj(1)
        Int_Year = Int(Mid(.Combo_Kjqj(0).Text, 1, 4))
        Int_BPeriod = Int(Mid(.Combo_Kjqj(0).Text, 6, 2))
        Int_EPeriod = Int(Mid(.Combo_Kjqj(1).Text, 6, 2))
        
        '是否包含未记帐凭证
        If .Chk_NotBook.Value = 1 Then
            Bln_IncluNotBook = True
        Else
            Bln_IncluNotBook = False
        End If
        
        '是否删除空数据行
        If .Chk_NotOuputZero = 1 Then
            Bln_RemoveEmpty = True
        Else
            Bln_RemoveEmpty = False
        End If
        Str_QueryCondi = " where 1=1 "
        For Jsqte = 1 To 4
            Select Case Jsqte
            Case 1   '科目类型
                If Trim(.Combo_Class.Text) <> "" Then
                    Str_QueryCondi = Str_QueryCondi & " and CClass='" & Trim(.Combo_Class.Text) & "'"
                End If
            Case 2   '科目号范围(起始科目号)
                Str_QueryCondi = Str_QueryCondi & " and CCode>='" & Trim(.LrText(0).Text) & "'"
            Case 3   '科目号范围(终止科目号)
                If Trim(.LrText(1).Text) <> "" Then
                    Str_QueryCondi = Str_QueryCondi & " and CCode<='" & Trim(.LrText(1).Text) & "'"
                End If
            Case 4   '科目级次范围(起始科目级次-终止科目级次)
                Str_QueryCondi = Str_QueryCondi & " and Cgrade>=" & Val(.LrText(2).Text) & " and Cgrade<=" & Val(.LrText(3).Text)
                '只有一级科目查询按科目类别合计才有道理
                If Val(.LrText(2).Text) = 1 And .Chk_ClassSum.Value = 1 Then
                    Bln_ClassSum = True
                Else
                    Bln_ClassSum = False
                End If
            End Select
        Next Jsqte
    End With
    
    '=====================bsj ===================================================
    '由于以上SQL语句在“包含末记帐凭证”查询时迅速太慢，所以在这里生成新的优化查询
    '考虑到此查询算法可能进一步优化，所以保留了调用组件的方法。（即调用DLL，返回记录集）
    '此方法只用于补救在数据量增多时，系统查询迅速变慢。
    '
    '此行为原程序   Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    If WhichWay = True Then
        Dim myDll As Object
        Set myDll = CreateObject("Hxxd.GetRs")
        Set Rec_Query = myDll.Recordset
        Set myDll = Nothing
    Else
        Dim clsAccSum As New AccSum
        With clsAccSum
            .iGrade_Begin = Val(ZB_Frmkmyebtj.LrText(2).Text)
            .iGrade_End = Val(ZB_Frmkmyebtj.LrText(3).Text)
            .sCode_Begin = Trim(ZB_Frmkmyebtj.LrText(0).Text)
            .sCode_End = Trim(ZB_Frmkmyebtj.LrText(1).Text)
            .sClass = Trim(ZB_Frmkmyebtj.Combo_Class.Text)
            .iPeriod_Begin = Int_BPeriod
            .iPeriod_End = Int_EPeriod
            .iPeriod_Year = Int_Year
            .b_Keep_Business_Records = Bln_IncluNotBook
        End With
        Set Rec_Query = clsAccSum.GetNewRs
        '在窗体卸载时会销毁临时记录集
    End If
    '================================bsj end=============================================
    With Rec_Query
        If Not (.EOF And .BOF) Then
            .MoveFirst
        End If
        CxbbGrid.Rows = CxbbGrid.FixedRows
        CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
        Jsqte = CxbbGrid.FixedRows
        Do While Not .EOF
            If Jsqte >= CxbbGrid.Rows Then
            End If
            '初始化各种值
            Bln_Empty = True
            Dbl_Qcyete = IIf(IsNull(Rec_Query.Fields("Qcyehj")), 0, Rec_Query.Fields("Qcyehj"))
            Dbl_Qcslte = IIf(IsNull(Rec_Query.Fields("Qcslhj")), 0, Rec_Query.Fields("Qcslhj"))
            Dbl_Qcwbte = IIf(IsNull(Rec_Query.Fields("Qcwbhj")), 0, Rec_Query.Fields("Qcwbhj"))
            
            Dbl_Jejfhj = IIf(IsNull(Rec_Query.Fields("Mjjehj")), 0, Rec_Query.Fields("Mjjehj"))
            Dbl_Jedfhj = IIf(IsNull(Rec_Query.Fields("Mdjehj")), 0, Rec_Query.Fields("Mdjehj"))
            Dbl_Sljfhj = IIf(IsNull(Rec_Query.Fields("Mjslhj")), 0, Rec_Query.Fields("Mjslhj"))
            Dbl_Sldfhj = IIf(IsNull(Rec_Query.Fields("Mdslhj")), 0, Rec_Query.Fields("Mdslhj"))
            Dbl_Wbjfhj = IIf(IsNull(Rec_Query.Fields("Mjwbhj")), 0, Rec_Query.Fields("Mjwbhj"))
            Dbl_Wbdfhj = IIf(IsNull(Rec_Query.Fields("Mdwbhj")), 0, Rec_Query.Fields("Mdwbhj"))
            
            '[Begin zjz 2001-06-16 修改无累计数据
            Dbl_Jejflj = IIf(IsNull(Rec_Query.Fields("Byjfljjehj")), 0, Rec_Query.Fields("Byjfljjehj"))
            Dbl_Jedflj = IIf(IsNull(Rec_Query.Fields("Bydfljjehj")), 0, Rec_Query.Fields("Bydfljjehj"))
            Dbl_Sljflj = IIf(IsNull(Rec_Query.Fields("Byjfljslhj")), 0, Rec_Query.Fields("Byjfljslhj"))
            Dbl_Sldflj = IIf(IsNull(Rec_Query.Fields("Bydfljslhj")), 0, Rec_Query.Fields("Bydfljslhj"))
            Dbl_Wbjflj = IIf(IsNull(Rec_Query.Fields("Byjfljwbhj")), 0, Rec_Query.Fields("Byjfljwbhj"))
            Dbl_Wbdflj = IIf(IsNull(Rec_Query.Fields("Bydfljwbhj")), 0, Rec_Query.Fields("Bydfljwbhj"))
            'End zjz]
            
            Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
            Dbl_Qmslte = Dbl_Qcslte + Dbl_Sljfhj - Dbl_Sldfhj
            Dbl_Qmwbte = Dbl_Qcwbte + Dbl_Wbjfhj - Dbl_Wbdfhj
            
            Str_Ccode = Trim(.Fields("Ccode"))
            Str_CclassIndex = Trim(.Fields("Item_Index")) & ""
            
            '添加科目类别和科目编码（目的为了排序）
            CxbbGrid.TextMatrix(Jsqte, 0) = Str_CclassIndex + Str_Ccode
            CxbbGrid.TextMatrix(Jsqte, 1) = Str_CclassIndex
            CxbbGrid.TextMatrix(Jsqte, 2) = .Fields("CodeLevel")
            
            CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("Ccode"))              '科目编码
            CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")         '科目名称
            
            '将期初数据写入网格
            If Dbl_Qcyete = 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
                If Rec_Query.Fields("EndFlag") And Dbl_Qcslte <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
                End If
                If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") And Dbl_Qcwbte <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Qcwbte
                End If
            Else
                If Dbl_Qcyete > 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "借"
                    CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Qcyete
                    CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Qcyete
                    If Rec_Query.Fields("EndFlag") And Dbl_Qcslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
                    End If
                    If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") And Dbl_Qcwbte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Qcwbte
                    End If
                Else
                    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "贷"
                    CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = -Dbl_Qcyete
                    CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = -Dbl_Qcyete
                    If Rec_Query.Fields("EndFlag") And Dbl_Qcslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = -Dbl_Qcslte
                    End If
                    If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") And Dbl_Qcwbte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = -Dbl_Qcwbte
                    End If
                End If
            End If
            '将期间合计数据写入网格
            If Dbl_Jejfhj <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj       '本期发生.借方
                CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jejfhj       '本期借方发生.金额
            End If
            If Dbl_Jedfhj <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
                CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
            End If
            '仅有末级科目才显示数量，外币
            If Rec_Query.Fields("EndFlag") Then
                If Dbl_Sljfhj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sljfhj   '本期借方发生.数量
                End If
                If Dbl_Sldfhj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Dbl_Sldfhj   '本期贷方发生.数量
                End If
            End If
            If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") Then
                If Dbl_Wbjfhj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbjfhj   '本期借方发生.外币
                End If
                If Dbl_Wbdfhj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Wbdfhj   '本期贷方发生.外币
                End If
            End If
            '将截止累计数据写入网格
            If Dbl_Jejflj <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
                CxbbGrid.TextMatrix(Jsqte, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
            End If
            If Dbl_Jedflj <> 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
                CxbbGrid.TextMatrix(Jsqte, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
            End If
            '仅有末级科目才显示数量，外币
            If Rec_Query.Fields("EndFlag") Then
                If Dbl_Sljflj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Sljflj   '累计借方发生.数量
                End If
                If Dbl_Sldflj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("022", GridStr(), Szzls)) = Dbl_Sldflj   '累计贷方发生.数量
                End If
            End If
            If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") Then
                If Dbl_Wbjflj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Wbjflj   '累计借方发生.外币
                End If
                If Dbl_Wbdflj <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("023", GridStr(), Szzls)) = Dbl_Wbdflj   '累计贷方发生.外币
                End If
            End If
            '将期末数据写入网格
            If Dbl_Qmyete = 0 Then
                CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
                If Rec_Query.Fields("EndFlag") And Dbl_Qmslte <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
                End If
                If Rec_Query.Fields("EndFlag") And Dbl_Qmwbte <> 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = Dbl_Qmwbte
                End If
            Else
                If Dbl_Qmyete > 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "借"
                    CxbbGrid.TextMatrix(Jsqte, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
                    CxbbGrid.TextMatrix(Jsqte, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
                    If Rec_Query.Fields("EndFlag") And Dbl_Qmslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
                    End If
                    If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") And Dbl_Qmwbte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = Dbl_Qmwbte
                    End If
                Else
                    CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "贷"
                    CxbbGrid.TextMatrix(Jsqte, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
                    CxbbGrid.TextMatrix(Jsqte, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
                    If Rec_Query.Fields("EndFlag") And Dbl_Qmslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = -Dbl_Qmslte
                    End If
                    If Rec_Query.Fields("EndFlag") And Rec_Query.Fields("ForeignFlag") And Dbl_Qmwbte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = -Dbl_Qmwbte
                    End If
                End If
            End If
            CxbbGrid.RowHeight(Jsqte) = Sjhgd
            '如果用户要求删除为零数据
            If Bln_RemoveEmpty Then
                If Dbl_Qcyete <> 0 Or Dbl_Qcslte <> 0 Or Dbl_Qcwbte <> 0 Then
                    Bln_Empty = False
                End If
                If Dbl_Jejfhj <> 0 Or Dbl_Jedfhj <> 0 Or Dbl_Sljfhj <> 0 Or Dbl_Sldfhj <> 0 Or Dbl_Wbjfhj <> 0 Or Dbl_Wbdfhj <> 0 Then
                    Bln_Empty = False
                End If
                If Dbl_Jejflj <> 0 Or Dbl_Jedflj <> 0 Or Dbl_Sljflj <> 0 Or Dbl_Sldflj <> 0 Or Dbl_Wbjflj <> 0 Or Dbl_Wbdflj <> 0 Then
                    Bln_Empty = False
                End If
            Else
                Bln_Empty = False
            End If
            If Bln_Empty Then
                CxbbGrid.RemoveItem Jsqte
            Else
                Jsqte = Jsqte + 1
            End If
            '移动到下一条记录
            .MoveNext
        Loop
    End With
    
    '将网格按科目类别+编码排序
    With CxbbGrid
        .Col = 0
        .Sort = flexSortStringAscending
    End With
    
    '判断是否进行科目类别合计
    If Bln_ClassSum Then
        Call Sub_ClassSum
    End If
End Sub
Private Sub Sub_ClassSum()                             '按科目类别汇总数据
    Dim Rowjsq As Long                          '临时网格计数器
    Dim Dbl_Qcjfye#, Dbl_Qcdfye#                '期初金额(借贷合计)
    Dim Dbl_Jejfhj#, Dbl_Jedfhj#                '本期合计(金额)
    Dim Dbl_Jejflj#, Dbl_Jedflj#                '截止累计(金额)
    Dim Dbl_Qmjfye#, Dbl_Qmdfye#                '期末金额(借贷合计)
    Dim Dbl_Qcyete#                             '期初余额
    Dim Dbl_Qmyete#                             '期末余额
    Dim Str_ClassIndex As String                '科目类别索引号
    
    Bln_ClassSum = False
    With CxbbGrid
        Str_ClassIndex = ""
        If .Rows > .FixedRows Then
            Str_ClassIndex = Trim(CxbbGrid.TextMatrix(.FixedRows, 1))
        End If
        Rowjsq = .FixedRows
        Do While Rowjsq <= .Rows - 1
            '仅累加一级科目
            If Val(CxbbGrid.TextMatrix(Rowjsq, 2)) = 1 And Str_ClassIndex = Trim(CxbbGrid.TextMatrix(Rowjsq, 1)) Then
                Dbl_Qcjfye = Dbl_Qcjfye + Val(.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)))
                Dbl_Qcdfye = Dbl_Qcdfye + Val(.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)))
                Dbl_Jejfhj = Dbl_Jejfhj + Val(.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)))
                Dbl_Jedfhj = Dbl_Jedfhj + Val(.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)))
                Dbl_Jejflj = Dbl_Jejflj + Val(.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)))
                Dbl_Jedflj = Dbl_Jedflj + Val(.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)))
                Dbl_Qmjfye = Dbl_Qmjfye + Val(.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)))
                Dbl_Qmdfye = Dbl_Qmdfye + Val(.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)))
            End If
            If Str_ClassIndex <> Trim(CxbbGrid.TextMatrix(Rowjsq, 1)) Then
                CxbbGrid.AddItem "", Rowjsq
                CxbbGrid.RowHeight(Rowjsq) = Sjhgd
                CxbbGrid.TextMatrix(Rowjsq, 0) = Str_ClassIndex + "合计"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Fun_GetContent("Cwzz_kmlx", Str_ClassIndex) + "类合计"
                CxbbGrid.Cell(flexcpBackColor, Rowjsq, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
                '显示数据
                '1.显示期初余额
                Dbl_Qcyete = Dbl_Qcjfye - Dbl_Qcdfye
                If Dbl_Qcyete = 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
                Else
                    If Dbl_Qcyete > 0 Then
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "借"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Dbl_Qcyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = Dbl_Qcyete
                    Else
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "贷"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = -Dbl_Qcyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = -Dbl_Qcyete
                    End If
                End If
                '2.显示期间合计数据
                If Dbl_Jejfhj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj       '本期发生.借方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("013", GridStr(), Szzls)) = Dbl_Jejfhj       '本期借方发生.金额
                End If
                If Dbl_Jedfhj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
                End If
                '3.显示截止累计借贷方发生额
                If Dbl_Jejflj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
                End If
                If Dbl_Jedflj <> 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
                End If
                '4.计算本期期末余额
                Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
                If Dbl_Qmyete = 0 Then
                    CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
                Else
                    If Dbl_Qmyete > 0 Then
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "借"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
                    Else
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "贷"
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
                        CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
                    End If
                End If
                Rowjsq = Rowjsq + 1
                Str_ClassIndex = Trim(CxbbGrid.TextMatrix(Rowjsq, 1))
                Dbl_Qcjfye = Val(.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)))
                Dbl_Qcdfye = Val(.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)))
                Dbl_Jejfhj = Val(.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)))
                Dbl_Jedfhj = Val(.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)))
                Dbl_Jejflj = Val(.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)))
                Dbl_Jedflj = Val(.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)))
                Dbl_Qmjfye = Val(.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)))
                Dbl_Qmdfye = Val(.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)))
                '显示完毕
            End If
            Rowjsq = Rowjsq + 1
        Loop
        '无数据行则不添加合计
        If .FixedRows = .Rows Then
            Exit Sub
        End If
        CxbbGrid.AddItem "", Rowjsq
        CxbbGrid.RowHeight(Rowjsq) = Sjhgd
        CxbbGrid.TextMatrix(Rowjsq, 0) = Str_ClassIndex + "合计"
        CxbbGrid.TextMatrix(Rowjsq, Sydz("002", GridStr(), Szzls)) = Fun_GetContent("Cwzz_kmlx", Str_ClassIndex) + "类合计"
        CxbbGrid.Cell(flexcpBackColor, Rowjsq, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
        '显示数据
        '1.显示期初余额
        Dbl_Qcyete = Dbl_Qcjfye - Dbl_Qcdfye
        If Dbl_Qcyete = 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
        Else
            If Dbl_Qcyete > 0 Then
                CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "借"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("004", GridStr(), Szzls)) = Dbl_Qcyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = Dbl_Qcyete
            Else
                CxbbGrid.TextMatrix(Rowjsq, Sydz("003", GridStr(), Szzls)) = "贷"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("005", GridStr(), Szzls)) = -Dbl_Qcyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("008", GridStr(), Szzls)) = -Dbl_Qcyete
            End If
        End If
        '2.显示期间合计数据
        If Dbl_Jejfhj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj       '本期发生.借方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("013", GridStr(), Szzls)) = Dbl_Jejfhj       '本期借方发生.金额
        End If
        If Dbl_Jedfhj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj       '本期发生.贷方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("016", GridStr(), Szzls)) = Dbl_Jedfhj       '本期贷方发生.金额
        End If
        '3.显示截止累计借贷方发生额
        If Dbl_Jejflj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("017", GridStr(), Szzls)) = Dbl_Jejflj       '累计发生.借方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("021", GridStr(), Szzls)) = Dbl_Jejflj       '累计借方发生.金额
        End If
        If Dbl_Jedflj <> 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("018", GridStr(), Szzls)) = Dbl_Jedflj       '累计发生.贷方
            CxbbGrid.TextMatrix(Rowjsq, Sydz("024", GridStr(), Szzls)) = Dbl_Jedflj       '累计贷方发生.金额
        End If
        '4.计算本期期末余额
        Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
        If Dbl_Qmyete = 0 Then
            CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
        Else
            If Dbl_Qmyete > 0 Then
                CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "借"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("026", GridStr(), Szzls)) = Dbl_Qmyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = Dbl_Qmyete
            Else
                CxbbGrid.TextMatrix(Rowjsq, Sydz("025", GridStr(), Szzls)) = "贷"
                CxbbGrid.TextMatrix(Rowjsq, Sydz("027", GridStr(), Szzls)) = -Dbl_Qmyete
                CxbbGrid.TextMatrix(Rowjsq, Sydz("030", GridStr(), Szzls)) = -Dbl_Qmyete
            End If
        End If
    End With
End Sub
Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
    Dim Int_Coljsq As Integer         '网格列临时计数器
    '为了加快显示速度
    CxbbGrid.Redraw = False
    For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
        CxbbGrid.ColHidden(Int_Coljsq) = True
    Next Int_Coljsq
    Select Case Combo_AccFormat
    Case "金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '期初余额.借方
        CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '期初余额.贷方
        CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '本期发生.借方
        CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '本期发生.贷方
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '累计发生.借方
            CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '累计发生.贷方
        End If
        CxbbGrid.ColHidden(Sydz("026", GridStr(), Szzls)) = False      '期末余额.借方
        CxbbGrid.ColHidden(Sydz("027", GridStr(), Szzls)) = False      '期末余额.贷方
    Case "外币金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    Case "数量金额式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    Case "数量外币式"
        CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '科目编码
        CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '科目名称
        CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '期初余额.数量
        CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '期初余额.外币
        CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '期初余额.金额
        CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '本期借方发生.数量
        CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '本期借方发生.外币
        CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '本期借方发生.金额
        CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '本期贷方发生.数量
        CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '本期贷方发生.外币
        CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '本期贷方发生.金额
        If SzToolbar.Buttons("lj").Value = tbrPressed Then
            CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '累计借方发生.数量
            CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '累计借方发生.外币
            CxbbGrid.ColHidden(Sydz("021", GridStr(), Szzls)) = False      '累计借方发生.金额
            CxbbGrid.ColHidden(Sydz("022", GridStr(), Szzls)) = False      '累计贷方发生.数量
            CxbbGrid.ColHidden(Sydz("023", GridStr(), Szzls)) = False      '累计贷方发生.外币
            CxbbGrid.ColHidden(Sydz("024", GridStr(), Szzls)) = False      '累计贷方发生.金额
        End If
        CxbbGrid.ColHidden(Sydz("025", GridStr(), Szzls)) = False      '方向.方向
        CxbbGrid.ColHidden(Sydz("028", GridStr(), Szzls)) = False      '期末余额.数量
        CxbbGrid.ColHidden(Sydz("029", GridStr(), Szzls)) = False      '期末余额.外币
        CxbbGrid.ColHidden(Sydz("030", GridStr(), Szzls)) = False      '期末余额.金额
    End Select
    CxbbGrid.Redraw = True
End Sub
Private Sub Sub_LcZflz()                               '联查总分类帐
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Then
        Exit Sub
    End If
    '联查总分类帐
    If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))) <> "" Then
        ZB_Frmzflztj.LrText(0).Text = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))   '查询科目
        ZB_Frmzflztj.LrText(3).Text = 6
        ZB_Frmzflztj.Chk_NotBook.Value = ZB_Frmkmyebtj.Chk_NotBook.Value                                       '是否包含未记帐凭证
        ZB_Frmzflzjg.Timer1.Enabled = True                                                                     '激活查询总分类帐过程
        ZB_Frmzflzjg.Show
        ZB_Frmzflzjg.SetFocus
    End If
End Sub
Private Sub Sub_Lcmxz()                                '联查科目明细帐
    '非数据行退出
    If CxbbGrid.Row < CxbbGrid.FixedRows Then
        Exit Sub
    End If
    '联查明细帐
    If Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls))) <> "" Then
        ZB_Frmkmmxztj.Combo_Kjqj(0).Text = ZB_Frmkmyebtj.Combo_Kjqj(0).Text   '起始会计期间
        ZB_Frmkmmxztj.Combo_Kjqj(1).Text = ZB_Frmkmyebtj.Combo_Kjqj(1).Text   '终止会计期间
        ZB_Frmkmmxztj.LrText(0).Text = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, Sydz("001", GridStr(), Szzls)))        '查询科目
        ZB_Frmkmmxztj.Chk_NotBook.Value = ZB_Frmkmyebtj.Chk_NotBook.Value     '是否包含未记帐凭证
        ZB_Frmkmmxzjg.Timer1.Enabled = True                                   '激活查询明细帐过程
        ZB_Frmkmmxzjg.Show
        ZB_Frmkmmxzjg.SetFocus
    End If
End Sub
Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
    Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
    Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
    Bbxbtgs = 1                                          '报 表 小 标 题 行 数
    Bbbwhgs = 0                                          '报 表 表 尾 行 数
    ReDim Bbxbt(1 To Bbxbtgs)
    ReDim bbxbtzzxs(1 To Bbxbtgs)
    If Bbbwhgs <> 0 Then
        ReDim Bbbwh(1 To Bbbwhgs)
        ReDim Bbbwhzzxs(1 To Bbbwhgs)
    End If
    Bbzbt = ReportTitle
    Bbxbt(1) = Space(2) + "会计期间:" + Lab_TitleText(0)
    bbxbtzzxs(1) = 0                                    '报表行组织形式(0-居左 1-居中 2-居右)
    Call Scyxsjb(CxbbGrid)                               '生成报表数据
    Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
    If Not bbylte Then
        Unload DY_Tybbyldy
    End If
End Sub

						