开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
+
资源名称：ERPSYS.zip　[点击查看]
上传用户：zhpu1995
上传日期：2013-09-06
资源大小：61151k
文件大小：79k
源码类别：

企业管理

开发平台：

Visual Basic

+：源码内容
  1. VERSION 5.00
  2. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "tabctl32.ocx"
  5. Begin VB.Form JC_FrmQclrwc 
  6.    BorderStyle     =   3  'Fixed Dialog
  7.    Caption         =   "总帐期初录入完成"
  8.    ClientHeight    =   5910
  9.    ClientLeft      =   45
  10.    ClientTop       =   330
  11.    ClientWidth     =   8340
  12.    Icon            =   "基础设置_总帐期初录入完成.frx":0000
  13.    LinkTopic       =   "Form1"
  14.    MaxButton       =   0   'False
  15.    MinButton       =   0   'False
  16.    ScaleHeight     =   5910
  17.    ScaleWidth      =   8340
  18.    ShowInTaskbar   =   0   'False
  19.    StartUpPosition =   2  '屏幕中心
  20.    Begin VB.CommandButton cmdCancel1 
  21.       Caption         =   "关闭(&C)"
  22.       Default         =   -1  'True
  23.       Height          =   300
  24.       Left            =   6975
  25.       TabIndex        =   0
  26.       Top             =   5520
  27.       Width           =   1120
  28.    End
  29.    Begin TabDlg.SSTab StTab 
  30.       Height          =   5475
  31.       Left            =   30
  32.       TabIndex        =   1
  33.       Top             =   0
  34.       Width           =   8280
  35.       _ExtentX        =   14605
  36.       _ExtentY        =   9657
  37.       _Version        =   393216
  38.       Style           =   1
  39.       Tabs            =   4
  40.       TabsPerRow      =   4
  41.       TabHeight       =   520
  42.       TabCaption(0)   =   "信息提示"
  43.       TabPicture(0)   =   "基础设置_总帐期初录入完成.frx":1042
  44.       Tab(0).ControlEnabled=   -1  'True
  45.       Tab(0).Control(0)=   "Frame1"
  46.       Tab(0).Control(0).Enabled=   0   'False
  47.       Tab(0).ControlCount=   1
  48.       TabCaption(1)   =   "平衡校验"
  49.       TabPicture(1)   =   "基础设置_总帐期初录入完成.frx":105E
  50.       Tab(1).ControlEnabled=   0   'False
  51.       Tab(1).Control(0)=   "Frame2"
  52.       Tab(1).ControlCount=   1
  53.       TabCaption(2)   =   "核对帐簿"
  54.       TabPicture(2)   =   "基础设置_总帐期初录入完成.frx":107A
  55.       Tab(2).ControlEnabled=   0   'False
  56.       Tab(2).Control(0)=   "Frame3"
  57.       Tab(2).ControlCount=   1
  58.       TabCaption(3)   =   "初始完成"
  59.       TabPicture(3)   =   "基础设置_总帐期初录入完成.frx":1096
  60.       Tab(3).ControlEnabled=   0   'False
  61.       Tab(3).Control(0)=   "Frame4"
  62.       Tab(3).Control(0).Enabled=   0   'False
  63.       Tab(3).ControlCount=   1
  64.       Begin VB.Frame Frame1 
  65.          Height          =   5025
  66.          Left            =   120
  67.          TabIndex        =   49
  68.          Top             =   360
  69.          Width           =   8055
  70.          Begin VB.CommandButton cmdNext1 
  71.             Caption         =   "下一步(&N)"
  72.             Height          =   300
  73.             Left            =   6810
  74.             TabIndex        =   50
  75.             Top             =   4560
  76.             Width           =   1120
  77.          End
  78.          Begin VB.Label Label3 
  79.             Caption         =   "3.选择期初录入完成后,如果为第一次初始化总帐系统,则系统将自动生成对应期初累计数据的   明细凭证"
  80.             Height          =   615
  81.             Index           =   1
  82.             Left            =   300
  83.             TabIndex        =   55
  84.             Top             =   1620
  85.             Width           =   7455
  86.          End
  87.          Begin VB.Label Label1 
  88.             Caption         =   "期初录入完成注意事项:"
  89.             Height          =   285
  90.             Left            =   330
  91.             TabIndex        =   53
  92.             Top             =   510
  93.             Width           =   1965
  94.          End
  95.          Begin VB.Label Label2 
  96.             Caption         =   "1.试算不平衡则不能期初录入完成"
  97.             Height          =   195
  98.             Index           =   2
  99.             Left            =   300
  100.             TabIndex        =   52
  101.             Top             =   960
  102.             Width           =   2805
  103.          End
  104.          Begin VB.Label Label3 
  105.             Caption         =   "2.对帐不正确则不能期初录入完成"
  106.             Height          =   285
  107.             Index           =   0
  108.             Left            =   300
  109.             TabIndex        =   51
  110.             Top             =   1290
  111.             Width           =   2805
  112.          End
  113.       End
  114.       Begin VB.Frame Frame2 
  115.          Height          =   5025
  116.          Left            =   -74880
  117.          TabIndex        =   29
  118.          Top             =   360
  119.          Width           =   8055
  120.          Begin VB.PictureBox Picture1 
  121.             Height          =   4005
  122.             Left            =   150
  123.             ScaleHeight     =   3945
  124.             ScaleWidth      =   7695
  125.             TabIndex        =   33
  126.             Top             =   330
  127.             Width           =   7755
  128.             Begin VB.Timer Timer1 
  129.                Interval        =   1
  130.                Left            =   6870
  131.                Top             =   840
  132.             End
  133.             Begin VB.Label Lab_ljjg 
  134.                Caption         =   "借贷平衡结果"
  135.                ForeColor       =   &H000080FF&
  136.                Height          =   255
  137.                Left            =   1200
  138.                TabIndex        =   61
  139.                Top             =   3510
  140.                Width           =   2385
  141.             End
  142.             Begin VB.Label Lab_Dflj 
  143.                Caption         =   "贷方累计:"
  144.                Height          =   165
  145.                Left            =   3780
  146.                TabIndex        =   60
  147.                Top             =   2700
  148.                Width           =   2505
  149.             End
  150.             Begin VB.Label Lab_Jflj 
  151.                Caption         =   "借方累计:"
  152.                Height          =   165
  153.                Left            =   1200
  154.                TabIndex        =   59
  155.                Top             =   2730
  156.                Width           =   2385
  157.             End
  158.             Begin VB.Label Lab_CodeClass 
  159.                AutoSize        =   -1  'True
  160.                Caption         =   "资产="
  161.                Height          =   180
  162.                Index           =   0
  163.                Left            =   1200
  164.                TabIndex        =   48
  165.                Top             =   360
  166.                Width           =   450
  167.             End
  168.             Begin VB.Label Lab_CodeClass 
  169.                AutoSize        =   -1  'True
  170.                Caption         =   "负债="
  171.                Height          =   180
  172.                Index           =   1
  173.                Left            =   3750
  174.                TabIndex        =   47
  175.                Top             =   360
  176.                Width           =   450
  177.             End
  178.             Begin VB.Label Lab_CodeClass 
  179.                AutoSize        =   -1  'True
  180.                Caption         =   "权益="
  181.                Height          =   180
  182.                Index           =   2
  183.                Left            =   3750
  184.                TabIndex        =   46
  185.                Top             =   870
  186.                Width           =   450
  187.             End
  188.             Begin VB.Label Lab_CodeClass 
  189.                AutoSize        =   -1  'True
  190.                Caption         =   "成本="
  191.                Height          =   180
  192.                Index           =   3
  193.                Left            =   1200
  194.                TabIndex        =   45
  195.                Top             =   870
  196.                Width           =   450
  197.             End
  198.             Begin VB.Label Lab_CodeClass 
  199.                AutoSize        =   -1  'True
  200.                Caption         =   "损益="
  201.                Height          =   180
  202.                Index           =   4
  203.                Left            =   3750
  204.                TabIndex        =   44
  205.                Top             =   1350
  206.                Width           =   450
  207.             End
  208.             Begin VB.Label Lab_CodeClass 
  209.                AutoSize        =   -1  'True
  210.                Caption         =   "合计="
  211.                Height          =   180
  212.                Index           =   5
  213.                Left            =   1200
  214.                TabIndex        =   43
  215.                Top             =   2220
  216.                Width           =   450
  217.             End
  218.             Begin VB.Label Lab_CodeClass 
  219.                AutoSize        =   -1  'True
  220.                Caption         =   "合计="
  221.                Height          =   180
  222.                Index           =   6
  223.                Left            =   3750
  224.                TabIndex        =   42
  225.                Top             =   2220
  226.                Width           =   450
  227.             End
  228.             Begin VB.Label Lab_Phjg 
  229.                Caption         =   "余额平衡结果"
  230.                ForeColor       =   &H000080FF&
  231.                Height          =   255
  232.                Left            =   1200
  233.                TabIndex        =   41
  234.                Top             =   3180
  235.                Width           =   2385
  236.             End
  237.             Begin VB.Label Lab_Qcyesj 
  238.                AutoSize        =   -1  'True
  239.                Height          =   180
  240.                Index           =   0
  241.                Left            =   1770
  242.                TabIndex        =   40
  243.                Top             =   360
  244.                Width           =   1740
  245.             End
  246.             Begin VB.Label Lab_Qcyesj 
  247.                AutoSize        =   -1  'True
  248.                Height          =   180
  249.                Index           =   1
  250.                Left            =   4380
  251.                TabIndex        =   39
  252.                Top             =   360
  253.                Width           =   2250
  254.             End
  255.             Begin VB.Label Lab_Qcyesj 
  256.                AutoSize        =   -1  'True
  257.                Height          =   180
  258.                Index           =   2
  259.                Left            =   4380
  260.                TabIndex        =   38
  261.                Top             =   870
  262.                Width           =   90
  263.             End
  264.             Begin VB.Label Lab_Qcyesj 
  265.                AutoSize        =   -1  'True
  266.                Height          =   180
  267.                Index           =   3
  268.                Left            =   1770
  269.                TabIndex        =   37
  270.                Top             =   870
  271.                Width           =   1800
  272.             End
  273.             Begin VB.Label Lab_Qcyesj 
  274.                AutoSize        =   -1  'True
  275.                Height          =   180
  276.                Index           =   4
  277.                Left            =   4380
  278.                TabIndex        =   36
  279.                Top             =   1350
  280.                Width           =   90
  281.             End
  282.             Begin VB.Label Lab_Qcyesj 
  283.                AutoSize        =   -1  'True
  284.                Height          =   180
  285.                Index           =   5
  286.                Left            =   1860
  287.                TabIndex        =   35
  288.                Top             =   2220
  289.                Width           =   90
  290.             End
  291.             Begin VB.Label Lab_Qcyesj 
  292.                AutoSize        =   -1  'True
  293.                Height          =   180
  294.                Index           =   6
  295.                Left            =   4410
  296.                TabIndex        =   34
  297.                Top             =   2220
  298.                Width           =   90
  299.             End
  300.             Begin VB.Line Line1 
  301.                Index           =   0
  302.                X1              =   1200
  303.                X2              =   5760
  304.                Y1              =   1800
  305.                Y2              =   1800
  306.             End
  307.             Begin VB.Line Line2 
  308.                BorderColor     =   &H00FFFFFF&
  309.                Index           =   0
  310.                X1              =   1200
  311.                X2              =   5790
  312.                Y1              =   1830
  313.                Y2              =   1830
  314.             End
  315.          End
  316.          Begin VB.CommandButton cmdNext2 
  317.             Caption         =   "下一步(&N)"
  318.             Height          =   300
  319.             Left            =   6810
  320.             TabIndex        =   32
  321.             Top             =   4560
  322.             Width           =   1120
  323.          End
  324.          Begin VB.CommandButton cmdPrev2 
  325.             Caption         =   "上一步(&P)"
  326.             Height          =   300
  327.             Left            =   5640
  328.             TabIndex        =   31
  329.             Top             =   4560
  330.             Width           =   1120
  331.          End
  332.          Begin VB.CommandButton cmdPingHeng 
  333.             Caption         =   "平衡(&E)"
  334.             Height          =   300
  335.             Left            =   4440
  336.             TabIndex        =   30
  337.             Top             =   4560
  338.             Width           =   1120
  339.          End
  340.       End
  341.       Begin VB.Frame Frame3 
  342.          Height          =   5025
  343.          Left            =   -74880
  344.          TabIndex        =   5
  345.          Top             =   360
  346.          Width           =   8055
  347.          Begin VB.CommandButton cmdPrev3 
  348.             Caption         =   "上一步(&P)"
  349.             Height          =   300
  350.             Left            =   5640
  351.             TabIndex        =   8
  352.             Top             =   4560
  353.             Width           =   1120
  354.          End
  355.          Begin VB.CommandButton cmdNext3 
  356.             Caption         =   "下一步(&N)"
  357.             Height          =   300
  358.             Left            =   6810
  359.             TabIndex        =   7
  360.             Top             =   4560
  361.             Width           =   1120
  362.          End
  363.          Begin VB.CommandButton cmdDuiZhang 
  364.             Caption         =   "对帐(&E)"
  365.             Height          =   300
  366.             Left            =   4440
  367.             TabIndex        =   6
  368.             Top             =   4560
  369.             Width           =   1120
  370.          End
  371.          Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  372.             Height          =   2505
  373.             Left            =   120
  374.             TabIndex        =   9
  375.             Top             =   1920
  376.             Width           =   7755
  377.             _ExtentX        =   13679
  378.             _ExtentY        =   4419
  379.             Appearance      =   1
  380.             BorderStyle     =   1
  381.             Enabled         =   -1  'True
  382.             BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  383.                Name            =   "宋体"
  384.                Size            =   9
  385.                Charset         =   134
  386.                Weight          =   400
  387.                Underline       =   0   'False
  388.                Italic          =   0   'False
  389.                Strikethrough   =   0   'False
  390.             EndProperty
  391.             MousePointer    =   0
  392.             BackColor       =   16777215
  393.             ForeColor       =   -2147483640
  394.             BackColorFixed  =   12632256
  395.             ForeColorFixed  =   -2147483630
  396.             BackColorSel    =   -2147483635
  397.             ForeColorSel    =   -2147483634
  398.             BackColorBkg    =   -2147483636
  399.             BackColorAlternate=   16777215
  400.             GridColor       =   -2147483633
  401.             GridColorFixed  =   -2147483632
  402.             TreeColor       =   -2147483632
  403.             FloodColor      =   192
  404.             SheetBorder     =   -2147483642
  405.             FocusRect       =   1
  406.             HighLight       =   1
  407.             AllowSelection  =   -1  'True
  408.             AllowBigSelection=   -1  'True
  409.             AllowUserResizing=   0
  410.             SelectionMode   =   0
  411.             GridLines       =   1
  412.             GridLinesFixed  =   2
  413.             GridLineWidth   =   1
  414.             Rows            =   50
  415.             Cols            =   10
  416.             FixedRows       =   1
  417.             FixedCols       =   1
  418.             RowHeightMin    =   0
  419.             RowHeightMax    =   0
  420.             ColWidthMin     =   0
  421.             ColWidthMax     =   0
  422.             ExtendLastCol   =   0   'False
  423.             FormatString    =   ""
  424.             ScrollTrack     =   0   'False
  425.             ScrollBars      =   3
  426.             ScrollTips      =   0   'False
  427.             MergeCells      =   0
  428.             MergeCompare    =   0
  429.             AutoResize      =   -1  'True
  430.             AutoSizeMode    =   0
  431.             AutoSearch      =   0
  432.             MultiTotals     =   -1  'True
  433.             SubtotalPosition=   1
  434.             OutlineBar      =   0
  435.             OutlineCol      =   0
  436.             Ellipsis        =   0
  437.             ExplorerBar     =   0
  438.             PicturesOver    =   0   'False
  439.             FillStyle       =   0
  440.             RightToLeft     =   0   'False
  441.             PictureType     =   0
  442.             TabBehavior     =   0
  443.             OwnerDraw       =   0
  444.             Editable        =   0   'False
  445.             ShowComboButton =   -1  'True
  446.             WordWrap        =   0   'False
  447.             TextStyle       =   0
  448.             TextStyleFixed  =   0
  449.             OleDragMode     =   0
  450.             OleDropMode     =   0
  451.             DataMode        =   0
  452.             VirtualData     =   -1  'True
  453.          End
  454.          Begin MSComctlLib.ImageList ImageList1 
  455.             Left            =   3840
  456.             Top             =   120
  457.             _ExtentX        =   1005
  458.             _ExtentY        =   1005
  459.             BackColor       =   -2147483643
  460.             ImageWidth      =   16
  461.             ImageHeight     =   16
  462.             MaskColor       =   12632256
  463.             _Version        =   393216
  464.             BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  465.                NumListImages   =   26
  466.                BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                   Picture         =   "基础设置_总帐期初录入完成.frx":10B2
  468.                   Key             =   "sz"
  469.                EndProperty
  470.                BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                   Picture         =   "基础设置_总帐期初录入完成.frx":144C
  472.                   Key             =   "dy"
  473.                EndProperty
  474.                BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                   Picture         =   "基础设置_总帐期初录入完成.frx":17E6
  476.                   Key             =   "yl"
  477.                EndProperty
  478.                BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                   Picture         =   "基础设置_总帐期初录入完成.frx":1B80
  480.                   Key             =   "xg"
  481.                EndProperty
  482.                BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                   Picture         =   "基础设置_总帐期初录入完成.frx":1F1A
  484.                   Key             =   "zh"
  485.                EndProperty
  486.                BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                   Picture         =   "基础设置_总帐期初录入完成.frx":22B4
  488.                   Key             =   "sh"
  489.                EndProperty
  490.                BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                   Picture         =   "基础设置_总帐期初录入完成.frx":264E
  492.                   Key             =   "bc"
  493.                EndProperty
  494.                BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                   Picture         =   "基础设置_总帐期初录入完成.frx":29E8
  496.                   Key             =   "fq"
  497.                EndProperty
  498.                BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                   Picture         =   "基础设置_总帐期初录入完成.frx":2D82
  500.                   Key             =   "bz"
  501.                EndProperty
  502.                BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                   Picture         =   "基础设置_总帐期初录入完成.frx":311C
  504.                   Key             =   "tc"
  505.                EndProperty
  506.                BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                   Picture         =   "基础设置_总帐期初录入完成.frx":34B6
  508.                   Key             =   "bcgs"
  509.                EndProperty
  510.                BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                   Picture         =   "基础设置_总帐期初录入完成.frx":3850
  512.                   Key             =   "mrlk"
  513.                EndProperty
  514.                BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                   Picture         =   "基础设置_总帐期初录入完成.frx":3BEA
  516.                   Key             =   "xsxm"
  517.                EndProperty
  518.                BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                   Picture         =   "基础设置_总帐期初录入完成.frx":3F84
  520.                   Key             =   "first"
  521.                EndProperty
  522.                BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  523.                   Picture         =   "基础设置_总帐期初录入完成.frx":431E
  524.                   Key             =   "prev"
  525.                EndProperty
  526.                BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  527.                   Picture         =   "基础设置_总帐期初录入完成.frx":46B8
  528.                   Key             =   "next"
  529.                EndProperty
  530.                BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  531.                   Picture         =   "基础设置_总帐期初录入完成.frx":4A52
  532.                   Key             =   "last"
  533.                EndProperty
  534.                BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  535.                   Picture         =   "基础设置_总帐期初录入完成.frx":4DEC
  536.                   Key             =   "xx"
  537.                EndProperty
  538.                BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  539.                   Picture         =   "基础设置_总帐期初录入完成.frx":5186
  540.                   Key             =   "define"
  541.                EndProperty
  542.                BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  543.                   Picture         =   "基础设置_总帐期初录入完成.frx":5520
  544.                   Key             =   "exec"
  545.                EndProperty
  546.                BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  547.                   Picture         =   "基础设置_总帐期初录入完成.frx":58BA
  548.                   Key             =   "xz"
  549.                EndProperty
  550.                BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  551.                   Picture         =   "基础设置_总帐期初录入完成.frx":5C54
  552.                   Key             =   "sc"
  553.                EndProperty
  554.                BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  555.                   Picture         =   "基础设置_总帐期初录入完成.frx":5FEE
  556.                   Key             =   "sx"
  557.                EndProperty
  558.                BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  559.                   Picture         =   "基础设置_总帐期初录入完成.frx":6388
  560.                   Key             =   "cx"
  561.                EndProperty
  562.                BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  563.                   Picture         =   "基础设置_总帐期初录入完成.frx":6722
  564.                   Key             =   "zd"
  565.                EndProperty
  566.                BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  567.                   Picture         =   "基础设置_总帐期初录入完成.frx":6ABC
  568.                   Key             =   "dz"
  569.                EndProperty
  570.             EndProperty
  571.          End
  572.          Begin MSComctlLib.Toolbar Tlb_Action 
  573.             Height          =   570
  574.             Left            =   30
  575.             TabIndex        =   10
  576.             Top             =   120
  577.             Width           =   7995
  578.             _ExtentX        =   14102
  579.             _ExtentY        =   1005
  580.             ButtonWidth     =   820
  581.             ButtonHeight    =   953
  582.             AllowCustomize  =   0   'False
  583.             Wrappable       =   0   'False
  584.             Appearance      =   1
  585.             Style           =   1
  586.             ImageList       =   "ImageList1"
  587.             _Version        =   393216
  588.             BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  589.                NumButtons      =   3
  590.                BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  591.                   Caption         =   "设置"
  592.                   Key             =   "ymsz"
  593.                   Object.ToolTipText     =   "打印页面设置"
  594.                   ImageKey        =   "sz"
  595.                EndProperty
  596.                BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  597.                   Caption         =   "打印"
  598.                   Key             =   "dy"
  599.                   Object.ToolTipText     =   "打印当前单据或Ctrl+P"
  600.                   ImageKey        =   "dy"
  601.                EndProperty
  602.                BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  603.                   Caption         =   "预览"
  604.                   Key             =   "yl"
  605.                   ImageKey        =   "yl"
  606.                EndProperty
  607.             EndProperty
  608.             BorderStyle     =   1
  609.             Begin MSComctlLib.Toolbar GsToolbar 
  610.                Height          =   540
  611.                Left            =   5490
  612.                TabIndex        =   11
  613.                Top             =   0
  614.                Width           =   2475
  615.                _ExtentX        =   4366
  616.                _ExtentY        =   953
  617.                ButtonWidth     =   1455
  618.                ButtonHeight    =   953
  619.                AllowCustomize  =   0   'False
  620.                Appearance      =   1
  621.                Style           =   1
  622.                ImageList       =   "ImageList1"
  623.                _Version        =   393216
  624.                BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  625.                   NumButtons      =   3
  626.                   BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  627.                      Caption         =   "保存格式"
  628.                      Key             =   "bcgs"
  629.                      ImageKey        =   "bcgs"
  630.                   EndProperty
  631.                   BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  632.                      Caption         =   "默认列宽"
  633.                      Key             =   "hfmrgs"
  634.                      ImageKey        =   "mrlk"
  635.                   EndProperty
  636.                   BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  637.                      Caption         =   "显示项目"
  638.                      Key             =   "szxsxm"
  639.                      ImageKey        =   "xsxm"
  640.                   EndProperty
  641.                EndProperty
  642.             End
  643.          End
  644.          Begin VB.Label Label4 
  645.             BackStyle       =   0  'Transparent
  646.             Caption         =   "正在核对科目:"
  647.             Height          =   255
  648.             Left            =   5670
  649.             TabIndex        =   28
  650.             Top             =   1680
  651.             Visible         =   0   'False
  652.             Width           =   1245
  653.          End
  654.          Begin VB.Label Lab_Check1 
  655.             BackStyle       =   0  'Transparent
  656.             Caption         =   "核对总帐上下级"
  657.             Height          =   285
  658.             Index           =   0
  659.             Left            =   540
  660.             TabIndex        =   27
  661.             Top             =   960
  662.             Width           =   1455
  663.          End
  664.          Begin VB.Label Lab_Check1 
  665.             BackStyle       =   0  'Transparent
  666.             Caption         =   "核对总帐与部门帐"
  667.             Height          =   285
  668.             Index           =   1
  669.             Left            =   3150
  670.             TabIndex        =   26
  671.             Top             =   960
  672.             Width           =   1455
  673.          End
  674.          Begin VB.Label Lab_Check1 
  675.             BackStyle       =   0  'Transparent
  676.             Caption         =   "核对总帐与客户往来帐"
  677.             Height          =   285
  678.             Index           =   2
  679.             Left            =   5670
  680.             TabIndex        =   25
  681.             Top             =   960
  682.             Width           =   1905
  683.          End
  684.          Begin VB.Label Lab_Check1 
  685.             BackStyle       =   0  'Transparent
  686.             Caption         =   "核对总帐与供应商往来帐"
  687.             Height          =   285
  688.             Index           =   3
  689.             Left            =   540
  690.             TabIndex        =   24
  691.             Top             =   1260
  692.             Width           =   2115
  693.          End
  694.          Begin VB.Label Lab_Check1 
  695.             BackStyle       =   0  'Transparent
  696.             Caption         =   "核对总帐与个人往来帐"
  697.             Height          =   285
  698.             Index           =   4
  699.             Left            =   3150
  700.             TabIndex        =   23
  701.             Top             =   1260
  702.             Width           =   1905
  703.          End
  704.          Begin VB.Label Lab_Check1 
  705.             BackStyle       =   0  'Transparent
  706.             Caption         =   "核对总帐与项目帐"
  707.             Height          =   285
  708.             Index           =   5
  709.             Left            =   5670
  710.             TabIndex        =   22
  711.             Top             =   1260
  712.             Width           =   1905
  713.          End
  714.          Begin VB.Label Lab_CheckJg 
  715.             BackStyle       =   0  'Transparent
  716.             Caption         =   "√"
  717.             ForeColor       =   &H000000FF&
  718.             Height          =   285
  719.             Index           =   0
  720.             Left            =   240
  721.             TabIndex        =   21
  722.             Top             =   960
  723.             Visible         =   0   'False
  724.             Width           =   285
  725.          End
  726.          Begin VB.Label Lab_CheckJg 
  727.             BackStyle       =   0  'Transparent
  728.             Caption         =   "√"
  729.             ForeColor       =   &H000000FF&
  730.             Height          =   285
  731.             Index           =   1
  732.             Left            =   2850
  733.             TabIndex        =   20
  734.             Top             =   960
  735.             Visible         =   0   'False
  736.             Width           =   285
  737.          End
  738.          Begin VB.Label Lab_CheckJg 
  739.             BackStyle       =   0  'Transparent
  740.             Caption         =   "√"
  741.             ForeColor       =   &H000000FF&
  742.             Height          =   285
  743.             Index           =   2
  744.             Left            =   5370
  745.             TabIndex        =   19
  746.             Top             =   960
  747.             Visible         =   0   'False
  748.             Width           =   285
  749.          End
  750.          Begin VB.Label Lab_CheckJg 
  751.             BackStyle       =   0  'Transparent
  752.             Caption         =   "√"
  753.             ForeColor       =   &H000000FF&
  754.             Height          =   285
  755.             Index           =   3
  756.             Left            =   240
  757.             TabIndex        =   18
  758.             Top             =   1260
  759.             Visible         =   0   'False
  760.             Width           =   285
  761.          End
  762.          Begin VB.Label Lab_CheckJg 
  763.             BackStyle       =   0  'Transparent
  764.             Caption         =   "√"
  765.             ForeColor       =   &H000000FF&
  766.             Height          =   285
  767.             Index           =   4
  768.             Left            =   2850
  769.             TabIndex        =   17
  770.             Top             =   1260
  771.             Visible         =   0   'False
  772.             Width           =   285
  773.          End
  774.          Begin VB.Label Lab_CheckJg 
  775.             BackStyle       =   0  'Transparent
  776.             Caption         =   "√"
  777.             ForeColor       =   &H000000FF&
  778.             Height          =   285
  779.             Index           =   5
  780.             Left            =   5370
  781.             TabIndex        =   16
  782.             Top             =   1260
  783.             Visible         =   0   'False
  784.             Width           =   285
  785.          End
  786.          Begin VB.Label Lab_Ccode 
  787.             ForeColor       =   &H00000000&
  788.             Height          =   210
  789.             Left            =   6870
  790.             TabIndex        =   15
  791.             Top             =   1680
  792.             Visible         =   0   'False
  793.             Width           =   1005
  794.          End
  795.          Begin VB.Label Label2 
  796.             BackStyle       =   0  'Transparent
  797.             Caption         =   "（下面为对帐错误记录列表）"
  798.             ForeColor       =   &H000000FF&
  799.             Height          =   255
  800.             Index           =   3
  801.             Left            =   -2280
  802.             TabIndex        =   14
  803.             Top             =   540
  804.             Width           =   2445
  805.          End
  806.          Begin VB.Label Label5 
  807.             BackColor       =   &H00C0C0C0&
  808.             BackStyle       =   0  'Transparent
  809.             Caption         =   "[*下面为对帐错误的科目:]"
  810.             ForeColor       =   &H00000000&
  811.             Height          =   210
  812.             Left            =   120
  813.             TabIndex        =   13
  814.             Top             =   1680
  815.             Width           =   2295
  816.          End
  817.          Begin VB.Label lab_DZ_Res 
  818.             BackStyle       =   0  'Transparent
  819.             ForeColor       =   &H00FF0000&
  820.             Height          =   255
  821.             Left            =   120
  822.             TabIndex        =   12
  823.             Top             =   4590
  824.             Width           =   2175
  825.          End
  826.       End
  827.       Begin VB.Frame Frame4 
  828.          Height          =   5025
  829.          Left            =   -74880
  830.          TabIndex        =   2
  831.          Top             =   360
  832.          Width           =   8055
  833.          Begin VB.CommandButton cmdExecute 
  834.             Caption         =   "初始完成(&E)"
  835.             Height          =   300
  836.             Left            =   5640
  837.             TabIndex        =   4
  838.             Top             =   4560
  839.             Width           =   1120
  840.          End
  841.          Begin VB.CommandButton cmdPrev4 
  842.             Caption         =   "上一步(&P)"
  843.             Height          =   300
  844.             Left            =   6810
  845.             TabIndex        =   3
  846.             Top             =   4560
  847.             Width           =   1120
  848.          End
  849.          Begin VB.Label Lab_ShowCode 
  850.             Height          =   315
  851.             Left            =   4590
  852.             TabIndex        =   58
  853.             Top             =   2130
  854.             Width           =   1155
  855.          End
  856.          Begin VB.Label Lab_Wait 
  857.             Caption         =   "正在生成对应凭证,请稍后..."
  858.             Height          =   285
  859.             Left            =   2130
  860.             TabIndex        =   57
  861.             Top             =   2160
  862.             Visible         =   0   'False
  863.             Width           =   2415
  864.          End
  865.          Begin VB.Label Label6 
  866.             Caption         =   "帐簿核对正确,请确认是否执行期初录入完成?"
  867.             Height          =   285
  868.             Left            =   2100
  869.             TabIndex        =   56
  870.             Top             =   1500
  871.             Width           =   3795
  872.          End
  873.       End
  874.       Begin VSFlex8Ctl.VSFlexGrid CzxsGrid 
  875.          Height          =   5715
  876.          Left            =   -74910
  877.          TabIndex        =   54
  878.          Top             =   420
  879.          Width           =   8415
  880.          _ExtentX        =   14843
  881.          _ExtentY        =   10081
  882.          Appearance      =   1
  883.          BorderStyle     =   1
  884.          Enabled         =   -1  'True
  885.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  886.             Name            =   "宋体"
  887.             Size            =   9
  888.             Charset         =   134
  889.             Weight          =   400
  890.             Underline       =   0   'False
  891.             Italic          =   0   'False
  892.             Strikethrough   =   0   'False
  893.          EndProperty
  894.          MousePointer    =   0
  895.          BackColor       =   -2147483643
  896.          ForeColor       =   -2147483640
  897.          BackColorFixed  =   -2147483633
  898.          ForeColorFixed  =   -2147483630
  899.          BackColorSel    =   -2147483635
  900.          ForeColorSel    =   -2147483634
  901.          BackColorBkg    =   8421504
  902.          BackColorAlternate=   -2147483643
  903.          GridColor       =   -2147483633
  904.          GridColorFixed  =   -2147483632
  905.          TreeColor       =   -2147483632
  906.          FloodColor      =   192
  907.          SheetBorder     =   -2147483642
  908.          FocusRect       =   1
  909.          HighLight       =   1
  910.          AllowSelection  =   -1  'True
  911.          AllowBigSelection=   -1  'True
  912.          AllowUserResizing=   0
  913.          SelectionMode   =   0
  914.          GridLines       =   1
  915.          GridLinesFixed  =   2
  916.          GridLineWidth   =   1
  917.          Rows            =   5000
  918.          Cols            =   10
  919.          FixedRows       =   1
  920.          FixedCols       =   0
  921.          RowHeightMin    =   0
  922.          RowHeightMax    =   0
  923.          ColWidthMin     =   0
  924.          ColWidthMax     =   0
  925.          ExtendLastCol   =   0   'False
  926.          FormatString    =   ""
  927.          ScrollTrack     =   0   'False
  928.          ScrollBars      =   3
  929.          ScrollTips      =   0   'False
  930.          MergeCells      =   0
  931.          MergeCompare    =   0
  932.          AutoResize      =   -1  'True
  933.          AutoSizeMode    =   0
  934.          AutoSearch      =   0
  935.          MultiTotals     =   -1  'True
  936.          SubtotalPosition=   1
  937.          OutlineBar      =   0
  938.          OutlineCol      =   0
  939.          Ellipsis        =   0
  940.          ExplorerBar     =   0
  941.          PicturesOver    =   0   'False
  942.          FillStyle       =   0
  943.          RightToLeft     =   0   'False
  944.          PictureType     =   0
  945.          TabBehavior     =   0
  946.          OwnerDraw       =   0
  947.          Editable        =   0   'False
  948.          ShowComboButton =   -1  'True
  949.          WordWrap        =   0   'False
  950.          TextStyle       =   0
  951.          TextStyleFixed  =   0
  952.          OleDragMode     =   0
  953.          OleDropMode     =   0
  954.          DataMode        =   0
  955.          VirtualData     =   -1  'True
  956.       End
  957.    End
  958. End
  959. Attribute VB_Name = "JC_FrmQclrwc"
  960. Attribute VB_GlobalNameSpace = False
  961. Attribute VB_Creatable = False
  962. Attribute VB_PredeclaredId = True
  963. Attribute VB_Exposed = False
  964. '********************************************************************
  965. '*    模 块 名 称 :总帐期初录入完成
  966. '*    功 能 描 述 :
  967. '*    程序员姓名  :张建忠
  968. '*    最后修改人  :张建忠
  969. '*    最后修改时间:2001/11/27
  970. '*    备        注:
  971. '********************************************************************
  972. Dim Ztxxrec As New ADODB.Recordset       '帐套信息动态集
  973. Dim Int_Year As Integer                  '初始化完成会计年度
  974. Dim Int_Period As Integer                '会计期间(默认为1会计期间)
  975. Dim Int_SS_OK As Integer                 '试算是否平衡
  976. Private Int_DZ_OK As Integer             '对帐是否正确
  977. Dim ReportTitle As String                '报表主标题
  979. '以下为固定使用变量
  980. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  981. Dim GridCode As String                   '显示网格网格代码
  982. Dim GridInf() As Variant                 '整个网格设置信息
  983. Dim Tsxx As String                       '系统提示信息
  984. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  985. Dim Sjhgd As Double                      '网格数据行高度
  986. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  987. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  988. Dim GridStr()  As String                 '网格列信息(字符型)
  989. Dim GridInt() As Integer                 '网格列信息(整型)
  990. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  992. Private Sub Form_Load()
  993.     
  994.     '初始化各种值
  995.     cmdNext1.Default = True
  996.     StTab.TabEnabled(0) = True
  997.     StTab.TabEnabled(1) = False
  998.     StTab.TabEnabled(2) = False
  999.     StTab.TabEnabled(3) = False
  1000.     StTab.Tab = 0
  1001.     cmdPingHeng.Visible = False
  1002.     cmdDuiZhang.Visible = False
  1003.     
  1004.     '取出当前初始化完成年度
  1005.     Set Ztxxrec = Cw_DataEnvi.DataConnect.Execute("Select top 1 * From Gy_kjrlb Where Cwzzjzbz=0 Order by kjyear,period")
  1006.     With Ztxxrec
  1007.         If Not .EOF Then
  1008.             Dqkjyear = .Fields("Kjyear")
  1009.         End If
  1010.     End With
  1011.     Int_Year = Dqkjyear
  1012.     Int_Period = 1
  1013.     
  1014.     
  1015.     '调入打印页面设置窗体
  1016.     XtReportCode = "Cwzz_ymjz"
  1017.     Load Dyymctbl
  1018.     ReportTitle = "帐目对帐结果"
  1019.     
  1020.     '调 入 网 格
  1021.     GridCode = "Cwzz_ymjz"
  1022.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  1023.     
  1024.     Qslz = GridInf(1)
  1025.     Sjhgd = GridInf(2)
  1026.     Sfxshjwg = GridInf(7)
  1027.     Szzls = CxbbGrid.Cols - 1
  1028. End Sub
  1030. '===================以下为向导按钮状态处理过程===================='
  1031. Private Sub cmdCancel1_Click()
  1032.     Unload Me
  1033. End Sub
  1035. Private Sub cmdCancel2_Click()
  1036.     Unload Me
  1037. End Sub
  1039. Private Sub cmdCancel3_Click()
  1040.     Unload Me
  1041. End Sub
  1043. '对帐过程处理
  1045. Private Sub Timer1_Timer()
  1046.     Timer1.Enabled = False
  1047.     cmdDuiZhang_Click
  1048. End Sub
  1050. Private Sub cmdDuiZhang_Click()
  1051.     Lab_Ccode.Visible = True
  1052.     lab_DZ_Res.Visible = False
  1053.     Label4.Visible = True
  1054.     Sub_AccCheck
  1055.     
  1056.     If Int_DZ_OK = 0 Then
  1057.         cmdNext3.Enabled = False
  1058.     End If
  1059.     
  1060.     Lab_Ccode.Visible = False
  1061.     lab_DZ_Res.Visible = True
  1062.     Label4.Visible = False
  1063. End Sub
  1065. Private Sub cmdNext1_Click()
  1066.     cmdNext2.Default = True
  1067.     
  1068.     StTab.TabEnabled(0) = False
  1069.     StTab.TabEnabled(1) = True
  1070.     StTab.TabEnabled(2) = False
  1071.     StTab.TabEnabled(3) = False
  1072.     StTab.Tab = 1
  1073.     cmdPingHeng_Click
  1074. End Sub
  1076. Private Sub cmdNext2_Click()
  1077.     cmdNext3.Default = True
  1078.     
  1079.     StTab.TabEnabled(0) = False
  1080.     StTab.TabEnabled(1) = False
  1081.     StTab.TabEnabled(2) = True
  1082.     StTab.TabEnabled(3) = False
  1083.     StTab.Tab = 2
  1084.     Timer1.Enabled = True
  1085. End Sub
  1087. Private Sub cmdNext3_Click()
  1088.     cmdExecute.Default = True
  1089.     
  1090.     StTab.TabEnabled(0) = False
  1091.     StTab.TabEnabled(1) = False
  1092.     StTab.TabEnabled(2) = False
  1093.     StTab.TabEnabled(3) = True
  1094.     StTab.Tab = 3
  1095.     
  1096. End Sub
  1098. '试算平衡处理过程
  1099. Private Sub cmdPingHeng_Click()
  1100.     Sub_PingHeng
  1101.     
  1102.     If Int_SS_OK = 0 Then
  1103.         cmdNext2.Enabled = False
  1104.     End If
  1105. End Sub
  1107. Private Sub cmdPrev2_Click()
  1108.     StTab.TabEnabled(0) = True
  1109.     StTab.TabEnabled(1) = False
  1110.     StTab.TabEnabled(2) = False
  1111.     StTab.TabEnabled(3) = False
  1112.     StTab.Tab = 0
  1113. End Sub
  1115. Private Sub cmdPrev3_Click()
  1116.     StTab.TabEnabled(0) = False
  1117.     StTab.TabEnabled(1) = True
  1118.     StTab.TabEnabled(2) = False
  1119.     StTab.TabEnabled(3) = False
  1120.     StTab.Tab = 1
  1121. End Sub
  1123. Private Sub cmdPrev4_Click()
  1124.     StTab.TabEnabled(0) = False
  1125.     StTab.TabEnabled(1) = False
  1126.     StTab.TabEnabled(2) = True
  1127.     StTab.TabEnabled(3) = False
  1128.     StTab.Tab = 2
  1129. End Sub
  1131. '试算平衡处理
  1132. Private Sub Sub_PingHeng()
  1133.     Dim Dbl_Qcye(4) As Double              '各类科目期初数据
  1134.     Dim Dbl_ZcQcye As Double               '资产类科目数据合计
  1135.     Dim Dbl_FzQcye As Double               '负债及所有者权益类科目数据合计
  1136.     Dim Dbl_Jflj As Double                 '借方累计
  1137.     Dim Dbl_Dflj As Double                 '贷方累计
  1138.     Dim Sqlstr As String                   '查询字符串
  1139.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  1140.     
  1141.     
  1142.     Sqlstr = "SELECT Cwzz_AccCode.CClass, isnull(SUM(Cwzz_AccSum.Qcye),0) AS QcyeHj" & _
  1143.     " FROM Cwzz_AccSum LEFT OUTER JOIN Cwzz_AccCode ON Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode" & _
  1144.     " Where Cwzz_AccCode.EndFlag=1 And Year=" & Int_Year & " And Period=" & Int_Period & " GROUP BY Cclass"
  1145.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1146.     
  1147.     With RecTemp
  1148.         
  1149.         Do While Not .EOF
  1150.             
  1151.             Select Case Trim(.Fields("Cclass"))
  1152.             Case "资产"
  1153.                 Dbl_Qcye(0) = .Fields("Qcyehj")
  1154.             Case "负债"
  1155.                 Dbl_Qcye(1) = .Fields("Qcyehj")
  1156.             Case "所有者权益"
  1157.                 Dbl_Qcye(2) = .Fields("Qcyehj")
  1158.             Case "成本"
  1159.                 Dbl_Qcye(3) = .Fields("Qcyehj")
  1160.             Case "损益"
  1161.                 Dbl_Qcye(4) = .Fields("Qcyehj")
  1162.             End Select
  1163.             
  1164.             .MoveNext
  1165.         Loop
  1166.         
  1167.     End With
  1168.     
  1169.     '显示数据
  1170.     For Jsqte = 0 To 4
  1171.         If Dbl_Qcye(Jsqte) > 0 Then
  1172.             Lab_Qcyesj(Jsqte).Caption = "借" & " " & Format(Dbl_Qcye(Jsqte), "##." + String(Xtjexsws, "0"))
  1173.         Else
  1174.             If Dbl_Qcye(Jsqte) = 0 Then
  1175.                 Lab_Qcyesj(Jsqte).Caption = "平"
  1176.             Else
  1177.                 Lab_Qcyesj(Jsqte).Caption = "贷" & " " & Format(-Dbl_Qcye(Jsqte), "##." + String(Xtjexsws, "0"))
  1178.             End If
  1179.         End If
  1180.     Next Jsqte
  1181.     
  1182.     '显示(资产+成本)合计数据
  1183.     
  1184.     Dbl_ZcQcye = Dbl_Qcye(0) + Dbl_Qcye(3)
  1185.     Dbl_FzQcye = Dbl_Qcye(1) + Dbl_Qcye(2) + Dbl_Qcye(4)
  1186.     
  1187.     If Dbl_ZcQcye > 0 Then
  1188.         Lab_Qcyesj(5).Caption = "借" & " " & Format(Dbl_ZcQcye, "##." + String(Xtjexsws, "0"))
  1189.     Else
  1190.         If Dbl_ZcQcye = 0 Then
  1191.             Lab_Qcyesj(5).Caption = "平"
  1192.         Else
  1193.             Lab_Qcyesj(5).Caption = "贷" & " " & Format(-Dbl_ZcQcye, "##." + String(Xtjexsws, "0"))
  1194.         End If
  1195.     End If
  1196.     
  1197.     If Dbl_FzQcye > 0 Then
  1198.         Lab_Qcyesj(6).Caption = "借" & " " & Format(Dbl_FzQcye, "##." + String(Xtjexsws, "0"))
  1199.     Else
  1200.         If Dbl_FzQcye = 0 Then
  1201.             Lab_Qcyesj(6).Caption = "平"
  1202.         Else
  1203.             Lab_Qcyesj(6).Caption = "贷" & " " & Format(-Dbl_FzQcye, "##." + String(Xtjexsws, "0"))
  1204.         End If
  1205.     End If
  1206.     
  1207.     '判断余额是否平衡
  1208.     If Format(Dbl_ZcQcye + Dbl_FzQcye, "0.00") = 0 Then
  1209.         Lab_Phjg.ForeColor = vbBlue
  1210.         Lab_Phjg.Caption = "试算结果:年初余额平衡"
  1211.         
  1212.         Int_SS_OK = 1
  1213.     Else
  1214.         Lab_Phjg.ForeColor = vbRed
  1215.         Lab_Phjg.Caption = "试算结果:年初余额不平衡"
  1216.         
  1217.         Int_SS_OK = 0
  1218.     End If
  1219.     
  1220.     '计算科目借贷方累计数据
  1221.     Sqlstr = "SELECT isnull(SUM(Cwzz_AccSum.Byjfljje),0) as Ljjfje,isnull(SUM(Cwzz_AccSum.Bydfljje),0) As Ljdfje FROM Cwzz_AccSum " & _
  1222.     " LEFT OUTER JOIN Cwzz_AccCode ON Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode" & _
  1223.     " Where Cwzz_AccCode.EndFlag=1 And Year=" & Int_Year & " And Period=" & Int_Period
  1224.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1225.     
  1226.     Dbl_Jflj = RecTemp.Fields("Ljjfje")
  1227.     Dbl_Dflj = RecTemp.Fields("Ljdfje")
  1228.     
  1229.     Lab_Jflj.Caption = "借方累计:" & " " & Format(Dbl_Jflj, "##." + String(Xtjexsws, "0"))
  1230.     Lab_Dflj.Caption = "贷方累计:" & " " & Format(Dbl_Dflj, "##." + String(Xtjexsws, "0"))
  1231.     
  1232.     '判断借贷是否平衡
  1233.     If Abs(Dbl_Jflj - Dbl_Dflj) >= 0.01 Then
  1234.         Lab_ljjg.ForeColor = vbRed
  1235.         Lab_ljjg.Caption = "试算结果:借贷不平衡"
  1236.         
  1237.         Int_SS_OK = 0
  1238.     Else
  1239.         Lab_ljjg.ForeColor = vbBlue
  1240.         Lab_ljjg.Caption = "试算结果:借贷平衡"
  1241.         
  1242.         Int_SS_OK = 1
  1243.     End If
  1244. End Sub
  1246. Private Sub cmdExecute_Click()                               '总帐初始化完成
  1247.     Dim RecTemp As New ADODB.Recordset              '临时使用动态集
  1248.     Dim Rec_AccSum As New ADODB.Recordset           '总帐动态集
  1249.     Dim Rec_AccSumAssi As New ADODB.Recordset       '辅助帐动态集
  1250.     Dim Rec_AccVouchMain As New ADODB.Recordset     '凭证主表动态集
  1251.     Dim Rec_AccVouch As New ADODB.Recordset         '凭证子表动态集
  1252.     Dim Dtm_DDate As Date                           '凭证制单日期
  1253.     Dim Str_VouchClassCode As String                '凭证类别编码
  1254.     Dim Rowjsq As Long                              '凭证记录计数器
  1255.     Dim Lng_VouchId As Long                         '凭证ID
  1256.     
  1257.     '判断当前年度是否为第一次建帐年度,如非第一次建帐年度则不生成凭证
  1258.     Set Ztxxrec = Cw_DataEnvi.DataConnect.Execute("Select top 1 * From Gy_kjrlb Order by kjyear,period")
  1259.     
  1260.     If Ztxxrec.Fields("Kjyear") = Int_Year Then
  1261.         
  1262.         '读取凭证制单日期
  1263.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Qsrq From Gy_kjrlb Where Period=1 And KjYear='" & Int_Year & "'")
  1264.         If Not RecTemp.EOF Then
  1265.             Dtm_DDate = RecTemp.Fields("Qsrq")
  1266.         End If
  1267.         
  1268.         '读取凭证类别
  1269.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select Top 1 VouchClassCode From Cwzz_VouchClass ")
  1270.         If Not RecTemp.EOF Then
  1271.             Str_VouchClassCode = RecTemp.Fields("VouchClassCode")
  1272.         Else
  1273.             Tsxx = "请先设置凭证类别!"
  1274.             Call Xtxxts(Tsxx, 0, 4)
  1275.             Exit Sub
  1276.         End If
  1277.         
  1278.          '显示等候信息
  1279.         Lab_Wait.Visible = True
  1280.         
  1281.         '从总帐中读取所有 末级没有辅助核算初始化会计年度 1会计期间各累计发生数有一个不为零的科目数据生成凭证的一部分.
  1282.         Sqlstr = "SELECT Cwzz_AccSum.*,Cwzz_AccCode.ForeignCurrCode,Gy_ForeignCurrency.AccRate FROM Cwzz_AccSum Left JOIN Cwzz_AccCode ON " & _
  1283.         " Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode Left JOIN Gy_ForeignCurrency ON " & _
  1284.         " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode WHERE " & _
  1285.         " (Cwzz_AccCode.EndFlag = 1 And Cwzz_AccCode.PersonFlag = 0 AND Cwzz_AccCode.CusFlag = 0 AND Cwzz_AccCode.SupplierFlag = 0 AND Cwzz_AccCode.DeptFlag = 0 AND Cwzz_AccCode.ItemFlag = 0) " & _
  1286.         "  AND (Cwzz_AccSum.Year =" & Int_Year & " AND Cwzz_AccSum.Period = 1) AND " & _
  1287.         " (Cwzz_AccSum.Byjfljje <> 0 OR Cwzz_AccSum.Bydfljje <> 0 OR Cwzz_AccSum.Byjfljsl <> 0 OR Cwzz_AccSum.Bydfljsl <> 0 OR Cwzz_AccSum.Byjfljwb <> 0 OR Cwzz_AccSum.Bydfljwb <> 0) " & _
  1288.         " Order By Cwzz_AccSum.Ccode"
  1289.         Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1290.         
  1291.         '从总帐辅助帐中读取所有 初始化会计年度 1会计期间各累计发生数有一个不为零的科目数据生成凭证的一部分.
  1292.         Sqlstr = "SELECT Cwzz_AccSumAssi.*,Cwzz_AccCode.ForeignCurrCode,Gy_ForeignCurrency.AccRate FROM Cwzz_AccSumAssi Left JOIN Cwzz_AccCode ON " & _
  1293.         " Cwzz_AccSumAssi.Ccode = Cwzz_AccCode.Ccode Left JOIN Gy_ForeignCurrency ON " & _
  1294.         " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode WHERE " & _
  1295.         "  (Cwzz_AccSumAssi.Year =" & Int_Year & " AND Cwzz_AccSumAssi.Period = 1) AND " & _
  1296.         " (Cwzz_AccSumAssi.Byjfljje <> 0 OR Cwzz_AccSumAssi.Bydfljje <> 0 OR Cwzz_AccSumAssi.Byjfljsl <> 0 OR Cwzz_AccSumAssi.Bydfljsl <> 0 OR Cwzz_AccSumAssi.Byjfljwb <> 0 OR Cwzz_AccSumAssi.Bydfljwb <> 0 OR " & _
  1297.         "  Cwzz_AccSumAssi.ItemByljjfsl <> 0 OR Cwzz_AccSumAssi.ItemByljdfsl <> 0) " & _
  1298.         " Order By Cwzz_AccSumAssi.Ccode"
  1299.         Set Rec_AccSumAssi = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1300.         
  1301.         On Error GoTo Swcwcl
  1302.         
  1303.         Cw_DataEnvi.DataConnect.BeginTrans
  1304.         
  1305.         '如果动态集不为空则生成凭证
  1306.         If (Not Rec_AccSum.EOF) And (Not Rec_AccSumAssi.EOF) Then
  1307.             
  1308.             '生成凭证主表
  1309.             If Rec_AccVouchMain.State = 1 Then Rec_AccVouchMain.Close
  1310.             Rec_AccVouchMain.Open "Select * From Cwzz_AccVouchMain Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1311.             
  1312.             With Rec_AccVouchMain
  1313.                 .AddNew
  1314.                 .Fields("VouchID") = CreatBillID("0101")
  1315.                 .Fields("Year") = Int_Year                                                                   '会计年度
  1316.                 .Fields("Period") = Int_Period                                                               '会计期间
  1317.                 .Fields("Ddate") = Dtm_DDate                                                                 '制单日期
  1318.                 .Fields("VouchClassCode") = Str_VouchClassCode                                               '凭证类别
  1319.                 .Fields("VouchNo") = 1                                                                       '凭证号
  1320.                 .Fields("Doc") = 0                                                                           '附单据数
  1321.                 .Fields("Bill") = Xtczy                                                                      '制单人
  1322.                 .Fields("CheckFlag") = 1                                                                     '审核标志置"1"
  1323.                 .Fields("BookFlag") = 1                                                                      '记帐标志置"1"
  1324.                 .Update
  1325.                 
  1326.                 Lng_VouchId = .Fields("VouchID")
  1327.                 
  1328.             End With
  1329.             
  1330.             '生成凭证子表
  1331.             Rowjsq = 0
  1332.             
  1333.             If Rec_AccVouch.State = 1 Then Rec_AccVouch.Close
  1334.             Rec_AccVouch.Open "Select * From Cwzz_AccVouchSub Where 1=2", Cw_DataEnvi.DataConnect, adOpenDynamic, adLockOptimistic
  1335.             
  1336.             '1.总帐生成凭证
  1337.             Do While Not Rec_AccSum.EOF
  1338.                 
  1339.                 '显示当前生成凭证会计科目
  1340.                 Lab_ShowCode.Caption = Trim(Rec_AccSum.Fields("Ccode"))
  1341.                 Lab_ShowCode.Refresh
  1342.                 
  1343.                 With Rec_AccVouch
  1344.                     
  1345.                     If Rec_AccSum.Fields("Byjfljje") <> 0 Or Rec_AccSum.Fields("Byjfljsl") <> 0 Or Rec_AccSum.Fields("Byjfljwb") <> 0 Then
  1346.                         
  1347.                         Rowjsq = Rowjsq + 1
  1348.                         .AddNew
  1349.                         .Fields("SerialID") = Rowjsq
  1350.                         .Fields("VouchID") = Lng_VouchId                                                             '凭证ID
  1351.                         .Fields("Digest") = "期初录入"                                                               '摘要
  1352.                         .Fields("Ccode") = Trim(Rec_AccSum.Fields("Ccode"))                                          '会计科目
  1353.                         .Fields("Jfje") = Rec_AccSum.Fields("Byjfljje") + 0                                          '借方金额
  1354.                         .Fields("Jfsl") = Rec_AccSum.Fields("Byjfljsl") + 0                                          '借方数量
  1355.                         If Len(Trim(Rec_AccSum.Fields("ForeignCurrCode") & "")) = 0 Then
  1356.                             .Fields("ForeignCurrCode") = XtSCurrCode                                                 '原币编码
  1357.                             .Fields("AccRate") = 1                                                                   '记帐汇率
  1358.                             .Fields("Wbjfje") = Rec_AccSum.Fields("Byjfljje") + 0                                    '外币借方金额
  1359.                         Else
  1360.                             .Fields("ForeignCurrCode") = Rec_AccSum.Fields("ForeignCurrCode")                        '原币编码
  1361.                             .Fields("AccRate") = Rec_AccSum.Fields("AccRate") + 0                                    '记帐汇率
  1362.                             .Fields("Wbjfje") = Rec_AccSum.Fields("Byjfljwb") + 0                                    '外币借方金额
  1363.                         End If
  1364.                         .Update
  1365.                     End If
  1366.                     
  1367.                     If Rec_AccSum.Fields("Bydfljje") <> 0 Or Rec_AccSum.Fields("Bydfljsl") <> 0 Or Rec_AccSum.Fields("Bydfljwb") <> 0 Then
  1368.                         
  1369.                         Rowjsq = Rowjsq + 1
  1370.                         .AddNew
  1371.                         .Fields("SerialID") = Rowjsq
  1372.                         .Fields("VouchID") = Lng_VouchId                                                             '凭证ID
  1373.                         .Fields("Digest") = "期初录入"                                                               '摘要
  1374.                         .Fields("Ccode") = Trim(Rec_AccSum.Fields("Ccode"))                                          '会计科目
  1375.                         .Fields("Dfje") = Rec_AccSum.Fields("Bydfljje") + 0                                          '贷方金额
  1376.                         .Fields("Dfsl") = Rec_AccSum.Fields("Bydfljsl") + 0                                          '贷方数量
  1377.                         If Len(Trim(Rec_AccSum.Fields("ForeignCurrCode") & "")) = 0 Then
  1378.                             .Fields("ForeignCurrCode") = XtSCurrCode                                                 '原币编码
  1379.                             .Fields("AccRate") = 1                                                                   '记帐汇率
  1380.                             .Fields("WbDfje") = Rec_AccSum.Fields("Bydfljje") + 0                                    '外币贷方金额
  1381.                         Else
  1382.                             .Fields("ForeignCurrCode") = Rec_AccSum.Fields("ForeignCurrCode")                        '原币编码
  1383.                             .Fields("AccRate") = Rec_AccSum.Fields("AccRate") + 0                                    '记帐汇率
  1384.                             .Fields("WbDfje") = Rec_AccSum.Fields("Bydfljwb") + 0                                    '外币贷方金额
  1385.                         End If
  1386.                         .Update
  1387.                     End If
  1388.                     
  1389.                 End With
  1390.                 
  1391.                 Rec_AccSum.MoveNext
  1392.             Loop
  1393.             
  1394.             '1.辅助帐生成凭证
  1395.             Do While Not Rec_AccSumAssi.EOF
  1396.                 
  1397.                 '显示当前生成凭证会计科目
  1398.                 Lab_ShowCode.Caption = Trim(Rec_AccSumAssi.Fields("Ccode"))
  1399.                 Lab_ShowCode.Refresh
  1400.                 
  1401.                 With Rec_AccVouch
  1402.                     
  1403.                     If Rec_AccSumAssi.Fields("Byjfljje") <> 0 Or Rec_AccSumAssi.Fields("Byjfljsl") <> 0 Or Rec_AccSumAssi.Fields("Byjfljwb") <> 0 Then
  1404.                         
  1405.                         Rowjsq = Rowjsq + 1
  1406.                         .AddNew
  1407.                         .Fields("SerialID") = Rowjsq
  1408.                         .Fields("VouchID") = Lng_VouchId                                                             '凭证ID
  1409.                         .Fields("Digest") = "期初录入"                                                               '摘要
  1410.                         .Fields("Ccode") = Trim(Rec_AccSumAssi.Fields("Ccode"))                                      '会计科目
  1411.                         .Fields("Jfje") = Rec_AccSumAssi.Fields("Byjfljje") + 0                                      '借方金额
  1412.                         .Fields("Jfsl") = Rec_AccSumAssi.Fields("Byjfljsl") + 0                                      '借方数量
  1413.                         If Len(Trim(Rec_AccSumAssi.Fields("ForeignCurrCode") & "")) = 0 Then
  1414.                             .Fields("ForeignCurrCode") = XtSCurrCode                                                 '原币编码
  1415.                             .Fields("AccRate") = 1                                                                   '记帐汇率
  1416.                             .Fields("Wbjfje") = Rec_AccSumAssi.Fields("Byjfljje") + 0                                '外币借方金额
  1417.                         Else
  1418.                             .Fields("ForeignCurrCode") = Rec_AccSumAssi.Fields("ForeignCurrCode")                    '原币编码
  1419.                             .Fields("AccRate") = Rec_AccSumAssi.Fields("AccRate") + 0                                '记帐汇率
  1420.                             .Fields("Wbjfje") = Rec_AccSumAssi.Fields("Byjfljwb") + 0                                '外币借方金额
  1421.                         End If
  1422.                         
  1423.                         .Fields("PersonCode") = Trim(Rec_AccSumAssi.Fields("PersonCode") & "")                         '职员编码
  1424.                         
  1425.                         .Fields("DeptCode") = Trim(Rec_AccSumAssi.Fields("DeptCode") & "")                             '部门编码
  1426.                         
  1427.                         .Fields("CusCode") = Trim(Rec_AccSumAssi.Fields("CusCode") & "")                               '往来客户编码
  1428.                         
  1429.                         .Fields("SupplierCode") = Trim(Rec_AccSumAssi.Fields("SupplierCode") & "")                     '往来供应商编码
  1430.                         
  1431.                         .Fields("ItemClassCode") = Trim(Rec_AccSumAssi.Fields("ItemClassCode") & "")                   '项目大类编码
  1432.                         
  1433.                         .Fields("ItemCode") = Trim(Rec_AccSumAssi.Fields("ItemCode") & "")                             '项目编码
  1434.                         
  1435.                         .Fields("ItemJfsl") = Rec_AccSumAssi.Fields("ItemByljjfsl") + 0                                '项目借方数量
  1436.                         
  1437.                         .Update
  1438.                     End If
  1439.                     
  1440.                     If Rec_AccSumAssi.Fields("Bydfljje") <> 0 Or Rec_AccSumAssi.Fields("Bydfljsl") <> 0 Or Rec_AccSumAssi.Fields("Bydfljwb") <> 0 Then
  1441.                         
  1442.                         Rowjsq = Rowjsq + 1
  1443.                         .AddNew
  1444.                         .Fields("SerialID") = Rowjsq
  1445.                         .Fields("VouchID") = Lng_VouchId                                                             '凭证ID
  1446.                         .Fields("Digest") = "期初录入"                                                               '摘要
  1447.                         .Fields("Ccode") = Trim(Rec_AccSumAssi.Fields("Ccode"))                                          '会计科目
  1448.                         .Fields("Dfje") = Rec_AccSumAssi.Fields("Bydfljje") + 0                                          '贷方金额
  1449.                         .Fields("Dfsl") = Rec_AccSumAssi.Fields("Bydfljsl") + 0                                          '贷方数量
  1450.                         If Len(Trim(Rec_AccSumAssi.Fields("ForeignCurrCode") & "")) = 0 Then
  1451.                             .Fields("ForeignCurrCode") = XtSCurrCode                                                 '原币编码
  1452.                             .Fields("AccRate") = 1                                                                   '记帐汇率
  1453.                             .Fields("WbDfje") = Rec_AccSumAssi.Fields("Bydfljje") + 0                                    '外币贷方金额
  1454.                         Else
  1455.                             .Fields("ForeignCurrCode") = Rec_AccSumAssi.Fields("ForeignCurrCode")                        '原币编码
  1456.                             .Fields("AccRate") = Rec_AccSumAssi.Fields("AccRate") + 0                                    '记帐汇率
  1457.                             .Fields("WbDfje") = Rec_AccSumAssi.Fields("Bydfljwb") + 0                                    '外币贷方金额
  1458.                         End If
  1459.                         
  1460.                         .Fields("PersonCode") = Trim(Rec_AccSumAssi.Fields("PersonCode") & "")                       '职员编码
  1461.                         
  1462.                         .Fields("DeptCode") = Trim(Rec_AccSumAssi.Fields("DeptCode") & "")                             '部门编码
  1463.                         
  1464.                         .Fields("CusCode") = Trim(Rec_AccSumAssi.Fields("CusCode") & "")                               '往来客户编码
  1465.                         
  1466.                         .Fields("SupplierCode") = Trim(Rec_AccSumAssi.Fields("SupplierCode") & "")                     '往来供应商编码
  1467.                         
  1468.                         .Fields("ItemClassCode") = Trim(Rec_AccSumAssi.Fields("ItemClassCode") & "")                   '项目大类编码
  1469.                         
  1470.                         .Fields("ItemCode") = Trim(Rec_AccSumAssi.Fields("ItemCode") & "")                             '项目编码
  1471.                         
  1472.                         .Fields("ItemDfsl") = Rec_AccSumAssi.Fields("ItemByljdfsl") + 0                                '项目借方数量
  1473.                         
  1474.                         .Update
  1475.                     End If
  1476.                     
  1477.                 End With
  1478.                 
  1479.                 Rec_AccSumAssi.MoveNext
  1480.                 
  1481.             Loop
  1482.         End If
  1483.         
  1484.         '将期初录入标志置1
  1485.         Cw_DataEnvi.DataConnect.Execute ("Update Gy_AccInformation Set ItemValue=1 Where ItemCode='Cwzz_Qclrwc'")
  1486.         
  1487.         Cw_DataEnvi.DataConnect.CommitTrans
  1488.         
  1489.     Else
  1490.         
  1491.         '将期初录入标志置1
  1492.         Cw_DataEnvi.DataConnect.Execute ("Update Gy_AccInformation Set ItemValue=1 Where ItemCode='Cwzz_Qclrwc'")
  1493.         
  1494.     End If
  1495.     
  1496.     Tsxx = "总帐系统已成功初始化完成!"
  1497.     Call Xtxxts(Tsxx, 0, 4)
  1498.     Unload Me
  1499.     Exit Sub
  1500. Swcwcl:
  1501.     Cw_DataEnvi.DataConnect.RollbackTrans
  1502.     Tsxx = "生成凭证过程中出现错误,程序自动恢复生成前状态!"
  1503.     Call Xtxxts(Tsxx, 0, 1)
  1504.     Exit Sub
  1505.     
  1506. End Sub
  1508. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  1509.     Select Case Button.Key
  1510.     Case "bcgs"                                          '保存表格格式
  1511.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  1512.     Case "hfmrgs"                                        '恢复默认格式
  1513.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  1514.     Case "szxsxm"                                        '设置显示项目
  1515.         Call Szxsxm(CxbbGrid, GridCode)
  1516.     End Select
  1517. End Sub
  1519. Private Sub Tlb_Action_ButtonClick(ByVal Button As MSComctlLib.Button)
  1520.     Select Case Button.Key
  1521.     Case "ymsz"                                          '页面设置
  1522.         Dyymctbl.Show 1
  1523.     Case "yl"                                            '预 览
  1524.         Call bbyl(True)
  1525.     Case "dy"                                            '打 印
  1526.         Call bbyl(False)
  1527.     Case "dz"                                            '对 帐
  1528.         Call Sub_AccCheck
  1529.     Case "bz"                                            '帮 助
  1530.         Call F1bz
  1531.     Case "fh"                                            '退 出
  1532.         Unload Me
  1533.     End Select
  1534. End Sub
  1536. Private Sub Sub_AccCheck()                                                                  '帐目核对
  1537.     Dim Int_CheckSele As Integer
  1538.     
  1539.     '初始化对帐结果显示
  1540.     CxbbGrid.Rows = CxbbGrid.FixedRows
  1541.     CxbbGrid.Refresh
  1542.     For Jsqte = 0 To 5
  1543.         Lab_CheckJg(Jsqte).Visible = False
  1544.         Lab_Check1(Jsqte).ForeColor = &H80000012
  1545.     Next Jsqte
  1546.     If Fun_Hdsxjkm Then
  1547.         Lab_CheckJg(0).Visible = True
  1548.         Int_DZ_OK = 1
  1549.     Else
  1550.         Int_DZ_OK = 0
  1551.     End If
  1552.     
  1553.     For Int_CheckSele = 1 To 5
  1554.         If Fun_HdZzFzz(Int_CheckSele) Then
  1555.             Lab_CheckJg(Int_CheckSele).Visible = True
  1556.             Int_DZ_OK = IIf(Int_DZ_OK = 1, 1, 0)
  1557.         Else
  1558.             Int_DZ_OK = 0
  1559.         End If
  1560.     Next Int_CheckSele
  1561.     
  1562.     Lab_Ccode = ""
  1563. End Sub
  1565. '核对辅助帐
  1566. Private Function Fun_HdZzFzz(Int_CheckSele As Integer) As Boolean                                                    '核对总帐与辅助帐(客户)是否平衡
  1567.     
  1568.     '1-部门 2-客户 3-供应商 4-个人 5-项目
  1569.     
  1570.     Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
  1571.     Dim Rec_AccSum As New ADODB.Recordset                '科目总帐动态集
  1572.     Dim Sqlstr As String                                 '临时查询字符串
  1573.     Dim Int_NotCheck As Integer                          '未能核对通过科目个数
  1574.     
  1575.     Lab_Check1(Int_CheckSele).ForeColor = &HFF&
  1576.     Int_NotCheck = 0
  1577.     
  1578.     Select Case Int_CheckSele
  1579.     Case 1
  1580.         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)" & _
  1581.         " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1582.         " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1583.         " Where Cwzz_AccCode.DeptFlag=1 And Cwzz_AccCode.EndFlag=1"
  1584.     Case 2
  1585.         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)" & _
  1586.         " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1587.         " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1588.         " Where Cwzz_AccCode.CusFlag=1 And Cwzz_AccCode.EndFlag=1"
  1589.     Case 3
  1590.         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)" & _
  1591.         " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1592.         " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1593.         " Where Cwzz_AccCode.SupplierFlag=1 And Cwzz_AccCode.EndFlag=1"
  1594.     Case 4
  1595.         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)" & _
  1596.         " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1597.         " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1598.         " Where Cwzz_AccCode.PersonFlag=1 And Cwzz_AccCode.EndFlag=1"
  1599.     Case 5
  1600.         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)" & _
  1601.         " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1602.         " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1603.         " Where Cwzz_AccCode.ItemFlag=1 And Cwzz_AccCode.EndFlag=1"
  1604.     End Select
  1605.     Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1606.     With Rec_AccSum
  1607.         Do While Not .EOF
  1608.             Lab_Ccode.Caption = Trim(.Fields("Ccode"))
  1609.             Lab_Ccode.Refresh
  1610.             
  1611.             Sqlstr = "SELECT YcyeHj=IsNull(SUM(Ycye),0), QcyeHj=Isnull(SUM(Qcye),0),MjjeHj=Isnull(SUM(Mjje),0), MdjeHj=Isnull(SUM(Mdje),0)," & _
  1612.             " ByjfljjeHj=IsNull(SUM(Byjfljje),0), BydfljjeHj=IsNull(SUM(Bydfljje),0),Qmyehj=IsNull(SUM(Qmye),0)" & _
  1613.             " FROM Cwzz_AccSumAssi " & _
  1614.             " WHERE Cwzz_AccSumAssi.Ccode ='" & Trim(.Fields("Ccode")) & "' AND Year = " & Int_Year & " AND Period =" & Int_Period
  1615.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1616.             If Not RecTemp.EOF Then
  1617.                 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
  1618.                     Int_NotCheck = Int_NotCheck + 1
  1619.                     '填充记录错误列表
  1620.                     Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
  1621.                     Select Case Int_CheckSele
  1622.                     Case 1
  1623.                         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"))
  1624.                     Case 2
  1625.                         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"))
  1626.                     Case 3
  1627.                         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"))
  1628.                     Case 4
  1629.                         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"))
  1630.                     Case 5
  1631.                         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"))
  1632.                     End Select
  1633.                 End If
  1634.             End If
  1635.             
  1636.             .MoveNext
  1637.         Loop
  1638.     End With
  1639.     If Int_NotCheck <> 0 Then
  1640.         Fun_HdZzFzz = False
  1641.     Else
  1642.         Fun_HdZzFzz = True
  1643.         Lab_Check1(Int_CheckSele).ForeColor = &H80000012
  1644.     End If
  1645. End Function
  1647. Private Function Fun_Hdsxjkm() As Boolean                                                   '核对总帐上下级科目是否平衡
  1648.     Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
  1649.     Dim Rec_AccSum As New ADODB.Recordset                '科目总帐动态集
  1650.     Dim Sqlstr As String                                 '临时查询字符串
  1651.     Dim Int_NotCheck As Integer                          '未能核对通过科目个数
  1652.     
  1653.     Lab_Check1(Int_CheckSele).ForeColor = &HFF&
  1654.     Int_NotCheck = 0
  1655.     
  1656.     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)" & _
  1657.     " FROM  Cwzz_AccCode LEFT OUTER JOIN Cwzz_AccSum ON" & _
  1658.     " Cwzz_AccCode.Ccode = Cwzz_AccSum.Ccode And Cwzz_AccSum.Year = " & Int_Year & " And Period =" & Int_Period & _
  1659.     " Where Cwzz_AccCode.EndFlag=0"
  1660.     Set Rec_AccSum = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1661.     With Rec_AccSum
  1662.         Do While Not .EOF
  1663.             Lab_Ccode.Caption = Trim(.Fields("Ccode"))
  1664.             Lab_Ccode.Refresh
  1665.             
  1666.             Sqlstr = "SELECT SUM(Ycye) AS YcyeHj, SUM(Qcye) AS QcyeHj, SUM(Mjje) AS MjjeHj, SUM(Mdje) AS MdjeHj," & _
  1667.             " SUM(Byjfljje) AS ByjfljjeHj, SUM(Bydfljje) AS BydfljjeHj, SUM(Qmye) AS Qmyehj" & _
  1668.             " FROM Cwzz_AccSum LEFT OUTER JOIN Cwzz_AccCode ON Cwzz_AccSum.Ccode = Cwzz_AccCode.Ccode" & _
  1669.             " WHERE Cwzz_AccSum.Ccode LIKE '" & Trim(.Fields("Ccode")) & "%' AND Year = " & Int_Year & " AND Period =" & Int_Period & " AND Cwzz_AccCode.EndFlag = 1"
  1670.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1671.             If Not RecTemp.EOF Then
  1672.                 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
  1673.                     Int_NotCheck = Int_NotCheck + 1
  1674.                     
  1675.                     '填充记录错误列表
  1676.                     Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐上级", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
  1677.                     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"))
  1678.                     
  1679.                 End If
  1680.             Else
  1681.                 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
  1682.                     '填充记录错误列表
  1683.                     Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐上级", .Fields("Ycye"), .Fields("Qcye"), .Fields("Mjje"), .Fields("Mdje"), .Fields("Byjfljje"), .Fields("Bydfljje"), .Fields("Qmye"))
  1684.                     Call Sub_AddRec(Trim(.Fields("Ccode")), "总帐下级", 0, 0, 0, 0, 0, 0, 0)
  1685.                 End If
  1686.             End If
  1687.             .MoveNext
  1688.         Loop
  1689.     End With
  1690.     If Int_NotCheck <> 0 Then
  1691.         Fun_Hdsxjkm = False
  1692.     Else
  1693.         Fun_Hdsxjkm = True
  1694.         Lab_Check1(Int_CheckSele).ForeColor = &H80000012
  1695.     End If
  1696. End Function
  1698. Private Sub Sub_AddRec(Str_Ccode As String, CheckItem As String, Ycye#, Qcye#, Mjje#, Mdje#, Byjfljje#, Bydfljje#, Qmye#)            '填充对帐错误记录
  1699.     '函数参数说明:科目编码,核对项目,年初余额,期初余额,本期借方发生,本期贷方发生,本年累计借方发生,本年累计贷方发生,期末余额
  1700.     
  1701.     Dim RecTemp As New ADODB.Recordset                   '临时使用动态集
  1702.     Dim Sqlstr As String                                 '临时查询字符串
  1703.     Sqlstr = "SELECT Cwzz_AccCode.CName,BalanceOri From Cwzz_AccCode Where CCode='" & Str_Ccode & "'"
  1704.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1705.     With CxbbGrid
  1706.         .AddItem ""
  1707.         .RowHeight(.Rows - 1) = Sjhgd
  1708.         .TextMatrix(.Rows - 1, Sydz("001", GridStr(), Szzls)) = Str_Ccode                                   '科目编码
  1709.         If Not RecTemp.EOF Then
  1710.             .TextMatrix(.Rows - 1, Sydz("002", GridStr(), Szzls)) = Trim(RecTemp.Fields("Cname") & "")       '科目名称
  1711.         End If
  1712.         .TextMatrix(.Rows - 1, Sydz("003", GridStr(), Szzls)) = CheckItem                                   '核对项目
  1713.         If Not RecTemp.EOF Then
  1714.             .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = Trim(RecTemp.Fields("BalanceOri"))       '余额方向
  1715.         End If
  1716.         If Ycye <> 0 Then                                                                                   '年初余额
  1717.             If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
  1718.                 .TextMatrix(.Rows - 1, Sydz("005", GridStr(), Szzls)) = Ycye
  1719.             Else
  1720.                 .TextMatrix(.Rows - 1, Sydz("005", GridStr(), Szzls)) = -Ycye
  1721.             End If
  1722.         End If
  1723.         If Qcye <> 0 Then                                                                                   '期初余额
  1724.             If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
  1725.                 .TextMatrix(.Rows - 1, Sydz("006", GridStr(), Szzls)) = Qcye
  1726.             Else
  1727.                 .TextMatrix(.Rows - 1, Sydz("006", GridStr(), Szzls)) = -Qcye
  1728.             End If
  1729.         End If
  1730.         If Mjje <> 0 Then                                                                                   '本期借方发生
  1731.             .TextMatrix(.Rows - 1, Sydz("007", GridStr(), Szzls)) = Mjje
  1732.         End If
  1733.         If Mdje <> 0 Then                                                                                   '本期贷方发生
  1734.             .TextMatrix(.Rows - 1, Sydz("008", GridStr(), Szzls)) = Mdje
  1735.         End If
  1736.         If Byjfljje <> 0 Then                                                                               '本年借方累计发生
  1737.             .TextMatrix(.Rows - 1, Sydz("009", GridStr(), Szzls)) = Byjfljje
  1738.         End If
  1739.         If Bydfljje <> 0 Then                                                                               '本年贷方累计发生
  1740.             .TextMatrix(.Rows - 1, Sydz("010", GridStr(), Szzls)) = Bydfljje
  1741.         End If
  1742.         If Qmye <> 0 Then                                                                                   '期末余额
  1743.             If .TextMatrix(.Rows - 1, Sydz("004", GridStr(), Szzls)) = "借" Then
  1744.                 .TextMatrix(.Rows - 1, Sydz("011", GridStr(), Szzls)) = Qmye
  1745.             Else
  1746.                 .TextMatrix(.Rows - 1, Sydz("011", GridStr(), Szzls)) = -Qmye
  1747.             End If
  1748.         End If
  1749.     End With
  1750. End Sub
  1752. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1753.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1754.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1755.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1756.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1757.     ReDim Bbxbt(1 To Bbxbtgs)
  1758.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1759.     If Bbbwhgs <> 0 Then
  1760.         ReDim Bbbwh(1 To Bbbwhgs)
  1761.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1762.     End If
  1763.     Bbzbt = ReportTitle
  1764.     Bbxbt(1) = " "
  1765.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1766.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1767.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1768.     If Not bbylte Then
  1769.         Unload DY_Tybbyldy
  1770.     End If
  1771. End Sub