企业管理

开发平台：
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_Gys_FrmGysyebjg 
   Caption         =   "供应商往来余额表"
   ClientHeight    =   7755
   ClientLeft      =   315
   ClientTop       =   390
   ClientWidth     =   11400
   HelpContextID   =   5001
   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          =   1095
      Left            =   0
      Picture         =   "辅助_供应商往来_供应商余额表查询结果.frx":1042
      ScaleHeight     =   1035
      ScaleWidth      =   11535
      TabIndex        =   1
      Top             =   570
      Width           =   11595
      Begin VB.ComboBox Combo_AccFormat 
         Height          =   300
         Left            =   9090
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   720
         Width           =   1725
      End
      Begin VB.Label Lab_FzName 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   180
         Left            =   2190
         TabIndex        =   10
         Top             =   780
         Width           =   90
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "供应商:"
         Height          =   180
         Index           =   1
         Left            =   1050
         TabIndex        =   9
         Top             =   780
         Width           =   630
      End
      Begin VB.Label Lab_TitleText 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   180
         Index           =   0
         Left            =   6420
         TabIndex        =   8
         Top             =   780
         Width           =   90
      End
      Begin VB.Label TsLabel 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "帐页格式:"
         Height          =   180
         Index           =   7
         Left            =   8160
         TabIndex        =   7
         Top             =   780
         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            =   500
         TabIndex        =   3
         Top             =   150
         Width           =   2400
      End
      Begin VB.Label Lab_TitleMess 
         AutoSize        =   -1  'True
         BackStyle       =   0  'Transparent
         Caption         =   "会计期间:"
         Height          =   180
         Index           =   0
         Left            =   5550
         TabIndex        =   2
         Top             =   780
         Width           =   810
      End
   End
   Begin MSComctlLib.Toolbar GsToolbar 
      Height          =   525
      Left            =   9720
      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             =   1680
      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           =   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            =   5070
         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 = "ZF_Gys_FrmGysyebjg"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'*******************************************************************
'*    模 块 名 称 :供应商科目发生额及余额表(供应商往来)
'*    功 能 描 述 :本功能用于查询统计涉及查询科目的供应商的本期发
'*                 生额、累计发生额和余额等。并支持包含未记帐凭
'*                 证查询。
'*    程序员姓名  :张建忠
'*    最后修改人  : 奚俊峰
'*    最后修改时间:2001/12/21
'*    备        注:在此查询中采用了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)
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_gyswl_gysyeb"
    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_gyswl_gysyeb"
    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)
    
    '调整标题位置
    SetTitlePos tsLabel(4)
End Sub
Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
    '卸载条件窗体
    ZF_Gys_FrmGysyebtj.UnloadCheck.Value = 1
    Unload ZF_Gys_FrmGysyebtj
    '卸载打印页面设置窗体
    Unload Dyymctbl
    Set clsAccAss = Nothing
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_Gys_FrmGysyebtj.Show 1
    Case "lj"                                            '累 计
        Call Combo_AccFormat_Click
    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
    
    '加快显示速度
    CxbbGrid.Redraw = False
    
    Xt_Wait.Show
    Xt_Wait.Refresh
    
    '生成查询结果
    Call Sub_Query
    
    Call Combo_AccFormat_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 Str_FzCode 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_Gys_FrmGysyebtj
        
        '查询供应商编码
        Str_FzCode = Trim(.LrText(0).Tag)
        Lab_FzName.Caption = Trim(.LrText(0).Text)
        
        '显示查询会计期间
        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
        
        '数据为零不显示
        Bln_NotShowEmpty = True
        
        '余额统计方向
        For Jsqte = 0 To 2
            If .Opt_Tjfx(Jsqte).Value = True Then
                Int_Tjfx = Jsqte
            End If
        Next Jsqte
        
        '查询起始终止余额
        Dbl_BeginYe = Val(.LrText(1).Text)
        Dbl_EndYe = Val(.LrText(2).Text)
        
    End With
    
    '计算所有用户选中(供应商)的科目发生额及余额
    If Bln_IncluNotBook Then
        Sqlstr = "Select Ccode,Cname,EndFlag,ForeignFlag," & _
        " QcyeHj=(Select QcyeHJ=Isnull(Sum(qcyehj),0) From ((SELECT QcyeHj=Isnull(Sum(Qcye),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & ") union all (SELECT  Qcyehj=Isnull(Sum(Jfje-Dfje),0) From Cwzz_V_AccVouch Where BookFlag=0 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%'  And Year=" & Int_Year & "  And Period<" & Int_BPeriod & ")) b)," & _
        " QcslHj=(Select QcslHJ=Isnull(Sum(qcslhj),0) From ((SELECT Qcslhj=Isnull(Sum(Qcsl),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period=" & Int_BPeriod & ") union all (SELECT  Qcslhj=Isnull(Sum(Jfsl-Dfsl),0) From Cwzz_V_AccVouch Where BookFlag=0 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<" & Int_BPeriod & ")) b)," & _
        " QcwbHj=(Select QcwbHJ=Isnull(Sum(qcwbhj),0) From ((SELECT Qcwbhj=Isnull(Sum(Qcwb),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period=" & Int_BPeriod & ") union all (SELECT  Qcwbhj=Isnull(Sum(WbJfje-WbDfje),0) From Cwzz_V_AccVouch Where BookFlag=0 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<" & Int_BPeriod & ")) b)," & _
        " Mjjehj=(SELECT Mjjehj=Isnull(Sum(Jfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdjehj=(SELECT Mdjehj=Isnull(Sum(dfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mjslhj=(SELECT Mjslhj=Isnull(Sum(Jfsl),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdslhj=(SELECT Mdslhj=Isnull(Sum(dfsl),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mjwbhj=(SELECT Mjwbhj=Isnull(Sum(WbJfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdwbhj=(SELECT Mdwbhj=Isnull(Sum(Wbdfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & "), " & _
        " ByjfljjeHj=(Select ByjfljjeHj=Isnull(Sum(Jfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljjeHj=(Select BydfljjeHj=Isnull(Sum(dfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " ByjfljslHj=(Select ByjfljslHj=Isnull(Sum(Jfsl),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljslHj=(Select BydfljslHj=Isnull(Sum(dfsl),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " ByjfljwbHj=(Select ByjfljwbHj=Isnull(Sum(WbJfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljwbHj=(Select BydfljwbHj=Isnull(Sum(Wbdfje),0) From Cwzz_V_AccVouch Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")" & _
        " From Cwzz_AccCODE c  Where c.SupplierFlag=1 Order By Ccode"
    Else
        Sqlstr = "Select Ccode,Cname,EndFlag,ForeignFlag," & _
        " QcyeHj=(SELECT QcyeHj=Isnull(Sum(Qcye),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & ")," & _
        " QcslHj=(SELECT Qcslhj=Isnull(Sum(Qcsl),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & ")," & _
        " QcwbHj=(SELECT Qcwbhj=Isnull(Sum(Qcwb),0) From Cwzz_AccSumAssi Where SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & " And Period=" & Int_BPeriod & ")," & _
        " Mjjehj=(SELECT Mjjehj=Isnull(Sum(Jfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdjehj=(SELECT Mdjehj=Isnull(Sum(dfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mjslhj=(SELECT Mjslhj=Isnull(Sum(Jfsl),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdslhj=(SELECT Mdslhj=Isnull(Sum(dfsl),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mjwbhj=(SELECT Mjwbhj=Isnull(Sum(WbJfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & ")," & _
        " Mdwbhj=(SELECT Mdwbhj=Isnull(Sum(Wbdfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period>=" & Int_BPeriod & " And Period <=" & Int_EPeriod & "), " & _
        " ByjfljjeHj=(Select ByjfljjeHj=Isnull(Sum(Jfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljjeHj=(Select BydfljjeHj=Isnull(Sum(dfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " ByjfljslHj=(Select ByjfljslHj=Isnull(Sum(Jfsl),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljslHj=(Select BydfljslHj=Isnull(Sum(dfsl),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " ByjfljwbHj=(Select ByjfljwbHj=Isnull(Sum(WbJfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")," & _
        " BydfljwbHj=(Select BydfljwbHj=Isnull(Sum(Wbdfje),0) From Cwzz_V_AccVouch Where BookFlag=1 And SupplierCode='" & Str_FzCode & "' And Ccode like RTRIM(c.cCODE)+'%' And Year=" & Int_Year & "  And Period<=" & Int_EPeriod & ")" & _
        " From Cwzz_AccCODE c  Where c.SupplierFlag=1 Order By Ccode"
    End If
    
    
    '========================bsj========================
    '原程序为：
    'Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
    '修改为：
    Dim clsAccAss As New AccAssi
    With clsAccAss
        .iPeriod_Begin = Int_BPeriod  '查询会计期开始
        .iPeriod_End = Int_EPeriod    '查询会计期结束
        .iPeriod_Year = Int_Year      '查询会计年
        .b_Keep_Business_Records = Bln_IncluNotBook  '是否包含记帐凭证
        .PayTypes = Ven   '常量,Dep：部门，Per个人，Cur：客户，Ven：供应商
        .sPayCode = Str_FzCode  '部门、个人、客户或供应商代码
    End With
    Set Rec_Query = clsAccAss.GetNewRs()
    '在Form_UnLoad()销毁对象
    '===============================================
    With Rec_Query
        
        CxbbGrid.Rows = CxbbGrid.FixedRows
        Jsqte = CxbbGrid.FixedRows - 1
        
        Do While Not .EOF
            
            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"))
            
            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"))
            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
                Bln_Fhxstj = False
                
                '判断期末余额是否符合查询条件
                Select Case Int_Tjfx
                Case 0
                    If Abs(Dbl_Qmyete) >= Dbl_BeginYe Then
                        If Dbl_EndYe <> 0 Then
                            If Abs(Dbl_Qmyete) <= Dbl_EndYe Then
                                Bln_Fhxstj = True
                            End If
                        Else
                            Bln_Fhxstj = True
                        End If
                    End If
                Case 1
                    If Dbl_Qmyete >= 0 And Abs(Dbl_Qmyete) >= Dbl_BeginYe Then
                        If Dbl_EndYe <> 0 Then
                            If Abs(Dbl_Qmyete) <= Dbl_EndYe Then
                                Bln_Fhxstj = True
                            End If
                        Else
                            Bln_Fhxstj = True
                        End If
                    End If
                Case 2
                    If Dbl_Qmyete <= 0 And Abs(Dbl_Qmyete) >= Dbl_BeginYe Then
                        If Dbl_EndYe <> 0 Then
                            If Abs(Dbl_Qmyete) <= Dbl_EndYe Then
                                Bln_Fhxstj = True
                            End If
                        Else
                            Bln_Fhxstj = True
                        End If
                    End If
                End Select
            End If
            
            '数据输出
            If Bln_Fhxstj Then
                CxbbGrid.AddItem ""
                Jsqte = Jsqte + 1
                
                '数据总计
                If .Fields("EndFlag") Then
                    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
                End If
                
                CxbbGrid.RowHeight(Jsqte) = Sjhgd
                
                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 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(Dbl_Sjzj())       '显示数据总计
        
    End With
    
End Sub
Private Sub Sub_ShowSum(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, Sydz("001", GridStr(), Szzls)) = "合  计"
    
    '将期初数据写入网格
    If Dbl_Sjzj(1) = 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("003", GridStr(), Szzls)) = "平"   '期初方向
    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)
        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)
        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 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 Dbl_Sjzj(16) = 0 Then
        CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("025", GridStr(), Szzls)) = "平"   '期初方向
    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)
        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)
        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 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(15) + "供应商名称：" + Me.Lab_FzName.Caption
    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

						