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

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

企业管理

开发平台：

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