企业管理

开发平台：
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 JC_FrmQcyeDz 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "期初录入对帐"
   ClientHeight    =   7545
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   11355
   HelpContextID   =   112001
   Icon            =   "基础设置_期初录入对帐.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   7545
   ScaleWidth      =   11355
   StartUpPosition =   1  '所有者中心
   Begin VB.PictureBox Pic_Title 
      Height          =   1395
      Left            =   0
      Picture         =   "基础设置_期初录入对帐.frx":1042
      ScaleHeight     =   1335
      ScaleWidth      =   11715
      TabIndex        =   3
      Top             =   600
      Width           =   11775
      Begin MSComctlLib.ImageList ImageList1 
         Left            =   10620
         Top             =   360
         _ExtentX        =   1005
         _ExtentY        =   1005
         BackColor       =   -2147483643
         ImageWidth      =   16
         ImageHeight     =   16
         MaskColor       =   12632256
         _Version        =   393216
         BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
            NumListImages   =   26
            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
         EndProperty
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "正在核对科目:"
         Height          =   195
         Left            =   6180
         TabIndex        =   19
         Top             =   330
         Width           =   1365
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐上下级"
         Height          =   285
         Index           =   0
         Left            =   3570
         TabIndex        =   18
         Top             =   810
         Width           =   1455
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐与部门帐"
         Height          =   285
         Index           =   1
         Left            =   6180
         TabIndex        =   17
         Top             =   810
         Width           =   1455
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐与客户往来帐"
         Height          =   285
         Index           =   2
         Left            =   8700
         TabIndex        =   16
         Top             =   810
         Width           =   1905
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐与供应商往来帐"
         Height          =   285
         Index           =   3
         Left            =   3570
         TabIndex        =   15
         Top             =   1110
         Width           =   2115
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐与个人往来帐"
         Height          =   285
         Index           =   4
         Left            =   6180
         TabIndex        =   14
         Top             =   1110
         Width           =   1905
      End
      Begin VB.Label Lab_Check1 
         BackStyle       =   0  'Transparent
         Caption         =   "核对总帐与项目帐"
         Height          =   285
         Index           =   5
         Left            =   8700
         TabIndex        =   13
         Top             =   1110
         Width           =   1905
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   0
         Left            =   3270
         TabIndex        =   12
         Top             =   810
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   1
         Left            =   5880
         TabIndex        =   11
         Top             =   810
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   2
         Left            =   8400
         TabIndex        =   10
         Top             =   810
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   3
         Left            =   3270
         TabIndex        =   9
         Top             =   1110
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   4
         Left            =   5880
         TabIndex        =   8
         Top             =   1110
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_CheckJg 
         BackStyle       =   0  'Transparent
         Caption         =   "√"
         ForeColor       =   &H000000FF&
         Height          =   285
         Index           =   5
         Left            =   8400
         TabIndex        =   7
         Top             =   1110
         Visible         =   0   'False
         Width           =   285
      End
      Begin VB.Label Lab_Ccode 
         BackStyle       =   0  'Transparent
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   7470
         TabIndex        =   6
         Top             =   330
         Width           =   4065
      End
      Begin VB.Label Label2 
         BackStyle       =   0  'Transparent
         Caption         =   "（下面为对帐错误记录列表）"
         ForeColor       =   &H00000000&
         Height          =   255
         Left            =   750
         TabIndex        =   5
         Top             =   960
         Width           =   2445
      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          =   375
         Index           =   4
         Left            =   510
         TabIndex        =   4
         Top             =   180
         Width           =   1395
      End
   End
   Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
      Height          =   5445
      Left            =   0
      TabIndex        =   0
      Top             =   2040
      Width           =   11325
      _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 Tlb_Action 
      Align           =   1  'Align Top
      Height          =   555
      Left            =   0
      TabIndex        =   1
      Top             =   0
      Width           =   11355
      _ExtentX        =   20029
      _ExtentY        =   979
      ButtonWidth     =   820
      ButtonHeight    =   926
      AllowCustomize  =   0   'False
      Wrappable       =   0   'False
      Appearance      =   1
      Style           =   1
      ImageList       =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   8
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "设置"
            Key             =   "ymsz"
            Object.ToolTipText     =   "打印页面设置"
            ImageKey        =   "sz"
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "打印"
            Key             =   "dy"
            Object.ToolTipText     =   "打印当前单据或Ctrl+P"
            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             =   "dz"
            ImageKey        =   "dz"
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   3
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "帮助"
            Key             =   "bz"
            ImageKey        =   "bz"
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Caption         =   "退出"
            Key             =   "fh"
            ImageKey        =   "tc"
         EndProperty
      EndProperty
      BorderStyle     =   1
      Begin MSComctlLib.Toolbar GsToolbar 
         Height          =   525
         Left            =   8850
         TabIndex        =   2
         Top             =   0
         Width           =   2475
         _ExtentX        =   4366
         _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      =   3
            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
            BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
               Caption         =   "显示项目"
               Key             =   "szxsxm"
               ImageKey        =   "xsxm"
            EndProperty
         EndProperty
      End
   End
End
Attribute VB_Name = "JC_FrmQcyeDz"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'**************************************************************************
'*    模 块 名 称 :期初余额录入帐目核对
'*    功 能 描 述 :核对总帐上下级科目,总帐与部门帐
'*                 总帐与客户往来帐,总帐与供应商往来帐,总帐与个人往来帐
'*                 总帐与项目帐是否平衡(包括年初余额,期初余额,月借方发生额
'*                 月贷方发生额,年累计借方发生额,年累计贷方发生额,期末余额)
'*    程序员姓名  :张建忠
'*    最后修改人  :张建忠
'*    最后修改时间:2001/11/26
'*    备        注:
'**************************************************************************
Dim Int_CheckYear As Integer             '核对帐目会计年度
Dim Int_CheckPeriod As Integer           '核对帐目会计期间
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_Load()
    
    '对帐会计年度和会计期间
    Int_CheckYear = Val(Xtcdcs)
    Int_CheckPeriod = Val(Xtcdcsfz)
    
    '调入打印页面设置窗体
    
    XtReportCode = "Cwzz_qcyelrdz"
    Load Dyymctbl
    ReportTitle = "帐目对帐结果"
    
    '调 入 网 格
    GridCode = "Cwzz_qcyelrdz"
    Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
    
    Qslz = GridInf(1)
    Sjhgd = GridInf(2)
    Sfxshjwg = GridInf(7)
    Szzls = CxbbGrid.Cols - 1
    
    '调整标题位置
    SetTitlePos tsLabel(4)
    
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 Tlb_Action_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 "dz"                                            '对 帐
        Call Sub_AccCheck
    Case "bz"                                            '帮 助
        Call F1bz
    Case "fh"                                            '退 出
        Unload Me
    End Select
End Sub
Private Sub Sub_AccCheck()                                                                  '帐目核对
    Dim Int_CheckSele As Integer
    
    '初始化对帐结果显示
    CxbbGrid.Rows = CxbbGrid.FixedRows
    CxbbGrid.Refresh
    For Jsqte = 0 To 5
        Lab_CheckJg(Jsqte).Visible = False
        Lab_Check1(Jsqte).ForeColor = &H80000012
    Next Jsqte
    If Fun_Hdsxjkm Then
        Lab_CheckJg(0).Visible = True
    End If
    For Int_CheckSele = 1 To 5
        If Fun_HdZzFzz(Int_CheckSele) Then
            Lab_CheckJg(Int_CheckSele).Visible = True
        End If
    Next Int_CheckSele
    
    Lab_Ccode = ""
End Sub
Private Function Fun_HdZzFzz(Int_CheckSele As Integer) As Boolean                                                    '核对总帐与辅助帐(客户)是否平衡
    
    '1-部门 2-客户 3-供应商 4-个人 5-项目
    
    Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
    Dim Rec_AccSum As New ADODB.Recordset                '科目总帐动态集
    Dim Sqlstr As String                                 '临时查询字符串
    Dim Int_NotCheck As Integer                          '未能核对通过科目个数
    
    Lab_Check1(Int_CheckSele).ForeColor = &HFF&
    Int_NotCheck = 0
    
    Select Case Int_CheckSele
    Case 1
        Sqlstr = "SELECT Cwzz_AccCode.Ccode, Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
        " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
        " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
        " Where Cwzz_AccCode.DeptFlag=1 And Cwzz_AccCode.EndFlag=1"
    Case 2
        Sqlstr = "SELECT Cwzz_AccCode.Ccode, Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
        " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
        " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
        " Where Cwzz_AccCode.CusFlag=1 And Cwzz_AccCode.EndFlag=1"
    Case 3
        Sqlstr = "SELECT Cwzz_AccCode.Ccode, Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
        " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
        " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
        " Where Cwzz_AccCode.SupplierFlag=1 And Cwzz_AccCode.EndFlag=1"
    Case 4
        Sqlstr = "SELECT Cwzz_AccCode.Ccode, Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
        " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
        " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
        " Where Cwzz_AccCode.PersonFlag=1 And Cwzz_AccCode.EndFlag=1"
    Case 5
        Sqlstr = "SELECT Cwzz_AccCode.Ccode,Cwzz_AccCode.ItemClassCode,Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
        " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
        " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
        " Where Cwzz_AccCode.ItemFlag=1 And Cwzz_AccCode.EndFlag=1"
    End Select
    Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With Rec_AccSum
        Do While Not .EOF
            Lab_Ccode.Caption = Trim(.Fields("Ccode"))
            Lab_Ccode.Refresh
            
            Sqlstr = "SELECT YcyeHj=IsNull(SUM(Ycye),0), QcyeHj=Isnull(SUM(Qcye),0),MjjeHj=Isnull(SUM(Mjje),0), MdjeHj=Isnull(SUM(Mdje),0)," & _
            " ByjfljjeHj=IsNull(SUM(Byjfljje),0), BydfljjeHj=IsNull(SUM(Bydfljje),0),Qmyehj=IsNull(SUM(Qmye),0)" & _
            " FROM Cwzz_AccSumAssi " & _
            " WHERE Cwzz_AccSumAssi.Ccode ='" & Trim(.Fields("Ccode")) & "' AND Year = " & Int_CheckYear & " AND Period =" & Int_CheckPeriod
            Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
            If Not RecTemp.EOF Then
                If .Fields("Ycye") <> RecTemp.Fields("YcyeHj") Or .Fields("Qcye") <> RecTemp.Fields("Qcyehj") Or .Fields("Mjje") <> RecTemp.Fields("MjjeHj") Or .Fields("Mdje") <> RecTemp.Fields("MdjeHj") Or .Fields("Byjfljje") <> RecTemp.Fields("Byjfljjehj") Or .Fields("Bydfljje") <> RecTemp.Fields("Bydfljjehj") Or .Fields("Qmye") <> RecTemp.Fields("Qmyehj") Then
                    Int_NotCheck = Int_NotCheck + 1
                    '填充记录错误列表
                    Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
                    Select Case Int_CheckSele
                    Case 1
                        Call Sub_AddRec(Trim(.Fields("Ccode")), "部门帐", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    Case 2
                        Call Sub_AddRec(Trim(.Fields("Ccode")), "客户帐", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    Case 3
                        Call Sub_AddRec(Trim(.Fields("Ccode")), "供应商帐", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    Case 4
                        Call Sub_AddRec(Trim(.Fields("Ccode")), "个人帐", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    Case 5
                        Call Sub_AddRec(Trim(.Fields("Ccode")), "项目帐", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    End Select
                End If
            End If
            
            .MoveNext
        Loop
    End With
    If Int_NotCheck <> 0 Then
        Fun_HdZzFzz = False
    Else
        Fun_HdZzFzz = True
        Lab_Check1(Int_CheckSele).ForeColor = &H80000012
    End If
End Function
Private Function Fun_Hdsxjkm() As Boolean                                                   '核对总帐上下级科目是否平衡
    Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
    Dim Rec_AccSum As New ADODB.Recordset                '科目总帐动态集
    Dim Sqlstr As String                                 '临时查询字符串
    Dim Int_NotCheck As Integer                          '未能核对通过科目个数
    
    Lab_Check1(Int_CheckSele).ForeColor = &HFF&
    Int_NotCheck = 0
    
    Sqlstr = "SELECT Cwzz_AccCode.Ccode, Ycye=ISNULL(Ycye,0), Qcye=IsNULL(Qcye,0), Mjje=ISNULL(Mjje,0), Mdje=ISNULL(Mdje,0), Byjfljje=ISNULL(Byjfljje,0), Bydfljje=ISNULL(Bydfljje,0), Qmye=ISNULL(Qmye,0)" & _
    " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
    " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_CheckYear & " And Period =" & Int_CheckPeriod & _
    " Where Cwzz_AccCode.EndFlag=0"
    Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With Rec_AccSum
        Do While Not .EOF
            Lab_Ccode.Caption = Trim(.Fields("Ccode"))
            Lab_Ccode.Refresh
            
            Sqlstr = "SELECT SUM(Ycye) AS YcyeHj, SUM(Qcye) AS QcyeHj, SUM(Mjje) AS MjjeHj, SUM(Mdje) AS MdjeHj," & _
            " SUM(Byjfljje) AS ByjfljjeHj, SUM(Bydfljje) AS BydfljjeHj, SUM(Qmye) AS Qmyehj" & _
            " FROM Cwzz_AccSum LEFT OUTER JOIN Cwzz_AccCode ON Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode" & _
            " WHERE Cwzz_AccSum.Ccode LIKE '" & Trim(.Fields("Ccode")) & "%' AND Year = " & Int_CheckYear & " AND Period =" & Int_CheckPeriod & " AND Cwzz_AccCode.EndFlag = 1"
            Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
            If Not RecTemp.EOF Then
                If .Fields("Ycye") <> RecTemp.Fields("YcyeHj") Or .Fields("Qcye") <> RecTemp.Fields("Qcyehj") Or .Fields("Mjje") <> RecTemp.Fields("MjjeHj") Or .Fields("Mdje") <> RecTemp.Fields("MdjeHj") Or .Fields("Byjfljje") <> RecTemp.Fields("Byjfljjehj") Or .Fields("Bydfljje") <> RecTemp.Fields("Bydfljjehj") Or .Fields("Qmye") <> RecTemp.Fields("Qmyehj") Then
                    Int_NotCheck = Int_NotCheck + 1
                    
                    '填充记录错误列表
                    Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐上级", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
                    Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐下级", RecTemp.Fields("Ycyehj"), RecTemp.Fields("Qcyehj"), RecTemp.Fields("Mjjehj"), RecTemp.Fields("Mdjehj"), RecTemp.Fields("Byjfljjehj"), RecTemp.Fields("Bydfljjehj"), RecTemp.Fields("Qmyehj"))
                    
                End If
            Else
                If .Fields("Ycye") <> 0 Or .Fields("Qcye") <> 0 Or .Fields("Mjje") <> 0 Or .Fields("Mdje") <> 0 Or .Fields("Byjfljje") <> 0 Or .Fields("Bydfljje") <> 0 Or .Fields("Qmye") <> 0 Then
                    '填充记录错误列表
                    Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐上级", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
                    Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐下级", 0, 0, 0, 0, 0, 0, 0)
                End If
            End If
            .MoveNext
        Loop
    End With
    If Int_NotCheck <> 0 Then
        Fun_Hdsxjkm = False
    Else
        Fun_Hdsxjkm = True
        Lab_Check1(Int_CheckSele).ForeColor = &H80000012
    End If
End Function
Private Sub Sub_AddRec(Str_Ccode As String, CheckItem As String, Ycye#, Qcye#, Mjje#, Mdje#, Byjfljje#, Bydfljje#, Qmye#)            '填充对帐错误记录
    '函数参数说明:科目编码,核对项目,年初余额,期初余额,本期借方发生,本期贷方发生,本年累计借方发生,本年累计贷方发生,期末余额
    
    Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
    Dim Sqlstr As String                                 '临时查询字符串
    Sqlstr = "SELECT Cwzz_AccCode.CName,BalanceOri From Cwzz_AccCode Where CCode='" & Str_Ccode & "'"
    Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
    With CxbbGrid
        .AddItem ""
        .RowHeight(.Rows - 1) = Sjhgd
        .TextMatrix(.Rows - 1, Sydz("001", GridStr(), Szzls)) = Str_Ccode                                   '科目编码
        If Not RecTemp.EOF Then
            .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = Trim(RecTemp.Fields("Cname") & "")       '科目名称
        End If
        .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = CheckItem                                   '核对项目
        If Not RecTemp.EOF Then
            .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = Trim(RecTemp.Fields("BalanceOri"))       '余额方向
        End If
        If Ycye <> 0 Then                                                                                   '年初余额
            If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
                .TextMatrix(.Rows - 1, Sydz("005", GridStr(), Szzls)) = Ycye
            Else
                .TextMatrix(.Rows - 1, Sydz("005", GridStr(), Szzls)) = -Ycye
            End If
        End If
        If Qcye <> 0 Then                                                                                   '期初余额
            If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
                .TextMatrix(.Rows - 1, Sydz("006", GridStr(), Szzls)) = Qcye
            Else
                .TextMatrix(.Rows - 1, Sydz("006", GridStr(), Szzls)) = -Qcye
            End If
        End If
        If Mjje <> 0 Then                                                                                   '本期借方发生
            .TextMatrix(.Rows - 1, Sydz("007", GridStr(), Szzls)) = Mjje
        End If
        If Mdje <> 0 Then                                                                                   '本期贷方发生
            .TextMatrix(.Rows - 1, Sydz("008", GridStr(), Szzls)) = Mdje
        End If
        If Byjfljje <> 0 Then                                                                               '本年借方累计发生
            .TextMatrix(.Rows - 1, Sydz("009", GridStr(), Szzls)) = Byjfljje
        End If
        If Bydfljje <> 0 Then                                                                               '本年贷方累计发生
            .TextMatrix(.Rows - 1, Sydz("010", GridStr(), Szzls)) = Bydfljje
        End If
        If Qmye <> 0 Then                                                                                   '期末余额
            If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
                .TextMatrix(.Rows - 1, Sydz("011", GridStr(), Szzls)) = Qmye
            Else
                .TextMatrix(.Rows - 1, Sydz("011", GridStr(), Szzls)) = -Qmye
            End If
        End If
    End With
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) = " "
    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

						