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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
资源名称：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 LB_AdjustInBillList 
  5.    Caption         =   "入库单调整列表"
  6.    ClientHeight    =   6465
  7.    ClientLeft      =   60
  8.    ClientTop       =   345
  9.    ClientWidth     =   11595
  10.    HelpContextID   =   13030601
  11.    Icon            =   "单据调整_入库单调整列表.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   6465
  16.    ScaleWidth      =   11595
  17.    WindowState     =   2  'Maximized
  18.    Begin VB.Timer Timer1 
  19.       Enabled         =   0   'False
  20.       Interval        =   1
  21.       Left            =   7620
  22.       Top             =   90
  23.    End
  24.    Begin VB.PictureBox Pic_Title 
  25.       BackColor       =   &H00FFFFFF&
  26.       Height          =   825
  27.       Left            =   0
  28.       Picture         =   "单据调整_入库单调整列表.frx":1042
  29.       ScaleHeight     =   765
  30.       ScaleWidth      =   11715
  31.       TabIndex        =   1
  32.       Top             =   570
  33.       Width           =   11775
  34.       Begin VB.Label Lab_Title 
  35.          AutoSize        =   -1  'True
  36.          BackColor       =   &H80000018&
  37.          BackStyle       =   0  'Transparent
  38.          Caption         =   "入库单调整列表"
  39.          BeginProperty Font 
  40.             Name            =   "宋体"
  41.             Size            =   12
  42.             Charset         =   134
  43.             Weight          =   700
  44.             Underline       =   0   'False
  45.             Italic          =   0   'False
  46.             Strikethrough   =   0   'False
  47.          EndProperty
  48.          ForeColor       =   &H00000000&
  49.          Height          =   240
  50.          Index           =   4
  51.          Left            =   480
  52.          TabIndex        =   2
  53.          Top             =   210
  54.          Width           =   1785
  55.       End
  56.    End
  57.    Begin MSComctlLib.Toolbar GsToolbar 
  58.       Height          =   525
  59.       Left            =   9360
  60.       TabIndex        =   0
  61.       Top             =   30
  62.       Width           =   2475
  63.       _ExtentX        =   4366
  64.       _ExtentY        =   926
  65.       ButtonWidth     =   1455
  66.       ButtonHeight    =   926
  67.       Appearance      =   1
  68.       Style           =   1
  69.       ImageList       =   "ImageList1"
  70.       _Version        =   393216
  71.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  72.          NumButtons      =   3
  73.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  74.             Caption         =   "保存格式"
  75.             Key             =   "bcgs"
  76.             ImageKey        =   "bcgs"
  77.          EndProperty
  78.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  79.             Caption         =   "默认列宽"
  80.             Key             =   "hfmrgs"
  81.             ImageKey        =   "mrlk"
  82.          EndProperty
  83.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  84.             Caption         =   "显示项目"
  85.             Key             =   "szxsxm"
  86.             ImageKey        =   "xsxm"
  87.          EndProperty
  88.       EndProperty
  89.    End
  90.    Begin MSComctlLib.ImageList ImageList1 
  91.       Left            =   3900
  92.       Top             =   780
  93.       _ExtentX        =   1005
  94.       _ExtentY        =   1005
  95.       BackColor       =   -2147483643
  96.       ImageWidth      =   16
  97.       ImageHeight     =   16
  98.       MaskColor       =   12632256
  99.       _Version        =   393216
  100.       BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  101.          NumListImages   =   32
  102.          BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  103.             Picture         =   "单据调整_入库单调整列表.frx":1DF82
  104.             Key             =   "sz"
  105.          EndProperty
  106.          BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  107.             Picture         =   "单据调整_入库单调整列表.frx":1E31C
  108.             Key             =   "dy"
  109.          EndProperty
  110.          BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.             Picture         =   "单据调整_入库单调整列表.frx":1E6B6
  112.             Key             =   "yl"
  113.          EndProperty
  114.          BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.             Picture         =   "单据调整_入库单调整列表.frx":1EA50
  116.             Key             =   "xg"
  117.          EndProperty
  118.          BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.             Picture         =   "单据调整_入库单调整列表.frx":1EDEA
  120.             Key             =   "zh"
  121.          EndProperty
  122.          BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.             Picture         =   "单据调整_入库单调整列表.frx":1F184
  124.             Key             =   "sh"
  125.          EndProperty
  126.          BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.             Picture         =   "单据调整_入库单调整列表.frx":1F51E
  128.             Key             =   "bc"
  129.          EndProperty
  130.          BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  131.             Picture         =   "单据调整_入库单调整列表.frx":1F8B8
  132.             Key             =   "fq"
  133.          EndProperty
  134.          BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.             Picture         =   "单据调整_入库单调整列表.frx":1FC52
  136.             Key             =   "bz"
  137.          EndProperty
  138.          BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.             Picture         =   "单据调整_入库单调整列表.frx":1FFEC
  140.             Key             =   "tc"
  141.          EndProperty
  142.          BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.             Picture         =   "单据调整_入库单调整列表.frx":20386
  144.             Key             =   "bcgs"
  145.          EndProperty
  146.          BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  147.             Picture         =   "单据调整_入库单调整列表.frx":20720
  148.             Key             =   "mrlk"
  149.          EndProperty
  150.          BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  151.             Picture         =   "单据调整_入库单调整列表.frx":20ABA
  152.             Key             =   "xsxm"
  153.          EndProperty
  154.          BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  155.             Picture         =   "单据调整_入库单调整列表.frx":20E54
  156.             Key             =   "first"
  157.          EndProperty
  158.          BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  159.             Picture         =   "单据调整_入库单调整列表.frx":211EE
  160.             Key             =   "prev"
  161.          EndProperty
  162.          BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  163.             Picture         =   "单据调整_入库单调整列表.frx":21588
  164.             Key             =   "next"
  165.          EndProperty
  166.          BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  167.             Picture         =   "单据调整_入库单调整列表.frx":21922
  168.             Key             =   "last"
  169.          EndProperty
  170.          BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  171.             Picture         =   "单据调整_入库单调整列表.frx":21CBC
  172.             Key             =   "xx"
  173.          EndProperty
  174.          BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  175.             Picture         =   "单据调整_入库单调整列表.frx":22056
  176.             Key             =   "define"
  177.          EndProperty
  178.          BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  179.             Picture         =   "单据调整_入库单调整列表.frx":223F0
  180.             Key             =   "exec"
  181.          EndProperty
  182.          BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  183.             Picture         =   "单据调整_入库单调整列表.frx":2278A
  184.             Key             =   "xz"
  185.          EndProperty
  186.          BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  187.             Picture         =   "单据调整_入库单调整列表.frx":22B24
  188.             Key             =   "sc"
  189.          EndProperty
  190.          BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  191.             Picture         =   "单据调整_入库单调整列表.frx":22EBE
  192.             Key             =   "sx"
  193.          EndProperty
  194.          BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  195.             Picture         =   "单据调整_入库单调整列表.frx":23258
  196.             Key             =   "cx"
  197.          EndProperty
  198.          BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.             Picture         =   "单据调整_入库单调整列表.frx":235F2
  200.             Key             =   "zd"
  201.          EndProperty
  202.          BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.             Picture         =   "单据调整_入库单调整列表.frx":2398C
  204.             Key             =   "dz"
  205.          EndProperty
  206.          BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.             Picture         =   "单据调整_入库单调整列表.frx":23D26
  208.             Key             =   "ph"
  209.          EndProperty
  210.          BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.             Picture         =   "单据调整_入库单调整列表.frx":240C0
  212.             Key             =   "fz"
  213.          EndProperty
  214.          BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.             Picture         =   "单据调整_入库单调整列表.frx":2445A
  216.             Key             =   "dw"
  217.          EndProperty
  218.          BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.             Picture         =   "单据调整_入库单调整列表.frx":247F4
  220.             Key             =   "hf"
  221.          EndProperty
  222.          BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.             Picture         =   "单据调整_入库单调整列表.frx":24B8E
  224.             Key             =   "pz"
  225.          EndProperty
  226.          BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.             Picture         =   "单据调整_入库单调整列表.frx":24F28
  228.             Key             =   "check"
  229.          EndProperty
  230.       EndProperty
  231.    End
  232.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  233.       Height          =   7545
  234.       Left            =   0
  235.       TabIndex        =   3
  236.       Top             =   1470
  237.       Width           =   11775
  238.       _cx             =   5080
  239.       _cy             =   5080
  240.       Appearance      =   1
  241.       BorderStyle     =   1
  242.       Enabled         =   -1  'True
  243.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  244.          Name            =   "宋体"
  245.          Size            =   9
  246.          Charset         =   134
  247.          Weight          =   400
  248.          Underline       =   0   'False
  249.          Italic          =   0   'False
  250.          Strikethrough   =   0   'False
  251.       EndProperty
  252.       MousePointer    =   0
  253.       BackColor       =   16777215
  254.       ForeColor       =   -2147483640
  255.       BackColorFixed  =   13826538
  256.       ForeColorFixed  =   -2147483630
  257.       BackColorSel    =   -2147483635
  258.       ForeColorSel    =   -2147483634
  259.       BackColorBkg    =   -2147483636
  260.       BackColorAlternate=   16777215
  261.       GridColor       =   -2147483633
  262.       GridColorFixed  =   -2147483632
  263.       TreeColor       =   -2147483632
  264.       FloodColor      =   192
  265.       SheetBorder     =   -2147483642
  266.       FocusRect       =   1
  267.       HighLight       =   1
  268.       AllowSelection  =   -1  'True
  269.       AllowBigSelection=   -1  'True
  270.       AllowUserResizing=   0
  271.       SelectionMode   =   0
  272.       GridLines       =   1
  273.       GridLinesFixed  =   2
  274.       GridLineWidth   =   1
  275.       Rows            =   50
  276.       Cols            =   10
  277.       FixedRows       =   1
  278.       FixedCols       =   1
  279.       RowHeightMin    =   0
  280.       RowHeightMax    =   0
  281.       ColWidthMin     =   0
  282.       ColWidthMax     =   0
  283.       ExtendLastCol   =   0   'False
  284.       FormatString    =   ""
  285.       ScrollTrack     =   0   'False
  286.       ScrollBars      =   3
  287.       ScrollTips      =   0   'False
  288.       MergeCells      =   0
  289.       MergeCompare    =   0
  290.       AutoResize      =   -1  'True
  291.       AutoSizeMode    =   0
  292.       AutoSearch      =   0
  293.       AutoSearchDelay =   2
  294.       MultiTotals     =   -1  'True
  295.       SubtotalPosition=   0
  296.       OutlineBar      =   0
  297.       OutlineCol      =   0
  298.       Ellipsis        =   0
  299.       ExplorerBar     =   0
  300.       PicturesOver    =   0   'False
  301.       FillStyle       =   0
  302.       RightToLeft     =   0   'False
  303.       PictureType     =   0
  304.       TabBehavior     =   0
  305.       OwnerDraw       =   0
  306.       Editable        =   0
  307.       ShowComboButton =   1
  308.       WordWrap        =   0   'False
  309.       TextStyle       =   0
  310.       TextStyleFixed  =   0
  311.       OleDragMode     =   0
  312.       OleDropMode     =   0
  313.       DataMode        =   0
  314.       VirtualData     =   -1  'True
  315.       DataMember      =   ""
  316.       ComboSearch     =   3
  317.       AutoSizeMouse   =   -1  'True
  318.       FrozenRows      =   0
  319.       FrozenCols      =   0
  320.       AllowUserFreezing=   0
  321.       BackColorFrozen =   0
  322.       ForeColorFrozen =   0
  323.       WallPaperAlignment=   9
  324.       AccessibleName  =   ""
  325.       AccessibleDescription=   ""
  326.       AccessibleValue =   ""
  327.       AccessibleRole  =   24
  328.       Begin MSComctlLib.ImageList ImageList2 
  329.          Left            =   0
  330.          Top             =   0
  331.          _ExtentX        =   1005
  332.          _ExtentY        =   1005
  333.          BackColor       =   -2147483643
  334.          ImageWidth      =   16
  335.          ImageHeight     =   16
  336.          MaskColor       =   12632256
  337.          _Version        =   393216
  338.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  339.             NumListImages   =   40
  340.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  341.                Picture         =   "单据调整_入库单调整列表.frx":252C2
  342.                Key             =   "sz"
  343.             EndProperty
  344.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  345.                Picture         =   "单据调整_入库单调整列表.frx":25320
  346.                Key             =   "dy"
  347.             EndProperty
  348.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  349.                Picture         =   "单据调整_入库单调整列表.frx":2537E
  350.                Key             =   "yl"
  351.             EndProperty
  352.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  353.                Picture         =   "单据调整_入库单调整列表.frx":253DC
  354.                Key             =   "xg"
  355.             EndProperty
  356.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  357.                Picture         =   "单据调整_入库单调整列表.frx":2543A
  358.                Key             =   "zh"
  359.             EndProperty
  360.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  361.                Picture         =   "单据调整_入库单调整列表.frx":25498
  362.                Key             =   "sh"
  363.             EndProperty
  364.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  365.                Picture         =   "单据调整_入库单调整列表.frx":254F6
  366.                Key             =   "bc"
  367.             EndProperty
  368.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  369.                Picture         =   "单据调整_入库单调整列表.frx":25554
  370.                Key             =   "fq"
  371.             EndProperty
  372.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  373.                Picture         =   "单据调整_入库单调整列表.frx":255B2
  374.                Key             =   "bz"
  375.             EndProperty
  376.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  377.                Picture         =   "单据调整_入库单调整列表.frx":25610
  378.                Key             =   "tc"
  379.             EndProperty
  380.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  381.                Picture         =   "单据调整_入库单调整列表.frx":2566E
  382.                Key             =   "bcgs"
  383.             EndProperty
  384.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  385.                Picture         =   "单据调整_入库单调整列表.frx":256CC
  386.                Key             =   "mrlk"
  387.             EndProperty
  388.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  389.                Picture         =   "单据调整_入库单调整列表.frx":2572A
  390.                Key             =   "xsxm"
  391.             EndProperty
  392.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  393.                Picture         =   "单据调整_入库单调整列表.frx":25788
  394.                Key             =   "first"
  395.             EndProperty
  396.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  397.                Picture         =   "单据调整_入库单调整列表.frx":257E6
  398.                Key             =   "prev"
  399.             EndProperty
  400.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  401.                Picture         =   "单据调整_入库单调整列表.frx":25844
  402.                Key             =   "next"
  403.             EndProperty
  404.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  405.                Picture         =   "单据调整_入库单调整列表.frx":258A2
  406.                Key             =   "last"
  407.             EndProperty
  408.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  409.                Picture         =   "单据调整_入库单调整列表.frx":25900
  410.                Key             =   "xx"
  411.             EndProperty
  412.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  413.                Picture         =   "单据调整_入库单调整列表.frx":2595E
  414.                Key             =   "define"
  415.             EndProperty
  416.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  417.                Picture         =   "单据调整_入库单调整列表.frx":259BC
  418.                Key             =   "exec"
  419.             EndProperty
  420.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  421.                Picture         =   "单据调整_入库单调整列表.frx":25A1A
  422.                Key             =   "xz"
  423.             EndProperty
  424.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  425.                Picture         =   "单据调整_入库单调整列表.frx":25A78
  426.                Key             =   "sc"
  427.             EndProperty
  428.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  429.                Picture         =   "单据调整_入库单调整列表.frx":25AD6
  430.                Key             =   "sx"
  431.             EndProperty
  432.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  433.                Picture         =   "单据调整_入库单调整列表.frx":25B34
  434.                Key             =   "cx"
  435.             EndProperty
  436.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  437.                Picture         =   "单据调整_入库单调整列表.frx":25B92
  438.                Key             =   "zd"
  439.             EndProperty
  440.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  441.                Picture         =   "单据调整_入库单调整列表.frx":25BF0
  442.                Key             =   "dz"
  443.             EndProperty
  444.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  445.                Picture         =   "单据调整_入库单调整列表.frx":25C4E
  446.                Key             =   "ph"
  447.             EndProperty
  448.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  449.                Picture         =   "单据调整_入库单调整列表.frx":25CAC
  450.                Key             =   "fz"
  451.             EndProperty
  452.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  453.                Picture         =   "单据调整_入库单调整列表.frx":25D0A
  454.                Key             =   "dw"
  455.             EndProperty
  456.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  457.                Picture         =   "单据调整_入库单调整列表.frx":25D68
  458.                Key             =   "hf"
  459.             EndProperty
  460.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  461.                Picture         =   "单据调整_入库单调整列表.frx":25DC6
  462.                Key             =   "pz"
  463.             EndProperty
  464.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  465.                Picture         =   "单据调整_入库单调整列表.frx":25E24
  466.                Key             =   "check"
  467.             EndProperty
  468.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  469.                Picture         =   "单据调整_入库单调整列表.frx":25E82
  470.                Key             =   "qs"
  471.             EndProperty
  472.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  473.                Picture         =   "单据调整_入库单调整列表.frx":25EE0
  474.                Key             =   "fullcheck"
  475.             EndProperty
  476.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  477.                Picture         =   "单据调整_入库单调整列表.frx":25F3E
  478.                Key             =   "qq"
  479.             EndProperty
  480.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  481.                Picture         =   "单据调整_入库单调整列表.frx":25F9C
  482.                Key             =   "bcw"
  483.             EndProperty
  484.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  485.                Picture         =   "单据调整_入库单调整列表.frx":25FFA
  486.                Key             =   "ye"
  487.             EndProperty
  488.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  489.                Picture         =   "单据调整_入库单调整列表.frx":26058
  490.                Key             =   ""
  491.             EndProperty
  492.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  493.                Picture         =   "单据调整_入库单调整列表.frx":260B6
  494.                Key             =   "frist"
  495.             EndProperty
  496.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  497.                Picture         =   "单据调整_入库单调整列表.frx":26114
  498.                Key             =   "dj"
  499.             EndProperty
  500.          EndProperty
  501.       End
  502.    End
  503.    Begin MSComctlLib.Toolbar SzToolbar 
  504.       Align           =   1  'Align Top
  505.       Height          =   555
  506.       Left            =   0
  507.       TabIndex        =   4
  508.       Top             =   0
  509.       Width           =   11595
  510.       _ExtentX        =   20452
  511.       _ExtentY        =   979
  512.       ButtonWidth     =   820
  513.       ButtonHeight    =   926
  514.       AllowCustomize  =   0   'False
  515.       Appearance      =   1
  516.       Style           =   1
  517.       ImageList       =   "ImageList1"
  518.       _Version        =   393216
  519.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  520.          NumButtons      =   11
  521.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  522.             Caption         =   "设置"
  523.             Key             =   "ymsz"
  524.             ImageKey        =   "sz"
  525.          EndProperty
  526.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  527.             Caption         =   "打印"
  528.             Key             =   "dy"
  529.             ImageKey        =   "dy"
  530.          EndProperty
  531.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  532.             Caption         =   "预览"
  533.             Key             =   "yl"
  534.             ImageKey        =   "yl"
  535.          EndProperty
  536.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  537.             Style           =   3
  538.          EndProperty
  539.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  540.             Caption         =   "查询"
  541.             Key             =   "cx"
  542.             ImageKey        =   "cx"
  543.          EndProperty
  544.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  545.             Caption         =   "单据"
  546.             Key             =   "Bill"
  547.             ImageKey        =   "pz"
  548.          EndProperty
  549.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  550.             Style           =   3
  551.          EndProperty
  552.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  553.             Caption         =   "新增"
  554.             Key             =   "xz"
  555.             ImageKey        =   "xz"
  556.          EndProperty
  557.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  558.             Style           =   3
  559.          EndProperty
  560.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  561.             Caption         =   "帮助"
  562.             Key             =   "bz"
  563.             ImageKey        =   "bz"
  564.          EndProperty
  565.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  566.             Caption         =   "退出"
  567.             Key             =   "fh"
  568.             ImageKey        =   "tc"
  569.          EndProperty
  570.       EndProperty
  571.       BorderStyle     =   1
  572.    End
  573. End
  574. Attribute VB_Name = "LB_AdjustInBillList"
  575. Attribute VB_GlobalNameSpace = False
  576. Attribute VB_Creatable = False
  577. Attribute VB_PredeclaredId = True
  578. Attribute VB_Exposed = False
  579. '**************************************************************************
  580. '*    模 块 名 称 :入库单调整列表
  581. '*    功 能 描 述 :
  582. '*    程序员姓名  :白凤英
  583. '*    最后修改人  :白凤英
  584. '*    最后修改时间:2001/12/10
  585. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  586. '**************************************************************************
  587. Dim ReportTitle As String                '报表主标题
  588. Dim Str_QueryCondi As String             '用户录入查询条件
  589. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  591. '以下为固定使用变量
  592. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  593. Dim GridCode As String                   '显示网格网格代码
  594. Dim GridInf() As Variant                 '整个网格设置信息
  595. Dim Tsxx As String                       '系统提示信息
  596. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  597. Dim Sjhgd As Double                      '网格数据行高度
  598. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  599. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  600. Dim GridStr()  As String                 '网格列信息(字符型)
  601. Dim GridInt() As Integer                 '网格列信息(整型)
  602. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  604. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  605.     On Error Resume Next
  606.     With CxbbGrid
  607.         .Width = Me.Width - 160
  608.         .Height = Me.Height - .Top - 400
  609.     End With
  610.     With Pic_Title
  611.         .Width = Me.Width - 160
  612.     End With
  613.     
  614.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  616. End Sub
  618. Private Sub Form_Load()                                                   '窗体装入
  619.   
  620.     '调入打印页面设置窗体
  621.     ReportTitle = "入库单调整列表"
  622.     XtReportCode = "Chhs_AdjustInList"
  623.     Load Dyymctbl
  624.       
  625.     '调整标题栏及网格、格式工具条位置(Fixed)
  626.     Pic_Title.Left = 40
  627.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  628.     CxbbGrid.Left = Pic_Title.Left
  629.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  630.      
  631.     '调 入 网 格(Fixed)
  632.     GridCode = "Chhs_AdjustInList"
  633.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  634.       
  635.     Qslz = GridInf(1)
  636.     Sjhgd = GridInf(2)
  637.     Sfxshjwg = GridInf(7)
  638.     Szzls = CxbbGrid.Cols - 1
  640. End Sub
  642. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  644.     '卸载条件窗体
  645.     LB_AdjustInBillCond.UnloadCheck.Value = 1
  646.     Unload LB_AdjustInBillCond
  647.     
  648.     '卸载打印页面设置窗体
  649.     Unload Dyymctbl
  651. End Sub
  653. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  654.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  655. End Sub
  657. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  658.   
  659.     Select Case Button.Key
  660.         Case "bcgs"                                          '保存表格格式
  661.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  662.         Case "hfmrgs"                                        '恢复默认格式
  663.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  664.         Case "szxsxm"                                        '设置显示项目
  665.             Call Szxsxm(CxbbGrid, GridCode)
  666.     End Select
  668. End Sub
  670. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  671.     
  672.     Select Case Button.Key
  673.         Case "ymsz"                                          '页面设置
  674.             Dyymctbl.Show 1
  675.         Case "yl"                                            '预 览
  676.             Call bbyl(True)
  677.         Case "dy"                                            '打 印
  678.             Call bbyl(False)
  679.         Case "cx"                                            '查 询
  680.             LB_AdjustInBillCond.Show 1
  681.         Case "Bill"                                          '单 据
  682.             Call CxbbGrid_DblClick
  683.         Case "xz"                                            '新 增
  684.             '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  685.             If Not Security_Log("Chhs_AdjustInEdit", Xtczybm, 1, True) Then
  686.                 Exit Sub
  687.             End If
  688.             Call Sub_AddBill
  689.         Case "bz"                                            '帮 助
  690.             Call F1bz
  691.         Case "fh"                                            '退 出
  692.            Unload Me
  693.     End Select
  695. End Sub
  697. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  698.     
  699.     Timer1.Enabled = False
  700.     Xt_Wait.Show
  701.     Xt_Wait.Refresh
  702.    
  703.     '加快显示速度
  704.     CxbbGrid.Redraw = False
  705.  
  706.     '生成查询结果
  707.     Call Sub_Query(0)
  708.     
  709.     '调整工具条
  710.     Call Sub_ToolBar
  711.    
  712.     CxbbGrid.Redraw = True
  713.     
  714.     Xt_Wait.Hide
  716. End Sub
  718. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  719.     
  720.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  722.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  723.     Dim Coljsq As Long                          '网格列计数器
  724.     Dim Jsqte As Long                        '临时动态计数器
  725.     
  726.     '以下为自定义部分[
  727.  
  728.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  729.         With LB_AdjustInBillCond
  730.          
  731.             '生成查询条件
  732.             Str_QueryCondi = " where 1=1 "
  733.             For Jsqte = 0 To 18
  734.                 Select Case Jsqte
  735.                     Case 0  '仓库
  736.                         If Trim(.LrText(0).Text) <> "" Then
  737.                             Str_QueryCondi = Str_QueryCondi & " And a.whcode='" & Trim(.LrText(0).Tag) & "'"
  738.                         End If
  739.                     Case 1  '单据号(起始)
  740.                         If Trim(.LrText(1).Text) <> "" Then
  741.                             Str_QueryCondi = Str_QueryCondi & " And a.billnum>='" & Trim(.LrText(1).Text) & "'"
  742.                         End If
  743.                     Case 2  '单据号(终止)
  744.                         If Trim(.LrText(2).Text) <> "" Then
  745.                             Str_QueryCondi = Str_QueryCondi & " And a.billnum<= '" & Trim(.LrText(2).Text) & "'"
  746.                         End If
  747.                     Case 3  '查询日期范围(起始)
  748.                         If Trim(.LrText(3).Text) <> "" Then
  749.                             Str_QueryCondi = Str_QueryCondi & " And a.BillDate>='" & Trim(.LrText(3).Text) & "'"
  750.                         End If
  751.                     Case 4  '查询日期范围(终止)
  752.                         If Trim(.LrText(4).Text) <> "" Then
  753.                             Str_QueryCondi = Str_QueryCondi & " And a.BillDate<= '" & Trim(.LrText(4).Text) & "'"
  754.                         End If
  755.                     Case 5  '存货分类(Like)
  756.                         If Trim(.LrText(5).Text) <> "" Then
  757.                             Str_QueryCondi = Str_QueryCondi & " And a.invsortcode like '" & Trim(.LrText(5).Tag) & "%'"
  758.                         End If
  759.                     Case 6  '查询存货范围(起始)
  760.                         If Trim(.LrText(6).Text) <> "" Then
  761.                             Str_QueryCondi = Str_QueryCondi & " And a.mnumber>='" & Trim(.LrText(6).Text) & "'"
  762.                         End If
  763.                     Case 7  '查询存货范围(终止)
  764.                         If Trim(.LrText(7).Text) <> "" Then
  765.                             Str_QueryCondi = Str_QueryCondi & " And a.mnumber<= '" & Trim(.LrText(7).Text) & "'"
  766.                         End If
  767.                     Case 8  '供应商
  768.                         If Trim(.LrText(8).Text) <> "" Then
  769.                             Str_QueryCondi = Str_QueryCondi & " and a.suppliercode = '" & Trim(.LrText(8).Tag) & "'"
  770.                         End If
  771.                     Case 9  '部门
  772.                         If Trim(.LrText(9).Text) <> "" Then
  773.                             Str_QueryCondi = Str_QueryCondi & " and a.deptcode = '" & Trim(.LrText(9).Tag) & "'"
  774.                         End If
  775.                     Case 10  '入库类别
  776.                         If Trim(.LrText(10).Text) <> "" Then
  777.                             Str_QueryCondi = Str_QueryCondi & " and a.inoutclasscode = '" & Trim(.LrText(10).Tag) & "'"
  778.                         End If
  779.                 End Select
  780.             Next Jsqte
  781.         End With
  782.     Else
  783.         '1-"刷新"查询
  784.         If Str_QueryCondi = "" Then
  785.             Str_QueryCondi = " where 1=2 "
  786.         End If
  787.     End If
  788.      
  789.     SqlStr = "SELECT * FROM Chhs_V_AdjustInOut a LEFT OUTER JOIN Gy_WhLimit ON " & _
  790.             " a.Whcode = Gy_WhLimit.Whcode " & _
  791.              Trim(Str_QueryCondi) & " and Gy_WhLimit.czybm='" & Xtczybm & "'" & _
  792.             " and a.billcode='1301' Order By a.period,a.whcode,a.Billdate,a.InOutAdjustMainId,a.InOutAdjustSubId"
  794.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  795.     With Rec_Query
  796.         CxbbGrid.Rows = CxbbGrid.FixedRows
  797.         Jsqte = CxbbGrid.FixedRows
  798.         Do While Not .EOF
  799.             CxbbGrid.AddItem ""
  800.             '[>>自定义填充内容
  801.             CxbbGrid.TextMatrix(Jsqte, 0) = .Fields("InOutAdjustMainId")                                                 '主表ID(主要用来查询定位用)
  802.             CxbbGrid.TextMatrix(Jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("BillNum") & "")                    '单据号
  803.             CxbbGrid.TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("WhName") & "")                     '仓库
  804.             CxbbGrid.TextMatrix(Jsqte, Sydz("003", GridStr(), Szzls)) = Format(.Fields("BillDate"), "yyyy-mm-dd")        '日期
  805.             CxbbGrid.TextMatrix(Jsqte, Sydz("004", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")               '供应商
  806.             CxbbGrid.TextMatrix(Jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("Deptname") & "")                   '部门
  807.             CxbbGrid.TextMatrix(Jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("InoutClassName") & "")             '收发类别
  808.             CxbbGrid.TextMatrix(Jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("PersonName") & "")                 '业务员
  809.             CxbbGrid.TextMatrix(Jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("Maker") & "")                      '制单人
  810.             CxbbGrid.TextMatrix(Jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("ChalkitupMan") & "")               '记帐人
  811.             CxbbGrid.TextMatrix(Jsqte, Sydz("010", GridStr(), Szzls)) = Trim(.Fields("Mnumber") & "")                    '存货编码
  812.             CxbbGrid.TextMatrix(Jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                      '存货名称
  813.             CxbbGrid.TextMatrix(Jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                      '规格型号
  814.             CxbbGrid.TextMatrix(Jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("PrimaryUnitName") & "")            '计量单位
  815.             CxbbGrid.TextMatrix(Jsqte, Sydz("014", GridStr(), Szzls)) = Trim(.Fields("AdjustBillName") & "")             '被调整单据名称
  816.             CxbbGrid.TextMatrix(Jsqte, Sydz("015", GridStr(), Szzls)) = Trim(.Fields("AdjustBillNum") & "")              '被调整单据号
  817.             CxbbGrid.TextMatrix(Jsqte, Sydz("017", GridStr(), Szzls)) = Trim(.Fields("kjyear") & "")                     '年度
  818.             CxbbGrid.TextMatrix(Jsqte, Sydz("018", GridStr(), Szzls)) = Trim(.Fields("period") & "")                     '月份
  819.             If .Fields("Emoney") <> 0 Then                                                                            '单重
  820.                 CxbbGrid.TextMatrix(Jsqte, Sydz("016", GridStr(), Szzls)) = .Fields("Emoney")
  821.             End If
  822.             
  823.             '<<]
  824.             '设置数据行高度(Fixed)
  825.             CxbbGrid.RowHeight(Jsqte) = Sjhgd
  826.      
  827.             '动态集指针加1,同时将计数器加1(Fixed)
  828.             .MoveNext
  829.             Jsqte = Jsqte + 1
  830.         Loop
  831.     End With
  832.     
  833.     '输入合计
  834.     With CxbbGrid
  835.         If LB_AdjustInBillCond.Chk_Sum.Value = 1 Then
  836.            .SubtotalPosition = flexSTBelow
  837.            For Jsqte = Qslz To .Cols - 1
  838.                 If GridBoolean(Jsqte, 4) Then
  839.                      .Subtotal flexSTSum, 0, Jsqte, , &HF7F3EC, , , , , True
  840.                 End If
  841.            Next
  842.            
  843.            For Jsqte = .FixedRows To .Rows - 1
  844.                 If .IsSubtotal(Jsqte) Then
  845.                     For Coljsq = Qslz To .Cols - 1
  846.                         If Val(.TextMatrix(Jsqte, Coljsq)) = 0 And GridBoolean(Coljsq, 4) Then
  847.                             .TextMatrix(Jsqte, Coljsq) = ""
  848.                         End If
  849.                     Next
  850.                     .TextMatrix(Jsqte, 0) = .TextMatrix(Jsqte - 1, 0)
  851.                     .TextMatrix(Jsqte, Sydz("002", GridStr(), Szzls)) = "    合计 "
  852.                     .RowHeight(Jsqte) = Sjhgd
  853.                 End If
  854.            Next
  855.         End If
  856.     End With
  857.     
  858.     ']以上为用户自定义部分
  860. End Sub
  862. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  863.     
  864.     Dim Rectemp As New ADODB.Recordset               '临时使用动态集
  866.     '非数据行退出
  867.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  868.         Exit Sub
  869.     End If
  871.     SqlStr = "SELECT InOutAdjustMainId From Chhs_InOutAdjustMain Where InOutAdjustMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  872.     Set Rectemp = Cw_DataEnvi.DataConnect.Execute(SqlStr)
  873.     With Rectemp
  874.         If .EOF Then
  875.             Tsxx = "此入库调整单已被其他用户删除!"
  876.             Call Xtxxts(Tsxx, 0, 4)
  877.             Exit Sub
  878.         Else
  879.                 
  880.             '填充查询单据标识
  881.             XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  882.             Xtcdcsfz = Str_QueryCondi
  883.             
  884.             '设置单据处理为列表查询(修改)状态
  885.             Xtcdcs = "2"
  886.                 
  887.             '调入单据处理窗体
  888.             DJ_AdjustInbill.Show 1
  889.             
  890.         End If
  891.     End With
  893. End Sub
  895. Private Sub Sub_AddBill()                                              '新增单据
  896. Dim Rectemp As Recordset
  898.     '系统操作日期不在当前会计年度
  899.     If Not Xtyear = PGKjYear Then
  900.         Tsxx = "操作日期不在当前会计年度(" + Trim(Str(PGKjYear)) + ")之内,请重新登录!"
  901.         Call Xtxxts(Tsxx, 0, 1)
  902.         Exit Sub
  903.     End If
  904.     
  905.     '系统操作日期是否在当前会计期间
  906.     If Not Xtmm = PGNowmon Then
  907.         Tsxx = "操作日期不在当前会计期间(" + Trim(Str(PGKjYear)) + "." + Trim(Str(PGNowmon)) + ")之内,请重新登录!"
  908.         Call Xtxxts(Tsxx, 0, 1)
  909.         Exit Sub
  910.     End If
  911.     
  912.     With DJ_AdjustInbill
  913.    
  914.         '设置单据处理为填制单据状态
  915.         Xtcdcs = "1"
  916.          
  917.         .Show 1
  918.     End With
  919.        
  920.     If Xtfhcs = "1" Then
  921.         Tsxx = "单据发生变化,是否刷新单据列表?"
  922.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  923.         If yhAnswer = 1 Then
  924.             Xt_Wait.Show
  925.             Xt_Wait.Refresh
  926.    
  927.             '加快显示速度
  928.             CxbbGrid.Redraw = False
  929.  
  930.             '生成查询结果
  931.             Call Sub_Query(1)
  932.    
  933.             CxbbGrid.Redraw = True
  934.             Xt_Wait.Hide
  935.         End If
  936.     End If
  937.    
  938. End Sub
  940. Private Sub Sub_ToolBar()          '设置工具条按钮
  941.     
  942.     '无查询记录时，单据和删除按钮不可选
  943.     With SzToolbar
  944.         If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  945.             .Buttons("Bill").Enabled = False
  946.         Else
  947.             .Buttons("Bill").Enabled = True
  948.         End If
  949.     End With
  950.     
  951. End Sub
  952. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  953.     
  954.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  955.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  956.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  957.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  958.     ReDim Bbxbt(1 To Bbxbtgs)
  959.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  960.     If Bbbwhgs <> 0 Then
  961.         ReDim Bbbwh(1 To Bbbwhgs)
  962.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  963.     End If
  964.     Bbzbt = ReportTitle
  965.     Bbxbt(1) = ""
  966.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  967.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  968.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  969.     If Not bbylte Then
  970.         Unload DY_Tybbyldy
  971.     End If
  973. End Sub