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

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

企业管理

开发平台：

Visual Basic

i-：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Begin VB.Form ZB_FrmKmrjzjg 
  5.    Caption         =   "科目日记帐"
  6.    ClientHeight    =   7755
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11190
  10.    HelpContextID   =   5001
  11.    Icon            =   "帐簿_科目日记帐查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7755
  16.    ScaleWidth      =   11190
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.CommandButton Cmd_CancelPrint 
  19.       Caption         =   "取消打印(&C)"
  20.       Height          =   405
  21.       Left            =   9060
  22.       TabIndex        =   17
  23.       Top             =   1290
  24.       Visible         =   0   'False
  25.       Width           =   1155
  26.    End
  27.    Begin VB.Timer Timer1 
  28.       Enabled         =   0   'False
  29.       Interval        =   1
  30.       Left            =   7620
  31.       Top             =   90
  32.    End
  33.    Begin VB.PictureBox Pic_Title 
  34.       Height          =   1215
  35.       Left            =   0
  36.       Picture         =   "帐簿_科目日记帐查询结果.frx":1042
  37.       ScaleHeight     =   1155
  38.       ScaleWidth      =   11535
  39.       TabIndex        =   0
  40.       Top             =   570
  41.       Width           =   11595
  42.       Begin VB.ComboBox Combo_AccFormat 
  43.          Height          =   300
  44.          Left            =   6900
  45.          Style           =   2  'Dropdown List
  46.          TabIndex        =   4
  47.          Top             =   780
  48.          Width           =   1725
  49.       End
  50.       Begin MSComctlLib.ImageCombo Imgebo_QueryCode 
  51.          Height          =   315
  52.          Left            =   2010
  53.          TabIndex        =   16
  54.          Top             =   780
  55.          Width           =   3885
  56.          _ExtentX        =   6853
  57.          _ExtentY        =   556
  58.          _Version        =   393216
  59.          ForeColor       =   -2147483640
  60.          BackColor       =   -2147483643
  61.          Locked          =   -1  'True
  62.       End
  63.       Begin VB.Label Label1 
  64.          Appearance      =   0  'Flat
  65.          BackColor       =   &H80000005&
  66.          BackStyle       =   0  'Transparent
  67.          Caption         =   "承前页"
  68.          ForeColor       =   &H80000008&
  69.          Height          =   195
  70.          Index           =   1
  71.          Left            =   9150
  72.          TabIndex        =   15
  73.          Top             =   300
  74.          Width           =   615
  75.       End
  76.       Begin VB.Label Lab_Color 
  77.          Appearance      =   0  'Flat
  78.          BackColor       =   &H00E9F4FA&
  79.          BorderStyle     =   1  'Fixed Single
  80.          ForeColor       =   &H80000008&
  81.          Height          =   195
  82.          Index           =   2
  83.          Left            =   8910
  84.          TabIndex        =   14
  85.          Top             =   300
  86.          Width           =   195
  87.       End
  88.       Begin VB.Label Label1 
  89.          Appearance      =   0  'Flat
  90.          BackColor       =   &H80000005&
  91.          BackStyle       =   0  'Transparent
  92.          Caption         =   "过次页"
  93.          ForeColor       =   &H80000008&
  94.          Height          =   195
  95.          Index           =   0
  96.          Left            =   8220
  97.          TabIndex        =   13
  98.          Top             =   300
  99.          Width           =   615
  100.       End
  101.       Begin VB.Label Lab_Color 
  102.          Appearance      =   0  'Flat
  103.          BackColor       =   &H00DFDFDF&
  104.          BorderStyle     =   1  'Fixed Single
  105.          ForeColor       =   &H80000008&
  106.          Height          =   195
  107.          Index           =   1
  108.          Left            =   7980
  109.          TabIndex        =   12
  110.          Top             =   300
  111.          Width           =   195
  112.       End
  113.       Begin VB.Label Lab_TitleText 
  114.          BackStyle       =   0  'Transparent
  115.          ForeColor       =   &H00000000&
  116.          Height          =   225
  117.          Index           =   1
  118.          Left            =   4380
  119.          TabIndex        =   11
  120.          Top             =   300
  121.          Width           =   1395
  122.       End
  123.       Begin VB.Label Lab_TitleMess 
  124.          BackStyle       =   0  'Transparent
  125.          Caption         =   "外币名称："
  126.          Height          =   225
  127.          Index           =   2
  128.          Left            =   3450
  129.          TabIndex        =   10
  130.          Top             =   300
  131.          Visible         =   0   'False
  132.          Width           =   915
  133.       End
  134.       Begin VB.Label Lab_TitleMess 
  135.          AutoSize        =   -1  'True
  136.          BackStyle       =   0  'Transparent
  137.          Caption         =   "科目名称:"
  138.          Height          =   180
  139.          Index           =   1
  140.          Left            =   1170
  141.          TabIndex        =   9
  142.          Top             =   840
  143.          Width           =   810
  144.       End
  145.       Begin VB.Label Label1 
  146.          Appearance      =   0  'Flat
  147.          BackColor       =   &H80000005&
  148.          BackStyle       =   0  'Transparent
  149.          Caption         =   "未记帐明细会计分录"
  150.          ForeColor       =   &H80000008&
  151.          Height          =   195
  152.          Index           =   2
  153.          Left            =   6240
  154.          TabIndex        =   7
  155.          Top             =   300
  156.          Width           =   1665
  157.       End
  158.       Begin VB.Label Lab_Color 
  159.          Appearance      =   0  'Flat
  160.          BackColor       =   &H00FFFFC0&
  161.          BorderStyle     =   1  'Fixed Single
  162.          ForeColor       =   &H80000008&
  163.          Height          =   195
  164.          Index           =   0
  165.          Left            =   6000
  166.          TabIndex        =   6
  167.          Top             =   300
  168.          Width           =   195
  169.       End
  170.       Begin VB.Label TsLabel 
  171.          AutoSize        =   -1  'True
  172.          BackStyle       =   0  'Transparent
  173.          Caption         =   "帐页格式:"
  174.          Height          =   180
  175.          Index           =   7
  176.          Left            =   6090
  177.          TabIndex        =   5
  178.          Top             =   840
  179.          Width           =   810
  180.       End
  181.       Begin VB.Label TsLabel 
  182.          BackColor       =   &H80000018&
  183.          BackStyle       =   0  'Transparent
  184.          Caption         =   "科目日记帐"
  185.          BeginProperty Font 
  186.             Name            =   "宋体"
  187.             Size            =   14.25
  188.             Charset         =   134
  189.             Weight          =   700
  190.             Underline       =   0   'False
  191.             Italic          =   0   'False
  192.             Strikethrough   =   0   'False
  193.          EndProperty
  194.          ForeColor       =   &H00000000&
  195.          Height          =   330
  196.          Index           =   4
  197.          Left            =   750
  198.          TabIndex        =   1
  199.          Top             =   180
  200.          Width           =   1695
  201.       End
  202.    End
  203.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  204.       Height          =   6885
  205.       Left            =   30
  206.       TabIndex        =   2
  207.       Top             =   1800
  208.       Width           =   11715
  209.       _cx             =   5080
  210.       _cy             =   5080
  211.       Appearance      =   1
  212.       BorderStyle     =   1
  213.       Enabled         =   -1  'True
  214.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  215.          Name            =   "宋体"
  216.          Size            =   9
  217.          Charset         =   134
  218.          Weight          =   400
  219.          Underline       =   0   'False
  220.          Italic          =   0   'False
  221.          Strikethrough   =   0   'False
  222.       EndProperty
  223.       MousePointer    =   0
  224.       BackColor       =   16777215
  225.       ForeColor       =   -2147483640
  226.       BackColorFixed  =   12632256
  227.       ForeColorFixed  =   -2147483630
  228.       BackColorSel    =   -2147483635
  229.       ForeColorSel    =   -2147483634
  230.       BackColorBkg    =   -2147483636
  231.       BackColorAlternate=   16777215
  232.       GridColor       =   -2147483633
  233.       GridColorFixed  =   -2147483632
  234.       TreeColor       =   -2147483632
  235.       FloodColor      =   192
  236.       SheetBorder     =   -2147483642
  237.       FocusRect       =   1
  238.       HighLight       =   1
  239.       AllowSelection  =   -1  'True
  240.       AllowBigSelection=   -1  'True
  241.       AllowUserResizing=   0
  242.       SelectionMode   =   0
  243.       GridLines       =   1
  244.       GridLinesFixed  =   2
  245.       GridLineWidth   =   1
  246.       Rows            =   50
  247.       Cols            =   10
  248.       FixedRows       =   1
  249.       FixedCols       =   1
  250.       RowHeightMin    =   0
  251.       RowHeightMax    =   0
  252.       ColWidthMin     =   0
  253.       ColWidthMax     =   0
  254.       ExtendLastCol   =   0   'False
  255.       FormatString    =   ""
  256.       ScrollTrack     =   0   'False
  257.       ScrollBars      =   3
  258.       ScrollTips      =   0   'False
  259.       MergeCells      =   0
  260.       MergeCompare    =   0
  261.       AutoResize      =   -1  'True
  262.       AutoSizeMode    =   0
  263.       AutoSearch      =   0
  264.       AutoSearchDelay =   2
  265.       MultiTotals     =   -1  'True
  266.       SubtotalPosition=   1
  267.       OutlineBar      =   0
  268.       OutlineCol      =   0
  269.       Ellipsis        =   0
  270.       ExplorerBar     =   0
  271.       PicturesOver    =   0   'False
  272.       FillStyle       =   0
  273.       RightToLeft     =   0   'False
  274.       PictureType     =   0
  275.       TabBehavior     =   0
  276.       OwnerDraw       =   0
  277.       Editable        =   0
  278.       ShowComboButton =   1
  279.       WordWrap        =   0   'False
  280.       TextStyle       =   0
  281.       TextStyleFixed  =   0
  282.       OleDragMode     =   0
  283.       OleDropMode     =   0
  284.       DataMode        =   0
  285.       VirtualData     =   -1  'True
  286.       DataMember      =   ""
  287.       ComboSearch     =   3
  288.       AutoSizeMouse   =   -1  'True
  289.       FrozenRows      =   0
  290.       FrozenCols      =   0
  291.       AllowUserFreezing=   0
  292.       BackColorFrozen =   0
  293.       ForeColorFrozen =   0
  294.       WallPaperAlignment=   9
  295.       AccessibleName  =   ""
  296.       AccessibleDescription=   ""
  297.       AccessibleValue =   ""
  298.       AccessibleRole  =   24
  299.    End
  300.    Begin MSComctlLib.Toolbar SzToolbar 
  301.       Align           =   1  'Align Top
  302.       Height          =   555
  303.       Left            =   0
  304.       TabIndex        =   3
  305.       Top             =   0
  306.       Width           =   11190
  307.       _ExtentX        =   19738
  308.       _ExtentY        =   979
  309.       ButtonWidth     =   820
  310.       ButtonHeight    =   926
  311.       AllowCustomize  =   0   'False
  312.       Appearance      =   1
  313.       Style           =   1
  314.       ImageList       =   "ImageList1"
  315.       _Version        =   393216
  316.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  317.          NumButtons      =   12
  318.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  319.             Caption         =   "设置"
  320.             Key             =   "ymsz"
  321.             ImageKey        =   "sz"
  322.          EndProperty
  323.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  324.             Caption         =   "打印"
  325.             Key             =   "dy"
  326.             ImageKey        =   "dy"
  327.          EndProperty
  328.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  329.             Caption         =   "预览"
  330.             Key             =   "yl"
  331.             ImageKey        =   "yl"
  332.          EndProperty
  333.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Caption         =   "连打"
  335.             Key             =   "lxdy"
  336.             ImageKey        =   "lxdy"
  337.          EndProperty
  338.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  339.             Style           =   3
  340.          EndProperty
  341.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  342.             Caption         =   "查询"
  343.             Key             =   "cx"
  344.             ImageKey        =   "cx"
  345.          EndProperty
  346.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  347.             Style           =   3
  348.          EndProperty
  349.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  350.             Caption         =   "凭证"
  351.             Key             =   "pz"
  352.             ImageKey        =   "pz"
  353.          EndProperty
  354.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  355.             Caption         =   "总帐"
  356.             Key             =   "zz"
  357.             ImageKey        =   "zz"
  358.          EndProperty
  359.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  360.             Style           =   3
  361.          EndProperty
  362.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  363.             Caption         =   "帮助"
  364.             Key             =   "bz"
  365.             ImageKey        =   "bz"
  366.          EndProperty
  367.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  368.             Caption         =   "退出"
  369.             Key             =   "fh"
  370.             ImageKey        =   "tc"
  371.          EndProperty
  372.       EndProperty
  373.       BorderStyle     =   1
  374.       Begin MSComctlLib.ImageList ImageList1 
  375.          Left            =   5400
  376.          Top             =   0
  377.          _ExtentX        =   1005
  378.          _ExtentY        =   1005
  379.          BackColor       =   -2147483643
  380.          ImageWidth      =   16
  381.          ImageHeight     =   16
  382.          MaskColor       =   12632256
  383.          _Version        =   393216
  384.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  385.             NumListImages   =   34
  386.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.                Picture         =   "帐簿_科目日记帐查询结果.frx":35106
  388.                Key             =   "sz"
  389.             EndProperty
  390.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.                Picture         =   "帐簿_科目日记帐查询结果.frx":354A0
  392.                Key             =   "dy"
  393.             EndProperty
  394.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.                Picture         =   "帐簿_科目日记帐查询结果.frx":3583A
  396.                Key             =   "yl"
  397.             EndProperty
  398.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.                Picture         =   "帐簿_科目日记帐查询结果.frx":35BD4
  400.                Key             =   "xg"
  401.             EndProperty
  402.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.                Picture         =   "帐簿_科目日记帐查询结果.frx":35F6E
  404.                Key             =   "zh"
  405.             EndProperty
  406.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  407.                Picture         =   "帐簿_科目日记帐查询结果.frx":36308
  408.                Key             =   "sh"
  409.             EndProperty
  410.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  411.                Picture         =   "帐簿_科目日记帐查询结果.frx":366A2
  412.                Key             =   "bc"
  413.             EndProperty
  414.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  415.                Picture         =   "帐簿_科目日记帐查询结果.frx":36A3C
  416.                Key             =   "fq"
  417.             EndProperty
  418.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  419.                Picture         =   "帐簿_科目日记帐查询结果.frx":36DD6
  420.                Key             =   "bz"
  421.             EndProperty
  422.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  423.                Picture         =   "帐簿_科目日记帐查询结果.frx":37170
  424.                Key             =   "tc"
  425.             EndProperty
  426.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  427.                Picture         =   "帐簿_科目日记帐查询结果.frx":3750A
  428.                Key             =   "bcgs"
  429.             EndProperty
  430.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  431.                Picture         =   "帐簿_科目日记帐查询结果.frx":378A4
  432.                Key             =   "mrlk"
  433.             EndProperty
  434.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  435.                Picture         =   "帐簿_科目日记帐查询结果.frx":37C3E
  436.                Key             =   "xsxm"
  437.             EndProperty
  438.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  439.                Picture         =   "帐簿_科目日记帐查询结果.frx":37FD8
  440.                Key             =   "first"
  441.             EndProperty
  442.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  443.                Picture         =   "帐簿_科目日记帐查询结果.frx":38372
  444.                Key             =   "prev"
  445.             EndProperty
  446.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  447.                Picture         =   "帐簿_科目日记帐查询结果.frx":3870C
  448.                Key             =   "next"
  449.             EndProperty
  450.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  451.                Picture         =   "帐簿_科目日记帐查询结果.frx":38AA6
  452.                Key             =   "last"
  453.             EndProperty
  454.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  455.                Picture         =   "帐簿_科目日记帐查询结果.frx":38E40
  456.                Key             =   "xx"
  457.             EndProperty
  458.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  459.                Picture         =   "帐簿_科目日记帐查询结果.frx":391DA
  460.                Key             =   "define"
  461.             EndProperty
  462.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  463.                Picture         =   "帐簿_科目日记帐查询结果.frx":39574
  464.                Key             =   "exec"
  465.             EndProperty
  466.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  467.                Picture         =   "帐簿_科目日记帐查询结果.frx":3990E
  468.                Key             =   "xz"
  469.             EndProperty
  470.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  471.                Picture         =   "帐簿_科目日记帐查询结果.frx":39CA8
  472.                Key             =   "sc"
  473.             EndProperty
  474.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  475.                Picture         =   "帐簿_科目日记帐查询结果.frx":3A042
  476.                Key             =   "sx"
  477.             EndProperty
  478.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  479.                Picture         =   "帐簿_科目日记帐查询结果.frx":3A3DC
  480.                Key             =   "cx"
  481.             EndProperty
  482.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  483.                Picture         =   "帐簿_科目日记帐查询结果.frx":3A776
  484.                Key             =   "zd"
  485.             EndProperty
  486.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  487.                Picture         =   "帐簿_科目日记帐查询结果.frx":3AB10
  488.                Key             =   "dz"
  489.             EndProperty
  490.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  491.                Picture         =   "帐簿_科目日记帐查询结果.frx":3AEAA
  492.                Key             =   "ph"
  493.             EndProperty
  494.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  495.                Picture         =   "帐簿_科目日记帐查询结果.frx":3B244
  496.                Key             =   "fz"
  497.             EndProperty
  498.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  499.                Picture         =   "帐簿_科目日记帐查询结果.frx":3B5DE
  500.                Key             =   "dw"
  501.             EndProperty
  502.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  503.                Picture         =   "帐簿_科目日记帐查询结果.frx":3B978
  504.                Key             =   "hf"
  505.             EndProperty
  506.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  507.                Picture         =   "帐簿_科目日记帐查询结果.frx":3BD12
  508.                Key             =   "pz"
  509.             EndProperty
  510.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  511.                Picture         =   "帐簿_科目日记帐查询结果.frx":3C0AC
  512.                Key             =   "check"
  513.             EndProperty
  514.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  515.                Picture         =   "帐簿_科目日记帐查询结果.frx":3C446
  516.                Key             =   "zz"
  517.             EndProperty
  518.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  519.                Picture         =   "帐簿_科目日记帐查询结果.frx":3C7E0
  520.                Key             =   "lxdy"
  521.             EndProperty
  522.          EndProperty
  523.       End
  524.       Begin MSComctlLib.Toolbar GsToolbar 
  525.          Height          =   525
  526.          Left            =   9510
  527.          TabIndex        =   8
  528.          Top             =   0
  529.          Width           =   1665
  530.          _ExtentX        =   2937
  531.          _ExtentY        =   926
  532.          ButtonWidth     =   1455
  533.          ButtonHeight    =   926
  534.          AllowCustomize  =   0   'False
  535.          Appearance      =   1
  536.          Style           =   1
  537.          ImageList       =   "ImageList1"
  538.          _Version        =   393216
  539.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  540.             NumButtons      =   2
  541.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  542.                Caption         =   "保存格式"
  543.                Key             =   "bcgs"
  544.                ImageKey        =   "bcgs"
  545.             EndProperty
  546.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  547.                Caption         =   "默认列宽"
  548.                Key             =   "hfmrgs"
  549.                ImageKey        =   "mrlk"
  550.             EndProperty
  551.          EndProperty
  552.       End
  553.    End
  554. End
  555. Attribute VB_Name = "ZB_FrmKmrjzjg"
  556. Attribute VB_GlobalNameSpace = False
  557. Attribute VB_Creatable = False
  558. Attribute VB_PredeclaredId = True
  559. Attribute VB_Exposed = False
  560. '***************************************************************************
  561. '*    模 块 名 称 :科目日记帐
  562. '*    功 能 描 述 :本功能用于查询某科目在某月或某几月的明细帐情况或某
  563. '*                 日期范围内的明细帐情况并且能够进行立体联查凭证及总帐数据。
  564. '*    程序员姓名  : 张建忠
  565. '*    最后修改人  : 奚俊峰
  566. '*    最后修改时间: 2001-12-30
  567. '*    备        注:查询科目明细帐时应从建帐启用月份查询，否则本年累计数据
  568. '*                 有问题,有的软件控制不能小于启用月份查询.
  569. '***************************************************************************
  570. Dim ReportTitle As String                '报表主标题
  571. Dim Bln_ClassSum As Boolean              '是否进行科目类别合计
  572. Dim Bln_ConVertFlag As Boolean           '外币折算方式
  573. Dim Int_Wbhlxsws As Integer              '外币汇率小数位数
  574. Dim Bln_CancelPrint As Boolean           '用户是否取消打印
  575. Dim Bln_Printing As Boolean              '用户是否正在打印
  577. '以下为固定使用变量
  578. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  579. Dim GridCode As String                   '显示网格网格代码
  580. Dim GridInf() As Variant                 '整个网格设置信息
  581. Dim Tsxx As String                       '系统提示信息
  582. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  583. Dim Sjhgd As Double                      '网格数据行高度
  584. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  585. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  586. Dim GridStr()  As String                 '网格列信息(字符型)
  587. Dim GridInt() As Integer                 '网格列信息(整型)
  588. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  589. Dim Bln_Stop As Boolean                  '停止输出查询结果
  590. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  591.     On Error Resume Next
  592.     With CxbbGrid
  593.         .Width = Me.Width - 160
  594.         .Height = Me.Height - .Top - 400
  595.     End With
  596.     With Pic_Title
  597.         .Width = Me.Width - 160
  598.     End With
  599.     
  600.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  601. End Sub
  603. Private Sub Form_Load()                                                   '窗体装入
  604.     
  605.     '调入打印页面设置窗体
  606.     XtReportCode = "Cwzz_rjzcx"
  607.     Load Dyymctbl
  608.     ReportTitle = "日  记  帐"
  609.     
  610.     '调整标题栏及网格、格式工具条位置
  611.     Pic_Title.Left = 40
  612.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  613.     CxbbGrid.Left = Pic_Title.Left
  614.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  615.     
  616.     '调 入 网 格
  617.     GridCode = "Cwzz_rjzcx"
  618.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  619.     
  620.     Qslz = GridInf(1)
  621.     Sjhgd = GridInf(2)
  622.     Sfxshjwg = GridInf(7)
  623.     Szzls = CxbbGrid.Cols - 1
  624.     
  625.     '帐页格式
  626.     Call FillCombo(Combo_AccFormat, "Cwzz_zygs", "", 0)
  627.     
  628.     '调整标题位置
  629.     SetTitlePos tsLabel(4)
  630.     
  631.     
  632. End Sub
  634. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  635.     '如果用户正在连续打印帐页,则不能关闭窗体
  636.     If Bln_Printing Then
  637.         Cancel = 1
  638.     End If
  639.     '卸载条件窗体
  640.     ZB_FrmKmrjztj.UnloadCheck.Value = 1
  641.     Unload ZB_FrmKmrjztj
  642.     '卸载打印页面设置窗体
  643.     Unload Dyymctbl
  644. End Sub
  646. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  647.     Select Case Button.Key
  648.     Case "bcgs"                                          '保存表格格式
  649.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  650.     Case "hfmrgs"                                        '恢复默认格式
  651.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  652.     Case "szxsxm"                                        '设置显示项目
  653.         Call Szxsxm(CxbbGrid, GridCode)
  654.     End Select
  655. End Sub
  657. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  658.     Select Case Button.Key
  659.     Case "ymsz"                                          '页面设置
  660.         Dyymctbl.Show 1
  661.     Case "yl"                                            '预 览
  662.         Call bbyl(True)
  663.     Case "dy"                                            '打 印
  664.         Call bbyl(False)
  665.     Case "lxdy"                                          '连 打
  666.         Call Sub_Lxdy
  667.     Case "cx"                                            '查 询
  668.         ZB_FrmKmrjztj.Show 1
  669.     Case "pz"                                            '凭 证
  670.         Call CxbbGrid_DblClick
  671.     Case "zz"                                            '总 帐
  672.         Call Sub_LcZflz
  673.     Case "bz"                                            '帮 助
  674.         Call F1bz
  675.     Case "fh"                                            '退 出
  676.         Unload Me
  677.     End Select
  678. End Sub
  680. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  681.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  682.     Dim Str_QueryCondi As String                '用户录入查询条件
  683.     
  684.     Timer1.Enabled = False
  685.     
  686.     '日记帐科目
  687.     Call FillImageCombo(Imgebo_QueryCode, "cwzz_Rjzcx", 0)
  688.     For Jsqte = 1 To Imgebo_QueryCode.ComboItems.count
  689.         If Imgebo_QueryCode.ComboItems.Item(Jsqte).Text = ZB_FrmKmrjztj.Imgebo_Rjz.Text Then
  690.             Imgebo_QueryCode.ComboItems.Item(Jsqte).Selected = True
  691.             Imgebo_QueryCode.Refresh
  692.             Exit For
  693.         End If
  694.     Next Jsqte
  695.     
  696.     Call Imgebo_QueryCode_Click
  697. End Sub
  699. Private Sub Imgebo_QueryCode_Click()                                    '用户点击科目列表框
  700.     Timer1.Enabled = False
  701.     Xt_Wait.Show
  702.     Xt_Wait.Refresh
  703.     
  704.     '加快显示速度
  705.     CxbbGrid.Redraw = False
  706.     
  707.     '生成查询结果
  708.     Call Sub_Query
  709.     
  710.     CxbbGrid.Redraw = True
  711.     
  712.     Xt_Wait.Hide
  713. End Sub
  715. Private Sub Sub_Query()                                    '生成查询结果
  716.     Dim RecTemp As New ADODB.Recordset          '临时使用动态集
  717.     Dim Sqlstr As String                        '查询字符串
  718.     Dim Coljsq As Long                          '网格列计数器
  719.     Dim Jsqte As Long                           '临时动态计数器
  720.     Dim Str_Ccode As String                     '查询会计科目
  721.     Dim Int_BPeriod As Integer                  '查询起始会计期间
  722.     Dim Int_EPeriod As Integer                  '查询终止会计期间
  723.     Dim Int_Year As Integer                     '查询会计年度
  724.     Dim Dtm_BeginDay As Date                    '查询起始日期
  725.     Dim Dtm_EndDay As Date                      '查询终止日期
  726.     Dim Dtm_DqDay As Date                       '查询当前日期
  727.     Dim Bln_QueryDay As Boolean                 '是否按日查询
  728.     Dim Bln_IncluNotBook As Boolean             '是否包含未记帐凭证
  729.     Dim Bln_QcZeroShow As Boolean               '查询会计期间期初数据如果为零是否显示
  730.     Dim Bln_CqGcShow As Boolean                 '是否显示承前过次
  731.     Dim Int_Zdzyhs As Integer                   '正式帐页指定报表行数
  732.     Dim Bln_EndFlag As Boolean                  '判断当前科目是否为末级科目
  733.     Dim Int_DqPeriod As Integer                 '查询进行当前会计期间
  734.     Dim Bln_NotFirst As Boolean                 '是否为首次循环
  735.     Dim Bln_ForeignFlag As Boolean              '判断此科目是否外币核算
  736.     Dim Lng_DayCount As Long                    '本日明细帐记录条数
  737.     Dim Lng_MonthCount As Long                  '本月明细帐记录条数
  738.     Dim Lng_YearCount As Long                   '本年明细帐记录条数
  739.     
  740.     Dim Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#   '期初金额,数量,外币
  741.     Dim Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj# '本期合计(金额,数量,外币)
  742.     Dim Dbl_DayJejfhj#, Dbl_DayJedfhj#, Dbl_DaySljfhj#, Dbl_DaySldfhj#, Dbl_DayWbjfhj#, Dbl_DayWbdfhj#  '本日合计(金额,数量,外币)
  743.     Dim Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj# '截止累计(金额,数量,外币)
  744.     Dim Dbl_Qmyete#, Dbl_Qmslte#, Dbl_Qmwbte#   '期末金额,数量,外币
  745.     '以下为用户自定义部分[
  746.     
  747.     '清除原查询数据
  748.     CxbbGrid.Rows = CxbbGrid.FixedRows
  749.     
  750.     If Imgebo_QueryCode.ComboItems.count = 0 Then
  751.         Exit Sub
  752.     End If
  753.     
  754.     '得到当前查询科目,并判断是否为末级科目
  755.     Str_Ccode = GetComboKey(Imgebo_QueryCode, 0)
  756.     Sqlstr = "SELECT EndFlag,AccFormat,ForeignFlag,ForeignCurrName,IDec,ConVertFlag From Cwzz_AccCode Left JOIN Gy_ForeignCurrency ON" & _
  757.     " Cwzz_AccCode.ForeignCurrCode = Gy_ForeignCurrency.ForeignCurrCode Where Ccode='" & Str_Ccode & "'"
  758.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  759.     If Not RecTemp.EOF Then
  760.         Bln_EndFlag = RecTemp.Fields("EndFlag")
  761.         Combo_AccFormat.Text = Trim(RecTemp.Fields("AccFormat") & "")
  762.         If RecTemp.Fields("ForeignFlag") Then
  763.             Bln_ForeignFlag = True
  764.             Lab_TitleMess(2).Visible = True
  765.             Lab_TitleText(1).Caption = Trim(RecTemp.Fields("ForeignCurrName") & "")
  766.             Bln_ConVertFlag = IIf(IsNull(RecTemp.Fields("ConVertFlag")), False, RecTemp.Fields("ConVertFlag"))
  767.             Int_Wbhlxsws = RecTemp.Fields("IDec")
  768.         Else
  769.             Bln_ForeignFlag = False
  770.             Lab_TitleMess(2).Visible = False
  771.             Lab_TitleText(1).Caption = ""
  772.         End If
  773.     End If
  774.     
  775.     '得到查询起始和截止会计期间,并判断是否包含未记帐凭证
  776.     With ZB_FrmKmrjztj
  777.         
  778.         '是否包含未记帐凭证
  779.         If .Chk_NotBook.Value = 1 Then
  780.             Bln_IncluNotBook = True
  781.         Else
  782.             Bln_IncluNotBook = False
  783.         End If
  784.         
  785.         '查询会计期间期初数据如果为零是否显示
  786.         If .Chk_QcZeroShow = 1 Then
  787.             Bln_QcZeroShow = True
  788.         Else
  789.             Bln_QcZeroShow = False
  790.         End If
  791.         
  792.         '判断是按月查询还是按日查询
  793.         If .Opt_MouthDay(1).Value = True Then
  794.             Bln_QueryDay = True
  795.             Dtm_BeginDay = CDate(.LrText(0).Text)
  796.             Dtm_EndDay = CDate(.LrText(1).Text)
  797.         Else
  798.             Bln_QueryDay = False
  799.         End If
  800.         
  801.         '根据不同的查询方式得到不同的查询年度,起始会计期间,终止会计期间
  802.         If Not Bln_QueryDay Then
  803.             Int_Year = Int(Mid(.Combo_Kjqj(0).Text, 1, 4))
  804.             Int_BPeriod = Int(Mid(.Combo_Kjqj(0).Text, 6, 2))
  805.             Int_EPeriod = Int(Mid(.Combo_Kjqj(1).Text, 6, 2))
  806.         Else
  807.             Int_Year = Int(Mid(.LrText(0).Text, 1, 4))
  808.             Sqlstr = "Select period From gy_kjrlb where qsrq<='" & .LrText(0).Text & "' and zzrq>='" & .LrText(0).Text + "'"
  809.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  810.             If Not RecTemp.EOF Then
  811.                 Int_BPeriod = RecTemp.Fields("period")
  812.             End If
  813.             Sqlstr = "Select period From gy_kjrlb where qsrq<='" & .LrText(1).Text & "' and zzrq>='" & .LrText(1).Text + "'"
  814.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  815.             If Not RecTemp.EOF Then
  816.                 Int_EPeriod = RecTemp.Fields("period")
  817.             End If
  818.         End If
  819.         
  820.         '是否显示承前过次,如显示则将页面设置指定行数控制为>1且必须指定报表行数打印输出
  821.         If .Chk_CqGcShow = 1 Then
  822.             Bln_CqGcShow = True
  823.             Dyymctbl.ZdhsCheck.Enabled = False
  824.             Dyymctbl.ZdhsCheck.Value = 1
  825.             Dyymctbl.BbhsText.Enabled = False
  826.             Dyymctbl.BbhsVScroll.Enabled = False
  827.             Dyymctbl.BbhsText.Text = .LrText(2).Text
  828.         Else
  829.             Bln_CqGcShow = False
  830.             Dyymctbl.ZdhsCheck.Enabled = True
  831.             Dyymctbl.BbhsText.Enabled = True
  832.             Dyymctbl.BbhsVScroll.Enabled = True
  833.         End If
  834.         Int_Zdzyhs = Val(.LrText(2).Text)
  835.         
  836.     End With
  837.     
  838.     '初始化各种值
  839.     Dbl_Qcyete = 0
  840.     Dbl_Qcslte = 0
  841.     Dbl_Qcwbte = 0
  842.     
  843.     DayDbl_Jejfhj = 0
  844.     DayDbl_Jedfhj = 0
  845.     DayDbl_Sljfhj = 0
  846.     DayDbl_Sldfhj = 0
  847.     DayDbl_Wbjfhj = 0
  848.     DayDbl_Wbdfhj = 0
  849.     
  850.     Dbl_Jejfhj = 0
  851.     Dbl_Jedfhj = 0
  852.     Dbl_Sljfhj = 0
  853.     Dbl_Sldfhj = 0
  854.     Dbl_Wbjfhj = 0
  855.     Dbl_Wbdfhj = 0
  856.     
  857.     Dbl_Jejflj = 0
  858.     Dbl_Jedflj = 0
  859.     Dbl_Sljflj = 0
  860.     Dbl_Sldflj = 0
  861.     Dbl_Wbjflj = 0
  862.     Dbl_Wbdflj = 0
  863.     
  864.     Lng_DayCount = 0
  865.     Lng_MonthCount = 0
  866.     Lng_YearCount = 0
  867.     
  868.     Jsqte = CxbbGrid.FixedRows - 1
  869.     
  870.     '1.计算期初余额(金额,数量,外币),并计算截止查询起始会计期间累计数据
  871.     Sqlstr = "SELECT * From Cwzz_AccSum Where Ccode='" & Str_Ccode & "' And Year=" & Int_Year & _
  872.     " And Period=" & Int_BPeriod
  873.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  874.     If Not RecTemp.EOF Then
  875.         Dbl_Qcyete = RecTemp.Fields("Qcye")
  876.         Dbl_Qcslte = RecTemp.Fields("Qcsl")
  877.         Dbl_Qcwbte = RecTemp.Fields("Qcwb")
  878.         
  879.         '截止累计数据需要减掉本会计期间相应记帐数据
  880.         Dbl_Jejflj = RecTemp.Fields("Byjfljje") - RecTemp.Fields("Mjje")
  881.         Dbl_Jedflj = RecTemp.Fields("Bydfljje") - RecTemp.Fields("Mdje")
  882.         Dbl_Sljflj = RecTemp.Fields("Byjfljsl") - RecTemp.Fields("Mjsl")
  883.         Dbl_Sldflj = RecTemp.Fields("Bydfljsl") - RecTemp.Fields("Mdsl")
  884.         Dbl_Wbjflj = RecTemp.Fields("Byjfljwb") - RecTemp.Fields("Mjwb")
  885.         Dbl_Wbdflj = RecTemp.Fields("Bydfljwb") - RecTemp.Fields("Mdwb")
  886.     End If
  887.     
  888.     '如果包含未记帐凭证则计算小于查询起始会计期间包含科目借贷方合计
  889.     If Bln_IncluNotBook Then
  890.         Sqlstr = "SELECT Sum(Jfje) as Jfjehj,Sum(Dfje) as Dfjehj,Sum(Jfsl) as Jfslhj,Sum(Dfsl) as Dfslhj" & _
  891.         ",Sum(Wbjfje) as Wbjfjehj,Sum(Wbdfje) as Wbdfjehj From Cwzz_V_AccVouch Where BookFlag=0 And Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & _
  892.         " And Period<" & Int_BPeriod
  893.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  894.         If Not RecTemp.EOF Then
  895.             Dbl_Qcyete = Dbl_Qcyete + Val(RecTemp.Fields("Jfjehj") & "") - Val(RecTemp.Fields("Dfjehj") & "")
  896.             Dbl_Qcslte = Dbl_Qcslte + Val(RecTemp.Fields("Jfslhj") & "") - Val(RecTemp.Fields("Dfslhj") & "")
  897.             Dbl_Qcwbte = Dbl_Qcwbte + Val(RecTemp.Fields("Wbjfjehj") & "") - Val(RecTemp.Fields("Wbdfjehj") & "")
  898.             
  899.             '计算相应截止查询起始会计期间累计数据
  900.             Dbl_Jejflj = Dbl_Jejflj + Val(RecTemp.Fields("Jfjehj") & "")
  901.             Dbl_Jedflj = Dbl_Jedflj + Val(RecTemp.Fields("Dfjehj") & "")
  902.             Dbl_Sljflj = Dbl_Sljflj + Val(RecTemp.Fields("Jfslhj") & "")
  903.             Dbl_Sldflj = Dbl_Sldflj + Val(RecTemp.Fields("Dfslhj") & "")
  904.             Dbl_Wbjflj = Dbl_Wbjflj + Val(RecTemp.Fields("Wbjfjehj") & "")
  905.             Dbl_Wbdflj = Dbl_Wbdflj + Val(RecTemp.Fields("Wbdfjehj") & "")
  906.         End If
  907.     End If
  908.     
  909.     
  910.     '判断按月查询还是按日查询分别作不同的处理(按月查询输出期初余额,而按日合计则输出昨日余额)
  911.     If Not Bln_QueryDay Then
  912.         If (Dbl_Qcyete <> 0 Or (Bln_EndFlag And (Dbl_Qcslte <> 0 Or Dbl_Qcwbte <> 0))) Or Bln_QcZeroShow Then    '如果期初数据为零,且用户选择不输出则不显示此行数据
  913.             CxbbGrid.AddItem ""
  914.             Jsqte = Jsqte + 1
  915.             
  916.             '将期初数据写入网格(第1会计期间为上年结转,其余会计期间为期初余额)
  917.             If Int_BPeriod = 1 Then
  918.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "上年结转"
  919.             Else
  920.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "期初余额"
  921.             End If
  922.             
  923.             '输出余额
  924.             Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  925.         End If
  926.     Else
  927.         
  928.         '计算昨日余额
  929.         If Bln_IncluNotBook Then   '判断是否包含未记帐凭证
  930.             Sqlstr = "SELECT Sum(Jfje) as Jfjehj,Sum(Dfje) as Dfjehj,Sum(Jfsl) as Jfslhj,Sum(Dfsl) as Dfslhj" & _
  931.             ",Sum(Wbjfje) as Wbjfjehj,Sum(Wbdfje) as Wbdfjehj From Cwzz_V_AccVouch Where Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & _
  932.             " And Period>=" & Int_BPeriod & " And DDate<'" & Dtm_BeginDay & "'"
  933.         Else
  934.             Sqlstr = "SELECT Sum(Jfje) as Jfjehj,Sum(Dfje) as Dfjehj,Sum(Jfsl) as Jfslhj,Sum(Dfsl) as Dfslhj" & _
  935.             ",Sum(Wbjfje) as Wbjfjehj,Sum(Wbdfje) as Wbdfjehj From Cwzz_V_AccVouch Where BookFlag='1' And Ccode like '" & Str_Ccode & "%' And Year=" & Int_Year & _
  936.             " And Period>=" & Int_BPeriod & " And DDate<'" & Dtm_BeginDay & "'"
  937.         End If
  938.         Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  939.         If Not RecTemp.EOF Then
  940.             Dbl_Qcyete = Dbl_Qcyete + Val(RecTemp.Fields("Jfjehj") & "") - Val(RecTemp.Fields("Dfjehj") & "")
  941.             Dbl_Qcslte = Dbl_Qcslte + Val(RecTemp.Fields("Jfslhj") & "") - Val(RecTemp.Fields("Dfslhj") & "")
  942.             Dbl_Qcwbte = Dbl_Qcwbte + Val(RecTemp.Fields("Wbjfjehj") & "") - Val(RecTemp.Fields("Wbdfjehj") & "")
  943.             
  944.             Dbl_Jejflj = Dbl_Jejflj + Val(RecTemp.Fields("Jfjehj") & "")
  945.             Dbl_Jedflj = Dbl_Jedflj + Val(RecTemp.Fields("Dfjehj") & "")
  946.             Dbl_Sljflj = Dbl_Sljflj + Val(RecTemp.Fields("Jfslhj") & "")
  947.             Dbl_Sldflj = Dbl_Sldflj + Val(RecTemp.Fields("Dfslhj") & "")
  948.             Dbl_Wbjflj = Dbl_Wbjflj + Val(RecTemp.Fields("Wbjfjehj") & "")
  949.             Dbl_Wbdflj = Dbl_Wbdflj + Val(RecTemp.Fields("Wbdfjehj") & "")
  950.         End If
  951.         
  952.         If (Dbl_Qcyete <> 0 Or (Bln_EndFlag And (Dbl_Qcslte <> 0 Or dnl_qcwbte <> 0))) Or Bln_QcZeroShow Then    '如果期初数据为零,且用户选择不输出则不显示此行数据
  953.             CxbbGrid.AddItem ""
  954.             Jsqte = Jsqte + 1
  955.             
  956.             '将期初数据写入网格(昨日余额)
  957.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "昨日余额"
  958.             
  959.             '输出余额
  960.             Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  961.         End If
  962.         
  963.     End If
  964.     
  965.     '2.读取查询会计期间范围内所有符合条件明细帐数据(以年度+会计期间),并写入网格
  966.     
  967.     Bln_NotFirst = False
  968.     
  969.     '筛选所有符合条件数据
  970.     
  971.     If Not Bln_QueryDay Then
  972.         Sqlstr = "SELECT *" & _
  973.         " From Cwzz_V_AccVouchAss Where Ccode like '" & Str_Ccode & "%'And Year=" & Int_Year & _
  974.         " And Period>=" & Int_BPeriod & " And Period<=" & Int_EPeriod
  975.     Else
  976.         Sqlstr = "SELECT *" & _
  977.         " From Cwzz_V_AccVouchAss Where Ccode like '" & Str_Ccode & "%'" & _
  978.         " And DDate>='" & Dtm_BeginDay & "' And DDate<='" & Dtm_EndDay & "'"
  979.     End If
  980.     If Not Bln_IncluNotBook Then
  981.         Sqlstr = Sqlstr & " And BookFlag=1"
  982.     End If
  983.     Sqlstr = Sqlstr & " Order By Year,Period,Ddate,VouchID,SerialID"
  984.     
  985.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  986.     
  987.     With RecTemp
  988.         
  989.         Do While Not .EOF
  990.             If Bln_NotFirst Then
  991.                 
  992.                 If .Fields("DDate") <> Dtm_DqDay Then
  993.                     '显示本日合计
  994.                     If Lng_DayCount <> 0 Then
  995.                         CxbbGrid.AddItem ""
  996.                         Jsqte = Jsqte + 1
  997.                         
  998.                         '输出本日合计
  999.                         Call Sub_OutDaySum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dtm_DqDay, Dbl_DayJejfhj, Dbl_DayJedfhj, Dbl_DaySljfhj, Dbl_DaySldfhj, Dbl_DayWbjfhj, Dbl_DayWbdfhj)
  1000.                         
  1001.                         '输出余额
  1002.                         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1003.                     End If
  1004.                     
  1005.                     '重新初始化本日合计数据
  1006.                     Dbl_DayJejfhj = 0
  1007.                     Dbl_DayJedfhj = 0
  1008.                     Dbl_DaySljfhj = 0
  1009.                     Dbl_DaySldfhj = 0
  1010.                     Dbl_DayWbjfhj = 0
  1011.                     Dbl_DayWbdfhj = 0
  1012.                     
  1013.                     Lng_DayCount = 0
  1014.                 End If
  1015.                 
  1016.                 '当前进行会计期间发生变化则添加本月合计及本年累计
  1017.                 If .Fields("Period") <> Int_DqPeriod Then
  1018.                     '显示本月合计
  1019.                     If Lng_MonthCount <> 0 Then
  1020.                         CxbbGrid.AddItem ""
  1021.                         Jsqte = Jsqte + 1
  1022.                         
  1023.                         '输出本月合计
  1024.                         Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
  1025.                         
  1026.                         '输出余额
  1027.                         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1028.                     End If
  1029.                     
  1030.                     '重新初始化本月合计数据
  1031.                     Dbl_Jejfhj = 0
  1032.                     Dbl_Jedfhj = 0
  1033.                     Dbl_Sljfhj = 0
  1034.                     Dbl_Sldfhj = 0
  1035.                     Dbl_Wbjfhj = 0
  1036.                     Dbl_Wbdfhj = 0
  1037.                     
  1038.                     Lng_MonthCount = 0
  1039.                     
  1040.                     '显示本年累计
  1041.                     If Lng_YearCount <> 0 Then
  1042.                         CxbbGrid.AddItem ""
  1043.                         Jsqte = Jsqte + 1
  1044.                         
  1045.                         '输出本年累计
  1046.                         Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
  1047.                         
  1048.                         '输出余额
  1049.                         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1050.                     End If
  1051.                     
  1052.                     
  1053.                 End If        '显示本月合计,本年累计完毕
  1054.             End If
  1055.             
  1056.             Bln_NotFirst = True
  1057.             
  1058.             '显示明细数据
  1059.             CxbbGrid.AddItem ""
  1060.             Jsqte = Jsqte + 1
  1061.             
  1062.             '本日、本月、本年记录计数器+1
  1063.             Lng_DayCount = Lng_DayCount + 1
  1064.             Lng_MonthCount = Lng_MonthCount + 1
  1065.             Lng_YearCount = Lng_YearCount + 1
  1066.             
  1067.             '未记帐明细分录变色显示
  1068.             If .Fields("BookFlag") = 0 Then
  1069.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
  1070.             End If
  1071.             
  1072.             '修改当前会计期间,当前日期
  1073.             Int_DqPeriod = .Fields("Period")
  1074.             Dtm_DqDay = .Fields("DDate")
  1075.             
  1076.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("VouchId")              '凭证ID
  1077.             
  1078.             If IsDate(.Fields("Ddate")) Then
  1079.                 CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = .Fields("Ddate")                    '日期
  1080.             End If
  1081.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") + "-" + Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4) '凭证字号
  1082.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")           '摘要
  1083.             
  1084.             '部门
  1085.             If Trim(.Fields("DeptName") & "") <> "" Then
  1086.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("DeptName") & "")
  1087.             End If
  1088.             '个人
  1089.             If Trim(.Fields("PersonName") & "") <> "" Then
  1090.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("PersonName") & "")
  1091.             End If
  1092.             '客户
  1093.             If Trim(.Fields("CusName") & "") <> "" Then
  1094.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("CusName") & "")
  1095.             End If
  1096.             '项目
  1097.             If Trim(.Fields("ItemName") & "") <> "" Then
  1098.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("ItemName") & "")
  1099.             End If
  1100.             
  1101.             If .Fields("Jfje") <> 0 Then                                                                       '借方金额
  1102.                 CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = .Fields("Jfje")
  1103.                 CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = .Fields("Jfje")
  1104.             End If
  1105.             If .Fields("Dfje") <> 0 Then                                                                       '贷方金额
  1106.                 CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = .Fields("Dfje")
  1107.                 CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = .Fields("Dfje")
  1108.             End If
  1109.             
  1110.             '只有末级科目才显示数量和外币,数量不为零则计算单价
  1111.             If Bln_EndFlag Then
  1112.                 If .Fields("Jfsl") <> 0 Then                                                                    '借方数量
  1113.                     CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = .Fields("Jfsl")
  1114.                     If .Fields("Jfje") <> 0 Then
  1115.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Jfje") / .Fields("Jfsl"), "##." + String(Xtdjxsws, "0"))
  1116.                     Else
  1117.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Dfje") / .Fields("Jfsl"), "##." + String(Xtdjxsws, "0"))
  1118.                     End If
  1119.                 End If
  1120.                 If .Fields("Dfsl") <> 0 Then                                                                    '贷方数量
  1121.                     CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = .Fields("Dfsl")
  1122.                     If .Fields("Jfje") <> 0 Then
  1123.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Jfje") / .Fields("Dfsl"), "##." + String(Xtdjxsws, "0"))
  1124.                     Else
  1125.                         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Format(.Fields("Dfje") / .Fields("Dfsl"), "##." + String(Xtdjxsws, "0"))
  1126.                     End If
  1127.                 End If
  1128.             End If
  1129.             If Bln_EndFlag And Bln_ForeignFlag Then
  1130.                 If .Fields("Wbjfje") <> 0 Then                                                                  '借方外币
  1131.                     CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = .Fields("Wbjfje")
  1132.                 End If
  1133.                 If .Fields("Wbdfje") <> 0 Then                                                                  '贷方外币
  1134.                     CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = .Fields("Wbdfje")
  1135.                 End If
  1136.                 If .Fields("AccRate") <> 0 Then                                                                 '记帐汇率
  1137.                     CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Format(.Fields("AccRate"), "##." + String(Int_Wbhlxsws, "0"))
  1138.                 End If
  1139.                 
  1140.             End If
  1141.             
  1142.             '累加本日合计,本月合计,本年累计数据
  1143.             Dbl_DayJejfhj = Dbl_DayJejfhj + .Fields("Jfje")
  1144.             Dbl_DayJedfhj = Dbl_DayJedfhj + .Fields("Dfje")
  1145.             Dbl_DaySljfhj = Dbl_DaySljfhj + .Fields("Jfsl")
  1146.             Dbl_DaySldfhj = Dbl_DaySldfhj + .Fields("Dfsl")
  1147.             Dbl_DayWbjfhj = Dbl_DayWbjfhj + .Fields("Wbjfje")
  1148.             Dbl_DayWbdfhj = Dbl_DayWbdfhj + .Fields("Wbdfje")
  1149.             
  1150.             Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Jfje")
  1151.             Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Dfje")
  1152.             Dbl_Sljfhj = Dbl_Sljfhj + .Fields("Jfsl")
  1153.             Dbl_Sldfhj = Dbl_Sldfhj + .Fields("Dfsl")
  1154.             Dbl_Wbjfhj = Dbl_Wbjfhj + .Fields("Wbjfje")
  1155.             Dbl_Wbdfhj = Dbl_Wbdfhj + .Fields("Wbdfje")
  1156.             
  1157.             Dbl_Jejflj = Dbl_Jejflj + .Fields("Jfje")
  1158.             Dbl_Jedflj = Dbl_Jedflj + .Fields("Dfje")
  1159.             Dbl_Sljflj = Dbl_Sljflj + .Fields("Jfsl")
  1160.             Dbl_Sldflj = Dbl_Sldflj + .Fields("Dfsl")
  1161.             Dbl_Wbjflj = Dbl_Wbjflj + .Fields("Wbjfje")
  1162.             Dbl_Wbdflj = Dbl_Wbdflj + .Fields("Wbdfje")
  1163.             
  1164.             '3.计算余额
  1165.             Dbl_Qcyete = Dbl_Qcyete + .Fields("Jfje") - .Fields("Dfje")
  1166.             Dbl_Qcslte = Dbl_Qcslte + .Fields("Jfsl") - .Fields("Dfsl")
  1167.             Dbl_Qcwbte = Dbl_Qcwbte + .Fields("Wbjfje") - .Fields("Wbdfje")
  1168.             
  1169.             '输出余额
  1170.             Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1171.             
  1172.             .MoveNext
  1173.             
  1174.             '计算是否输出承前/过次行(如果用户选择输出承前/过次）
  1175.             If Bln_CqGcShow Then
  1176.                 If Not .EOF Then
  1177.                     If .Fields("Period") = Int_DqPeriod Then
  1178.                         Call Sub_OutQcGc(Jsqte, Int_Zdzyhs, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1179.                     End If
  1180.                 End If
  1181.             End If
  1182.             
  1183.         Loop
  1184.         
  1185.         '添加本月合计及本年累计
  1186.         
  1187.         If Bln_NotFirst Then
  1188.             '显示本日合计
  1189.             If Lng_DayCount <> 0 Then
  1190.                 CxbbGrid.AddItem ""
  1191.                 Jsqte = Jsqte + 1
  1192.                 
  1193.                 '输出本日合计
  1194.                 Call Sub_OutDaySum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dtm_DqDay, Dbl_DayJejfhj, Dbl_DayJedfhj, Dbl_DaySljfhj, Dbl_DaySldfhj, Dbl_DayWbjfhj, Dbl_DayWbdfhj)
  1195.                 
  1196.                 '输出余额
  1197.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1198.             End If
  1199.             
  1200.             If Lng_MonthCount <> 0 Then
  1201.                 CxbbGrid.AddItem ""
  1202.                 Jsqte = Jsqte + 1
  1203.                 
  1204.                 '输出本月合计
  1205.                 Call Sub_OutPeriodSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Sljfhj, Dbl_Sldfhj, Dbl_Wbjfhj, Dbl_Wbdfhj)
  1206.                 
  1207.                 '输出余额
  1208.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1209.             End If
  1210.             
  1211.             '显示本年累计
  1212.             If Lng_YearCount <> 0 Then
  1213.                 CxbbGrid.AddItem ""
  1214.                 Jsqte = Jsqte + 1
  1215.                 
  1216.                 '输出本年累计
  1217.                 Call Sub_OutYearSum(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_Sljflj, Dbl_Sldflj, Dbl_Wbjflj, Dbl_Wbdflj)
  1218.                 
  1219.                 '输出余额
  1220.                 Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1221.             End If
  1222.             
  1223.             
  1224.         End If
  1225.         
  1226.     End With
  1227.     
  1228.     '重置网格行高
  1229.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  1230.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1231.     Next Jsqte
  1232.     
  1233. End Sub
  1235. Private Sub Combo_AccFormat_Click()                    '用户选择不同帐页格式
  1236.     Dim Int_Coljsq As Integer         '网格列临时计数器
  1237.     
  1238.     '为了加快显示速度
  1239.     CxbbGrid.Redraw = False
  1240.     
  1241.     For Int_Coljsq = Qslz To CxbbGrid.Cols - 1
  1242.         CxbbGrid.ColHidden(Int_Coljsq) = True
  1243.     Next Int_Coljsq
  1244.     
  1245.     Select Case Combo_AccFormat
  1246.     Case "金额式"
  1247.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1248.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1249.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1250.         CxbbGrid.ColHidden(Sydz("006", GridStr(), Szzls)) = False      '借方.借方
  1251.         CxbbGrid.ColHidden(Sydz("010", GridStr(), Szzls)) = False      '贷方.贷方
  1252.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1253.         CxbbGrid.ColHidden(Sydz("020", GridStr(), Szzls)) = False      '余额.余额
  1254.         
  1255.     Case "外币金额式"
  1256.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1257.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1258.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1259.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
  1260.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
  1261.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1262.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
  1263.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1264.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1265.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
  1266.         CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
  1267.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1268.         
  1269.     Case "数量金额式"
  1270.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1271.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1272.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1273.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
  1274.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
  1275.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1276.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
  1277.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1278.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1279.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  1280.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
  1281.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1282.     Case "数量外币式"
  1283.         CxbbGrid.ColHidden(Sydz("001", GridStr(), Szzls)) = False      '日期
  1284.         CxbbGrid.ColHidden(Sydz("002", GridStr(), Szzls)) = False      '凭证字号
  1285.         CxbbGrid.ColHidden(Sydz("003", GridStr(), Szzls)) = False      '摘要
  1286.         CxbbGrid.ColHidden(Sydz("004", GridStr(), Szzls)) = False      '单价
  1287.         CxbbGrid.ColHidden(Sydz("005", GridStr(), Szzls)) = False      '汇率
  1288.         CxbbGrid.ColHidden(Sydz("007", GridStr(), Szzls)) = False      '借方.数量
  1289.         CxbbGrid.ColHidden(Sydz("008", GridStr(), Szzls)) = False      '借方.外币
  1290.         CxbbGrid.ColHidden(Sydz("009", GridStr(), Szzls)) = False      '借方.金额
  1291.         CxbbGrid.ColHidden(Sydz("011", GridStr(), Szzls)) = False      '贷方.数量
  1292.         CxbbGrid.ColHidden(Sydz("012", GridStr(), Szzls)) = False      '贷方.外币
  1293.         CxbbGrid.ColHidden(Sydz("013", GridStr(), Szzls)) = False      '贷方.金额
  1294.         CxbbGrid.ColHidden(Sydz("014", GridStr(), Szzls)) = False      '方向.方向
  1295.         CxbbGrid.ColHidden(Sydz("015", GridStr(), Szzls)) = False      '余额.数量
  1296.         CxbbGrid.ColHidden(Sydz("016", GridStr(), Szzls)) = False      '余额.单价
  1297.         CxbbGrid.ColHidden(Sydz("017", GridStr(), Szzls)) = False      '余额.外币
  1298.         CxbbGrid.ColHidden(Sydz("018", GridStr(), Szzls)) = False      '余额.汇率
  1299.         CxbbGrid.ColHidden(Sydz("019", GridStr(), Szzls)) = False      '余额.金额
  1300.     End Select
  1301.     CxbbGrid.Redraw = True
  1302. End Sub
  1304. Private Sub Sub_OutBalance(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#)          '输出余额
  1305.     If Dbl_Qcyete = 0 Then
  1306.         CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "平"          '期初方向
  1307.         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1308.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  1309.         End If
  1310.         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1311.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
  1312.         End If
  1313.     Else
  1314.         If Dbl_Qcyete > 0 Then
  1315.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "借"
  1316.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = Dbl_Qcyete
  1317.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = Dbl_Qcyete
  1318.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1319.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Dbl_Qcslte
  1320.             End If
  1321.             If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1322.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Dbl_Qcwbte
  1323.             End If
  1324.         Else
  1325.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = "贷"
  1326.             CxbbGrid.TextMatrix(Jsqte, Sydz("019", GridStr(), Szzls)) = -Dbl_Qcyete
  1327.             CxbbGrid.TextMatrix(Jsqte, Sydz("020", GridStr(), Szzls)) = -Dbl_Qcyete
  1328.             If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1329.                 CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = -Dbl_Qcslte
  1330.             End If
  1331.             If Bln_EndFlag And Dbl_Qcwbte And Bln_ForeignFlag <> 0 Then
  1332.                 CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = -Dbl_Qcwbte
  1333.             End If
  1334.         End If
  1335.         
  1336.         '输出单价
  1337.         If Bln_EndFlag And Dbl_Qcslte <> 0 Then
  1338.             CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcslte, "##." + String(Xtdjxsws, "0"))
  1339.         End If
  1340.         '输出外币汇率
  1341.         If Bln_EndFlag And Bln_ForeignFlag And Dbl_Qcwbte <> 0 Then
  1342.             If Bln_ConVertFlag Then      '(外币/汇率=本位币)
  1343.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcwbte / Dbl_Qcyete, "##." + String(Int_Wbhlxsws, "0"))
  1344.             Else
  1345.                 CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Format(Dbl_Qcyete / Dbl_Qcwbte, "##." + String(Int_Wbhlxsws, "0"))
  1346.             End If
  1347.         End If
  1348.         
  1349.     End If
  1350. End Sub
  1352. Private Sub Sub_OutDaySum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Dtm_DqDay As Date, Dbl_DayJejfhj#, Dbl_DayJedfhj#, Dbl_DaySljfhj#, Dbl_DaySldfhj#, Dbl_DayWbjfhj#, Dbl_DayWbdfhj#)  '输出本日合计
  1353.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Dtm_DqDay
  1354.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本日合计"
  1355.     If Dbl_DayJejfhj <> 0 Then                                                        '本日借方金额合计
  1356.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_DayJejfhj
  1357.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_DayJejfhj
  1358.     End If
  1359.     If Dbl_DayJedfhj <> 0 Then                                                        '本日贷方金额合计
  1360.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_DayJedfhj
  1361.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_DayJedfhj
  1362.     End If
  1363.     
  1364.     '只有末级科目才显示数量和外币
  1365.     If Bln_EndFlag Then
  1366.         If Dbl_DaySljfhj <> 0 Then                                                     '本日借方数量合计
  1367.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_DaySljfhj
  1368.         End If
  1369.         If Dbl_DaySldfhj <> 0 Then                                                     '本日贷方数量合计
  1370.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_DaySldfhj
  1371.         End If
  1372.     End If
  1373.     
  1374.     If Bln_EndFlag And Bln_ForeignFlag Then
  1375.         If Dbl_DayWbjfhj <> 0 Then                                                     '本日借方外币合计
  1376.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_DayWbjfhj
  1377.         End If
  1378.         If Dbl_DayWbdfhj <> 0 Then                                                     '本日贷方外币合计
  1379.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_DayWbdfhj
  1380.         End If
  1381.     End If
  1382. End Sub
  1384. Private Sub Sub_OutPeriodSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#) '输出本月合计
  1385.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1386.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本月合计"
  1387.     If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1388.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
  1389.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
  1390.     End If
  1391.     If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1392.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
  1393.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
  1394.     End If
  1395.     
  1396.     '只有末级科目才显示数量和外币
  1397.     If Bln_EndFlag Then
  1398.         If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
  1399.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
  1400.         End If
  1401.         If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
  1402.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
  1403.         End If
  1404.     End If
  1405.     If Bln_EndFlag And Bln_ForeignFlag Then
  1406.         If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
  1407.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
  1408.         End If
  1409.         If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
  1410.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
  1411.         End If
  1412.     End If
  1413. End Sub
  1415. Private Sub Sub_OutYearSum(Jsqte As Long, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejflj#, Dbl_Jedflj#, Dbl_Sljflj#, Dbl_Sldflj#, Dbl_Wbjflj#, Dbl_Wbdflj#)  '输出本年累计
  1416.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1417.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
  1418.     If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
  1419.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejflj
  1420.         CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejflj
  1421.     End If
  1422.     If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
  1423.         CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedflj
  1424.         CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedflj
  1425.     End If
  1426.     
  1427.     '只有末级科目才显示数量和外币
  1428.     If Bln_EndFlag Then
  1429.         If Dbl_Sljflj <> 0 Then                                                     '本年借方数量累计
  1430.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljflj
  1431.         End If
  1432.         If Dbl_Sldflj <> 0 Then                                                     '本年贷方数量累计
  1433.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldflj
  1434.         End If
  1435.     End If
  1436.     If Bln_EndFlag And Bln_ForeignFlag Then
  1437.         If Dbl_Wbjflj <> 0 Then                                                     '本年借方外币累计
  1438.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjflj
  1439.         End If
  1440.         If Dbl_Wbdflj <> 0 Then                                                     '本年贷方外币累计
  1441.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdflj
  1442.         End If
  1443.     End If
  1444. End Sub
  1446. Private Sub Sub_OutQcGc(Jsqte As Long, Int_Zdzyhs%, Bln_EndFlag As Boolean, Bln_ForeignFlag As Boolean, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Sljfhj#, Dbl_Sldfhj#, Dbl_Wbjfhj#, Dbl_Wbdfhj#, Dbl_Qcyete#, Dbl_Qcslte#, Dbl_Qcwbte#) '输出承前/过次行
  1447.     If (Jsqte - CxbbGrid.FixedRows + 2) Mod Int_Zdzyhs = 0 Then
  1448.         CxbbGrid.AddItem ""
  1449.         Jsqte = Jsqte + 1
  1450.         CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
  1451.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1452.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "过次页"
  1453.         If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1454.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
  1455.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
  1456.         End If
  1457.         If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1458.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
  1459.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
  1460.         End If
  1461.         
  1462.         '只有末级科目才显示数量和外币
  1463.         If Bln_EndFlag Then
  1464.             If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
  1465.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
  1466.             End If
  1467.             If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
  1468.                 CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
  1469.             End If
  1470.         End If
  1471.         If Bln_EndFlag And Bln_ForeignFlag Then
  1472.             If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
  1473.                 CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
  1474.             End If
  1475.             If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
  1476.                 CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
  1477.             End If
  1478.         End If
  1479.         
  1480.         '输出余额
  1481.         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1482.         
  1483.         CxbbGrid.AddItem ""
  1484.         Jsqte = Jsqte + 1
  1485.         CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(2).BackColor
  1486.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1487.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "承前页"
  1488.         If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1489.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Dbl_Jejfhj
  1490.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Dbl_Jejfhj
  1491.         End If
  1492.         If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1493.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Dbl_Jedfhj
  1494.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Dbl_Jedfhj
  1495.         End If
  1496.         
  1497.         '只有末级科目才显示数量和外币
  1498.         If Bln_EndFlag Then
  1499.             If Dbl_Sljfhj <> 0 Then                                                     '本月借方数量合计
  1500.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Sljfhj
  1501.             End If
  1502.             If Dbl_Sldfhj <> 0 Then                                                     '本月贷方数量合计
  1503.                 CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Dbl_Sldfhj
  1504.             End If
  1505.         End If
  1506.         If Bln_EndFlag And Bln_ForeignFlag Then
  1507.             If Dbl_Wbjfhj <> 0 Then                                                     '本月借方外币合计
  1508.                 CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Dbl_Wbjfhj
  1509.             End If
  1510.             If Dbl_Wbdfhj <> 0 Then                                                     '本月贷方外币合计
  1511.                 CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Dbl_Wbdfhj
  1512.             End If
  1513.         End If
  1514.         
  1515.         '输出余额
  1516.         Call Sub_OutBalance(Jsqte, Bln_EndFlag, Bln_ForeignFlag, Dbl_Qcyete, Dbl_Qcslte, Dbl_Qcwbte)
  1517.     End If
  1518. End Sub
  1520. Private Sub CxbbGrid_DblClick()          '用户双击网格调入相应凭证
  1521.     Dim RecTemp As New ADODB.Recordset
  1522.     
  1523.     With CxbbGrid
  1524.         '非数据行退出
  1525.         If CxbbGrid.Row < CxbbGrid.FixedRows Then
  1526.             Exit Sub
  1527.         End If
  1528.         If Trim(.TextMatrix(.Row, 0)) = "" Then
  1529.             Exit Sub
  1530.         End If
  1531.     End With
  1532.     Sqlstr = "SELECT VouchID From Cwzz_AccVouchMain" & _
  1533.     " Where VouchID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1534.     
  1535.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1536.     
  1537.     With RecTemp
  1538.         
  1539.         If .EOF Then
  1540.             Tsxx = "此凭证已被其他用户删除!"
  1541.             Call Xtxxts(Tsxx, 0, 4)
  1542.             Exit Sub
  1543.         Else
  1544.             
  1545.             With PZ_JzpzclFrm
  1546.                 '填充查询凭证标识
  1547.                 .Lab_VouchId = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1548.                 
  1549.                 '设置凭证处理为列表查询状态
  1550.                 .Lab_Pzclzt.Caption = "4"
  1551.                 
  1552.                 .Show 1
  1553.                 
  1554.             End With
  1555.             
  1556.         End If
  1557.         
  1558.     End With
  1559.     
  1560. End Sub
  1562. Private Sub Sub_LcZflz()                               '联查总分类帐
  1563.     Dim Str_Ccode As String          '查询科目
  1564.     
  1565.     '如果科目为空则不进行查询
  1566.     If Trim(Imgebo_QueryCode.Text) <> "" Then
  1567.         Str_Ccode = GetComboKey(Imgebo_QueryCode, 0)
  1568.     Else
  1569.         Exit Sub
  1570.     End If
  1571.     
  1572.     '联查总分类帐
  1573.     If Trim(Str_Ccode) <> "" Then
  1574.         ZB_Frmzflztj.LrText(0).Text = Str_Ccode                                                                                                                 '查询科目
  1575.         ZB_Frmzflztj.Chk_NotBook.Value = ZB_FrmKmrjztj.Chk_NotBook.Value      '是否包含未记帐凭证
  1576.         ZB_Frmzflzjg.Timer1.Enabled = True                                    '激活查询总分类帐过程
  1577.         ZB_Frmzflzjg.Show
  1578.         ZB_Frmzflzjg.SetFocus
  1579.     End If
  1580. End Sub
  1582. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1583.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1584.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1585.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1586.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1587.     ReDim Bbxbt(1 To Bbxbtgs)
  1588.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1589.     If Bbbwhgs <> 0 Then
  1590.         ReDim Bbbwh(1 To Bbbwhgs)
  1591.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1592.     End If
  1593.     Bbzbt = ReportTitle
  1594.     Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_QueryCode.Text
  1595.     bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1596.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1597.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1598.     If Not bbylte Then
  1599.         Unload DY_Tybbyldy
  1600.     End If
  1601. End Sub
  1603. Private Sub Sub_Lxdy()                                 '帐页连续打印(帐页每批尽量少选)
  1604.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1605.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1606.     Dim Jsqte As Integer
  1607.     Dim YAnswer As Integer
  1608.     
  1609.     '用户确认是否开始连续打印帐页
  1610.     Tsxx = "请确认是否开始连续打印帐页？"
  1611.     YAnswer = Xtxxts(Tsxx, 2, 2)
  1612.     If YAnswer <> 1 Then
  1613.         Exit Sub
  1614.     End If
  1615.     
  1616.     '初始化连续打印状态
  1617.     Cmd_CancelPrint.Visible = True
  1618.     Cmd_CancelPrint.SetFocus
  1619.     Cmd_CancelPrint.Refresh
  1620.     Bln_CancelPrint = False
  1621.     Bln_Printing = True
  1622.     
  1623.     '循环输出打印作业
  1624.     For Jsqte = 1 To Imgebo_QueryCode.ComboItems.count
  1625.         Imgebo_QueryCode.Text = Imgebo_QueryCode.ComboItems(Jsqte).Text
  1626.         Imgebo_QueryCode.ComboItems.Item(Jsqte).Selected = True
  1627.         Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1628.         Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1629.         ReDim Bbxbt(1 To Bbxbtgs)
  1630.         ReDim bbxbtzzxs(1 To Bbxbtgs)
  1631.         If Bbbwhgs <> 0 Then
  1632.             ReDim Bbbwh(1 To Bbbwhgs)
  1633.             ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1634.         End If
  1635.         Bbzbt = ReportTitle
  1636.         Bbxbt(1) = Space(2) + "科目名称：" + Me.Imgebo_QueryCode.Text
  1637.         bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1638.         Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1639.         Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, False, True)
  1640.         Unload DY_Tybbyldy
  1641.         DoEvents
  1642.         If Bln_CancelPrint Then
  1643.             Bln_Printing = False
  1644.             Exit Sub
  1645.         End If
  1646.     Next Jsqte
  1647.     Bln_Printing = False
  1648.     Cmd_CancelPrint.Visible = False
  1649. End Sub
  1651. Private Sub Cmd_CancelPrint_Click()                    '取消帐页连续打印
  1652.     Bln_CancelPrint = True
  1653.     Cmd_CancelPrint.Visible = False
  1654. End Sub