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

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

企业管理

开发平台：

Visual Basic

：源码内容
  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 ZF_Bm_FrmDlzCxjg 
  5.    Caption         =   "部门多栏帐查结果"
  6.    ClientHeight    =   7950
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11400
  10.    Icon            =   "辅助_部门_多栏帐查询结果.frx":0000
  11.    LinkTopic       =   "Form1"
  12.    MDIChild        =   -1  'True
  13.    ScaleHeight     =   7950
  14.    ScaleWidth      =   11400
  15.    Begin VB.PictureBox Pic_Title 
  16.       Height          =   1065
  17.       Left            =   30
  18.       Picture         =   "辅助_部门_多栏帐查询结果.frx":1042
  19.       ScaleHeight     =   1005
  20.       ScaleWidth      =   11535
  21.       TabIndex        =   0
  22.       Top             =   600
  23.       Width           =   11595
  24.       Begin VB.Label Lab_TitleMess 
  25.          AutoSize        =   -1  'True
  26.          BackStyle       =   0  'Transparent
  27.          Caption         =   "会计期间:"
  28.          Height          =   180
  29.          Index           =   0
  30.          Left            =   6000
  31.          TabIndex        =   11
  32.          Top             =   750
  33.          Width           =   810
  34.       End
  35.       Begin VB.Label TsLabel 
  36.          BackColor       =   &H80000018&
  37.          BackStyle       =   0  'Transparent
  38.          Caption         =   "多栏式明细帐"
  39.          BeginProperty Font 
  40.             Name            =   "宋体"
  41.             Size            =   14.25
  42.             Charset         =   134
  43.             Weight          =   700
  44.             Underline       =   0   'False
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          Height          =   330
  49.          Index           =   4
  50.          Left            =   540
  51.          TabIndex        =   10
  52.          Top             =   180
  53.          Width           =   1935
  54.       End
  55.       Begin VB.Label Lab_TitleText 
  56.          AutoSize        =   -1  'True
  57.          BackStyle       =   0  'Transparent
  58.          ForeColor       =   &H00000000&
  59.          Height          =   180
  60.          Index           =   0
  61.          Left            =   6960
  62.          TabIndex        =   9
  63.          Top             =   750
  64.          Width           =   2280
  65.       End
  66.       Begin VB.Label Lab_Color 
  67.          Appearance      =   0  'Flat
  68.          BackColor       =   &H00FFFF00&
  69.          BorderStyle     =   1  'Fixed Single
  70.          ForeColor       =   &H80000008&
  71.          Height          =   195
  72.          Index           =   0
  73.          Left            =   6000
  74.          TabIndex        =   8
  75.          Top             =   270
  76.          Width           =   195
  77.       End
  78.       Begin VB.Label Label1 
  79.          Appearance      =   0  'Flat
  80.          BackColor       =   &H80000005&
  81.          BackStyle       =   0  'Transparent
  82.          Caption         =   "未记帐明细会计分录"
  83.          ForeColor       =   &H80000008&
  84.          Height          =   195
  85.          Index           =   2
  86.          Left            =   6240
  87.          TabIndex        =   7
  88.          Top             =   300
  89.          Width           =   1665
  90.       End
  91.       Begin VB.Label Lab_Color 
  92.          Appearance      =   0  'Flat
  93.          BackColor       =   &H00DFDFDF&
  94.          BorderStyle     =   1  'Fixed Single
  95.          ForeColor       =   &H80000008&
  96.          Height          =   195
  97.          Index           =   1
  98.          Left            =   7980
  99.          TabIndex        =   6
  100.          Top             =   270
  101.          Width           =   195
  102.       End
  103.       Begin VB.Label Label1 
  104.          Appearance      =   0  'Flat
  105.          BackColor       =   &H80000005&
  106.          BackStyle       =   0  'Transparent
  107.          Caption         =   "过次页"
  108.          ForeColor       =   &H80000008&
  109.          Height          =   195
  110.          Index           =   0
  111.          Left            =   8220
  112.          TabIndex        =   5
  113.          Top             =   300
  114.          Width           =   615
  115.       End
  116.       Begin VB.Label Lab_Color 
  117.          Appearance      =   0  'Flat
  118.          BackColor       =   &H00E9F4FA&
  119.          BorderStyle     =   1  'Fixed Single
  120.          ForeColor       =   &H80000008&
  121.          Height          =   195
  122.          Index           =   2
  123.          Left            =   8910
  124.          TabIndex        =   4
  125.          Top             =   270
  126.          Width           =   195
  127.       End
  128.       Begin VB.Label Label1 
  129.          Appearance      =   0  'Flat
  130.          BackColor       =   &H80000005&
  131.          BackStyle       =   0  'Transparent
  132.          Caption         =   "承前页"
  133.          ForeColor       =   &H80000008&
  134.          Height          =   195
  135.          Index           =   1
  136.          Left            =   9150
  137.          TabIndex        =   3
  138.          Top             =   300
  139.          Width           =   615
  140.       End
  141.       Begin VB.Label Lab_TitleMess 
  142.          AutoSize        =   -1  'True
  143.          BackStyle       =   0  'Transparent
  144.          Caption         =   "多栏:"
  145.          Height          =   180
  146.          Index           =   1
  147.          Left            =   1170
  148.          TabIndex        =   2
  149.          Top             =   750
  150.          Width           =   450
  151.       End
  152.       Begin VB.Label Lab_AccMultiName 
  153.          AutoSize        =   -1  'True
  154.          BackStyle       =   0  'Transparent
  155.          ForeColor       =   &H00000000&
  156.          Height          =   180
  157.          Left            =   1740
  158.          TabIndex        =   1
  159.          Top             =   750
  160.          Width           =   2850
  161.       End
  162.    End
  163.    Begin VB.Timer Timer1 
  164.       Enabled         =   0   'False
  165.       Interval        =   1
  166.       Left            =   7620
  167.       Top             =   90
  168.    End
  169.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  170.       Height          =   6885
  171.       Left            =   60
  172.       TabIndex        =   12
  173.       Top             =   1680
  174.       Width           =   11715
  175.       _cx             =   5080
  176.       _cy             =   5080
  177.       Appearance      =   1
  178.       BorderStyle     =   1
  179.       Enabled         =   -1  'True
  180.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  181.          Name            =   "宋体"
  182.          Size            =   9
  183.          Charset         =   134
  184.          Weight          =   400
  185.          Underline       =   0   'False
  186.          Italic          =   0   'False
  187.          Strikethrough   =   0   'False
  188.       EndProperty
  189.       MousePointer    =   0
  190.       BackColor       =   16777215
  191.       ForeColor       =   -2147483640
  192.       BackColorFixed  =   12632256
  193.       ForeColorFixed  =   -2147483630
  194.       BackColorSel    =   -2147483635
  195.       ForeColorSel    =   -2147483634
  196.       BackColorBkg    =   -2147483636
  197.       BackColorAlternate=   16777215
  198.       GridColor       =   -2147483633
  199.       GridColorFixed  =   -2147483632
  200.       TreeColor       =   -2147483632
  201.       FloodColor      =   192
  202.       SheetBorder     =   -2147483642
  203.       FocusRect       =   1
  204.       HighLight       =   1
  205.       AllowSelection  =   -1  'True
  206.       AllowBigSelection=   -1  'True
  207.       AllowUserResizing=   0
  208.       SelectionMode   =   0
  209.       GridLines       =   1
  210.       GridLinesFixed  =   2
  211.       GridLineWidth   =   1
  212.       Rows            =   50
  213.       Cols            =   10
  214.       FixedRows       =   1
  215.       FixedCols       =   1
  216.       RowHeightMin    =   0
  217.       RowHeightMax    =   0
  218.       ColWidthMin     =   0
  219.       ColWidthMax     =   0
  220.       ExtendLastCol   =   0   'False
  221.       FormatString    =   ""
  222.       ScrollTrack     =   0   'False
  223.       ScrollBars      =   3
  224.       ScrollTips      =   0   'False
  225.       MergeCells      =   0
  226.       MergeCompare    =   0
  227.       AutoResize      =   -1  'True
  228.       AutoSizeMode    =   0
  229.       AutoSearch      =   0
  230.       AutoSearchDelay =   2
  231.       MultiTotals     =   -1  'True
  232.       SubtotalPosition=   1
  233.       OutlineBar      =   0
  234.       OutlineCol      =   0
  235.       Ellipsis        =   0
  236.       ExplorerBar     =   0
  237.       PicturesOver    =   0   'False
  238.       FillStyle       =   0
  239.       RightToLeft     =   0   'False
  240.       PictureType     =   0
  241.       TabBehavior     =   0
  242.       OwnerDraw       =   0
  243.       Editable        =   0
  244.       ShowComboButton =   1
  245.       WordWrap        =   0   'False
  246.       TextStyle       =   0
  247.       TextStyleFixed  =   0
  248.       OleDragMode     =   0
  249.       OleDropMode     =   0
  250.       DataMode        =   0
  251.       VirtualData     =   -1  'True
  252.       DataMember      =   ""
  253.       ComboSearch     =   3
  254.       AutoSizeMouse   =   -1  'True
  255.       FrozenRows      =   0
  256.       FrozenCols      =   0
  257.       AllowUserFreezing=   0
  258.       BackColorFrozen =   0
  259.       ForeColorFrozen =   0
  260.       WallPaperAlignment=   9
  261.       AccessibleName  =   ""
  262.       AccessibleDescription=   ""
  263.       AccessibleValue =   ""
  264.       AccessibleRole  =   24
  265.    End
  266.    Begin MSComctlLib.Toolbar SzToolbar 
  267.       Align           =   1  'Align Top
  268.       Height          =   555
  269.       Left            =   0
  270.       TabIndex        =   13
  271.       Top             =   0
  272.       Width           =   11400
  273.       _ExtentX        =   20108
  274.       _ExtentY        =   979
  275.       ButtonWidth     =   820
  276.       ButtonHeight    =   926
  277.       AllowCustomize  =   0   'False
  278.       Appearance      =   1
  279.       Style           =   1
  280.       ImageList       =   "ImageList1"
  281.       _Version        =   393216
  282.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  283.          NumButtons      =   10
  284.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  285.             Caption         =   "设置"
  286.             Key             =   "ymsz"
  287.             ImageKey        =   "sz"
  288.          EndProperty
  289.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  290.             Caption         =   "打印"
  291.             Key             =   "dy"
  292.             ImageKey        =   "dy"
  293.          EndProperty
  294.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  295.             Caption         =   "预览"
  296.             Key             =   "yl"
  297.             ImageKey        =   "yl"
  298.          EndProperty
  299.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  300.             Style           =   3
  301.          EndProperty
  302.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  303.             Caption         =   "查询"
  304.             Key             =   "cx"
  305.             ImageKey        =   "cx"
  306.          EndProperty
  307.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  308.             Style           =   3
  309.          EndProperty
  310.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  311.             Caption         =   "凭证"
  312.             Key             =   "pz"
  313.             ImageKey        =   "pz"
  314.          EndProperty
  315.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  316.             Style           =   3
  317.          EndProperty
  318.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  319.             Caption         =   "帮助"
  320.             Key             =   "bz"
  321.             ImageKey        =   "bz"
  322.          EndProperty
  323.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  324.             Caption         =   "退出"
  325.             Key             =   "fh"
  326.             ImageKey        =   "tc"
  327.          EndProperty
  328.       EndProperty
  329.       BorderStyle     =   1
  330.       Begin MSComctlLib.Toolbar GsToolbar 
  331.          Height          =   525
  332.          Left            =   9720
  333.          TabIndex        =   14
  334.          Top             =   0
  335.          Width           =   1665
  336.          _ExtentX        =   2937
  337.          _ExtentY        =   926
  338.          ButtonWidth     =   1455
  339.          ButtonHeight    =   926
  340.          AllowCustomize  =   0   'False
  341.          Appearance      =   1
  342.          Style           =   1
  343.          ImageList       =   "ImageList1"
  344.          _Version        =   393216
  345.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  346.             NumButtons      =   2
  347.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  348.                Caption         =   "保存格式"
  349.                Key             =   "bcgs"
  350.                ImageKey        =   "bcgs"
  351.             EndProperty
  352.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  353.                Caption         =   "默认列宽"
  354.                Key             =   "hfmrgs"
  355.                ImageKey        =   "mrlk"
  356.             EndProperty
  357.          EndProperty
  358.       End
  359.       Begin MSComctlLib.ImageList ImageList1 
  360.          Left            =   8460
  361.          Top             =   -30
  362.          _ExtentX        =   1005
  363.          _ExtentY        =   1005
  364.          BackColor       =   -2147483643
  365.          ImageWidth      =   16
  366.          ImageHeight     =   16
  367.          MaskColor       =   12632256
  368.          _Version        =   393216
  369.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  370.             NumListImages   =   32
  371.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.                Picture         =   "辅助_部门_多栏帐查询结果.frx":35106
  373.                Key             =   "sz"
  374.             EndProperty
  375.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.                Picture         =   "辅助_部门_多栏帐查询结果.frx":354A0
  377.                Key             =   "dy"
  378.             EndProperty
  379.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3583A
  381.                Key             =   "yl"
  382.             EndProperty
  383.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.                Picture         =   "辅助_部门_多栏帐查询结果.frx":35BD4
  385.                Key             =   "xg"
  386.             EndProperty
  387.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  388.                Picture         =   "辅助_部门_多栏帐查询结果.frx":35F6E
  389.                Key             =   "zh"
  390.             EndProperty
  391.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  392.                Picture         =   "辅助_部门_多栏帐查询结果.frx":36308
  393.                Key             =   "sh"
  394.             EndProperty
  395.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.                Picture         =   "辅助_部门_多栏帐查询结果.frx":366A2
  397.                Key             =   "bc"
  398.             EndProperty
  399.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.                Picture         =   "辅助_部门_多栏帐查询结果.frx":36A3C
  401.                Key             =   "fq"
  402.             EndProperty
  403.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.                Picture         =   "辅助_部门_多栏帐查询结果.frx":36DD6
  405.                Key             =   "bz"
  406.             EndProperty
  407.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.                Picture         =   "辅助_部门_多栏帐查询结果.frx":37170
  409.                Key             =   "tc"
  410.             EndProperty
  411.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3750A
  413.                Key             =   "bcgs"
  414.             EndProperty
  415.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  416.                Picture         =   "辅助_部门_多栏帐查询结果.frx":378A4
  417.                Key             =   "mrlk"
  418.             EndProperty
  419.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.                Picture         =   "辅助_部门_多栏帐查询结果.frx":37C3E
  421.                Key             =   "xsxm"
  422.             EndProperty
  423.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.                Picture         =   "辅助_部门_多栏帐查询结果.frx":37FD8
  425.                Key             =   "first"
  426.             EndProperty
  427.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  428.                Picture         =   "辅助_部门_多栏帐查询结果.frx":38372
  429.                Key             =   "prev"
  430.             EndProperty
  431.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  432.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3870C
  433.                Key             =   "next"
  434.             EndProperty
  435.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  436.                Picture         =   "辅助_部门_多栏帐查询结果.frx":38AA6
  437.                Key             =   "last"
  438.             EndProperty
  439.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.                Picture         =   "辅助_部门_多栏帐查询结果.frx":38E40
  441.                Key             =   "xx"
  442.             EndProperty
  443.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "辅助_部门_多栏帐查询结果.frx":391DA
  445.                Key             =   "define"
  446.             EndProperty
  447.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "辅助_部门_多栏帐查询结果.frx":39574
  449.                Key             =   "exec"
  450.             EndProperty
  451.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3990E
  453.                Key             =   "xz"
  454.             EndProperty
  455.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "辅助_部门_多栏帐查询结果.frx":39CA8
  457.                Key             =   "sc"
  458.             EndProperty
  459.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3A042
  461.                Key             =   "sx"
  462.             EndProperty
  463.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3A3DC
  465.                Key             =   "cx"
  466.             EndProperty
  467.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3A776
  469.                Key             =   "zd"
  470.             EndProperty
  471.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3AB10
  473.                Key             =   "dz"
  474.             EndProperty
  475.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3AEAA
  477.                Key             =   "ph"
  478.             EndProperty
  479.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3B244
  481.                Key             =   "fz"
  482.             EndProperty
  483.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3B5DE
  485.                Key             =   "dw"
  486.             EndProperty
  487.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3B978
  489.                Key             =   "hf"
  490.             EndProperty
  491.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3BD12
  493.                Key             =   "pz"
  494.             EndProperty
  495.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "辅助_部门_多栏帐查询结果.frx":3C0AC
  497.                Key             =   "check"
  498.             EndProperty
  499.          EndProperty
  500.       End
  501.    End
  502. End
  503. Attribute VB_Name = "ZF_Bm_FrmDlzCxjg"
  504. Attribute VB_GlobalNameSpace = False
  505. Attribute VB_Creatable = False
  506. Attribute VB_PredeclaredId = True
  507. Attribute VB_Exposed = False
  508. '****************************************************************************
  509. '*    模 块 名 称 :科目多栏帐
  510. '*    功 能 描 述 :本功能用于查询某多栏帐在某月或某几月的明细帐情况
  511. '*                 并且能够进行立体联查凭证数据。
  512. '*    程序员姓名  :张建忠
  513. '*    最后修改人  :奚俊峰
  514. '*    最后修改时间:2001.12.23
  515. '*    备        注:注意当两个表进行模糊连接操作时,应该对表字段进行去 "空格"
  516. '****************************************************************************
  517. Dim ReportTitle As String                '报表主标题
  518. Dim Str_AnalyCol() As String             '分析方向与网格列值对应表
  519. Dim Str_ItemCol() As String              '科目与网格列值对照表
  520. Dim Str_AccMultiCode As String           '多栏帐编码
  522. '以下为固定使用变量
  523. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  524. Dim GridCode As String                   '显示网格网格代码
  525. Dim GridInf() As Variant                 '整个网格设置信息
  526. Dim Tsxx As String                       '系统提示信息
  527. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  528. Dim Sjhgd As Double                      '网格数据行高度
  529. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  530. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  531. Dim GridStr()  As String                 '网格列信息(字符型)
  532. Dim GridInt() As Integer                 '网格列信息(整型)
  533. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  534. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小
  535.     On Error Resume Next
  536.     With CxbbGrid
  537.         .Width = Me.Width - 160
  538.         .Height = Me.Height - .Top - 400
  539.     End With
  540.     With Pic_Title
  541.         .Width = Me.Width - 160
  542.     End With
  543.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  544. End Sub
  546. Private Sub Form_Load()                                                   '窗体装入
  547.     
  548.     '调入打印页面设置窗体
  549.     XtReportCode = "Cwzz_dlzcx"
  550.     Load Dyymctbl
  551.     ReportTitle = "多  栏  帐"
  552.     
  553.     '调整标题栏及网格、格式工具条位置
  554.     Pic_Title.Left = 40
  555.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  556.     CxbbGrid.Left = Pic_Title.Left
  557.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  558.     
  559.     '调 入 网 格
  560.     GridCode = "Cwzz_dlzcx"
  561.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  562.     
  563.     Qslz = GridInf(1)
  564.     Sjhgd = GridInf(2)
  565.     Sfxshjwg = GridInf(7)
  566.     Szzls = CxbbGrid.Cols - 1
  567.     
  568.     '调整标题位置
  569.     SetTitlePos tsLabel(4)
  570.     
  571.     
  572.     
  573.     
  574.     
  575. End Sub
  577. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  578.     '卸载条件窗体
  579.     ZF_Bm_FrmDlzCxTj.UnloadCheck.Value = 1
  580.     Unload ZF_Bm_FrmDlzCxTj
  581.     '卸载打印页面设置窗体
  582.     Unload Dyymctbl
  583. End Sub
  585. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  586.     Dim RecTemp As New ADODB.Recordset
  587.     Dim Dbl_ColWidth As Double              '多栏帐多栏部分网格宽度
  588.     Dim Jsqte As Integer
  589.     
  590.     Dbl_ColWidth = 1650       '支持金额到百亿
  591.     
  592.     '关闭定时器
  593.     Timer1.Enabled = False
  594.     
  595.     '重新设置网格
  596.     If ZF_Bm_FrmDlzCxTj.Imgebo_Dlz.ComboItems.count = 0 Then
  597.         Exit Sub
  598.     End If
  599.     
  600.     Str_AccMultiCode = GetComboKey(ZF_Bm_FrmDlzCxTj.Imgebo_Dlz, 0)
  601.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute("Select * From Cwzz_AccMultiItem Where AccMultiCode='" & Str_AccMultiCode & "' Order By AnalyseOri Desc")
  602.     CxbbGrid.Cols = Szzls + 1 + RecTemp.RecordCount
  603.     
  604.     ReDim Str_ItemCol(CxbbGrid.Cols - 1)
  605.     ReDim Str_AnalyCol(CxbbGrid.Cols - 1)
  606.     
  607.     Jsqte = Szzls + 1
  608.     Do While Not RecTemp.EOF
  609.         Str_ItemCol(Jsqte) = Trim(RecTemp.Fields("Ccode") & "")       '核算科目
  610.         Str_AnalyCol(Jsqte) = Trim(RecTemp.Fields("AnalyseOri") & "") '分析方向
  611.         
  612.         CxbbGrid.TextMatrix(0, Jsqte) = Trim(RecTemp.Fields("AnalyseOri") & "") + Space(2) + "方"
  613.         CxbbGrid.TextMatrix(1, Jsqte) = Trim(RecTemp.Fields("ItemName") & "")
  614.         CxbbGrid.FixedAlignment(Jsqte) = 4
  615.         CxbbGrid.ColAlignment(Jsqte) = 6
  616.         CxbbGrid.ColFormat(Jsqte) = "#,##0." + String(Xtjexsws, "0")
  617.         CxbbGrid.ColWidth(Jsqte) = Dbl_ColWidth
  618.         Jsqte = Jsqte + 1
  619.         RecTemp.MoveNext
  620.     Loop
  621.     
  622.     Xt_Wait.Show
  623.     Xt_Wait.Refresh
  624.     
  625.     '加快显示速度
  626.     CxbbGrid.Redraw = False
  627.     
  628.     '生成查询结果
  629.     Call Sub_Query
  630.     
  631.     CxbbGrid.Redraw = True
  632.     
  633.     Xt_Wait.Hide
  634.     
  635. End Sub
  637. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)       '网格格式调整
  638.     Select Case Button.Key
  639.     Case "bcgs"                                          '保存表格格式
  640.         Call Bcwggs(CxbbGrid, GridCode, GridStr)
  641.     Case "hfmrgs"                                        '恢复默认格式
  642.         Call Hfmrgs(CxbbGrid, GridCode, GridStr)
  643.     Case "szxsxm"                                        '设置显示项目
  644.         Call Szxsxm(CxbbGrid, GridCode)
  645.     End Select
  646. End Sub
  648. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  649.     Select Case Button.Key
  650.     Case "ymsz"                                          '页面设置
  651.         Dyymctbl.Show 1
  652.     Case "yl"                                            '预 览
  653.         Call bbyl(True)
  654.     Case "dy"                                            '打 印
  655.         Call bbyl(False)
  656.     Case "cx"                                            '查 询
  657.         ZF_Bm_FrmDlzCxTj.Show 1
  658.     Case "pz"                                            '凭 证
  659.         Call CxbbGrid_DblClick
  660.     Case "bz"                                            '帮 助
  661.         Call F1bz
  662.     Case "fh"                                            '退 出
  663.         Unload Me
  664.     End Select
  665. End Sub
  667. Private Sub Sub_Query()                                    '生成查询结果
  668.     Dim Rec_AccMultiItem As New ADODB.Recordset     '临时使用多栏帐栏目动态集
  669.     Dim RecTemp As New ADODB.Recordset              '临时使用动态集
  670.     Dim Sqlstr As String                            '查询字符串
  671.     Dim Coljsq As Long                              '网格列计数器
  672.     Dim Jsqte As Long                               '临时动态计数器
  673.     Dim Str_Ccode As String                         '查询会计科目
  674.     Dim Int_BPeriod As Integer                      '查询起始会计期间
  675.     Dim Int_EPeriod As Integer                      '查询终止会计期间
  676.     Dim Int_Year As Integer                         '查询会计年度
  677.     Dim Bln_IncluNotBook As Boolean                 '是否包含未记帐凭证
  678.     Dim Bln_CqGcShow As Boolean                     '是否显示承前过次
  679.     Dim Int_Zdzyhs As Integer                       '正式帐页指定报表行数
  680.     Dim Int_DqPeriod As Integer                     '查询进行当前会计期间
  681.     Dim Lng_MonthCount As Long                      '本月明细帐记录条数
  682.     Dim Lng_YearCount As Long                       '本年明细帐记录条数
  683.     Dim Str_Dept As String                          '所选部门代码
  684.     
  685.     
  686.     Dim Dbl_Qcyete#                                 '期初金额
  687.     Dim Dbl_Jejfhj#, Dbl_Jedfhj#                    '本期合计(金额)
  688.     Dim Dbl_Jejflj#, Dbl_Jedflj#                    '截止累计(金额)
  689.     Dim Dbl_Qmyete#                                 '期末金额
  690.     
  691.     Dim Dbl_JejfhjDlz() As Double, Dbl_JedfhjDlz() As Double          '本期合计(金额)多栏部分
  692.     Dim Dbl_JejfljDlz() As Double, Dbl_JedfljDlz() As Double          '截止累计(金额)多栏部分
  693.     
  694.     
  695.     '以下为用户自定义部分[
  696.     
  697.     '清除原查询数据
  698.     CxbbGrid.Rows = CxbbGrid.FixedRows
  699.     
  700.     '得到查询起始和截止会计期间,并判断是否包含未记帐凭证
  701.     
  702.     If ZF_Bm_FrmDlzCxTj.Imgebo_Dlz.ComboItems.count = 0 Then
  703.         Exit Sub
  704.     End If
  705.     
  706.     
  707.     With ZF_Bm_FrmDlzCxTj
  708.         
  709.         Lab_AccMultiName.Caption = GetComboKey(ZF_Bm_FrmDlzCxTj.Imgebo_Dlz, 1)                                      '多栏名称
  710.         Lab_TitleText(0).Caption = ZF_Bm_FrmDlzCxTj.Combo_Kjqj(0).Text & "--" & ZF_Bm_FrmDlzCxTj.Combo_Kjqj(1).Text    '会计期间
  711.         
  712.         Str_Dept = .LrText(0).Tag
  713.         
  714.         Int_Year = Int(Mid(.Combo_Kjqj(0).Text, 1, 4))
  715.         Int_BPeriod = Int(Mid(.Combo_Kjqj(0).Text, 6, 2))
  716.         Int_EPeriod = Int(Mid(.Combo_Kjqj(1).Text, 6, 2))
  717.         
  718.         
  719.         '是否包含未记帐凭证
  720.         If .Chk_NotBook.Value = 1 Then
  721.             Bln_IncluNotBook = True
  722.         Else
  723.             Bln_IncluNotBook = False
  724.         End If
  725.         
  726.         '是否显示承前过次,如显示则将页面设置指定行数控制为>1且必须指定报表行数打印输出
  727.         If .Chk_CqGcShow = 1 Then
  728.             Bln_CqGcShow = True
  729.             Dyymctbl.ZdhsCheck.Enabled = False
  730.             Dyymctbl.ZdhsCheck.Value = 1
  731.             Dyymctbl.BbhsText.Enabled = False
  732.             Dyymctbl.BbhsVScroll.Enabled = False
  733.             Dyymctbl.BbhsText.Text = .LrText(1).Text
  734.         Else
  735.             Bln_CqGcShow = False
  736.             Dyymctbl.ZdhsCheck.Enabled = True
  737.             Dyymctbl.BbhsText.Enabled = True
  738.             Dyymctbl.BbhsVScroll.Enabled = True
  739.         End If
  740.         Int_Zdzyhs = Val(.LrText(1).Text)
  741.         
  742.     End With
  743.     
  744.     '初始化各种值
  745.     Dbl_Qcyete = 0
  746.     
  747.     Dbl_Jejfhj = 0
  748.     Dbl_Jedfhj = 0
  749.     
  750.     Dbl_Jejflj = 0
  751.     Dbl_Jedflj = 0
  752.     
  753.     ReDim Dbl_JejfhjDlz(CxbbGrid.Cols - 1)
  754.     ReDim Dbl_JedfhjDlz(CxbbGrid.Cols - 1)
  755.     ReDim Dbl_JejfljDlz(CxbbGrid.Cols - 1)
  756.     ReDim Dbl_JedfljDlz(CxbbGrid.Cols - 1)
  757.     
  758.     Lng_MonthCount = 0
  759.     Lng_YearCount = 0
  760.     
  761.     Jsqte = CxbbGrid.FixedRows - 1
  762.     
  763.     '1.计算期初余额(金额),并计算截止查询起始会计期间累计数据
  764.     Sqlstr = " SELECT Cwzz_AccMultiItem.Ccode,Qcyehj=IsNull(SUM(Cwzz_AccSumAssi.Qcye),0),Mjjehj=IsNull(SUM(Cwzz_AccSumAssi.Mjje),0),Mdjehj=IsNull(SUM(Cwzz_AccSumAssi.Mdje),0), " & _
  765.     " Byjfljjehj=IsNull(SUM(Cwzz_AccSumAssi.Byjfljje),0),Bydfljjehj=IsNull(SUM(Cwzz_AccSumAssi.Bydfljje),0) FROM Cwzz_AccMultiItem LEFT OUTER JOIN " & _
  766.     " Cwzz_AccSumAssi ON Cwzz_AccMultiItem.Ccode = Cwzz_AccSumAssi.Ccode And Cwzz_AccSumAssi.Year=" & Int_Year & _
  767.     " And Cwzz_AccSumAssi.deptcode='" & Str_Dept & "'" & _
  768.     " And Cwzz_AccSumAssi.Period=" & Int_BPeriod & " WHERE Cwzz_AccMultiItem.AccMultiCode = '" & Str_AccMultiCode & "' Group By Cwzz_AccMultiItem.Ccode"
  769.     
  770.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  771.     Do While Not RecTemp.EOF
  772.         Dbl_Qcyete = Dbl_Qcyete + RecTemp.Fields("Qcyehj")
  773.         
  774.         '截止累计数据需要减掉本会计期间相应记帐数据
  775.         Dbl_Jejflj = Dbl_Jejflj + RecTemp.Fields("Byjfljjehj") - RecTemp.Fields("Mjjehj")
  776.         Dbl_Jedflj = Dbl_Jedflj + RecTemp.Fields("Bydfljjehj") - RecTemp.Fields("Mdjehj")
  777.         Dbl_JejfljDlz(Fun_CcodeCol(RecTemp.Fields("Ccode"))) = Dbl_JejfljDlz(Fun_CcodeCol(RecTemp.Fields("Ccode"))) + RecTemp.Fields("Byjfljjehj") - RecTemp.Fields("Mjjehj")
  778.         Dbl_JedfljDlz(Fun_CcodeCol(RecTemp.Fields("Ccode"))) = Dbl_JedfljDlz(Fun_CcodeCol(RecTemp.Fields("Ccode"))) + RecTemp.Fields("Bydfljjehj") - RecTemp.Fields("Mdjehj")
  779.         
  780.         RecTemp.MoveNext
  781.     Loop
  782.     
  783.     '如果包含未记帐凭证则计算小于查询起始会计期间包含科目借贷方合计
  784.     If Bln_IncluNotBook Then
  785.         Set Rec_AccMultiItem = Cw_DataEnvi.DataConnect.Execute("Select Ccode From Cwzz_AccMultiItem Where AccMultiCode='" & Str_AccMultiCode & "' Order By AnalyseOri Desc")
  786.         Do While Not Rec_AccMultiItem.EOF
  787.             Sqlstr = "SELECT Jfjehj=isnull(Sum(Jfje),0) ,Dfjehj=isnull(Sum(Dfje),0) From Cwzz_V_AccVouch Where BookFlag=0 And Ccode like '" & Trim(Rec_AccMultiItem.Fields("Ccode")) & "%' And Year=" & Int_Year & _
  788.             " And Period<" & Int_BPeriod & " And DeptCode='" & Str_Dept & "'"
  789.             Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  790.             If Not RecTemp.EOF Then
  791.                 Dbl_Qcyete = Dbl_Qcyete + RecTemp.Fields("Jfjehj") - RecTemp.Fields("Dfjehj")
  792.                 
  793.                 '计算相应截止查询起始会计期间累计数据
  794.                 Dbl_Jejflj = Dbl_Jejflj + RecTemp.Fields("Jfjehj")
  795.                 Dbl_Jedflj = Dbl_Jedflj + RecTemp.Fields("Dfjehj")
  796.                 Dbl_JejfljDlz(Fun_CcodeCol(Trim(Rec_AccMultiItem.Fields("Ccode")))) = Dbl_JejfljDlz(Fun_CcodeCol(Trim(Rec_AccMultiItem.Fields("Ccode")))) + RecTemp.Fields("Jfjehj")
  797.                 Dbl_JedfljDlz(Fun_CcodeCol(Trim(Rec_AccMultiItem.Fields("Ccode")))) = Dbl_JedfljDlz(Fun_CcodeCol(Trim(Rec_AccMultiItem.Fields("Ccode")))) + RecTemp.Fields("Dfjehj")
  798.             End If
  799.             
  800.             Rec_AccMultiItem.MoveNext
  801.         Loop
  802.         
  803.     End If
  804.     
  805.     CxbbGrid.AddItem ""
  806.     Jsqte = Jsqte + 1
  807.     
  808.     '将期初数据写入网格(第1会计期间为上年结转,其余会计期间为期初余额)
  809.     If Int_BPeriod = 1 Then
  810.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "上年结转"
  811.     Else
  812.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "期初余额"
  813.     End If
  814.     
  815.     '输出余额
  816.     Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  817.     
  818.     
  819.     '2.读取查询会计期间范围内所有符合条件明细帐数据(以年度+会计期间),并写入网格
  820.     
  821.     '记录当前会计期间
  822.     Int_DqPeriod = Int_BPeriod
  823.     
  824.     '筛选所有符合条件数据
  825.     Sqlstr = "SELECT DISTINCT b.* FROM dbo.Cwzz_AccMultiItem a, dbo.Cwzz_V_AccVouchAss b" & _
  826.     " WHERE a.AccMultiCode = '" & Str_AccMultiCode & "' AND RTRIM(b.Ccode) LIKE RTRIM(a.Ccode) + '%'" & _
  827.     " And b.Year=" & Int_Year & " And b.Period>=" & Int_BPeriod & " And b.Period<=" & Int_EPeriod & " And DeptCode='" & Str_Dept & "'"
  828.     
  829.     If Not Bln_IncluNotBook Then
  830.         Sqlstr = Sqlstr & " And b.BookFlag=1"
  831.     End If
  832.     Sqlstr = Sqlstr & " Order By b.Year,b.Period,b.Ddate,b.VouchID,b.SerialID"
  833.     
  834.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  835.     
  836.     With RecTemp
  837.         
  838.         Do While Not .EOF
  839.             
  840.             Str_Ccode = Trim(.Fields("Ccode"))          '此条明细帐记录
  841.             
  842.             If .Fields("Jfje") <> 0 Then
  843.                 If Fun_CcodeCol(Str_Ccode, "借") = 0 Then
  844.                     GoTo Wxjl
  845.                 End If
  846.             Else
  847.                 If Fun_CcodeCol(Str_Ccode, "贷") = 0 Then
  848.                     GoTo Wxjl
  849.                 End If
  850.             End If
  851.             
  852.             '当前进行会计期间发生变化则添加本月合计及本年累计
  853.             If .Fields("Period") <> Int_DqPeriod Then
  854.                 '显示本月合计
  855.                 If Lng_MonthCount <> 0 Then
  856.                     CxbbGrid.AddItem ""
  857.                     Jsqte = Jsqte + 1
  858.                     
  859.                     '输出本月合计
  860.                     Call Sub_OutPeriodSum(Jsqte, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_JejfhjDlz(), Dbl_JedfhjDlz())
  861.                     
  862.                     '输出余额
  863.                     Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  864.                 End If
  865.                 
  866.                 '重新初始化本月合计数据
  867.                 Dbl_Jejfhj = 0
  868.                 Dbl_Jedfhj = 0
  869.                 
  870.                 Lng_MonthCount = 0
  871.                 
  872.                 For szjsq = 0 To CxbbGrid.Cols - 1
  873.                     Dbl_JejfhjDlz(szjsq) = 0
  874.                     Dbl_JedfhjDlz(szjsq) = 0
  875.                 Next szjsq
  876.                 
  877.                 '显示本年累计
  878.                 If Lng_YearCount <> 0 Then
  879.                     CxbbGrid.AddItem ""
  880.                     Jsqte = Jsqte + 1
  881.                     
  882.                     '输出本年累计
  883.                     Call Sub_OutYearSum(Jsqte, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_JejfljDlz(), Dbl_JedfljDlz())
  884.                     
  885.                     '输出余额
  886.                     Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  887.                 End If
  888.                 
  889.                 '修改当前会计期间
  890.                 Int_DqPeriod = .Fields("Period")
  891.                 
  892.             End If        '显示本月合计,本年累计完毕
  893.             
  894.             
  895.             '显示明细数据
  896.             CxbbGrid.AddItem ""
  897.             Jsqte = Jsqte + 1
  898.             
  899.             '本月、本年记录计数器+1
  900.             Lng_MonthCount = Lng_MonthCount + 1
  901.             Lng_YearCount = Lng_YearCount + 1
  902.             
  903.             '未记帐明细分录变色显示
  904.             If .Fields("BookFlag") = 0 Then
  905.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(0).BackColor
  906.             End If
  907.             
  908.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("VouchId")              '凭证ID
  909.             
  910.             
  911.             If IsDate(.Fields("Ddate")) Then
  912.                 CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = .Fields("Ddate")                    '日期
  913.             End If
  914.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") + "-" + Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4) '凭证字号
  915.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")           '摘要
  916.             
  917.             '部门
  918.             If Trim(.Fields("DeptName") & "") <> "" Then
  919.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("DeptName") & "")
  920.             End If
  921.             '个人
  922.             If Trim(.Fields("PersonName") & "") <> "" Then
  923.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("PersonName") & "")
  924.             End If
  925.             '客户
  926.             If Trim(.Fields("CusName") & "") <> "" Then
  927.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("CusName") & "")
  928.             End If
  929.             '项目
  930.             If Trim(.Fields("ItemName") & "") <> "" Then
  931.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) + " " + Trim(.Fields("ItemName") & "")
  932.             End If
  933.             
  934.             If .Fields("Jfje") <> 0 Then                                                                       '借方金额
  935.                 CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = .Fields("Jfje")
  936.                 If Fun_CcodeCol(Str_Ccode, "借") <> 0 Then
  937.                     CxbbGrid.TextMatrix(Jsqte, Fun_CcodeCol(Str_Ccode, "借")) = .Fields("Jfje")
  938.                 End If
  939.             End If
  940.             If .Fields("Dfje") <> 0 Then                                                                       '贷方金额
  941.                 CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = .Fields("Dfje")
  942.                 If Fun_CcodeCol(Str_Ccode, "贷") <> 0 Then
  943.                     CxbbGrid.TextMatrix(Jsqte, Fun_CcodeCol(Str_Ccode, "贷")) = .Fields("Dfje")
  944.                 End If
  945.             End If
  946.             
  947.             '累加本月合计,本年累计数据
  948.             Dbl_Jejfhj = Dbl_Jejfhj + .Fields("Jfje")
  949.             Dbl_Jedfhj = Dbl_Jedfhj + .Fields("Dfje")
  950.             If Fun_CcodeCol(Str_Ccode, "借") <> 0 Then
  951.                 Dbl_JejfhjDlz(Fun_CcodeCol(Str_Ccode, "借")) = Dbl_JejfhjDlz(Fun_CcodeCol(Str_Ccode, "借")) + .Fields("Jfje")
  952.             End If
  953.             If Fun_CcodeCol(Str_Ccode, "贷") <> 0 Then
  954.                 Dbl_JedfhjDlz(Fun_CcodeCol(Str_Ccode, "贷")) = Dbl_JedfhjDlz(Fun_CcodeCol(Str_Ccode, "贷")) + .Fields("Dfje")
  955.             End If
  956.             
  957.             Dbl_Jejflj = Dbl_Jejflj + .Fields("Jfje")
  958.             Dbl_Jedflj = Dbl_Jedflj + .Fields("Dfje")
  959.             If Fun_CcodeCol(Str_Ccode, "借") <> 0 Then
  960.                 Dbl_JejfljDlz(Fun_CcodeCol(Str_Ccode, "借")) = Dbl_JejfljDlz(Fun_CcodeCol(Str_Ccode, "借")) + .Fields("Jfje")
  961.             End If
  962.             If Fun_CcodeCol(Str_Ccode, "贷") <> 0 Then
  963.                 Dbl_JedfljDlz(Fun_CcodeCol(Str_Ccode, "贷")) = Dbl_JedfljDlz(Fun_CcodeCol(Str_Ccode, "贷")) + .Fields("Dfje")
  964.             End If
  965.             
  966.             '3.计算余额
  967.             Dbl_Qcyete = Dbl_Qcyete + .Fields("Jfje") - .Fields("Dfje")
  968.             
  969.             '输出余额
  970.             Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  971.             
  972.             
  973.             '跳过无效记录
  974. Wxjl:
  975.             
  976.             .MoveNext
  977.             
  978.             '计算是否输出承前/过次行(如果用户选择输出承前/过次）
  979.             If Bln_CqGcShow Then
  980.                 If Not .EOF Then
  981.                     If .Fields("Period") = Int_DqPeriod Then
  982.                         Call Sub_OutQcGc(Jsqte, Int_Zdzyhs, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_Qcyete, Dbl_JejfhjDlz(), Dbl_JedfhjDlz())
  983.                     End If
  984.                 End If
  985.             End If
  986.             
  987.         Loop
  988.         
  989.         '添加本月合计及本年累计
  990.         
  991.         If Lng_MonthCount <> 0 Then
  992.             CxbbGrid.AddItem ""
  993.             Jsqte = Jsqte + 1
  994.             
  995.             '输出本月合计
  996.             Call Sub_OutPeriodSum(Jsqte, Int_DqPeriod, Dbl_Jejfhj, Dbl_Jedfhj, Dbl_JejfhjDlz(), Dbl_JedfhjDlz())
  997.             
  998.             '输出余额
  999.             Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  1000.         End If
  1001.         
  1002.         '显示本年累计
  1003.         If Lng_YearCount <> 0 Then
  1004.             CxbbGrid.AddItem ""
  1005.             Jsqte = Jsqte + 1
  1006.             
  1007.             '输出本年累计
  1008.             Call Sub_OutYearSum(Jsqte, Int_DqPeriod, Dbl_Jejflj, Dbl_Jedflj, Dbl_JejfljDlz(), Dbl_JedfljDlz())
  1009.             
  1010.             '输出余额
  1011.             Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  1012.         End If
  1013.         
  1014.     End With
  1015.     
  1016.     '重置网格行高
  1017.     For Jsqte = CxbbGrid.FixedRows To CxbbGrid.Rows - 1
  1018.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  1019.     Next Jsqte
  1020.     
  1021. End Sub
  1023. Private Function Fun_CcodeCol(Str_Ccode As String, Optional Yefx As String) As Long          '科目与网格列对应值
  1024.     Dim Int_Maxlen As Integer
  1025.     Dim Coljsq As Long
  1026.     Fun_CcodeCol = 0
  1027.     Int_Maxlen = Len(Trim(Str_Ccode))
  1028.     For Jsqte = Int_Maxlen To 1 Step -1
  1029.         For Coljsq = Szzls + 1 To CxbbGrid.Cols - 1
  1030.             If Trim(Yefx) = "" Then
  1031.                 If Str_ItemCol(Coljsq) = Mid(Trim(Str_Ccode), 1, Jsqte) Then
  1032.                     Fun_CcodeCol = Coljsq
  1033.                     Exit Function
  1034.                 End If
  1035.             Else
  1036.                 If Str_ItemCol(Coljsq) = Mid(Trim(Str_Ccode), 1, Jsqte) And Str_AnalyCol(Coljsq) = Trim(Yefx) Then
  1037.                     Fun_CcodeCol = Coljsq
  1038.                     Exit Function
  1039.                 End If
  1040.             End If
  1041.         Next Coljsq
  1042.     Next Jsqte
  1043. End Function
  1045. Private Sub Sub_OutBalance(Jsqte As Long, Dbl_Qcyete#)         '输出余额
  1046.     If Dbl_Qcyete = 0 Then
  1047.         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = "平"          '期初方向
  1048.     Else
  1049.         If Dbl_Qcyete > 0 Then
  1050.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = "借"
  1051.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Dbl_Qcyete
  1052.         Else
  1053.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = "贷"
  1054.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = -Dbl_Qcyete
  1055.         End If
  1056.     End If
  1057. End Sub
  1059. Private Sub Sub_OutPeriodSum(Jsqte As Long, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_JejfhjDlz() As Double, Dbl_JedfhjDlz() As Double)    '输出本月合计
  1060.     Dim Lng_ColJsq As Long     '网格列值
  1061.     
  1062.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1063.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本月合计"
  1064.     If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1065.         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Jejfhj
  1066.     End If
  1067.     If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1068.         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jedfhj
  1069.     End If
  1070.     
  1071.     '多栏帐部分本月合计填充
  1072.     For Lng_ColJsq = Szzls + 1 To CxbbGrid.Cols - 1
  1073.         If Dbl_JejfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "借" Then
  1074.             CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JejfhjDlz(Lng_ColJsq)
  1075.         End If
  1076.         If Dbl_JedfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "贷" Then
  1077.             CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JedfhjDlz(Lng_ColJsq)
  1078.         End If
  1079.     Next Lng_ColJsq
  1080. End Sub
  1082. Private Sub Sub_OutYearSum(Jsqte As Long, Int_DqPeriod%, Dbl_Jejflj#, Dbl_Jedflj#, Dbl_JejfljDlz() As Double, Dbl_JedfljDlz() As Double) '输出本年累计
  1083.     CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1084.     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "本年累计"
  1085.     If Dbl_Jejflj <> 0 Then                                                        '本年借方金额累计
  1086.         CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Jejflj
  1087.     End If
  1088.     If Dbl_Jedflj <> 0 Then                                                        '本年贷方金额累计
  1089.         CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jedflj
  1090.     End If
  1091.     
  1092.     '多栏帐部分本年累计填充
  1093.     For Lng_ColJsq = Szzls + 1 To CxbbGrid.Cols - 1
  1094.         If Dbl_JejfljDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "借" Then
  1095.             CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JejfljDlz(Lng_ColJsq)
  1096.         End If
  1097.         If Dbl_JedfljDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "贷" Then
  1098.             CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JedfljDlz(Lng_ColJsq)
  1099.         End If
  1100.     Next Lng_ColJsq
  1101. End Sub
  1103. Private Sub Sub_OutQcGc(Jsqte As Long, Int_Zdzyhs%, Int_DqPeriod%, Dbl_Jejfhj#, Dbl_Jedfhj#, Dbl_Qcyete#, Dbl_JejfhjDlz() As Double, Dbl_JedfhjDlz() As Double)          '输出承前/过次行
  1104.     If (Jsqte - CxbbGrid.FixedRows + 2) Mod Int_Zdzyhs = 0 Then
  1105.         CxbbGrid.AddItem ""
  1106.         Jsqte = Jsqte + 1
  1107.         CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
  1108.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1109.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "过次页"
  1110.         If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1111.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Jejfhj
  1112.         End If
  1113.         If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1114.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jedfhj
  1115.         End If
  1116.         
  1117.         '输出余额
  1118.         Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  1119.         
  1120.         '多栏帐部分承前过次填充
  1121.         For Lng_ColJsq = Szzls + 1 To CxbbGrid.Cols - 1
  1122.             If Dbl_JejfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "借" Then
  1123.                 CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JejfhjDlz(Lng_ColJsq)
  1124.             End If
  1125.             If Dbl_JedfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "贷" Then
  1126.                 CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JedfhjDlz(Lng_ColJsq)
  1127.             End If
  1128.         Next Lng_ColJsq
  1129.         
  1130.         CxbbGrid.AddItem ""
  1131.         Jsqte = Jsqte + 1
  1132.         CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(2).BackColor
  1133.         CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Mid(Trim(Str(100 + Int_DqPeriod)), 2, 2)
  1134.         CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "承前页"
  1135.         If Dbl_Jejfhj <> 0 Then                                                        '本月借方金额合计
  1136.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Dbl_Jejfhj
  1137.         End If
  1138.         If Dbl_Jedfhj <> 0 Then                                                        '本月贷方金额合计
  1139.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Dbl_Jedfhj
  1140.         End If
  1141.         
  1142.         '输出余额
  1143.         Call Sub_OutBalance(Jsqte, Dbl_Qcyete)
  1144.         
  1145.         '多栏帐部分承前过次填充
  1146.         For Lng_ColJsq = Szzls + 1 To CxbbGrid.Cols - 1
  1147.             If Dbl_JejfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "借" Then
  1148.                 CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JejfhjDlz(Lng_ColJsq)
  1149.             End If
  1150.             If Dbl_JedfhjDlz(Lng_ColJsq) <> 0 And Str_AnalyCol(Lng_ColJsq) = "贷" Then
  1151.                 CxbbGrid.TextMatrix(Jsqte, Lng_ColJsq) = Dbl_JedfhjDlz(Lng_ColJsq)
  1152.             End If
  1153.         Next Lng_ColJsq
  1154.         
  1155.     End If
  1156. End Sub
  1158. Private Sub CxbbGrid_DblClick()          '用户双击网格调入相应凭证
  1159.     Dim RecTemp As New ADODB.Recordset
  1160.     
  1161.     With CxbbGrid
  1162.         '非数据行退出
  1163.         If CxbbGrid.Row < CxbbGrid.FixedRows Then
  1164.             Exit Sub
  1165.         End If
  1166.         If Trim(.TextMatrix(.Row, 0)) = "" Then
  1167.             Exit Sub
  1168.         End If
  1169.     End With
  1170.     Sqlstr = "SELECT VouchID From Cwzz_AccVouchMain" & _
  1171.     " Where VouchID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1172.     
  1173.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  1174.     
  1175.     With RecTemp
  1176.         
  1177.         If .EOF Then
  1178.             Tsxx = "此凭证已被其他用户删除!"
  1179.             Call Xtxxts(Tsxx, 0, 4)
  1180.             Exit Sub
  1181.         Else
  1182.             
  1183.             With PZ_JzpzclFrm
  1184.                 '填充查询凭证标识
  1185.                 .Lab_VouchId = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  1186.                 
  1187.                 '设置凭证处理为列表查询状态
  1188.                 .Lab_Pzclzt.Caption = "4"
  1189.                 
  1190.                 .Show 1
  1191.                 
  1192.             End With
  1193.             
  1194.         End If
  1195.         
  1196.     End With
  1197.     
  1198. End Sub
  1200. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1201.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1202.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1203.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1204.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1205.     ReDim Bbxbt(1 To Bbxbtgs)
  1206.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1207.     If Bbbwhgs <> 0 Then
  1208.         ReDim Bbbwh(1 To Bbbwhgs)
  1209.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1210.     End If
  1211.     Bbzbt = ReportTitle
  1212.     Bbxbt(1) = Space(2) + "多栏帐名称：" + Me.Lab_AccMultiName.Caption
  1213.     bbxbtzzxs(1) = 1                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1214.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1215.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1216.     If Not bbylte Then
  1217.         Unload DY_Tybbyldy
  1218.     End If
  1219. End Sub