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

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

企业管理

开发平台：

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 XJ_FrmXjllfpjg 
  5.    Caption         =   "现金流量数据分配"
  6.    ClientHeight    =   7680
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11880
  10.    HelpContextID   =   5001
  11.    Icon            =   "现金流量_凭证现金流量分配结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   7680
  16.    ScaleWidth      =   11880
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.PictureBox Pic_Title 
  19.       Height          =   780
  20.       Left            =   0
  21.       Picture         =   "现金流量_凭证现金流量分配结果.frx":1042
  22.       ScaleHeight     =   720
  23.       ScaleWidth      =   11805
  24.       TabIndex        =   3
  25.       Top             =   570
  26.       Width           =   11865
  27.       Begin VB.Label Label1 
  28.          Appearance      =   0  'Flat
  29.          BackColor       =   &H80000005&
  30.          BackStyle       =   0  'Transparent
  31.          Caption         =   "现金流量科目记录"
  32.          ForeColor       =   &H80000008&
  33.          Height          =   195
  34.          Index           =   1
  35.          Left            =   8670
  36.          TabIndex        =   10
  37.          Top             =   300
  38.          Width           =   1515
  39.       End
  40.       Begin VB.Label Lab_Color 
  41.          Appearance      =   0  'Flat
  42.          BackColor       =   &H00F7F3EC&
  43.          BorderStyle     =   1  'Fixed Single
  44.          ForeColor       =   &H80000008&
  45.          Height          =   195
  46.          Index           =   2
  47.          Left            =   8430
  48.          TabIndex        =   9
  49.          Top             =   270
  50.          Width           =   195
  51.       End
  52.       Begin VB.Label tsLabel 
  53.          BackColor       =   &H80000018&
  54.          BackStyle       =   0  'Transparent
  55.          Caption         =   "现金流量数据调整"
  56.          BeginProperty Font 
  57.             Name            =   "宋体"
  58.             Size            =   14.25
  59.             Charset         =   134
  60.             Weight          =   700
  61.             Underline       =   0   'False
  62.             Italic          =   0   'False
  63.             Strikethrough   =   0   'False
  64.          EndProperty
  65.          ForeColor       =   &H00000000&
  66.          Height          =   450
  67.          Index           =   4
  68.          Left            =   525
  69.          TabIndex        =   8
  70.          Top             =   180
  71.          Width           =   2640
  72.       End
  73.       Begin VB.Label Lab_TitleMess 
  74.          BackStyle       =   0  'Transparent
  75.          Caption         =   "会计期间:"
  76.          Height          =   225
  77.          Left            =   5310
  78.          TabIndex        =   7
  79.          Top             =   270
  80.          Width           =   915
  81.       End
  82.       Begin VB.Label Lab_TitleText 
  83.          BackStyle       =   0  'Transparent
  84.          ForeColor       =   &H00000000&
  85.          Height          =   165
  86.          Left            =   6225
  87.          TabIndex        =   6
  88.          Top             =   270
  89.          Width           =   1455
  90.       End
  91.       Begin VB.Label Label1 
  92.          Appearance      =   0  'Flat
  93.          BackColor       =   &H80000005&
  94.          BackStyle       =   0  'Transparent
  95.          Caption         =   "有错凭证"
  96.          ForeColor       =   &H80000008&
  97.          Height          =   195
  98.          Index           =   0
  99.          Left            =   10545
  100.          TabIndex        =   5
  101.          Top             =   300
  102.          Width           =   795
  103.       End
  104.       Begin VB.Label Lab_Color 
  105.          Appearance      =   0  'Flat
  106.          BackColor       =   &H008080FF&
  107.          BorderStyle     =   1  'Fixed Single
  108.          ForeColor       =   &H80000008&
  109.          Height          =   195
  110.          Index           =   1
  111.          Left            =   10275
  112.          TabIndex        =   4
  113.          Top             =   270
  114.          Width           =   195
  115.       End
  116.    End
  117.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  118.       Height          =   4950
  119.       Left            =   30
  120.       TabIndex        =   0
  121.       Top             =   1410
  122.       Width           =   11865
  123.       _cx             =   5080
  124.       _cy             =   5080
  125.       Appearance      =   1
  126.       BorderStyle     =   1
  127.       Enabled         =   -1  'True
  128.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  129.          Name            =   "宋体"
  130.          Size            =   9
  131.          Charset         =   134
  132.          Weight          =   400
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       MousePointer    =   0
  138.       BackColor       =   16777215
  139.       ForeColor       =   -2147483640
  140.       BackColorFixed  =   13826538
  141.       ForeColorFixed  =   -2147483630
  142.       BackColorSel    =   -2147483635
  143.       ForeColorSel    =   -2147483634
  144.       BackColorBkg    =   -2147483636
  145.       BackColorAlternate=   16777215
  146.       GridColor       =   -2147483633
  147.       GridColorFixed  =   -2147483632
  148.       TreeColor       =   -2147483632
  149.       FloodColor      =   192
  150.       SheetBorder     =   -2147483642
  151.       FocusRect       =   1
  152.       HighLight       =   1
  153.       AllowSelection  =   -1  'True
  154.       AllowBigSelection=   -1  'True
  155.       AllowUserResizing=   0
  156.       SelectionMode   =   0
  157.       GridLines       =   1
  158.       GridLinesFixed  =   2
  159.       GridLineWidth   =   1
  160.       Rows            =   50
  161.       Cols            =   10
  162.       FixedRows       =   1
  163.       FixedCols       =   1
  164.       RowHeightMin    =   0
  165.       RowHeightMax    =   0
  166.       ColWidthMin     =   0
  167.       ColWidthMax     =   0
  168.       ExtendLastCol   =   0   'False
  169.       FormatString    =   ""
  170.       ScrollTrack     =   0   'False
  171.       ScrollBars      =   3
  172.       ScrollTips      =   0   'False
  173.       MergeCells      =   0
  174.       MergeCompare    =   0
  175.       AutoResize      =   -1  'True
  176.       AutoSizeMode    =   0
  177.       AutoSearch      =   0
  178.       AutoSearchDelay =   2
  179.       MultiTotals     =   -1  'True
  180.       SubtotalPosition=   1
  181.       OutlineBar      =   0
  182.       OutlineCol      =   0
  183.       Ellipsis        =   0
  184.       ExplorerBar     =   0
  185.       PicturesOver    =   0   'False
  186.       FillStyle       =   0
  187.       RightToLeft     =   0   'False
  188.       PictureType     =   0
  189.       TabBehavior     =   0
  190.       OwnerDraw       =   0
  191.       Editable        =   0
  192.       ShowComboButton =   1
  193.       WordWrap        =   0   'False
  194.       TextStyle       =   0
  195.       TextStyleFixed  =   0
  196.       OleDragMode     =   0
  197.       OleDropMode     =   0
  198.       DataMode        =   0
  199.       VirtualData     =   -1  'True
  200.       DataMember      =   ""
  201.       ComboSearch     =   3
  202.       AutoSizeMouse   =   -1  'True
  203.       FrozenRows      =   0
  204.       FrozenCols      =   0
  205.       AllowUserFreezing=   0
  206.       BackColorFrozen =   0
  207.       ForeColorFrozen =   0
  208.       WallPaperAlignment=   9
  209.       AccessibleName  =   ""
  210.       AccessibleDescription=   ""
  211.       AccessibleValue =   ""
  212.       AccessibleRole  =   24
  213.    End
  214.    Begin MSComctlLib.Toolbar GsToolbar 
  215.       Height          =   525
  216.       Left            =   9465
  217.       TabIndex        =   2
  218.       Top             =   30
  219.       Width           =   2475
  220.       _ExtentX        =   4366
  221.       _ExtentY        =   926
  222.       ButtonWidth     =   1455
  223.       ButtonHeight    =   926
  224.       AllowCustomize  =   0   'False
  225.       Appearance      =   1
  226.       Style           =   1
  227.       ImageList       =   "ImageList1"
  228.       _Version        =   393216
  229.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  230.          NumButtons      =   3
  231.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  232.             Caption         =   "保存格式"
  233.             Key             =   "bcgs"
  234.             ImageKey        =   "bcgs"
  235.          EndProperty
  236.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  237.             Caption         =   "默认列宽"
  238.             Key             =   "hfmrgs"
  239.             ImageKey        =   "mrlk"
  240.          EndProperty
  241.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  242.             Caption         =   "显示项目"
  243.             Key             =   "szxsxm"
  244.             ImageKey        =   "xsxm"
  245.          EndProperty
  246.       EndProperty
  247.    End
  248.    Begin VB.Timer Timer1 
  249.       Enabled         =   0   'False
  250.       Interval        =   1
  251.       Left            =   7620
  252.       Top             =   90
  253.    End
  254.    Begin MSComctlLib.Toolbar SzToolbar 
  255.       Align           =   1  'Align Top
  256.       Height          =   555
  257.       Left            =   0
  258.       TabIndex        =   1
  259.       Top             =   0
  260.       Width           =   11880
  261.       _ExtentX        =   20955
  262.       _ExtentY        =   979
  263.       ButtonWidth     =   820
  264.       ButtonHeight    =   926
  265.       AllowCustomize  =   0   'False
  266.       Appearance      =   1
  267.       Style           =   1
  268.       ImageList       =   "ImageList1"
  269.       _Version        =   393216
  270.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  271.          NumButtons      =   9
  272.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  273.             Caption         =   "设置"
  274.             Key             =   "sz"
  275.             ImageKey        =   "sz"
  276.          EndProperty
  277.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  278.             Caption         =   "打印"
  279.             Key             =   "dy"
  280.             ImageKey        =   "dy"
  281.          EndProperty
  282.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  283.             Caption         =   "预览"
  284.             Key             =   "yl"
  285.             ImageKey        =   "yl"
  286.          EndProperty
  287.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  288.             Style           =   3
  289.          EndProperty
  290.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  291.             Caption         =   "查询"
  292.             Key             =   "cx"
  293.             ImageKey        =   "cx"
  294.          EndProperty
  295.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  296.             Caption         =   "凭证"
  297.             Key             =   "pz"
  298.             ImageKey        =   "pz"
  299.          EndProperty
  300.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  301.             Style           =   3
  302.          EndProperty
  303.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  304.             Caption         =   "帮助"
  305.             Key             =   "bz"
  306.             ImageKey        =   "bz"
  307.          EndProperty
  308.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  309.             Caption         =   "退出"
  310.             Key             =   "fh"
  311.             ImageKey        =   "tc"
  312.          EndProperty
  313.       EndProperty
  314.       BorderStyle     =   1
  315.       Begin MSComctlLib.ImageList ImageList1 
  316.          Left            =   6840
  317.          Top             =   0
  318.          _ExtentX        =   1005
  319.          _ExtentY        =   1005
  320.          BackColor       =   -2147483643
  321.          ImageWidth      =   16
  322.          ImageHeight     =   16
  323.          MaskColor       =   12632256
  324.          _Version        =   393216
  325.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  326.             NumListImages   =   32
  327.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  328.                Picture         =   "现金流量_凭证现金流量分配结果.frx":35106
  329.                Key             =   "sz"
  330.             EndProperty
  331.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  332.                Picture         =   "现金流量_凭证现金流量分配结果.frx":354A0
  333.                Key             =   "dy"
  334.             EndProperty
  335.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  336.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3583A
  337.                Key             =   "yl"
  338.             EndProperty
  339.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  340.                Picture         =   "现金流量_凭证现金流量分配结果.frx":35BD4
  341.                Key             =   "xg"
  342.             EndProperty
  343.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  344.                Picture         =   "现金流量_凭证现金流量分配结果.frx":35F6E
  345.                Key             =   "zh"
  346.             EndProperty
  347.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  348.                Picture         =   "现金流量_凭证现金流量分配结果.frx":36308
  349.                Key             =   "sh"
  350.             EndProperty
  351.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  352.                Picture         =   "现金流量_凭证现金流量分配结果.frx":366A2
  353.                Key             =   "bc"
  354.             EndProperty
  355.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  356.                Picture         =   "现金流量_凭证现金流量分配结果.frx":36A3C
  357.                Key             =   "fq"
  358.             EndProperty
  359.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  360.                Picture         =   "现金流量_凭证现金流量分配结果.frx":36DD6
  361.                Key             =   "bz"
  362.             EndProperty
  363.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  364.                Picture         =   "现金流量_凭证现金流量分配结果.frx":37170
  365.                Key             =   "tc"
  366.             EndProperty
  367.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  368.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3750A
  369.                Key             =   "bcgs"
  370.             EndProperty
  371.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  372.                Picture         =   "现金流量_凭证现金流量分配结果.frx":378A4
  373.                Key             =   "mrlk"
  374.             EndProperty
  375.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  376.                Picture         =   "现金流量_凭证现金流量分配结果.frx":37C3E
  377.                Key             =   "xsxm"
  378.             EndProperty
  379.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  380.                Picture         =   "现金流量_凭证现金流量分配结果.frx":37FD8
  381.                Key             =   "first"
  382.             EndProperty
  383.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  384.                Picture         =   "现金流量_凭证现金流量分配结果.frx":38372
  385.                Key             =   "prev"
  386.             EndProperty
  387.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  388.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3870C
  389.                Key             =   "next"
  390.             EndProperty
  391.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  392.                Picture         =   "现金流量_凭证现金流量分配结果.frx":38AA6
  393.                Key             =   "last"
  394.             EndProperty
  395.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  396.                Picture         =   "现金流量_凭证现金流量分配结果.frx":38E40
  397.                Key             =   "xx"
  398.             EndProperty
  399.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  400.                Picture         =   "现金流量_凭证现金流量分配结果.frx":391DA
  401.                Key             =   "define"
  402.             EndProperty
  403.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  404.                Picture         =   "现金流量_凭证现金流量分配结果.frx":39574
  405.                Key             =   "exec"
  406.             EndProperty
  407.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  408.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3990E
  409.                Key             =   "xz"
  410.             EndProperty
  411.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  412.                Picture         =   "现金流量_凭证现金流量分配结果.frx":39CA8
  413.                Key             =   "sc"
  414.             EndProperty
  415.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  416.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3A042
  417.                Key             =   "sx"
  418.             EndProperty
  419.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  420.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3A3DC
  421.                Key             =   "cx"
  422.             EndProperty
  423.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  424.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3A776
  425.                Key             =   "zd"
  426.             EndProperty
  427.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  428.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3AB10
  429.                Key             =   "dz"
  430.             EndProperty
  431.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  432.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3AEAA
  433.                Key             =   "ph"
  434.             EndProperty
  435.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  436.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3B244
  437.                Key             =   "fz"
  438.             EndProperty
  439.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3B5DE
  441.                Key             =   "dw"
  442.             EndProperty
  443.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3B978
  445.                Key             =   "hf"
  446.             EndProperty
  447.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3BD12
  449.                Key             =   "pz"
  450.             EndProperty
  451.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "现金流量_凭证现金流量分配结果.frx":3C0AC
  453.                Key             =   "check"
  454.             EndProperty
  455.          EndProperty
  456.       End
  457.    End
  458.    Begin VSFlex8Ctl.VSFlexGrid WglrGrid 
  459.       Height          =   1155
  460.       Left            =   0
  461.       TabIndex        =   11
  462.       Top             =   6420
  463.       Width           =   9195
  464.       _cx             =   5080
  465.       _cy             =   5080
  466.       Appearance      =   1
  467.       BorderStyle     =   1
  468.       Enabled         =   -1  'True
  469.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  470.          Name            =   "宋体"
  471.          Size            =   9
  472.          Charset         =   134
  473.          Weight          =   400
  474.          Underline       =   0   'False
  475.          Italic          =   0   'False
  476.          Strikethrough   =   0   'False
  477.       EndProperty
  478.       MousePointer    =   0
  479.       BackColor       =   16777215
  480.       ForeColor       =   -2147483640
  481.       BackColorFixed  =   12632256
  482.       ForeColorFixed  =   -2147483630
  483.       BackColorSel    =   -2147483635
  484.       ForeColorSel    =   -2147483634
  485.       BackColorBkg    =   -2147483636
  486.       BackColorAlternate=   16777215
  487.       GridColor       =   -2147483633
  488.       GridColorFixed  =   -2147483632
  489.       TreeColor       =   -2147483632
  490.       FloodColor      =   192
  491.       SheetBorder     =   -2147483642
  492.       FocusRect       =   1
  493.       HighLight       =   1
  494.       AllowSelection  =   -1  'True
  495.       AllowBigSelection=   -1  'True
  496.       AllowUserResizing=   0
  497.       SelectionMode   =   0
  498.       GridLines       =   1
  499.       GridLinesFixed  =   2
  500.       GridLineWidth   =   1
  501.       Rows            =   50
  502.       Cols            =   10
  503.       FixedRows       =   1
  504.       FixedCols       =   1
  505.       RowHeightMin    =   0
  506.       RowHeightMax    =   0
  507.       ColWidthMin     =   0
  508.       ColWidthMax     =   0
  509.       ExtendLastCol   =   0   'False
  510.       FormatString    =   ""
  511.       ScrollTrack     =   0   'False
  512.       ScrollBars      =   3
  513.       ScrollTips      =   0   'False
  514.       MergeCells      =   0
  515.       MergeCompare    =   0
  516.       AutoResize      =   -1  'True
  517.       AutoSizeMode    =   0
  518.       AutoSearch      =   0
  519.       AutoSearchDelay =   2
  520.       MultiTotals     =   -1  'True
  521.       SubtotalPosition=   1
  522.       OutlineBar      =   0
  523.       OutlineCol      =   0
  524.       Ellipsis        =   0
  525.       ExplorerBar     =   0
  526.       PicturesOver    =   0   'False
  527.       FillStyle       =   0
  528.       RightToLeft     =   0   'False
  529.       PictureType     =   0
  530.       TabBehavior     =   0
  531.       OwnerDraw       =   0
  532.       Editable        =   0
  533.       ShowComboButton =   1
  534.       WordWrap        =   0   'False
  535.       TextStyle       =   0
  536.       TextStyleFixed  =   0
  537.       OleDragMode     =   0
  538.       OleDropMode     =   0
  539.       DataMode        =   0
  540.       VirtualData     =   -1  'True
  541.       DataMember      =   ""
  542.       ComboSearch     =   3
  543.       AutoSizeMouse   =   -1  'True
  544.       FrozenRows      =   0
  545.       FrozenCols      =   0
  546.       AllowUserFreezing=   0
  547.       BackColorFrozen =   0
  548.       ForeColorFrozen =   0
  549.       WallPaperAlignment=   9
  550.       AccessibleName  =   ""
  551.       AccessibleDescription=   ""
  552.       AccessibleValue =   ""
  553.       AccessibleRole  =   24
  554.    End
  555.    Begin VB.Frame Frame1 
  556.       Height          =   1275
  557.       Left            =   9210
  558.       TabIndex        =   12
  559.       Top             =   6330
  560.       Width           =   2655
  561.       Begin VB.Label Label1 
  562.          BackStyle       =   0  'Transparent
  563.          Caption         =   "凭证金额合计:"
  564.          Height          =   225
  565.          Index           =   3
  566.          Left            =   150
  567.          TabIndex        =   16
  568.          Top             =   510
  569.          Width           =   1215
  570.       End
  571.       Begin VB.Label Lab_Pzjehj 
  572.          BackStyle       =   0  'Transparent
  573.          ForeColor       =   &H00C00000&
  574.          Height          =   225
  575.          Left            =   1350
  576.          TabIndex        =   15
  577.          Top             =   510
  578.          Width           =   1095
  579.       End
  580.       Begin VB.Label Label1 
  581.          BackStyle       =   0  'Transparent
  582.          Caption         =   "分配金额合计:"
  583.          Height          =   225
  584.          Index           =   2
  585.          Left            =   150
  586.          TabIndex        =   14
  587.          Top             =   900
  588.          Width           =   1215
  589.       End
  590.       Begin VB.Label Lab_Fpje 
  591.          BackStyle       =   0  'Transparent
  592.          ForeColor       =   &H00C00000&
  593.          Height          =   255
  594.          Left            =   1350
  595.          TabIndex        =   13
  596.          Top             =   900
  597.          Width           =   1245
  598.       End
  599.    End
  600. End
  601. Attribute VB_Name = "XJ_FrmXjllfpjg"
  602. Attribute VB_GlobalNameSpace = False
  603. Attribute VB_Creatable = False
  604. Attribute VB_PredeclaredId = True
  605. Attribute VB_Exposed = False
  606. '*****************************************************************
  607. '*    模 块 名 称 :现金流量数据调整
  608. '*    功 能 描 述 :
  609. '*    程序员姓名  :张建忠
  610. '*    最后修改人  :张建忠
  611. '*    最后修改时间:2001/12/03
  612. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  613. '*****************************************************************
  614. Dim Tsxx As String                       '系统提示信息
  615. Dim ReportTitle As String                '报表主标题
  616. Dim Lng_VouchId As Long                  '分配现金流量凭证ID
  618. '以下为固定使用变量(凭证列表)
  619. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  620. Dim GridCode As String                   '显示网格网格代码
  621. Dim GridInf() As Variant                 '整个网格设置信息
  622. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  623. Dim Sjhgd As Double                      '网格数据行高度
  624. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  625. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  626. Dim GridStr()  As String                 '网格列信息(字符型)
  627. Dim GridInt() As Integer                 '网格列信息(整型)
  628. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  630. '以下为固定使用变量(现金流量分配网格)
  631. Dim GridCode1 As String                   '显示网格网格代码
  632. Dim GridInf1() As Variant                 '整个网格设置信息
  633. Dim Qslz1 As Long                         '网格隐藏(非操作显示)列数
  634. Dim Sjhgd1 As Double                      '网格数据行高度
  635. Dim Sfxshjwg1 As Boolean                  '是否显示合计网格
  636. Dim GridBoolean1() As Boolean             '网格列信息(布尔型)
  637. Dim GridStr1()  As String                 '网格列信息(字符型)
  638. Dim GridInt1() As Integer                 '网格列信息(整型)
  639. Dim Szzls1 As Integer                     '数组总列数(网格列数-1)
  640. Private Sub Form_Load()                                                   '窗体装入
  641.     
  642.     '调入打印页面设置窗体
  643.     XtReportCode = "Cwzz_jzpzcx"
  644.     Load Dyymctbl
  645.     ReportTitle = "现金流量数据调整"
  646.     
  647.     '调整标题栏及网格、格式工具条位置
  648.     Pic_Title.Left = 40
  649.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  650.     CxbbGrid.Left = Pic_Title.Left
  651.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  652.     
  653.     '调 入 网 格(凭证列表)
  654.     GridCode = "Cwzz_jzpzcx"
  655.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  656.     Qslz = GridInf(1)
  657.     Sjhgd = GridInf(2)
  658.     Sfxshjwg = GridInf(7)
  659.     Szzls = CxbbGrid.Cols - 1
  660.     
  661.     '调 入 网 格(现金流量分配情况)
  662.     GridCode1 = "Cwzz_xjllsjtz"        '网格属性编码
  663.     Call BzWgcsh(WglrGrid, GridCode1, GridInf1(), GridBoolean1(), GridInt1(), GridStr1())
  664.     
  665.     Qslz1 = GridInf1(1)
  666.     Sjhgd1 = GridInf1(2)
  667.     Sfxshjwg1 = GridInf1(7)
  668.     Szzls1 = WglrGrid.Cols - 1
  669.     
  670.     '调整标题位置
  671.     SetTitlePos tsLabel(4)
  672.     
  673.     
  674. End Sub
  676. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  677.     '卸载条件窗体
  678.     XJ_FrmXjllfptj.UnloadCheck.Value = 1
  679.     Unload XJ_FrmXjllfptj
  680.     
  681.     '卸载打印页面设置窗体
  682.     Unload Dyymctbl
  683. End Sub
  685. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  686.     
  687.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  688.     
  689. End Sub
  691. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)   '表格格式设置(通用)
  692.     
  693.     Select Case Button.Key
  694.     Case "bcgs"                                       '保存表格格式
  695.         Call Bcwggs(CxbbGrid, GridCode, GridStr())
  696.     Case "hfmrgs"                                     '恢复默认格式
  697.         Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  698.     Case "szxsxm"                                     '设置显示项目
  699.         Call Szxsxm(CxbbGrid, GridCode)
  700.     End Select
  701.     
  702. End Sub
  705. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  706.     Select Case Button.Key
  707.     Case "sz"                                          '页面设置
  708.         Dyymctbl.Show 1
  709.     Case "yl"                                            '预 览
  710.         Call bbyl(True)
  711.     Case "dy"                                            '打 印
  712.         Call bbyl(False)
  713.     Case "cx"                                            '查 询
  714.         XJ_FrmXjllfptj.Show 1
  715.     Case "pz"                                            '凭 证
  716.         Call Sub_Drpz
  717.     Case "bz"                                            '帮 助
  718.         Call F1bz
  719.     Case "fh"                                            '退 出
  720.         Unload Me
  721.     End Select
  722. End Sub
  724. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  725.     Timer1.Enabled = False
  726.     Xt_Wait.Show
  727.     Xt_Wait.Refresh
  728.     
  729.     '加快显示速度
  730.     CxbbGrid.Redraw = False
  731.     
  732.     '生成查询结果
  733.     On Error Resume Next
  734.     Call Sub_Query
  735.     CxbbGrid.Select CxbbGrid.Rows - 1, 1
  736.     CxbbGrid.Select 1, 1
  737.     
  738.     '显示当前凭证现金流量分配情况
  739.     Call CxbbGrid_RowColChange
  740.     
  741.     CxbbGrid.Redraw = True
  742.     
  743.     Xt_Wait.Hide
  744. End Sub
  746. Private Sub Sub_Query()                                    '生成查询结果
  747.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  748.     Dim Str_QueryCondi As String                '用户录入查询条件
  749.     Dim Sqlstr As String                        '查询字符串
  750.     Dim Coljsq As Long                          '网格列计数器
  751.     Dim Jsqte As Integer                        '临时动态计数器
  752.     Dim Int_VouchID%                            '记录上一张凭证标识
  753.     Dim Dbl_Jfhj#, Dbl_Dfhj#                    '每张凭证借贷方合计
  754.     
  755.     '以下为用户自定义部分[
  756.     
  757.     With XJ_FrmXjllfptj
  758.         
  759.         '显示查询会计期间
  760.         Lab_TitleText.Caption = .Combo_Kjqj.Text
  761.         
  762.         Str_QueryCondi = " where 1=1 "
  763.         For Jsqte = 1 To 6
  764.             Select Case Jsqte
  765.                 
  766.             Case 1   '凭证范围
  767.                 Select Case Trim(.Combo_Pzfw.Text)
  768.                 Case "未记帐凭证"
  769.                     Str_QueryCondi = Str_QueryCondi & " and b.BookFlag=0"
  770.                 Case "记帐凭证"
  771.                     Str_QueryCondi = Str_QueryCondi & " and b.BookFlag=1"
  772.                 End Select
  773.                 
  774.             Case 2   '凭证类别
  775.                 If GetComboKey(.Imgebo_VouchClass, 0) <> "" Then
  776.                     Str_QueryCondi = Str_QueryCondi & " and b.VouchClassCode='" & Trim(GetComboKey(.Imgebo_VouchClass, 0)) & "'"
  777.                 End If
  778.                 
  779.             Case 3   '会计期间
  780.                 If Trim(.Combo_Kjqj.Text) <> "" Then
  781.                     Str_QueryCondi = Str_QueryCondi & " and b.Year='" & Mid(Trim(.Combo_Kjqj.Text), 1, 4) & "' and b.Period='" & Mid(Trim(.Combo_Kjqj.Text), 6, 2) & "'"
  782.                 End If
  783.             Case 4   '凭证号范围(起始)
  784.                 Str_QueryCondi = Str_QueryCondi & " and b.VouchNo>= " & Val(.LrText(0).Text)
  785.                 
  786.             Case 5   '凭证号范围(终止)
  787.                 If Val(.LrText(1)) <> 0 Then
  788.                     Str_QueryCondi = Str_QueryCondi & " and b.VouchNo<= " & Val(.LrText(1).Text)
  789.                 End If
  790.                 
  791.             Case 6   '科目号
  792.                 If Trim(.LrText(2)) <> "" Then
  793.                     Str_QueryCondi = Str_QueryCondi & " and b.Ccode like '" & Trim(.LrText(2).Text) & "%'"
  794.                 End If
  795.                 
  796.             End Select
  797.         Next Jsqte
  798.     End With
  799.     Sqlstr = "SELECT a.*,Cwzz_AccCode.Cname,Cwzz_AccCode.CashFlowFlag From Cwzz_V_AccVouch a LEFT OUTER JOIN " & _
  800.     " Cwzz_AccCode ON " & _
  801.     " a.Ccode = Cwzz_AccCode.Ccode" & _
  802.     " Where EXISTS (SELECT * From Cwzz_V_AccVouch b LEFT OUTER JOIN Cwzz_AccCode ON " & _
  803.     " b.Ccode = Cwzz_AccCode.Ccode" & Str_QueryCondi & " AND a.VouchID=b.VouchID and Cwzz_AccCode.CashFlowFlag=1) " & _
  804.     " Order by Year,Period,VouchClassCode,VouchNo,SerialID"
  805.     
  806.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  807.     With Rec_Query
  808.         CxbbGrid.Rows = CxbbGrid.FixedRows
  809.         CxbbGrid.Rows = CxbbGrid.FixedRows + .RecordCount
  810.         Jsqte = CxbbGrid.FixedRows
  811.         
  812.         Do While Not .EOF
  813.             If Jsqte >= CxbbGrid.Rows Then
  814.                 CxbbGrid.AddItem ""
  815.             End If
  816.             
  817.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("VouchID")           '凭证ID
  818.             
  819.             '如果为同一张凭证则不再输出制单日期和凭证号
  820.             If Int_VouchID <> .Fields("VouchID") Then
  821.                 Int_VouchID = .Fields("VouchID")                          '凭证ID
  822.                 CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = .Fields("Ddate")              '制单日期
  823.                 CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("VouchClassCode") & "") + "-" + Mid(Trim(Str(10000 + .Fields("VouchNo"))), 2, 4) '凭证号
  824.             End If
  825.             
  826.             '产生现金流量科目记录变色显示
  827.             If .Fields("CashFlowFlag") Then
  828.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(2).BackColor
  829.             End If
  830.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("Digest") & "")           '摘要
  831.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("Ccode") & "")            '科目编码
  832.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Cname") & "")            '科目名称
  833.             If .Fields("Jfje") <> 0 Then                                                                       '借方金额
  834.                 CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Str(.Fields("Jfje")))
  835.             End If
  836.             If .Fields("Dfje") <> 0 Then                                                                       '贷方金额
  837.                 CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(Str(.Fields("Dfje")))
  838.             End If
  839.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Bill") & "")             '制单人
  840.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("Checker") & "")          '审核人
  841.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("Book") & "")             '记帐人
  842.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("VouchSource") & "")      '凭证来源
  843.             
  844.             If .Fields("ErrorFlag") Then                                                                       '有错凭证(红色显示)
  845.                 CxbbGrid.Cell(flexcpBackColor, Jsqte, 0, , CxbbGrid.Cols - 1) = Lab_Color(1).BackColor
  846.             End If
  847.             
  848.             '计算本张凭证合计
  849.             Dbl_Jfhj = Dbl_Jfhj + .Fields("Jfje")
  850.             Dbl_Dfhj = Dbl_Dfhj + .Fields("Dfje")
  851.             
  852.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  853.             
  854.             Jsqte = Jsqte + 1
  855.             .MoveNext
  856.             
  857.             If .EOF Then
  858.                 CxbbGrid.AddItem ""
  859.                 CxbbGrid.RowHeight(Jsqte) = Sjhgd
  860.                 CxbbGrid.TextMatrix(Jsqte, 0) = Int_VouchID            '凭证ID
  861.                 CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "合 计"
  862.                 If Dbl_Jfhj <> 0 Then                                                                       '借方合计
  863.                     CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Str(Dbl_Jfhj))
  864.                 End If
  865.                 If Dbl_Dfhj <> 0 Then                                                                       '贷方合计
  866.                     CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(Str(Dbl_Dfhj))
  867.                 End If
  868.                 
  869.                 '合计清零
  870.                 Dbl_Jfhj = 0
  871.                 Dbl_Dfhj = 0
  872.                 
  873.                 Jsqte = Jsqte + 1
  874.             Else
  875.                 If Int_VouchID <> .Fields("VouchID") Then
  876.                     CxbbGrid.AddItem ""
  877.                     CxbbGrid.RowHeight(Jsqte) = Sjhgd
  878.                     CxbbGrid.TextMatrix(Jsqte, 0) = Int_VouchID            '凭证ID
  879.                     CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = "合 计"
  880.                     If Dbl_Jfhj <> 0 Then                                                                       '借方合计
  881.                         CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(Str(Dbl_Jfhj))
  882.                     End If
  883.                     If Dbl_Dfhj <> 0 Then                                                                       '贷方合计
  884.                         CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(Str(Dbl_Dfhj))
  885.                     End If
  886.                     
  887.                     '合计清零
  888.                     Dbl_Jfhj = 0
  889.                     Dbl_Dfhj = 0
  890.                     
  891.                     Jsqte = Jsqte + 1
  892.                 End If
  893.             End If
  894.             
  895.         Loop
  896.         
  897.     End With
  898.     
  899.     ']以上为用户自定义部分
  900.     
  901. End Sub
  903. Private Sub CxbbGrid_DblClick()                              '用户双击网格进行现金流量调整
  904.     If Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) <> 0 Then
  905.         Xtcdcs = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  906.         XJ_FrmXjllsjtz.Show 1
  907.         
  908.         '显示当前凭证现金流量分配情况
  909.         Lng_VouchId = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  910.         Call Sub_XjllQuery(Lng_VouchId)
  911.     End If
  912. End Sub
  914. Private Sub CxbbGrid_KeyPress(KeyAscii As Integer)           '用户按回车键进行现金流量调整
  915.     If KeyAscii = vbKeyReturn Then
  916.         Call CxbbGrid_DblClick
  917.     End If
  918. End Sub
  920. Private Sub Sub_Drpz()                                       '调入相应凭证
  921.     Dim RecTemp As New ADODB.Recordset
  922.     '非数据行退出
  923.     If CxbbGrid.Row < CxbbGrid.FixedRows Then
  924.         Exit Sub
  925.     End If
  926.     Sqlstr = "SELECT VouchID From Cwzz_AccVouchMain" & _
  927.     " Where VouchID=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  928.     
  929.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  930.     With RecTemp
  931.         If .EOF Then
  932.             Tsxx = "此凭证已被其他用户删除!"
  933.             Call Xtxxts(Tsxx, 0, 4)
  934.             Exit Sub
  935.         Else
  936.             With PZ_JzpzclFrm
  937.                 '填充查询凭证标识
  938.                 .Lab_VouchId = Trim(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  939.                 
  940.                 '设置凭证处理为明细帐联查凭证状态
  941.                 .Lab_Pzclzt.Caption = "4"
  942.                 
  943.                 .Show 1
  944.                 
  945.             End With
  946.         End If
  947.     End With
  948. End Sub
  950. Private Sub CxbbGrid_RowColChange()       '显示当前凭证现金流量分配情况
  951.     If Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) <> Lng_VouchId Then
  952.         Lng_VouchId = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  953.         Call Sub_XjllQuery(Lng_VouchId)
  954.     End If
  955. End Sub
  957. Private Sub Sub_XjllQuery(Lng_VouchId1 As Long)                              '显示当前凭证分配金额
  958.     Dim Sqlstr As String                   '查询字符串
  959.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  960.     Dim Jsqte  As Long                     '临时计数器
  961.     
  962.     Sqlstr = "SELECT Jfjehj=isnull(sum(Jfje),0) From Cwzz_AccVouchSub Where VouchID=" & Lng_VouchId
  963.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  964.     If Not RecTemp.EOF Then
  965.         Lab_Pzjehj.Caption = RecTemp.Fields("Jfjehj")
  966.     End If
  967.     
  968.     Sqlstr = "SELECT Cwzz_CashFlowData.*,Cwzz_CashFlowItem.CashFlowName From Cwzz_CashFlowData LEFT OUTER JOIN Cwzz_CashFlowItem ON" & _
  969.     " Cwzz_CashFlowData.CashFlowId = Cwzz_CashFlowItem.CashFlowId Where Cwzz_CashFlowData.VouchID=" & Lng_VouchId1 & " Order By CashFlowDataID"
  970.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  971.     
  972.     With RecTemp
  973.         
  974.         WglrGrid.Clear 1
  975.         
  976.         WglrGrid.Rows = .RecordCount + WglrGrid.FixedRows
  977.         
  978.         Jsqte = WglrGrid.FixedRows
  979.         Do While Not .EOF
  980.             If Jsqte >= WglrGrid.Rows Then
  981.                 WglrGrid.AddItem ""
  982.             End If
  983.             
  984.             WglrGrid.TextMatrix(Jsqte, 0) = "*"                                                              '有效记录标识
  985.             
  986.             WglrGrid.TextMatrix(Jsqte, 1) = Trim(.Fields("CashFlowID") & "")                                 '现金流量项目ID
  987.             WglrGrid.TextMatrix(Jsqte, Sydz("001", GridStr1(), Szzls1)) = Trim(.Fields("CashFlowName") & "")                                   '部门编码
  988.             
  989.             If .Fields("Fpje") <> 0 Then                                                                     '分配金额
  990.                 WglrGrid.TextMatrix(Jsqte, Sydz("002", GridStr1(), Szzls1)) = .Fields("Fpje")
  991.             End If
  992.             
  993.             '<<]
  994.             WglrGrid.RowHeight(Jsqte) = Sjhgd1
  995.             .MoveNext
  996.             Jsqte = Jsqte + 1
  997.         Loop
  998.     End With
  999.     
  1000.     '计算分配金额
  1001.     Call Sub_Jsfpje
  1002. End Sub
  1004. Private Sub Sub_Jsfpje()                                        '计算凭证分配现金流量金额
  1005.     Dim Dbl_Fpje As Double
  1006.     Dbl_Fpje = 0
  1007.     With WglrGrid
  1008.         For Jsqte = .FixedRows To .Rows - 1
  1009.             If .TextMatrix(Jsqte, 0) = "*" Then
  1010.                 Dbl_Fpje = Dbl_Fpje + Val(.TextMatrix(Jsqte, Sydz("002", GridStr1(), Szzls1)))
  1011.             End If
  1012.         Next Jsqte
  1013.     End With
  1014.     If Dbl_Fpje = 0 Then
  1015.         Lab_Fpje.Caption = ""
  1016.     Else
  1017.         Lab_Fpje.Caption = Dbl_Fpje
  1018.     End If
  1019. End Sub
  1021. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1022.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1023.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1024.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  1025.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1026.     ReDim Bbxbt(1 To Bbxbtgs)
  1027.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1028.     If Bbbwhgs <> 0 Then
  1029.         ReDim Bbbwh(1 To Bbbwhgs)
  1030.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1031.     End If
  1032.     Bbzbt = ReportTitle
  1033.     Bbxbt(1) = " "
  1034.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1035.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1036.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1037.     If Not bbylte Then
  1038.         Unload DY_Tybbyldy
  1039.     End If
  1040. End Sub