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

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

企业管理

开发平台：

Visual Basic

i-：源码内容
  1. VERSION 5.00
  2. Object = "{BEEECC20-4D5F-4F8B-BFDC-5D9B6FBDE09D}#1.0#0"; "vsflex8.ocx"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  4. Begin VB.Form KF_FrmCollate 
  5.    Caption         =   "帐簿分析_库存对帐表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   8880
  10.    HelpContextID   =   5001
  11.    Icon            =   "帐簿分析_库存对帐表结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   8880
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   540
  20.       Left            =   9330
  21.       TabIndex        =   3
  22.       Top             =   30
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   953
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   953
  28.       Appearance      =   1
  29.       Style           =   1
  30.       ImageList       =   "ImageList2"
  31.       _Version        =   393216
  32.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  33.          NumButtons      =   3
  34.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  35.             Caption         =   "保存格式"
  36.             Key             =   "bcgs"
  37.             ImageKey        =   "bcgs"
  38.          EndProperty
  39.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  40.             Caption         =   "默认列宽"
  41.             Key             =   "hfmrgs"
  42.             ImageKey        =   "mrlk"
  43.          EndProperty
  44.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  45.             Caption         =   "显示项目"
  46.             Key             =   "szxsxm"
  47.             ImageKey        =   "xsxm"
  48.          EndProperty
  49.       EndProperty
  50.    End
  51.    Begin VB.PictureBox Pic_Title 
  52.       BackColor       =   &H00FFFFFF&
  53.       Height          =   825
  54.       Left            =   0
  55.       Picture         =   "帐簿分析_库存对帐表结果.frx":1042
  56.       ScaleHeight     =   765
  57.       ScaleWidth      =   11715
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11775
  61.       Begin VB.Label Label2 
  62.          AutoSize        =   -1  'True
  63.          BackStyle       =   0  'Transparent
  64.          Caption         =   "会计期间:"
  65.          Height          =   180
  66.          Left            =   6840
  67.          TabIndex        =   6
  68.          Top             =   270
  69.          Width           =   810
  70.       End
  71.       Begin VB.Label Label1 
  72.          AutoSize        =   -1  'True
  73.          BackStyle       =   0  'Transparent
  74.          Caption         =   "仓库:"
  75.          Height          =   180
  76.          Left            =   4080
  77.          TabIndex        =   5
  78.          Top             =   270
  79.          Width           =   450
  80.       End
  81.       Begin VB.Label Lab_Title 
  82.          BackColor       =   &H80000018&
  83.          BackStyle       =   0  'Transparent
  84.          Caption         =   "库存对帐表"
  85.          BeginProperty Font 
  86.             Name            =   "宋体"
  87.             Size            =   12
  88.             Charset         =   134
  89.             Weight          =   700
  90.             Underline       =   0   'False
  91.             Italic          =   0   'False
  92.             Strikethrough   =   0   'False
  93.          EndProperty
  94.          ForeColor       =   &H00000000&
  95.          Height          =   300
  96.          Index           =   4
  97.          Left            =   480
  98.          TabIndex        =   2
  99.          Top             =   210
  100.          Width           =   2715
  101.       End
  102.    End
  103.    Begin VB.Timer Timer1 
  104.       Enabled         =   0   'False
  105.       Interval        =   1
  106.       Left            =   7620
  107.       Top             =   90
  108.    End
  109.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  110.       Height          =   7995
  111.       Left            =   0
  112.       TabIndex        =   0
  113.       Top             =   1440
  114.       Width           =   11775
  115.       _cx             =   5080
  116.       _cy             =   5080
  117.       Appearance      =   1
  118.       BorderStyle     =   1
  119.       Enabled         =   -1  'True
  120.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  121.          Name            =   "宋体"
  122.          Size            =   9
  123.          Charset         =   134
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       MousePointer    =   0
  130.       BackColor       =   16777215
  131.       ForeColor       =   -2147483640
  132.       BackColorFixed  =   13826538
  133.       ForeColorFixed  =   -2147483630
  134.       BackColorSel    =   -2147483635
  135.       ForeColorSel    =   -2147483634
  136.       BackColorBkg    =   -2147483636
  137.       BackColorAlternate=   16777215
  138.       GridColor       =   -2147483633
  139.       GridColorFixed  =   -2147483632
  140.       TreeColor       =   -2147483632
  141.       FloodColor      =   192
  142.       SheetBorder     =   -2147483642
  143.       FocusRect       =   1
  144.       HighLight       =   1
  145.       AllowSelection  =   -1  'True
  146.       AllowBigSelection=   -1  'True
  147.       AllowUserResizing=   0
  148.       SelectionMode   =   0
  149.       GridLines       =   1
  150.       GridLinesFixed  =   2
  151.       GridLineWidth   =   1
  152.       Rows            =   50
  153.       Cols            =   10
  154.       FixedRows       =   1
  155.       FixedCols       =   1
  156.       RowHeightMin    =   0
  157.       RowHeightMax    =   0
  158.       ColWidthMin     =   0
  159.       ColWidthMax     =   0
  160.       ExtendLastCol   =   0   'False
  161.       FormatString    =   ""
  162.       ScrollTrack     =   0   'False
  163.       ScrollBars      =   3
  164.       ScrollTips      =   0   'False
  165.       MergeCells      =   0
  166.       MergeCompare    =   0
  167.       AutoResize      =   -1  'True
  168.       AutoSizeMode    =   0
  169.       AutoSearch      =   0
  170.       AutoSearchDelay =   2
  171.       MultiTotals     =   -1  'True
  172.       SubtotalPosition=   0
  173.       OutlineBar      =   0
  174.       OutlineCol      =   0
  175.       Ellipsis        =   0
  176.       ExplorerBar     =   0
  177.       PicturesOver    =   0   'False
  178.       FillStyle       =   0
  179.       RightToLeft     =   0   'False
  180.       PictureType     =   0
  181.       TabBehavior     =   0
  182.       OwnerDraw       =   0
  183.       Editable        =   0
  184.       ShowComboButton =   1
  185.       WordWrap        =   0   'False
  186.       TextStyle       =   0
  187.       TextStyleFixed  =   0
  188.       OleDragMode     =   0
  189.       OleDropMode     =   0
  190.       DataMode        =   0
  191.       VirtualData     =   -1  'True
  192.       DataMember      =   ""
  193.       ComboSearch     =   3
  194.       AutoSizeMouse   =   -1  'True
  195.       FrozenRows      =   0
  196.       FrozenCols      =   0
  197.       AllowUserFreezing=   0
  198.       BackColorFrozen =   0
  199.       ForeColorFrozen =   0
  200.       WallPaperAlignment=   9
  201.       AccessibleName  =   ""
  202.       AccessibleDescription=   ""
  203.       AccessibleValue =   ""
  204.       AccessibleRole  =   24
  205.       Begin MSComctlLib.ImageList ImageList2 
  206.          Left            =   0
  207.          Top             =   0
  208.          _ExtentX        =   1005
  209.          _ExtentY        =   1005
  210.          BackColor       =   -2147483643
  211.          ImageWidth      =   16
  212.          ImageHeight     =   16
  213.          MaskColor       =   12632256
  214.          _Version        =   393216
  215.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  216.             NumListImages   =   40
  217.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  218.                Picture         =   "帐簿分析_库存对帐表结果.frx":1FAC4
  219.                Key             =   "sz"
  220.             EndProperty
  221.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  222.                Picture         =   "帐簿分析_库存对帐表结果.frx":1FE5E
  223.                Key             =   "dy"
  224.             EndProperty
  225.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  226.                Picture         =   "帐簿分析_库存对帐表结果.frx":201F8
  227.                Key             =   "yl"
  228.             EndProperty
  229.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  230.                Picture         =   "帐簿分析_库存对帐表结果.frx":20592
  231.                Key             =   "xg"
  232.             EndProperty
  233.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  234.                Picture         =   "帐簿分析_库存对帐表结果.frx":2092C
  235.                Key             =   "zh"
  236.             EndProperty
  237.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  238.                Picture         =   "帐簿分析_库存对帐表结果.frx":20CC6
  239.                Key             =   "sh"
  240.             EndProperty
  241.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  242.                Picture         =   "帐簿分析_库存对帐表结果.frx":21060
  243.                Key             =   "bc"
  244.             EndProperty
  245.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  246.                Picture         =   "帐簿分析_库存对帐表结果.frx":213FA
  247.                Key             =   "fq"
  248.             EndProperty
  249.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  250.                Picture         =   "帐簿分析_库存对帐表结果.frx":21794
  251.                Key             =   "bz"
  252.             EndProperty
  253.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  254.                Picture         =   "帐簿分析_库存对帐表结果.frx":21B2E
  255.                Key             =   "tc"
  256.             EndProperty
  257.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  258.                Picture         =   "帐簿分析_库存对帐表结果.frx":21EC8
  259.                Key             =   "bcgs"
  260.             EndProperty
  261.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  262.                Picture         =   "帐簿分析_库存对帐表结果.frx":22262
  263.                Key             =   "mrlk"
  264.             EndProperty
  265.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  266.                Picture         =   "帐簿分析_库存对帐表结果.frx":225FC
  267.                Key             =   "xsxm"
  268.             EndProperty
  269.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  270.                Picture         =   "帐簿分析_库存对帐表结果.frx":22996
  271.                Key             =   "first"
  272.             EndProperty
  273.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  274.                Picture         =   "帐簿分析_库存对帐表结果.frx":22D30
  275.                Key             =   "prev"
  276.             EndProperty
  277.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  278.                Picture         =   "帐簿分析_库存对帐表结果.frx":230CA
  279.                Key             =   "next"
  280.             EndProperty
  281.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  282.                Picture         =   "帐簿分析_库存对帐表结果.frx":23464
  283.                Key             =   "last"
  284.             EndProperty
  285.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  286.                Picture         =   "帐簿分析_库存对帐表结果.frx":237FE
  287.                Key             =   "xx"
  288.             EndProperty
  289.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  290.                Picture         =   "帐簿分析_库存对帐表结果.frx":23B98
  291.                Key             =   "define"
  292.             EndProperty
  293.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  294.                Picture         =   "帐簿分析_库存对帐表结果.frx":23F32
  295.                Key             =   "exec"
  296.             EndProperty
  297.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  298.                Picture         =   "帐簿分析_库存对帐表结果.frx":242CC
  299.                Key             =   "xz"
  300.             EndProperty
  301.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  302.                Picture         =   "帐簿分析_库存对帐表结果.frx":24666
  303.                Key             =   "sc"
  304.             EndProperty
  305.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  306.                Picture         =   "帐簿分析_库存对帐表结果.frx":24A00
  307.                Key             =   "sx"
  308.             EndProperty
  309.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  310.                Picture         =   "帐簿分析_库存对帐表结果.frx":24D9A
  311.                Key             =   "cx"
  312.             EndProperty
  313.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  314.                Picture         =   "帐簿分析_库存对帐表结果.frx":25134
  315.                Key             =   "zd"
  316.             EndProperty
  317.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  318.                Picture         =   "帐簿分析_库存对帐表结果.frx":254CE
  319.                Key             =   "dz"
  320.             EndProperty
  321.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  322.                Picture         =   "帐簿分析_库存对帐表结果.frx":25868
  323.                Key             =   "ph"
  324.             EndProperty
  325.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "帐簿分析_库存对帐表结果.frx":25C02
  327.                Key             =   "fz"
  328.             EndProperty
  329.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "帐簿分析_库存对帐表结果.frx":25F9C
  331.                Key             =   "dw"
  332.             EndProperty
  333.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "帐簿分析_库存对帐表结果.frx":26336
  335.                Key             =   "hf"
  336.             EndProperty
  337.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "帐簿分析_库存对帐表结果.frx":266D0
  339.                Key             =   "pz"
  340.             EndProperty
  341.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.                Picture         =   "帐簿分析_库存对帐表结果.frx":26A6A
  343.                Key             =   "check"
  344.             EndProperty
  345.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "帐簿分析_库存对帐表结果.frx":26E04
  347.                Key             =   "qs"
  348.             EndProperty
  349.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "帐簿分析_库存对帐表结果.frx":2719E
  351.                Key             =   "fullcheck"
  352.             EndProperty
  353.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "帐簿分析_库存对帐表结果.frx":27538
  355.                Key             =   "qq"
  356.             EndProperty
  357.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "帐簿分析_库存对帐表结果.frx":278D2
  359.                Key             =   "bcw"
  360.             EndProperty
  361.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  362.                Picture         =   "帐簿分析_库存对帐表结果.frx":27C6C
  363.                Key             =   "ye"
  364.             EndProperty
  365.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.                Picture         =   "帐簿分析_库存对帐表结果.frx":28006
  367.                Key             =   ""
  368.             EndProperty
  369.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.                Picture         =   "帐簿分析_库存对帐表结果.frx":283A0
  371.                Key             =   "frist"
  372.             EndProperty
  373.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.                Picture         =   "帐簿分析_库存对帐表结果.frx":2873A
  375.                Key             =   "dj"
  376.             EndProperty
  377.          EndProperty
  378.       End
  379.    End
  380.    Begin MSComctlLib.Toolbar SzToolbar 
  381.       Align           =   1  'Align Top
  382.       Height          =   555
  383.       Left            =   0
  384.       TabIndex        =   4
  385.       Top             =   0
  386.       Width           =   8880
  387.       _ExtentX        =   15663
  388.       _ExtentY        =   979
  389.       ButtonWidth     =   820
  390.       ButtonHeight    =   926
  391.       AllowCustomize  =   0   'False
  392.       Appearance      =   1
  393.       Style           =   1
  394.       ImageList       =   "ImageList1"
  395.       _Version        =   393216
  396.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  397.          NumButtons      =   13
  398.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  399.             Caption         =   "设置"
  400.             Key             =   "ymsz"
  401.             ImageKey        =   "sz"
  402.          EndProperty
  403.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  404.             Caption         =   "打印"
  405.             Key             =   "dy"
  406.             ImageKey        =   "dy"
  407.          EndProperty
  408.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  409.             Caption         =   "预览"
  410.             Key             =   "yl"
  411.             ImageKey        =   "yl"
  412.          EndProperty
  413.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  414.             Style           =   3
  415.          EndProperty
  416.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  417.             Caption         =   "查询"
  418.             Key             =   "cx"
  419.             ImageKey        =   "cx"
  420.          EndProperty
  421.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  422.             Style           =   3
  423.          EndProperty
  424.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  425.             Caption         =   "首张"
  426.             Key             =   "first"
  427.             ImageKey        =   "first"
  428.          EndProperty
  429.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  430.             Caption         =   "上张"
  431.             Key             =   "prev"
  432.             ImageKey        =   "prev"
  433.          EndProperty
  434.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  435.             Caption         =   "下张"
  436.             Key             =   "next"
  437.             ImageKey        =   "next"
  438.          EndProperty
  439.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  440.             Caption         =   "末张"
  441.             Key             =   "last"
  442.             ImageKey        =   "last"
  443.          EndProperty
  444.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  445.             Style           =   3
  446.          EndProperty
  447.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  448.             Caption         =   "帮助"
  449.             Key             =   "bz"
  450.             ImageKey        =   "bz"
  451.          EndProperty
  452.          BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  453.             Caption         =   "退出"
  454.             Key             =   "fh"
  455.             ImageKey        =   "tc"
  456.          EndProperty
  457.       EndProperty
  458.       BorderStyle     =   1
  459.       Begin MSComctlLib.ImageList ImageList1 
  460.          Left            =   6990
  461.          Top             =   30
  462.          _ExtentX        =   1005
  463.          _ExtentY        =   1005
  464.          BackColor       =   -2147483643
  465.          ImageWidth      =   16
  466.          ImageHeight     =   16
  467.          MaskColor       =   12632256
  468.          _Version        =   393216
  469.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  470.             NumListImages   =   32
  471.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "帐簿分析_库存对帐表结果.frx":28AD4
  473.                Key             =   "sz"
  474.             EndProperty
  475.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "帐簿分析_库存对帐表结果.frx":28E6E
  477.                Key             =   "dy"
  478.             EndProperty
  479.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "帐簿分析_库存对帐表结果.frx":29208
  481.                Key             =   "yl"
  482.             EndProperty
  483.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "帐簿分析_库存对帐表结果.frx":295A2
  485.                Key             =   "xg"
  486.             EndProperty
  487.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "帐簿分析_库存对帐表结果.frx":2993C
  489.                Key             =   "zh"
  490.             EndProperty
  491.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "帐簿分析_库存对帐表结果.frx":29CD6
  493.                Key             =   "sh"
  494.             EndProperty
  495.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "帐簿分析_库存对帐表结果.frx":2A070
  497.                Key             =   "bc"
  498.             EndProperty
  499.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "帐簿分析_库存对帐表结果.frx":2A40A
  501.                Key             =   "fq"
  502.             EndProperty
  503.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "帐簿分析_库存对帐表结果.frx":2A7A4
  505.                Key             =   "bz"
  506.             EndProperty
  507.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "帐簿分析_库存对帐表结果.frx":2AB3E
  509.                Key             =   "tc"
  510.             EndProperty
  511.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "帐簿分析_库存对帐表结果.frx":2AED8
  513.                Key             =   "bcgs"
  514.             EndProperty
  515.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "帐簿分析_库存对帐表结果.frx":2B272
  517.                Key             =   "mrlk"
  518.             EndProperty
  519.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "帐簿分析_库存对帐表结果.frx":2B60C
  521.                Key             =   "xsxm"
  522.             EndProperty
  523.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "帐簿分析_库存对帐表结果.frx":2B9A6
  525.                Key             =   "first"
  526.             EndProperty
  527.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "帐簿分析_库存对帐表结果.frx":2BD40
  529.                Key             =   "prev"
  530.             EndProperty
  531.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "帐簿分析_库存对帐表结果.frx":2C0DA
  533.                Key             =   "next"
  534.             EndProperty
  535.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "帐簿分析_库存对帐表结果.frx":2C474
  537.                Key             =   "last"
  538.             EndProperty
  539.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "帐簿分析_库存对帐表结果.frx":2C80E
  541.                Key             =   "xx"
  542.             EndProperty
  543.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "帐簿分析_库存对帐表结果.frx":2CBA8
  545.                Key             =   "define"
  546.             EndProperty
  547.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "帐簿分析_库存对帐表结果.frx":2CF42
  549.                Key             =   "exec"
  550.             EndProperty
  551.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "帐簿分析_库存对帐表结果.frx":2D2DC
  553.                Key             =   "xz"
  554.             EndProperty
  555.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "帐簿分析_库存对帐表结果.frx":2D676
  557.                Key             =   "sc"
  558.             EndProperty
  559.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "帐簿分析_库存对帐表结果.frx":2DA10
  561.                Key             =   "sx"
  562.             EndProperty
  563.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  564.                Picture         =   "帐簿分析_库存对帐表结果.frx":2DDAA
  565.                Key             =   "cx"
  566.             EndProperty
  567.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  568.                Picture         =   "帐簿分析_库存对帐表结果.frx":2E144
  569.                Key             =   "zd"
  570.             EndProperty
  571.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  572.                Picture         =   "帐簿分析_库存对帐表结果.frx":2E4DE
  573.                Key             =   "dz"
  574.             EndProperty
  575.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  576.                Picture         =   "帐簿分析_库存对帐表结果.frx":2E878
  577.                Key             =   "ph"
  578.             EndProperty
  579.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  580.                Picture         =   "帐簿分析_库存对帐表结果.frx":2EC12
  581.                Key             =   "fz"
  582.             EndProperty
  583.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  584.                Picture         =   "帐簿分析_库存对帐表结果.frx":2EFAC
  585.                Key             =   "dw"
  586.             EndProperty
  587.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  588.                Picture         =   "帐簿分析_库存对帐表结果.frx":2F346
  589.                Key             =   "hf"
  590.             EndProperty
  591.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  592.                Picture         =   "帐簿分析_库存对帐表结果.frx":2F6E0
  593.                Key             =   "pz"
  594.             EndProperty
  595.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  596.                Picture         =   "帐簿分析_库存对帐表结果.frx":2FA7A
  597.                Key             =   "check"
  598.             EndProperty
  599.          EndProperty
  600.       End
  601.    End
  602. End
  603. Attribute VB_Name = "KF_FrmCollate"
  604. Attribute VB_GlobalNameSpace = False
  605. Attribute VB_Creatable = False
  606. Attribute VB_PredeclaredId = True
  607. Attribute VB_Exposed = False
  608. '**************************************************************************
  609. '*    模 块 名 称 :帐簿分析_库存对帐表
  610. '*    功 能 描 述 :
  611. '*    程序员姓名  :张万成
  612. '*    最后修改人  :张万成
  613. '*    最后修改时间:2001/12/06
  614. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  615. '**************************************************************************
  616. Dim ReportTitle As String                '报表主标题
  617. Dim Str_QueryCondi As String             '用户录入查询条件
  618. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  620. '以下为固定使用变量
  621. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  622. Dim GridCode As String                   '显示网格网格代码
  623. Dim GridInf() As Variant                 '整个网格设置信息
  624. Dim Tsxx As String                       '系统提示信息
  625. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  626. Dim Sjhgd As Double                      '网格数据行高度
  627. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  628. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  629. Dim GridStr()  As String                 '网格列信息(字符型)
  630. Dim GridInt() As Integer                 '网格列信息(整型)
  631. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  632. Dim adoMate As New ADODB.Recordset
  633. Dim adoQuery As New ADODB.Recordset
  634. Dim Kjyear As Integer
  635. Dim Period As Integer
  637. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  638.     On Error Resume Next
  639.     With CxbbGrid
  640.         .Width = Me.Width - 160
  641.         .Height = Me.Height - .Top - 400
  642.     End With
  643.     With Pic_Title
  644.         .Width = Me.Width - 160
  645.     End With
  646.     
  647.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  649. End Sub
  651. Private Sub Form_Load()                                                   '窗体装入
  652.   
  653.     '调入打印页面设置窗体
  654.     ReportTitle = "库存对帐表"
  655.     XtReportCode = "KF_Collate"
  656.     Load Dyymctbl
  657.       
  658.     '调整标题栏及网格、格式工具条位置(Fixed)
  659.     Pic_Title.Left = 40
  660.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  661.     CxbbGrid.Left = Pic_Title.Left
  662.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  663.      
  664.     '调 入 网 格(Fixed)
  665.     GridCode = "KF_Collate"
  666.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  667.       
  668.     Qslz = GridInf(1)
  669.     Sjhgd = GridInf(2)
  670.     Sfxshjwg = GridInf(7)
  671.     Szzls = CxbbGrid.Cols - 1
  672.     
  673.     
  675. End Sub
  677. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  679.     '卸载条件窗体
  680.     KF_FrmCollateCxtj.UnloadCheck.Value = 1
  681.     Unload KF_FrmCollateCxtj
  682.     '卸载打印页面设置窗体
  683.     Unload Dyymctbl
  685. End Sub
  687. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  688.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  689. End Sub
  691. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  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
  702. End Sub
  704. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  705.     
  706.     Select Case Button.Key
  707.         Case "ymsz"                                          '页面设置
  708.             Dyymctbl.Show 1
  709.         Case "yl"                                            '预 览
  710.             Call bbyl(True)
  711.         Case "dy"                                            '打 印
  712.             Call bbyl(False)
  713.         Case "cx"                                            '查 询
  714.             KF_FrmCollateCxtj.Show 1
  715.         Case "first"
  716.             Call First
  717.         Case "last"
  718.             Call Last
  719.         Case "prev"
  720.             Call Prev
  721.         Case "next"
  722.             Call Sub_next
  723.         Case "bz"                                            '帮 助
  724.             Call F1bz
  725.         Case "fh"                                            '退 出
  726.            Unload Me
  727.     End Select
  729. End Sub
  731. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  732.     
  733.     Timer1.Enabled = False
  734.     Xt_Wait.Show
  735.     Xt_Wait.Refresh
  736.    
  737.     '加快显示速度
  738.     CxbbGrid.Redraw = False
  739.  
  740.     '生成查询结果
  741.     Call Sub_Query(0)
  742.    
  743.     CxbbGrid.Redraw = True
  744.     
  745.     Xt_Wait.Hide
  747. End Sub
  749. Private Sub First()
  751.     If adoMate.State = 1 Then
  752.         If adoMate.RecordCount > 0 Then
  753.             adoMate.MoveFirst
  754.             intNowRec = 1
  755.             SzToolbar.Buttons("first").Enabled = False
  756.             SzToolbar.Buttons("prev").Enabled = False
  757.             SzToolbar.Buttons("next").Enabled = True
  758.             SzToolbar.Buttons("last").Enabled = True
  759.             Call Show_Tab(Trim(adoMate.Fields("whcode")))
  760.         End If
  761.     End If
  762. End Sub
  763. Private Sub Last()
  764.     If adoMate.State = 1 Then
  765.         If adoMate.RecordCount > 0 Then
  766.             adoMate.MoveLast
  767.             intNowRec = conRecNum
  768.             SzToolbar.Buttons("next").Enabled = False
  769.             SzToolbar.Buttons("last").Enabled = False
  770.             SzToolbar.Buttons("first").Enabled = True
  771.             SzToolbar.Buttons("prev").Enabled = True
  772.             Call Show_Tab(Trim(adoMate.Fields("whcode")))
  773.         End If
  774.     End If
  775. End Sub
  776. Private Sub Prev()
  777.     If adoMate.State = 1 Then
  778.         SzToolbar.Buttons("next").Enabled = True
  779.         SzToolbar.Buttons("last").Enabled = True
  780.         If adoMate.RecordCount > 0 Then
  781.             intNowRec = intNowRec - 1
  782.             If adoMate.EOF Then
  783.                 adoMate.MovePrevious
  784.             End If
  785.             If Not adoMate.BOF Then
  786.                 adoMate.MovePrevious
  787.                 If Not adoMate.BOF Then
  788.                     Call Show_Tab(Trim(adoMate.Fields("whcode")))
  789.                 End If
  790.             End If
  791.             If adoMate.BOF Then
  792.                 SzToolbar.Buttons("first").Enabled = False
  793.                 SzToolbar.Buttons("prev").Enabled = False
  794.             End If
  795.             
  796.         End If
  797.     End If
  798. End Sub
  799. Private Sub Sub_next()
  800.     If adoMate.State = 1 Then
  801.         If adoMate.RecordCount > 0 Then
  802.             SzToolbar.Buttons("first").Enabled = True
  803.             SzToolbar.Buttons("prev").Enabled = True
  804.             intNowRec = intNowRec + 1
  805.             If adoMate.BOF Then
  806.                 adoMate.MoveNext
  807.             End If
  808.             If Not adoMate.EOF Then
  809.                 adoMate.MoveNext
  810.                 If Not adoMate.EOF Then
  811.                     Call Show_Tab(Trim(adoMate.Fields("whcode")))
  812.                 End If
  813.             End If
  814.             If adoMate.EOF Then
  815.                 SzToolbar.Buttons("next").Enabled = False
  816.                 SzToolbar.Buttons("last").Enabled = False
  817.             End If
  818.         End If
  819.     End If
  821. End Sub
  823. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  824.     
  825.    Dim Sqlstr1 As String                        '查询字符串
  826.    Dim Sqlstr2 As String
  827.    Dim Sqlstr As String
  828.    Dim Coljsq As Long                          '网格列计数器
  829.    Dim jsqte As Long                        '临时动态计数器
  830.    Dim adoPeriod As New ADODB.Recordset
  832.    
  833.  '以下为用户自定义部分[
  835.  With KF_FrmCollateCxtj
  836.      
  837.      '显示查询会计期间
  838.      Kjyear = Val(Mid(Trim(.Combo_Kjqj1.Text), 1, 4))
  839.      Period = Val(Mid(Trim(.Combo_Kjqj1.Text), 6))
  840.      If .LrText(0).Text <> "" Then
  841.         Call Show_Tab(Trim(.LrText(0).Tag))
  842.         SzToolbar.Buttons("first").Enabled = False
  843.         SzToolbar.Buttons("prev").Enabled = False
  844.         SzToolbar.Buttons("next").Enabled = False
  845.         SzToolbar.Buttons("last").Enabled = False
  846.      Else
  847.         Sqlstr = "SELECT distinct a.whcode,(select whname from gy_warehouse where a.whcode=gy_warehouse.whcode)as whname " & _
  848.                     "FROM (select mnumber,whcode,sum(startquan)as startquan,sum(inquan)as inquan,sum(outquan)as outquan from  Chhs_Mate where kjyear=" & Kjyear & " and period=" & Period & "  group by mnumber,whcode)a FULL OUTER JOIN " & _
  849.                     "(select mnumber,whcode,sum(startquan)as startquan,sum(receiptquan)as inquan,sum(issuequan)as outquan from KF_MateLedger where kjyear=" & Kjyear & " and period=" & Period & "  group by mnumber,whcode)b ON " & _
  850.                     "a.MNumber = b.MNumber Where (IsNull(a.StartQuan, 0) + IsNull(a.inquan, 0) - IsNull(a.outquan, 0)) <> (IsNull(b.StartQuan, 0) + IsNull(b.inquan, 0) - IsNull(b.outquan, 0))"
  851.         Set adoMate = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  853.         If Not adoMate.EOF Then
  854.             adoMate.MoveFirst
  855.             Call Show_Tab(Trim(adoMate.Fields("whcode")) & "")
  856.         End If
  857.         SzToolbar.Buttons("first").Enabled = True
  858.         SzToolbar.Buttons("prev").Enabled = True
  859.         SzToolbar.Buttons("next").Enabled = True
  860.         SzToolbar.Buttons("last").Enabled = True
  861.      End If
  862.      
  863.      
  864.      
  865.  End With
  867. End Sub
  869. Private Sub Show_Tab(StrTemp As String)
  870. Dim StrQC As String
  871. Dim adoStart As New ADODB.Recordset
  872. Dim InCount As Double
  873. Dim OutCount As Double
  874. Dim StrBill As String
  876. If KF_FrmCollateCxtj.LrText(0).Text <> "" Then
  877.     Label1 = "仓库:   " & Trim(KF_FrmCollateCxtj.LrText(0).Tag) & "--" & Trim(KF_FrmCollateCxtj.LrText(0).Text)
  878. Else
  879.     Label1 = "仓库:   " & Trim(StrTemp) & "--" & Trim(adoMate.Fields("whname"))
  880. End If
  881. Label2.Caption = "会计期间:" & Trim(KF_FrmCollateCxtj.Combo_Kjqj1.Text)
  882.     
  883.   StrBill = "SELECT a.MNumber,(select mname from gy_material where a.mnumber=gy_material.mnumber) as mname, " & _
  884.             "ISNULL(a.StartQuan,0) as StartQuan1,isnull(a.inquan,0) as inquan1,isnull(a.outquan,0) as outquan1, " & _
  885.             "ISNULL(b.StartQuan,0) AS StartQuan2,isnull(b.inquan,0) as inquan2,isnull(b.outquan,0) as outquan2 " & _
  886.             "FROM (select mnumber,whcode,sum(startquan)as startquan,sum(inquan)as inquan,sum(outquan)as outquan from  Chhs_Mate where kjyear=" & Kjyear & " and period=" & Period & " and whcode='" & Trim(StrTemp) & "' group by mnumber,whcode)a FULL OUTER JOIN " & _
  887.             "(select mnumber,whcode,sum(startquan)as startquan,sum(receiptquan)as inquan,sum(issuequan)as outquan from KF_MateLedger where kjyear=" & Kjyear & " and period=" & Period & " and whcode='" & Trim(StrTemp) & "' group by mnumber,whcode)b ON " & _
  888.             "a.MNumber = b.MNumber Where (ISNULL(a.StartQuan, 0) + ISNULL(a.inquan, 0) - ISNULL(a.outquan, 0)) <> (ISNULL(b.StartQuan, 0) + ISNULL(b.inquan, 0) - ISNULL(b.outquan, 0))"
  890.  Set adoQuery = Cw_DataEnvi.DataConnect.Execute(StrBill)
  891.  
  892.  With adoQuery
  893.     CxbbGrid.Rows = CxbbGrid.FixedRows
  894.     jsqte = CxbbGrid.FixedRows
  895.    Do While Not .EOF
  896.   
  897.      If jsqte >= CxbbGrid.Rows Then
  898.      End If
  899.         CxbbGrid.AddItem ""
  900.       
  901.      If IsNull(.Fields("MNumber")) Then
  902.         CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = ""                                      '物料编码
  903.      Else
  904.         CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "") & "-" & Trim(.Fields("mname") & "")
  905.      End If
  906.     
  907.      If Val(.Fields("StartQuan1") & "") <> 0 Then
  908.         CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Val(.Fields("StartQuan1") & "")         '期初数据
  909.      End If
  910.      If Val(.Fields("inquan1") & "") <> 0 Then
  911.          CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Val(.Fields("inquan1") & "")           '收入数据
  912.      End If
  913.      If Val(.Fields("outquan1") & "") <> 0 Then
  914.          CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Val(.Fields("outquan1") & "")          '发出数据
  915.      End If
  916.      If Val(.Fields("StartQuan1") & "") + Val(.Fields("inquan1") & "") - Val(.Fields("outquan1") & "") <> 0 Then
  917.         CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Val(.Fields("StartQuan1") & "") + Val(.Fields("inquan1") & "") - Val(.Fields("outquan1") & "")
  918.      End If                                                                                                 '结存数据
  919.      
  920.      If Val(.Fields("StartQuan2") & "") <> 0 Then
  921.          CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Val(.Fields("StartQuan2") & "")        '期初数据
  922.      End If
  923.      If Val(.Fields("inquan2") & "") <> 0 Then
  924.          CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Val(.Fields("inquan2") & "")           '收入数据
  925.      End If
  926.      If Val(.Fields("outquan2") & "") <> 0 Then
  927.          CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Val(.Fields("outquan2") & "")          '发出数据
  928.      End If
  929.      If Val(.Fields("StartQuan2") & "") + Val(.Fields("inquan2") & "") - Val(.Fields("outquan2") & "") <> 0 Then
  930.         CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = Val(.Fields("StartQuan2") & "") + Val(.Fields("inquan2") & "") - Val(.Fields("outquan2") & "")
  931.      End If                                                                                                 '结存数据
  932.      
  933.      
  934.      CxbbGrid.RowHeight(jsqte) = Sjhgd
  935.      
  936.      jsqte = jsqte + 1
  937.     .MoveNext
  938.    Loop
  940.  End With
  941.  ']以上为用户自定义部分
  942. End Sub
  944. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  945.     
  946.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  947.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  948.     Bbxbtgs = 2                                          '报 表 小 标 题 行 数
  949.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  950.     ReDim Bbxbt(1 To Bbxbtgs)
  951.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  952.     If Bbbwhgs <> 0 Then
  953.         ReDim Bbbwh(1 To Bbbwhgs)
  954.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  955.     End If
  956.     Bbzbt = ReportTitle
  957.     Bbxbt(1) = Space(5) + Fun_FormatOutPut(Trim(Label1), 30)
  958.     Bbxbt(1) = Bbxbt(1) + Fun_FormatOutPut(Trim(Label2), 30)
  959.     Bbxbt(2) = Space(5) + Fun_FormatOutPut(Trim(Label3), 30)
  960.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label4), 30)
  961.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Trim(Label5), 30)
  962.     
  963.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  964.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  965.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  966.     If Not bbylte Then
  967.         Unload DY_Tybbyldy
  968.     End If
  970. End Sub