企业管理

开发平台：
Visual Basic

：源码内容
							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 ZF_Bm_FrmKmyebjg 
   Caption         =   "部门_科目发生额及余额表"
   ClientHeight    =   7755
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11400
   Icon            =   "辅助_部门_科目余额表查询结果.frx":0000
   KeyPreview      =   -1  'True
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   7755
   ScaleWidth      =   11400
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Enabled         =   0   'False
      Interval        =   1
      Left            =   7620
      Top             =   90
   End
   Begin VB.PictureBox Pic_Title 
      Height          =   1185
      Left            =   0
      Picture         =   "辅助_部门_科目余额表查询结果.frx":1042
      ScaleHeight     =   1125
      ScaleWidth      =   11745
      TabIndex        =   1
      Top             =   570
      Width           =   11805
      Begin VB.ComboBox Combo_FzPxfs 
         Height          =   300
         Left            =   10770
         Style           =   2  'Dropdown List
         TabIndex        =   13
         Top             =   780
         Width           =   975
      End
      Begin VB.ComboBox Combo_AccFormat 
         Height          =   300
         Left            =   8010
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   780
         Width           =   1635
      End
      Begin MSComctlLib.ImageCombo Imgebo_FzCcode 
         Height          =   315
         Left            =   1260
         TabIndex        =   10
         Top             =   780
         Width           =   3135
         _ExtentX        =   5530
         _ExtentY        =   556
         _Version        =   393216
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         Locked          =   -1  'True
      End
      Begin VB.Label TsLabel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "排序方式:"
         Height          =   180
         Index           =   0
         Left            =   9900
         TabIndex        =   14
         Top             =   840
         Width           =   870
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "外币名称:"
         Height          =   180
         Index           =   2
         Left            =   5190
         TabIndex        =   12
         Top             =   240
         Visible         =   0   'False
         Width           =   810
      End
      Begin VB.Label Lab_TitleText 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   225
         Index           =   1
         Left            =   6120
         TabIndex        =   11
         Top             =   210
         Width           =   1395
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "科目名称:"
         Height          =   180
         Index           =   1
         Left            =   450
         TabIndex        =   9
         Top             =   840
         Width           =   720
      End
      Begin VB.Label Lab_TitleText 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   0
         Left            =   5520
         TabIndex        =   8
         Top             =   840
         Width           =   45
      End
      Begin VB.Label TsLabel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "帐页格式:"
         Height          =   180
         Index           =   7
         Left            =   7200
         TabIndex        =   7
         Top             =   840
         Width           =   720
      End
      Begin VB.Label TsLabel 
         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          =   450
         Index           =   4
         Left            =   420
         TabIndex        =   3
         Top             =   150
         Width           =   3705
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "会计期间:"
         Height          =   180
         Index           =   0
         Left            =   4650
         TabIndex        =   2
         Top             =   840
         Width           =   720
      End
   End
   Begin MSComctlLib.Toolbar GsToolbar 
      Height          =   525
      Left            =   10200
      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             =   1800
      Width           =   11745
      _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       =   0
      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           =   11400
      _ExtentX        =   20108
      _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      =   10
         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             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   6450
         Top             =   30
         _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 = "ZF_Bm_FrmKmyebjg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************************
'*    模 块 名 称 :科目发生额及余额表(部门)
'*    功 能 描 述 :本功能用于查询统计涉及查询科目的部门的本期发
'*                 生额、累计发生额和余额等。并支持包含未记帐凭
'*                 证查询。
'*    程序员姓名  :张建忠
'*    最后修改人  :奚俊峰
'*    最后修改时间:2001/12/27
'*    备        注:在此查询中采用了Union联合查询，这种方式可以大大加
'*                 快查询速度.
'*******************************************************************
Dim ReportTitle As String                '报表主标题
'以下为固定使用变量
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_bm_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_bm_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)
    
    '辅助核算查询排序方式
    Call FillCombo(Combo_FzPxfs, "Cwzz_FzPxfs", "", 0)
    
    '调整标题位置
    SetTitlePos tsLabel(4)
    
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
    '卸载条件窗体
    ZF_Bm_FrmKmyebtj.UnloadCheck.Value = 1
    Unload ZF_Bm_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"                                            '查 询
        ZF_Bm_FrmKmyebtj.Show 1
    Case "lj"                                            '累 计
        Call Combo_AccFormat_Click
        '      Case "zz"                                            '总 帐
        '        Call Sub_LcZflz
        '      Case "mxz"                                           '明细帐
        '        Call Sub_Lcmxz
    Case "bz"                                            '帮 助
        Call F1bz
    Case "fh"                                            '退 出
        Unload Me
    End Select
End Sub
Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
    Dim RecTemp As New ADODB.Recordset          '临时使用动态集
    Timer1.Enabled = False
    
    '辅助查询科目
    Call FillImageCombo(Imgebo_FzCcode, "Cwzz_bmkm", 0)
    
    For Jsqte = 1 To Imgebo_FzCcode.ComboItems.count
        If Imgebo_FzCcode.ComboItems.Item(Jsqte).Text = ZF_Bm_FrmKmyebtj.Imgebo_FzCcode.Text Then
            Imgebo_FzCcode.ComboItems.Item(Jsqte).Selected = True
            Imgebo_FzCcode.Refresh
            Exit For
        End If
    Next Jsqte
    
    Call Imgebo_FzCcode_Click
End Sub
Private Sub Imgebo_FzCcode_Click()                                    '用户点击科目列表框
    '加快显示速度
    CxbbGrid.Redraw = False
    
    Xt_Wait.Show
    Xt_Wait.Refresh
    
    '生成查询结果
    Call Sub_Query
    
    Call Combo_AccFormat_Click
    
    Call Combo_FzPxfs_Click
    
    CxbbGrid.SetFocus
    
    CxbbGrid.Redraw = True
    
    Xt_Wait.Hide
End Sub
Private Sub Sub_Query()                                    '生成查询结果
    Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
    Dim RecTemp As New ADODB.Recordset          '临时使用动态集
    Dim Rec_AccSum As New ADODB.Recordset       '科目总帐动态集
    Dim Str_QueryCondi As String                '用户录入查询条件
    Dim Sqlstr As String                        '查询字符串
    Dim Coljsq As Long                          '网格列计数器
    Dim Jsqte As Long                           '临时动态计数器
    Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
    Dim Bln_EndFlag As Boolean                  '判断当前科目是否为末级科目
    Dim Bln_ForeignFlag As Boolean              '判断此科目是否外币核算
    Dim Int_Tjfx As Integer                     '余额统计方向
    Dim Dbl_BeginYe As Double                   '查询起始余额
    Dim Dbl_EndYe As Double                     '查询终止余额
    Dim Bln_Fhxstj As Boolean                   '记录是否符合显示条件
    Dim Int_BPeriod As Integer                  '查询起始会计期间
    Dim Int_EPeriod As Integer                  '查询终止会计期间
    Dim Int_Year As Integer                     '查询会计年度
    Dim Str_Ccode As String                     '查询会计科目
    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#   '期末金额,数量,外币
    Dim Dbl_Sjzj(1 To 18) As Double             '数据总计
    Dim Bln_NotShowEmpty As Boolean             '数据全部为零不显示
    
    '以下为用户自定义部分[
    
    With ZF_Bm_FrmKmyebtj
        
        If Imgebo_FzCcode.ComboItems.count = 0 Then
            Exit Sub
        End If
        
        '得到当前查询科目,并判断是否为末级科目
        Str_Ccode = GetComboKey(Imgebo_FzCcode, 0)
        Sqlstr = "SELECT EndFlag,AccFormat,ForeignFlag,ForeignCurrName,ConVertFlag From Cwzz_AccCode Left JOIN Gy_ForeignCurrency ON" & _
        " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode Where Ccode='" & Str_Ccode & "'"
        Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
        If Not RecTemp.EOF Then
            Bln_EndFlag = RecTemp.Fields("EndFlag")
            Combo_AccFormat.Text = Trim(RecTemp.Fields("AccFormat") & "")
            If RecTemp.Fields("ForeignFlag") Then
                Lab_TitleMess(2).Visible = True
                Lab_TitleText(1).Caption = Trim(RecTemp.Fields("ForeignCurrName") & "")
                Bln_ForeignFlag = True
                Bln_ConVertFlag = IIf(IsNull(RecTemp.Fields("ConVertFlag")), False, RecTemp.Fields("ConVertFlag"))
            Else
                Lab_TitleMess(2).Visible = False
                Bln_ForeignFlag = False
                Lab_TitleText(1).Caption = ""
            End If
        End If
        
        '显示查询会计期间
        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.Value = 1 Then
            Bln_NotShowEmpty = True
        Else
            Bln_NotShowEmpty = False
        End If
        
        Str_QueryCondi = " where 1=1 "
        
    End With
    
    '计算所有用户选中辅助项目数据(部门)
    If Bln_IncluNotBook Then
        Sqlstr = " Select b.*,Gy_Department.DeptName From (Select a.DeptCode,QcyeHJ=Sum(a.qcyehj),Qcslhj=Sum(Qcslhj),QcwbHj=Sum(QcwbHj),Mjjehj=Sum(Mjjehj),Mdjehj=Sum(Mdjehj),MjslHJ=Sum(Mjslhj),MdslHJ=Sum(Mdslhj),Mjwbhj=Sum(Mjwbhj),Mdwbhj=Sum(Mdwbhj),ByjfljjeHj=Sum(ByjfljjeHj),Bydfljjehj=Sum(BydfljjeHj),Byjfljslhj=Sum(ByjfljslHj),Bydfljslhj=Sum(Bydfljslhj),Byjfljwbhj=Sum(Byjfljwbhj),Bydfljwbhj=Sum(Bydfljwbhj) From " & _
        " ((SELECT DeptCode,QcyeHj=Sum(Qcye),Qcslhj=Sum(Qcsl),QcwbHj=Sum(Qcwb),Mjjehj=0,Mdjehj=0,MjslHJ=0,MdslHJ=0,Mjwbhj=0,Mdwbhj=0,ByjfljjeHj=0,Bydfljjehj=0,Byjfljslhj=0,Bydfljslhj=0,Byjfljwbhj=0,Bydfljwbhj=0 From Cwzz_AccSumAssi Where Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & " Group By Cwzz_AccSumAssi.DeptCode) union all " & _
        " (SELECT DeptCode,Qcyehj=Sum(Jfje-Dfje),Qcslhj=Sum(Jfsl-Dfsl),QcwbHj=Sum(Wbjfje-Wbdfje),Mjjehj=0,Mdjehj=0,MjslHJ=0,MdslHJ=0,Mjwbhj=0,Mdwbhj=0,ByjfljjeHj=0,Bydfljjehj=0,Byjfljslhj=0,Bydfljslhj=0,Byjfljwbhj=0,Bydfljwbhj=0 From Cwzz_V_AccVouch Where BookFlag=0 And Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period<" & Int_BPeriod & " Group By Cwzz_V_AccVouch.DeptCode) union all " & _
        " (SELECT DeptCode,QcyeHJ=0,Qcslhj=0,QcwbHj=0,Mjjehj=Sum(Jfje),Mdjehj=Sum(Dfje),Mjslhj=Sum(Jfsl),Mdslhj=Sum(Dfsl),Mjwbhj=Sum(Wbjfje),Mdwbhj=Sum(Wbdfje),ByjfljjeHj=0,Bydfljjehj=0,Byjfljslhj=0,Bydfljslhj=0,Byjfljwbhj=0,Bydfljwbhj=0 From Cwzz_V_AccVouch Where Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & " Group By DeptCode) Union All " & _
        " (SELECT DeptCode,QcyeHJ=0,Qcslhj=0,QcwbHj=0,Mjjehj=0,Mdjehj=0,Mjslhj=0,Mdslhj=0,Mjwbhj=0,Mdwbhj=0,ByjfljjeHj=Sum(Jfje),Bydfljjehj=Sum(Dfje),Byjfljslhj=Sum(Jfsl),Bydfljslhj=Sum(Dfsl),Byjfljwbhj=Sum(Wbjfje),Bydfljwbhj=Sum(Wbdfje) From Cwzz_V_AccVouch Where Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period<= " & Int_EPeriod & " Group By DeptCode)) a  Group By A.DeptCode) b JOIN" & _
        "  Gy_Department ON b.DeptCode = Gy_Department.DeptCode" & Str_QueryCondi
    Else
        Sqlstr = " Select b.*,Gy_Department.DeptName From (Select a.DeptCode,QcyeHJ=Sum(a.qcyehj),Qcslhj=Sum(Qcslhj),QcwbHj=Sum(QcwbHj),Mjjehj=Sum(Mjjehj),Mdjehj=Sum(Mdjehj),MjslHJ=Sum(Mjslhj),MdslHJ=Sum(Mdslhj),Mjwbhj=Sum(Mjwbhj),Mdwbhj=Sum(Mdwbhj),ByjfljjeHj=Sum(ByjfljjeHj),Bydfljjehj=Sum(BydfljjeHj),Byjfljslhj=Sum(ByjfljslHj),Bydfljslhj=Sum(Bydfljslhj),Byjfljwbhj=Sum(Byjfljwbhj),Bydfljwbhj=Sum(Bydfljwbhj) From " & _
        " ((SELECT DeptCode,QcyeHj=Sum(Qcye),Qcslhj=Sum(Qcsl),QcwbHj=Sum(Qcwb),Mjjehj=0,Mdjehj=0,MjslHJ=0,MdslHJ=0,Mjwbhj=0,Mdwbhj=0,ByjfljjeHj=0,Bydfljjehj=0,Byjfljslhj=0,Bydfljslhj=0,Byjfljwbhj=0,Bydfljwbhj=0 From Cwzz_AccSumAssi Where Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & " Group By Cwzz_AccSumAssi.DeptCode) union all " & _
        " (SELECT DeptCode,QcyeHJ=0,Qcslhj=0,QcwbHj=0,Mjjehj=Sum(Jfje),Mdjehj=Sum(Dfje),Mjslhj=Sum(Jfsl),Mdslhj=Sum(Dfsl),Mjwbhj=Sum(Wbjfje),Mdwbhj=Sum(Wbdfje),ByjfljjeHj=0,Bydfljjehj=0,Byjfljslhj=0,Bydfljslhj=0,Byjfljwbhj=0,Bydfljwbhj=0 From Cwzz_V_AccVouch Where BookFlag=1 And Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & " Group By DeptCode) Union All " & _
        " (SELECT DeptCode,QcyeHJ=0,Qcslhj=0,QcwbHj=0,Mjjehj=0,Mdjehj=0,Mjslhj=0,Mdslhj=0,Mjwbhj=0,Mdwbhj=0,ByjfljjeHj=Sum(Jfje),Bydfljjehj=Sum(Dfje),Byjfljslhj=Sum(Jfsl),Bydfljslhj=Sum(Dfsl),Byjfljwbhj=Sum(Wbjfje),Bydfljwbhj=Sum(Wbdfje) From Cwzz_V_AccVouch Where BookFlag=1 And Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & " And Period<= " & Int_EPeriod & " Group By DeptCode)) a  Group By A.DeptCode) b JOIN" & _
        "  Gy_Department ON b.DeptCode = Gy_Department.DeptCode" & Str_QueryCondi
    End If
    
    Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With Rec_Query
        
        CxbbGrid.Rows = CxbbGrid.FixedRows
        Jsqte = CxbbGrid.FixedRows - 1
        
        Do While Not .EOF
            
            Dbl_Qcyete = Rec_Query.Fields("QcyeHj")
            Dbl_Qcslte = Rec_Query.Fields("QcslHj")
            Dbl_Qcwbte = Rec_Query.Fields("QcwbHj")
            Dbl_Jejfhj = Rec_Query.Fields("Mjjehj")
            Dbl_Jedfhj = Rec_Query.Fields("Mdjehj")
            Dbl_Sljfhj = Rec_Query.Fields("Mjslhj")
            Dbl_Sldfhj = Rec_Query.Fields("Mdslhj")
            Dbl_Wbjfhj = Rec_Query.Fields("Mjwbhj")
            Dbl_Wbdfhj = Rec_Query.Fields("Mdwbhj")
            Dbl_Jejflj = Rec_Query.Fields("Byjfljjehj")
            Dbl_Jedflj = Rec_Query.Fields("Bydfljjehj")
            Dbl_Sljflj = Rec_Query.Fields("Byjfljslhj")
            Dbl_Sldflj = Rec_Query.Fields("Bydfljslhj")
            Dbl_Wbjflj = Rec_Query.Fields("Byjfljwbhj")
            Dbl_Wbdflj = Rec_Query.Fields("Bydfljwbhj")
            Dbl_Qmyete = Dbl_Qcyete + Dbl_Jejfhj - Dbl_Jedfhj
            Dbl_Qmslte = Dbl_Qcslte + Dbl_Sljfhj - Dbl_Sldfhj
            Dbl_Qmwbte = Dbl_Qcwbte + Dbl_Wbjfhj - Dbl_Wbdfhj
            
            '判断是否输出数据
            
            Bln_Fhxstj = False
            
            If Bln_NotShowEmpty Then
                If Dbl_Qcyete <> 0 Or Dbl_Qcslte <> 0 Or Dbl_Qcwbte <> 0 Then
                    Bln_Fhxstj = True
                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_Fhxstj = True
                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_Fhxstj = True
                End If
            Else
                Bln_Fhxstj = True
            End If
            
            '数据输出
            If Bln_Fhxstj Then
                CxbbGrid.AddItem ""
                Jsqte = Jsqte + 1
                
                '数据总计
                Dbl_Sjzj(1) = Dbl_Sjzj(1) + Dbl_Qcyete
                Dbl_Sjzj(2) = Dbl_Sjzj(2) + Dbl_Qcslte
                Dbl_Sjzj(3) = Dbl_Sjzj(3) + Dbl_Qcwbte
                Dbl_Sjzj(4) = Dbl_Sjzj(4) + Dbl_Jejfhj
                Dbl_Sjzj(5) = Dbl_Sjzj(5) + Dbl_Jedfhj
                Dbl_Sjzj(6) = Dbl_Sjzj(6) + Dbl_Sljfhj
                Dbl_Sjzj(7) = Dbl_Sjzj(7) + Dbl_Sldfhj
                Dbl_Sjzj(8) = Dbl_Sjzj(8) + Dbl_Wbjfhj
                Dbl_Sjzj(9) = Dbl_Sjzj(9) + Dbl_Wbdfhj
                Dbl_Sjzj(10) = Dbl_Sjzj(10) + Dbl_Jejflj
                Dbl_Sjzj(11) = Dbl_Sjzj(11) + Dbl_Jedflj
                Dbl_Sjzj(12) = Dbl_Sjzj(12) + Dbl_Sljflj
                Dbl_Sjzj(13) = Dbl_Sjzj(13) + Dbl_Sldflj
                Dbl_Sjzj(14) = Dbl_Sjzj(14) + Dbl_Wbjflj
                Dbl_Sjzj(15) = Dbl_Sjzj(15) + Dbl_Wbdflj
                Dbl_Sjzj(16) = Dbl_Sjzj(16) + Dbl_Qmyete
                Dbl_Sjzj(17) = Dbl_Sjzj(17) + Dbl_Qmslte
                Dbl_Sjzj(18) = Dbl_Sjzj(18) + Dbl_Qmwbte
                CxbbGrid.RowHeight(Jsqte) = Sjhgd
                
                CxbbGrid.TextMatrix(Jsqte, 0) = "0" + Trim(.Fields("DeptCode"))          '部门编码
                CxbbGrid.TextMatrix(Jsqte, 1) = "0" + Trim(.Fields("DeptName") & "")     '部门名称
                
                CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("DeptCode"))            '部门编码
                CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("DeptName") & "")       '部门名称
                
                
                '将期初数据写入网格
                If Dbl_Qcyete = 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "平"     '期初方向
                    If Bln_EndFlag And Dbl_Qcslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
                    End If
                    If Bln_EndFlag And Bln_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 Bln_EndFlag And Dbl_Qcslte <> 0 Then
                            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Qcslte
                        End If
                        If Bln_EndFlag And Bln_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 Bln_EndFlag And Dbl_Qcslte <> 0 Then
                            CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = -Dbl_Qcslte
                        End If
                        If Bln_EndFlag And Bln_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 Bln_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 Bln_EndFlag And Bln_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 Bln_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 Bln_EndFlag And Bln_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
                
                '4.将期末数据写入网格
                If Dbl_Qmyete = 0 Then
                    CxbbGrid.TextMatrix(Jsqte, Sydz("025", GridStr(), Szzls)) = "平"     '期初方向
                    If Bln_EndFlag And Dbl_Qmslte <> 0 Then
                        CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
                    End If
                    If Bln_EndFlag And Bln_ForeignFlag 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 Bln_EndFlag And Dbl_Qmslte <> 0 Then
                            CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = Dbl_Qmslte
                        End If
                        If Bln_EndFlag And Bln_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 Bln_EndFlag And Dbl_Qmslte <> 0 Then
                            CxbbGrid.TextMatrix(Jsqte, Sydz("028", GridStr(), Szzls)) = -Dbl_Qmslte
                        End If
                        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qmwbte <> 0 Then
                            CxbbGrid.TextMatrix(Jsqte, Sydz("029", GridStr(), Szzls)) = -Dbl_Qmwbte
                        End If
                    End If
                End If
            End If
            
            '移动到下一条记录
            .MoveNext
        Loop
        
        Call Sub_ShowSum(Bln_EndFlag, Bln_ForeignFlag, Dbl_Sjzj())       '显示数据总计
        
    End With
    
End Sub
Private Sub Sub_ShowSum(Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Sjzj() As Double)       '显示数据总计
    If CxbbGrid.FixedRows = CxbbGrid.Rows Then
        Exit Sub
    End If
    
    CxbbGrid.AddItem ""
    CxbbGrid.RowHeight(CxbbGrid.Rows - 1) = Sjhgd
    CxbbGrid.Cell(flexcpBackColor, CxbbGrid.Rows - 1, 0, , CxbbGrid.Cols - 1) = &HFFFF00
    
    '为了排序
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, 0) = "1"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, 1) = "1"
    CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("001", GridStr(), Szzls)) = "合  计"
    
    '将期初数据写入网格
    If Dbl_Sjzj(1) = 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "平"   '期初方向
        If Bln_EndFlag And Dbl_Sjzj(2) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("006", GridStr(), Szzls)) = Dbl_Sjzj(2)
        End If
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(3) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("007", GridStr(), Szzls)) = Dbl_Sjzj(3)
        End If
    Else
        If Dbl_Sjzj(1) > 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "借"
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("004", GridStr(), Szzls)) = Dbl_Sjzj(1)
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("008", GridStr(), Szzls)) = Dbl_Sjzj(1)
            If Bln_EndFlag And Dbl_Sjzj(2) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("006", GridStr(), Szzls)) = Dbl_Sjzj(2)
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(3) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("007", GridStr(), Szzls)) = Dbl_Sjzj(3)
            End If
        Else
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "贷"
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("005", GridStr(), Szzls)) = -Dbl_Sjzj(1)
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("008", GridStr(), Szzls)) = -Dbl_Sjzj(1)
            If Bln_EndFlag And Dbl_Sjzj(2) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("006", GridStr(), Szzls)) = -Dbl_Sjzj(2)
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(3) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("007", GridStr(), Szzls)) = -Dbl_Sjzj(3)
            End If
        End If
    End If
    
    '将期间合计数据写入网格
    If Dbl_Sjzj(4) <> 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("009", GridStr(), Szzls)) = Dbl_Sjzj(4)     '本期发生.借方
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("013", GridStr(), Szzls)) = Dbl_Sjzj(4)     '本期借方发生.金额
    End If
    If Dbl_Sjzj(5) <> 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("010", GridStr(), Szzls)) = Dbl_Sjzj(5)     '本期发生.贷方
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("016", GridStr(), Szzls)) = Dbl_Sjzj(5)     '本期贷方发生.金额
    End If
    
    '仅有末级科目才显示数量，外币
    If Bln_EndFlag Then
        If Dbl_Sjzj(6) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("011", GridStr(), Szzls)) = Dbl_Sjzj(6) '本期借方发生.数量
        End If
        If Dbl_Sjzj(7) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("014", GridStr(), Szzls)) = Dbl_Sjzj(7) '本期贷方发生.数量
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Sjzj(8) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("012", GridStr(), Szzls)) = Dbl_Sjzj(8) '本期借方发生.外币
        End If
        If Dbl_Sjzj(9) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("015", GridStr(), Szzls)) = Dbl_Sjzj(9) '本期贷方发生.外币
        End If
    End If
    
    '将截止累计数据写入网格
    If Dbl_Sjzj(10) <> 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("017", GridStr(), Szzls)) = Dbl_Sjzj(10)     '累计发生.借方
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("021", GridStr(), Szzls)) = Dbl_Sjzj(10)     '累计借方发生.金额
    End If
    If Dbl_Sjzj(11) <> 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("018", GridStr(), Szzls)) = Dbl_Sjzj(11)     '累计发生.贷方
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("024", GridStr(), Szzls)) = Dbl_Sjzj(11)     '累计贷方发生.金额
    End If
    
    '仅有末级科目才显示数量，外币
    If Bln_EndFlag Then
        If Dbl_Sjzj(12) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("019", GridStr(), Szzls)) = Dbl_Sjzj(12) '累计借方发生.数量
        End If
        If Dbl_Sjzj(13) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("022", GridStr(), Szzls)) = Dbl_Sjzj(13) '累计贷方发生.数量
        End If
    End If
    If Bln_EndFlag And Bln_ForeignFlag Then
        If Dbl_Sjzj(14) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("020", GridStr(), Szzls)) = Dbl_Sjzj(14) '累计借方发生.外币
        End If
        If Dbl_Sjzj(15) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("023", GridStr(), Szzls)) = Dbl_Sjzj(15) '累计贷方发生.外币
        End If
    End If
    
    '将期末数据写入网格
    If Dbl_Sjzj(16) = 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "平"   '期初方向
        If Bln_EndFlag And Dbl_Sjzj(17) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("028", GridStr(), Szzls)) = Dbl_Sjzj(17)
        End If
        If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(18) <> 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("029", GridStr(), Szzls)) = Dbl_Sjzj(18)
        End If
    Else
        If Dbl_Sjzj(16) > 0 Then
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "借"
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("026", GridStr(), Szzls)) = Dbl_Sjzj(16)
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("030", GridStr(), Szzls)) = Dbl_Sjzj(16)
            If Bln_EndFlag And Dbl_Sjzj(17) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("028", GridStr(), Szzls)) = Dbl_Sjzj(17)
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(18) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("029", GridStr(), Szzls)) = Dbl_Sjzj(18)
            End If
        Else
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "贷"
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("027", GridStr(), Szzls)) = -Dbl_Sjzj(16)
            CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("030", GridStr(), Szzls)) = -Dbl_Sjzj(16)
            If Bln_EndFlag And Dbl_Sjzj(17) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("028", GridStr(), Szzls)) = -Dbl_Sjzj(17)
            End If
            If Bln_EndFlag And Bln_ForeignFlag And Dbl_Sjzj(18) <> 0 Then
                CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("029", GridStr(), Szzls)) = -Dbl_Sjzj(18)
            End If
        End If
    End If
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 Combo_FzPxfs_Click()                                    '网格排序方式
    If Combo_FzPxfs.ListIndex = 0 Then
        '将网格按编码排序
        With CxbbGrid
            .Col = 0
            CxbbGrid.Sort = flexSortStringAscending
        End With
    Else
        '将网格按名称排序
        With CxbbGrid
            .Col = 1
            CxbbGrid.Sort = flexSortStringAscending
        End With
    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)
    Bbxbt(1) = Space(2) + "会计期间:" + Lab_TitleText(0) + Space(20) + "科目名称：" + Me.Imgebo_FzCcode.Text
    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

						