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

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

企业管理

开发平台：

Visual Basic

：源码内容
  1. VERSION 5.00
  2. Object = "{65A39231-6133-11D1-BAA2-444553540000}#1.0#0"; "VSLIGHT6.OCX"
  3. Object = "{D76D7128-4A96-11D3-BD95-D296DC2DD072}#1.0#0"; "VSOCX7.OCX"
  4. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
  5. Begin VB.Form Tr_HoldList 
  6.    Caption         =   "调装列表"
  7.    ClientHeight    =   7500
  8.    ClientLeft      =   60
  9.    ClientTop       =   345
  10.    ClientWidth     =   11775
  11.    Icon            =   "铁运管理_调装单列表.frx":0000
  12.    LinkTopic       =   "Form1"
  13.    MDIChild        =   -1  'True
  14.    ScaleHeight     =   7500
  15.    ScaleWidth      =   11775
  16.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  17.       Height          =   7545
  18.       Left            =   0
  19.       TabIndex        =   3
  20.       Top             =   1470
  21.       Width           =   11775
  22.       _ExtentX        =   20770
  23.       _ExtentY        =   13309
  24.       Appearance      =   1
  25.       BorderStyle     =   1
  26.       Enabled         =   -1  'True
  27.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  28.          Name            =   "宋体"
  29.          Size            =   9
  30.          Charset         =   134
  31.          Weight          =   400
  32.          Underline       =   0   'False
  33.          Italic          =   0   'False
  34.          Strikethrough   =   0   'False
  35.       EndProperty
  36.       MousePointer    =   0
  37.       BackColor       =   16777215
  38.       ForeColor       =   -2147483640
  39.       BackColorFixed  =   13826538
  40.       ForeColorFixed  =   -2147483630
  41.       BackColorSel    =   -2147483635
  42.       ForeColorSel    =   -2147483634
  43.       BackColorBkg    =   -2147483636
  44.       BackColorAlternate=   16777215
  45.       GridColor       =   -2147483633
  46.       GridColorFixed  =   -2147483632
  47.       TreeColor       =   -2147483632
  48.       FloodColor      =   192
  49.       SheetBorder     =   -2147483642
  50.       FocusRect       =   1
  51.       HighLight       =   1
  52.       AllowSelection  =   -1  'True
  53.       AllowBigSelection=   -1  'True
  54.       AllowUserResizing=   0
  55.       SelectionMode   =   0
  56.       GridLines       =   1
  57.       GridLinesFixed  =   2
  58.       GridLineWidth   =   1
  59.       Rows            =   50
  60.       Cols            =   10
  61.       FixedRows       =   1
  62.       FixedCols       =   1
  63.       RowHeightMin    =   0
  64.       RowHeightMax    =   0
  65.       ColWidthMin     =   0
  66.       ColWidthMax     =   0
  67.       ExtendLastCol   =   0   'False
  68.       FormatString    =   ""
  69.       ScrollTrack     =   0   'False
  70.       ScrollBars      =   3
  71.       ScrollTips      =   0   'False
  72.       MergeCells      =   0
  73.       MergeCompare    =   0
  74.       AutoResize      =   -1  'True
  75.       AutoSizeMode    =   0
  76.       AutoSearch      =   0
  77.       MultiTotals     =   -1  'True
  78.       SubtotalPosition=   1
  79.       OutlineBar      =   0
  80.       OutlineCol      =   0
  81.       Ellipsis        =   0
  82.       ExplorerBar     =   0
  83.       PicturesOver    =   0   'False
  84.       FillStyle       =   0
  85.       RightToLeft     =   0   'False
  86.       PictureType     =   0
  87.       TabBehavior     =   0
  88.       OwnerDraw       =   0
  89.       Editable        =   0   'False
  90.       ShowComboButton =   -1  'True
  91.       WordWrap        =   0   'False
  92.       TextStyle       =   0
  93.       TextStyleFixed  =   0
  94.       OleDragMode     =   0
  95.       OleDropMode     =   0
  96.       DataMode        =   0
  97.       VirtualData     =   -1  'True
  98.       Begin MSComctlLib.ImageList ImageList2 
  99.          Left            =   0
  100.          Top             =   0
  101.          _ExtentX        =   1005
  102.          _ExtentY        =   1005
  103.          BackColor       =   -2147483643
  104.          ImageWidth      =   16
  105.          ImageHeight     =   16
  106.          MaskColor       =   12632256
  107.          _Version        =   393216
  108.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  109.             NumListImages   =   40
  110.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  111.                Picture         =   "铁运管理_调装单列表.frx":1042
  112.                Key             =   "sz"
  113.             EndProperty
  114.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  115.                Picture         =   "铁运管理_调装单列表.frx":13DC
  116.                Key             =   "dy"
  117.             EndProperty
  118.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  119.                Picture         =   "铁运管理_调装单列表.frx":1776
  120.                Key             =   "yl"
  121.             EndProperty
  122.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  123.                Picture         =   "铁运管理_调装单列表.frx":1B10
  124.                Key             =   "xg"
  125.             EndProperty
  126.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  127.                Picture         =   "铁运管理_调装单列表.frx":1EAA
  128.                Key             =   "zh"
  129.             EndProperty
  130.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  131.                Picture         =   "铁运管理_调装单列表.frx":2244
  132.                Key             =   "sh"
  133.             EndProperty
  134.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  135.                Picture         =   "铁运管理_调装单列表.frx":25DE
  136.                Key             =   "bc"
  137.             EndProperty
  138.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  139.                Picture         =   "铁运管理_调装单列表.frx":2978
  140.                Key             =   "fq"
  141.             EndProperty
  142.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  143.                Picture         =   "铁运管理_调装单列表.frx":2D12
  144.                Key             =   "bz"
  145.             EndProperty
  146.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  147.                Picture         =   "铁运管理_调装单列表.frx":30AC
  148.                Key             =   "tc"
  149.             EndProperty
  150.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  151.                Picture         =   "铁运管理_调装单列表.frx":3446
  152.                Key             =   "bcgs"
  153.             EndProperty
  154.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  155.                Picture         =   "铁运管理_调装单列表.frx":37E0
  156.                Key             =   "mrlk"
  157.             EndProperty
  158.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  159.                Picture         =   "铁运管理_调装单列表.frx":3B7A
  160.                Key             =   "xsxm"
  161.             EndProperty
  162.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  163.                Picture         =   "铁运管理_调装单列表.frx":3F14
  164.                Key             =   "first"
  165.             EndProperty
  166.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  167.                Picture         =   "铁运管理_调装单列表.frx":42AE
  168.                Key             =   "prev"
  169.             EndProperty
  170.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  171.                Picture         =   "铁运管理_调装单列表.frx":4648
  172.                Key             =   "next"
  173.             EndProperty
  174.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  175.                Picture         =   "铁运管理_调装单列表.frx":49E2
  176.                Key             =   "last"
  177.             EndProperty
  178.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  179.                Picture         =   "铁运管理_调装单列表.frx":4D7C
  180.                Key             =   "xx"
  181.             EndProperty
  182.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  183.                Picture         =   "铁运管理_调装单列表.frx":5116
  184.                Key             =   "define"
  185.             EndProperty
  186.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  187.                Picture         =   "铁运管理_调装单列表.frx":54B0
  188.                Key             =   "exec"
  189.             EndProperty
  190.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  191.                Picture         =   "铁运管理_调装单列表.frx":584A
  192.                Key             =   "xz"
  193.             EndProperty
  194.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  195.                Picture         =   "铁运管理_调装单列表.frx":5BE4
  196.                Key             =   "sc"
  197.             EndProperty
  198.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  199.                Picture         =   "铁运管理_调装单列表.frx":5F7E
  200.                Key             =   "sx"
  201.             EndProperty
  202.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  203.                Picture         =   "铁运管理_调装单列表.frx":6318
  204.                Key             =   "cx"
  205.             EndProperty
  206.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  207.                Picture         =   "铁运管理_调装单列表.frx":66B2
  208.                Key             =   "zd"
  209.             EndProperty
  210.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  211.                Picture         =   "铁运管理_调装单列表.frx":6A4C
  212.                Key             =   "dz"
  213.             EndProperty
  214.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  215.                Picture         =   "铁运管理_调装单列表.frx":6DE6
  216.                Key             =   "ph"
  217.             EndProperty
  218.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  219.                Picture         =   "铁运管理_调装单列表.frx":7180
  220.                Key             =   "fz"
  221.             EndProperty
  222.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  223.                Picture         =   "铁运管理_调装单列表.frx":751A
  224.                Key             =   "dw"
  225.             EndProperty
  226.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  227.                Picture         =   "铁运管理_调装单列表.frx":78B4
  228.                Key             =   "hf"
  229.             EndProperty
  230.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  231.                Picture         =   "铁运管理_调装单列表.frx":7C4E
  232.                Key             =   "pz"
  233.             EndProperty
  234.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  235.                Picture         =   "铁运管理_调装单列表.frx":7FE8
  236.                Key             =   "check"
  237.             EndProperty
  238.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  239.                Picture         =   "铁运管理_调装单列表.frx":8382
  240.                Key             =   "qs"
  241.             EndProperty
  242.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  243.                Picture         =   "铁运管理_调装单列表.frx":871C
  244.                Key             =   "fullcheck"
  245.             EndProperty
  246.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "铁运管理_调装单列表.frx":8AB6
  248.                Key             =   "qq"
  249.             EndProperty
  250.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "铁运管理_调装单列表.frx":8E50
  252.                Key             =   "bcw"
  253.             EndProperty
  254.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "铁运管理_调装单列表.frx":91EA
  256.                Key             =   "ye"
  257.             EndProperty
  258.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "铁运管理_调装单列表.frx":9584
  260.                Key             =   ""
  261.             EndProperty
  262.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "铁运管理_调装单列表.frx":991E
  264.                Key             =   "frist"
  265.             EndProperty
  266.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "铁运管理_调装单列表.frx":9CB8
  268.                Key             =   "dj"
  269.             EndProperty
  270.          EndProperty
  271.       End
  272.    End
  273.    Begin VB.Timer Timer1 
  274.       Enabled         =   0   'False
  275.       Interval        =   1
  276.       Left            =   7620
  277.       Top             =   90
  278.    End
  279.    Begin VB.PictureBox Pic_Title 
  280.       BackColor       =   &H00FFFFFF&
  281.       Height          =   825
  282.       Left            =   0
  283.       Picture         =   "铁运管理_调装单列表.frx":A052
  284.       ScaleHeight     =   765
  285.       ScaleWidth      =   11715
  286.       TabIndex        =   1
  287.       Top             =   585
  288.       Width           =   11775
  289.       Begin VB.Label Lab_Title 
  290.          AutoSize        =   -1  'True
  291.          BackColor       =   &H80000018&
  292.          BackStyle       =   0  'Transparent
  293.          Caption         =   "调装列表"
  294.          BeginProperty Font 
  295.             Name            =   "宋体"
  296.             Size            =   12
  297.             Charset         =   134
  298.             Weight          =   700
  299.             Underline       =   0   'False
  300.             Italic          =   0   'False
  301.             Strikethrough   =   0   'False
  302.          EndProperty
  303.          ForeColor       =   &H00000000&
  304.          Height          =   240
  305.          Index           =   4
  306.          Left            =   480
  307.          TabIndex        =   2
  308.          Top             =   210
  309.          Width           =   1020
  310.       End
  311.    End
  312.    Begin MSComctlLib.Toolbar GsToolbar 
  313.       Height          =   540
  314.       Left            =   9330
  315.       TabIndex        =   0
  316.       Top             =   30
  317.       Width           =   2475
  318.       _ExtentX        =   4366
  319.       _ExtentY        =   953
  320.       ButtonWidth     =   1455
  321.       ButtonHeight    =   953
  322.       Appearance      =   1
  323.       Style           =   1
  324.       ImageList       =   "ImageList2"
  325.       _Version        =   393216
  326.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  327.          NumButtons      =   3
  328.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  329.             Caption         =   "保存格式"
  330.             Key             =   "bcgs"
  331.             ImageKey        =   "bcgs"
  332.          EndProperty
  333.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  334.             Caption         =   "默认列宽"
  335.             Key             =   "hfmrgs"
  336.             ImageKey        =   "mrlk"
  337.          EndProperty
  338.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  339.             Caption         =   "显示项目"
  340.             Key             =   "szxsxm"
  341.             ImageKey        =   "xsxm"
  342.          EndProperty
  343.       EndProperty
  344.    End
  345.    Begin MSComctlLib.Toolbar SzToolbar 
  346.       Align           =   1  'Align Top
  347.       Height          =   570
  348.       Left            =   0
  349.       TabIndex        =   4
  350.       Top             =   0
  351.       Width           =   11775
  352.       _ExtentX        =   20770
  353.       _ExtentY        =   1005
  354.       ButtonWidth     =   820
  355.       ButtonHeight    =   953
  356.       AllowCustomize  =   0   'False
  357.       Appearance      =   1
  358.       Style           =   1
  359.       ImageList       =   "ImageList1"
  360.       _Version        =   393216
  361.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  362.          NumButtons      =   12
  363.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  364.             Caption         =   "设置"
  365.             Key             =   "ymsz"
  366.             ImageKey        =   "sz"
  367.          EndProperty
  368.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  369.             Caption         =   "打印"
  370.             Key             =   "dy"
  371.             ImageKey        =   "dy"
  372.          EndProperty
  373.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  374.             Caption         =   "预览"
  375.             Key             =   "yl"
  376.             ImageKey        =   "yl"
  377.          EndProperty
  378.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  379.             Style           =   3
  380.          EndProperty
  381.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  382.             Caption         =   "查询"
  383.             Key             =   "cx"
  384.             ImageKey        =   "cx"
  385.          EndProperty
  386.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  387.             Caption         =   "单据"
  388.             Key             =   "Bill"
  389.             ImageKey        =   "pz"
  390.          EndProperty
  391.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  392.             Style           =   3
  393.          EndProperty
  394.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  395.             Caption         =   "新增"
  396.             Key             =   "xz"
  397.             ImageKey        =   "xz"
  398.          EndProperty
  399.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  400.             Caption         =   "删除"
  401.             Key             =   "sc"
  402.             ImageKey        =   "sc"
  403.          EndProperty
  404.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  405.             Style           =   3
  406.          EndProperty
  407.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  408.             Caption         =   "帮助"
  409.             Key             =   "bz"
  410.             ImageKey        =   "bz"
  411.          EndProperty
  412.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  413.             Caption         =   "退出"
  414.             Key             =   "fh"
  415.             ImageKey        =   "tc"
  416.          EndProperty
  417.       EndProperty
  418.       BorderStyle     =   1
  419.       Begin MSComctlLib.ImageList ImageList1 
  420.          Left            =   6990
  421.          Top             =   30
  422.          _ExtentX        =   1005
  423.          _ExtentY        =   1005
  424.          BackColor       =   -2147483643
  425.          ImageWidth      =   16
  426.          ImageHeight     =   16
  427.          MaskColor       =   12632256
  428.          _Version        =   393216
  429.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  430.             NumListImages   =   33
  431.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  432.                Picture         =   "铁运管理_调装单列表.frx":26F92
  433.                Key             =   "sz"
  434.             EndProperty
  435.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  436.                Picture         =   "铁运管理_调装单列表.frx":2732C
  437.                Key             =   "dy"
  438.             EndProperty
  439.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  440.                Picture         =   "铁运管理_调装单列表.frx":276C6
  441.                Key             =   "yl"
  442.             EndProperty
  443.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  444.                Picture         =   "铁运管理_调装单列表.frx":27A60
  445.                Key             =   "xg"
  446.             EndProperty
  447.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  448.                Picture         =   "铁运管理_调装单列表.frx":27DFA
  449.                Key             =   "zh"
  450.             EndProperty
  451.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  452.                Picture         =   "铁运管理_调装单列表.frx":28194
  453.                Key             =   "sh"
  454.             EndProperty
  455.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  456.                Picture         =   "铁运管理_调装单列表.frx":2852E
  457.                Key             =   "bc"
  458.             EndProperty
  459.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  460.                Picture         =   "铁运管理_调装单列表.frx":288C8
  461.                Key             =   "fq"
  462.             EndProperty
  463.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  464.                Picture         =   "铁运管理_调装单列表.frx":28C62
  465.                Key             =   "bz"
  466.             EndProperty
  467.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  468.                Picture         =   "铁运管理_调装单列表.frx":28FFC
  469.                Key             =   "tc"
  470.             EndProperty
  471.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  472.                Picture         =   "铁运管理_调装单列表.frx":29396
  473.                Key             =   "bcgs"
  474.             EndProperty
  475.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  476.                Picture         =   "铁运管理_调装单列表.frx":29730
  477.                Key             =   "mrlk"
  478.             EndProperty
  479.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  480.                Picture         =   "铁运管理_调装单列表.frx":29ACA
  481.                Key             =   "xsxm"
  482.             EndProperty
  483.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  484.                Picture         =   "铁运管理_调装单列表.frx":29E64
  485.                Key             =   "first"
  486.             EndProperty
  487.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  488.                Picture         =   "铁运管理_调装单列表.frx":2A1FE
  489.                Key             =   "prev"
  490.             EndProperty
  491.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  492.                Picture         =   "铁运管理_调装单列表.frx":2A598
  493.                Key             =   "next"
  494.             EndProperty
  495.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  496.                Picture         =   "铁运管理_调装单列表.frx":2A932
  497.                Key             =   "last"
  498.             EndProperty
  499.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  500.                Picture         =   "铁运管理_调装单列表.frx":2ACCC
  501.                Key             =   "xx"
  502.             EndProperty
  503.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  504.                Picture         =   "铁运管理_调装单列表.frx":2B066
  505.                Key             =   "define"
  506.             EndProperty
  507.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  508.                Picture         =   "铁运管理_调装单列表.frx":2B400
  509.                Key             =   "exec"
  510.             EndProperty
  511.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  512.                Picture         =   "铁运管理_调装单列表.frx":2B79A
  513.                Key             =   "xz"
  514.             EndProperty
  515.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  516.                Picture         =   "铁运管理_调装单列表.frx":2BB34
  517.                Key             =   "sc"
  518.             EndProperty
  519.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  520.                Picture         =   "铁运管理_调装单列表.frx":2BECE
  521.                Key             =   "sx"
  522.             EndProperty
  523.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  524.                Picture         =   "铁运管理_调装单列表.frx":2C268
  525.                Key             =   "cx"
  526.             EndProperty
  527.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  528.                Picture         =   "铁运管理_调装单列表.frx":2C602
  529.                Key             =   "zd"
  530.             EndProperty
  531.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  532.                Picture         =   "铁运管理_调装单列表.frx":2C99C
  533.                Key             =   "dz"
  534.             EndProperty
  535.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  536.                Picture         =   "铁运管理_调装单列表.frx":2CD36
  537.                Key             =   "ph"
  538.             EndProperty
  539.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  540.                Picture         =   "铁运管理_调装单列表.frx":2D0D0
  541.                Key             =   "fz"
  542.             EndProperty
  543.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  544.                Picture         =   "铁运管理_调装单列表.frx":2D46A
  545.                Key             =   "dw"
  546.             EndProperty
  547.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  548.                Picture         =   "铁运管理_调装单列表.frx":2D804
  549.                Key             =   "hf"
  550.             EndProperty
  551.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  552.                Picture         =   "铁运管理_调装单列表.frx":2DB9E
  553.                Key             =   "pz"
  554.             EndProperty
  555.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  556.                Picture         =   "铁运管理_调装单列表.frx":2DF38
  557.                Key             =   "check"
  558.             EndProperty
  559.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  560.                Picture         =   "铁运管理_调装单列表.frx":2E2D2
  561.                Key             =   "zf"
  562.             EndProperty
  563.          EndProperty
  564.       End
  565.    End
  566. End
  567. Attribute VB_Name = "Tr_HoldList"
  568. Attribute VB_GlobalNameSpace = False
  569. Attribute VB_Creatable = False
  570. Attribute VB_PredeclaredId = True
  571. Attribute VB_Exposed = False
  572. '**************************************************************************
  573. '*    模 块 名 称 :调装单列表
  574. '*    功 能 描 述 :
  575. '*    程序员姓名  :徐强
  576. '*    最后修改人  :徐强
  577. '*    最后修改时间:2001/12/13
  578. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  579. '**************************************************************************
  580. Dim ReportTitle As String                '报表主标题
  581. Dim Str_QueryCondi As String             '用户录入查询条件
  582. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  584. '以下为固定使用变量
  585. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  586. Dim GridCode As String                   '显示网格网格代码
  587. Dim GridInf() As Variant                 '整个网格设置信息
  588. Dim Tsxx As String                       '系统提示信息
  589. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  590. Dim Sjhgd As Double                      '网格数据行高度
  591. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  592. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  593. Dim GridStr()  As String                 '网格列信息(字符型)
  594. Dim GridInt() As Integer                 '网格列信息(整型)
  595. Dim szzls As Integer                     '数组总列数(网格列数-1)
  597. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  598.     On Error Resume Next
  599.     With CxbbGrid
  600.         .Width = Me.Width - 160
  601.         .Height = Me.Height - .Top - 400
  602.     End With
  603.     With Pic_Title
  604.         .Width = Me.Width - 160
  605.     End With
  606.     
  607.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  608.     
  609. End Sub
  611. Private Sub Form_Load()                                                   '窗体装入
  612.     
  613.     '调入打印页面设置窗体
  614.     ReportTitle = "调装单列表"
  615.     XtReportCode = "Tr_HoldList"
  616.     Load Dyymctbl
  617.     
  618.     '调整标题栏及网格、格式工具条位置(Fixed)
  619.     Pic_Title.Left = 40
  620.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  621.     CxbbGrid.Left = Pic_Title.Left
  622.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  623.     
  624.     '调 入 网 格(Fixed)
  625.     GridCode = "Tr_HoldList"
  626.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  627.     
  628.     Qslz = GridInf(1)
  629.     Sjhgd = GridInf(2)
  630.     Sfxshjwg = GridInf(7)
  631.     szzls = CxbbGrid.Cols - 1
  632.     
  633. End Sub
  635. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  636.     
  637.     '卸载条件窗体
  638.     Tr_HoldListcxtj.UnloadCheck.Value = 1
  639.     Unload Tr_HoldListcxtj
  640.     
  641.     '卸载打印页面设置窗体
  642.     Unload Dyymctbl
  643.     
  644. End Sub
  646. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  647.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  648. End Sub
  650. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  651.     
  652.     Select Case Button.Key
  653.     Case "bcgs"                                          '保存表格格式
  654.         Call Bcwggs(CxbbGrid, GridCode, GridStr())
  655.     Case "hfmrgs"                                        '恢复默认格式
  656.         Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  657.     Case "szxsxm"                                        '设置显示项目
  658.         Call Szxsxm(CxbbGrid, GridCode)
  659.     End Select
  660.     
  661. End Sub
  663. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  664.     
  665.     Select Case Button.Key
  666.     Case "ymsz"                                          '页面设置
  667.         Dyymctbl.Show 1
  668.     Case "yl"                                            '预 览
  669.         Call bbyl(True)
  670.     Case "dy"                                            '打 印
  671.         Call bbyl(False)
  672.     Case "cx"                                            '查 询
  673.         Tr_HoldListcxtj.Show 1
  674.     Case "Bill"                                          '单 据
  675.         Call CxbbGrid_DblClick
  676.     Case "xz"                                            '新 增
  677.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  678.          If Not Security_Log("tr_hold_edit", Xtczybm, 1, True) Then
  679.             Exit Sub
  680.          End If
  681.        
  682.         Call Sub_AddBill
  683.     Case "sc"                                            '删 除
  684.         '判断用户是否有此功能执行权限,如有则写上机日志(进入)
  685.          If Not Security_Log("tr_hold_edit", Xtczybm, 1, True) Then
  686.             Exit Sub
  687.          End If
  688.        
  689.         Call Sub_DeleteBill
  690.     Case "bz"                                            '帮 助
  691.         Call F1bz
  692.     Case "fh"                                            '退 出
  693.         Unload Me
  694.     End Select
  695.     
  696. End Sub
  698. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  699.     
  700.     Timer1.Enabled = False
  701.     Xt_Wait.Show
  702.     Xt_Wait.Refresh
  703.     
  704.     '加快显示速度
  705.     CxbbGrid.Redraw = False
  706.     
  707.     '生成查询结果
  708.     Call Sub_Query(0)
  709.     
  710.     CxbbGrid.Redraw = True
  711.     
  712.     Xt_Wait.Hide
  713.     
  714. End Sub
  716. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  717.     
  718.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  719.     
  720.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  721.     Dim Coljsq As Long                          '网格列计数器
  722.     Dim jsqte As Integer                       '临时动态计数器
  723.     
  724.     '以下为自定义部分[
  725.     
  726.     If Int_QueryType = 0 Then   '0-"点确定按钮"查询
  727.         With Tr_HoldListcxtj
  728.             
  729.             '生成查询条件
  730.             Str_QueryCondi = " where 1=1 "
  731.             
  732.             If .JiText(0) <> "____-__-__ __:__" Then
  733.                 Str_QueryCondi = Str_QueryCondi & " and holdtime  >= '" & .JiText(0) & "' "
  734.             End If
  735.             If .JiText(1) <> "____-__-__ __:__" Then
  736.                 Str_QueryCondi = Str_QueryCondi & " and holdtime  <= '" & .JiText(1) & "' "
  737.             End If
  738.             If .JiText(2) <> "____-__-__ __:__" Then
  739.                 Str_QueryCondi = Str_QueryCondi & " and holdendtime  >= '" & .JiText(2) & "' "
  740.             End If
  741.             If .JiText(3) <> "____-__-__ __:__" Then
  742.                 Str_QueryCondi = Str_QueryCondi & " and holdendtime  <= '" & .JiText(3) & "' "
  743.             End If
  744.             
  745.             For jsqte = 0 To 2
  746.                 Select Case jsqte
  747.                 Case 0  '货物运单号
  748.                     If Trim(.LrText(0).Text) <> "" Then
  749.                         Str_QueryCondi = Str_QueryCondi & " And ApplyCode='" & Trim(.LrText(0).Text) & "'"
  750.                     End If
  751.                 Case 1  '车号
  752.                     If Trim(.LrText(1).Text) <> "" Then
  753.                         Str_QueryCondi = Str_QueryCondi & " and vehiclenum = '" & Trim(.LrText(1).Text) & "'"
  754.                     End If
  755.                 Case 2  '货物编码
  756.                     If Trim(.LrText(2).Text) <> "" Then
  757.                         Str_QueryCondi = Str_QueryCondi & " and mnumber = '" & Trim(.LrText(2).Text) & "'"
  758.                     End If
  759.                 End Select
  760.             Next jsqte
  761.             If .Opt_Check(1).Value Then
  762.                 Str_QueryCondi = Str_QueryCondi & " and  Checker='' "
  763.             ElseIf .Opt_Check(2).Value Then
  764.                 Str_QueryCondi = Str_QueryCondi & " and  Checker<>'' "
  765.             End If
  766.         End With
  767.     Else
  768.         '1-"刷新"查询
  769.         If Str_QueryCondi = "" Then
  770.             Str_QueryCondi = " where 1=2 "
  771.         End If
  772.     End If
  773.     
  774.     Sqlstr = "SELECT * from Tr_V_Hold_List" & _
  775.     Str_QueryCondi & " Order By Holddate,Holdnum,VehicleNum"
  776.     
  777.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  778.     With Rec_Query
  779.         CxbbGrid.Rows = CxbbGrid.FixedRows
  780.         jsqte = CxbbGrid.FixedRows
  781.         Do While Not .EOF
  782.             CxbbGrid.AddItem ""
  783.             '[>>自定义填充内容
  784.             CxbbGrid.TextMatrix(jsqte, 0) = .Fields("HoldMainId")
  785.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), szzls)) = Format(.Fields("HoldDate") & "", "yyyy-mm-dd")                 '日期
  786.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), szzls)) = Trim(.Fields("HoldNum") & "")                                  '调装单号
  787.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), szzls)) = Trim(.Fields("vehiclenum") & "")                               '车号
  788.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), szzls)) = Trim(.Fields("ApplyCode") & "")                                '货物运单号
  789.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), szzls)) = Trim(.Fields("mnumber") & "")                                  '货物编码
  790.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), szzls)) = Trim(.Fields("mName") & "")                                    '货物名称
  791.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), szzls)) = Trim(.Fields("Model") & "")                                    '型号
  792.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), szzls)) = Val(.Fields("quantity"))                                       '吨位
  793.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), szzls)) = Format(.Fields("Holdtime") & "", "yyyy-mm-dd hh:mm")           '要求调装时间
  794.             If Not IsNull(.Fields("holdendtime")) Then
  795.                 CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), szzls)) = Format(.Fields("holdendtime") & "", "yyyy-mm-dd hh:mm")    '调装完毕时间
  796.             End If
  797.             CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), szzls)) = Trim(.Fields("holdman") & "")                                  '负责人
  798.             CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), szzls)) = Trim(.Fields("remark") & "")                                   '备注
  799.             '<<]
  800.             '设置数据行高度(Fixed)
  801.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  802.             
  803.             '动态集指针加1,同时将计数器加1(Fixed)
  804.             .MoveNext
  805.             jsqte = jsqte + 1
  806.         Loop
  807.     End With
  808.     
  809.     ']以上为用户自定义部分
  810.     
  811. End Sub
  813. Private Sub CxbbGrid_DblClick()                                              '用户双击网格调入相应单据
  814.     
  815.     Dim RecTemp As New ADODB.Recordset               '临时使用动态集
  816.     '当第一次查询结果为空时,判断总记录行是否与固定行数相同,如相同则出现错误(双表头出现此情况)
  817.     If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  818.         Exit Sub
  819.     End If
  820.     '非数据行退出
  821.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  822.         Exit Sub
  823.     End If
  824.     
  825.     Sqlstr = "SELECT HoldMainId From Tr_HoldMain Where HoldMainId=" & Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  826.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  827.     With RecTemp
  828.         If .EOF Then
  829.             Tsxx = "此货物运单已被其他用户删除!"
  830.             Call Xtxxts(Tsxx, 0, 4)
  831.             Exit Sub
  832.         Else
  833.             '调入单据处理窗体
  834.             With Tr_Hold
  835.                 
  836.                 '填充查询单据标识
  837.                 XT_BillID = CxbbGrid.TextMatrix(CxbbGrid.Row, 0)
  838.                 Xtcdcsfz = Str_QueryCondi
  839.                 
  840.                 '设置单据处理为列表查询(修改)状态
  841.                 Xtcdcs = "2"
  842.                 .Show 1
  843.             End With
  844.             If Xtfhcs = "1" Then
  845.                 Tsxx = "货物运单发生变化,是否刷新货物运单列表?"
  846.                 yhAnswer = Xtxxts(Tsxx, 2, 2)
  847.                 If yhAnswer = 1 Then
  848.                     Xt_Wait.Show
  849.                     Xt_Wait.Refresh
  850.                     
  851.                     '加快显示速度
  852.                     CxbbGrid.Redraw = False
  853.                     
  854.                     '生成查询结果
  855.                     Call Sub_Query(1)
  856.                     
  857.                     CxbbGrid.Redraw = True
  858.                     Xt_Wait.Hide
  859.                 End If
  860.             End If
  861.         End If
  862.     End With
  863.     
  864. End Sub
  866. Private Sub Sub_AddBill()                                              '新增单据
  867.     
  868.     With Tr_Hold
  869.         
  870.         '设置单据处理为填制单据状态
  871.         Xtcdcs = "1"
  872.         
  873.         .Show 1
  874.     End With
  875.     
  876.     If Xtfhcs = "1" Then
  877.         Tsxx = "货物运单发生变化,是否刷新货物运单列表?"
  878.         yhAnswer = Xtxxts(Tsxx, 2, 2)
  879.         If yhAnswer = 1 Then
  880.             Xt_Wait.Show
  881.             Xt_Wait.Refresh
  882.             
  883.             '加快显示速度
  884.             CxbbGrid.Redraw = False
  885.             
  886.             '生成查询结果
  887.             Call Sub_Query(1)
  888.             
  889.             CxbbGrid.Redraw = True
  890.             Xt_Wait.Hide
  891.         End If
  892.     End If
  893.     
  894. End Sub
  896. Private Sub Sub_DeleteBill()                                            '删除选中当前销售订单
  897.     
  898.     Dim YAnswer As Integer
  899.     Dim Lng_BillID As Long           '单据标识
  900.     Dim str_TempSql As String
  901.     '非数据行退出
  902.     If CxbbGrid.Row < CxbbGrid.FixedRows Or Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0)) = 0 Then
  903.         Exit Sub
  904.     End If
  905.     
  906.     Tsxx = "请确认是否删除当前货物运单?"
  907.     yhAnswer = Xtxxts(Tsxx, 2, 2)
  908.     
  909.     If yhAnswer = 1 Then
  910.         '1.判断当前销售订单是否允许删除
  911.         If Not Fun_AllowDelete Then
  912.             Exit Sub
  913.         End If
  914.         
  915.         '2.删除单据所有内容
  916.         Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  917.         On Error GoTo Swcwcl
  918.         Cw_DataEnvi.DataConnect.BeginTrans
  919.         '删除铁运排它表的相应记录
  920.         str_TempSql = "delete tr_nowaccount where childid in (select holdsubid from tr_holdsub where holdmainid= " & Lng_BillID & ") and vouchernum=9 "
  921.         Cw_DataEnvi.DataConnect.Execute (str_TempSql)
  922.         '删除子表、主表
  923.         Cw_DataEnvi.DataConnect.Execute ("Delete Tr_HoldSub Where HoldMainId=" & Lng_BillID)         '删除单据子表内容
  924.         Cw_DataEnvi.DataConnect.Execute ("Delete Tr_HoldMain Where HoldMainId=" & Lng_BillID)        '删除单据主表内容
  925.         Cw_DataEnvi.DataConnect.CommitTrans
  926.         
  927.         '删除网格中单据数据
  928.         jsqte = CxbbGrid.FixedRows
  929.         Do While jsqte <= CxbbGrid.Rows - 1
  930.             If Val(CxbbGrid.TextMatrix(jsqte, 0)) = Lng_BillID Then
  931.                 CxbbGrid.RemoveItem (jsqte)
  932.             Else
  933.                 jsqte = jsqte + 1
  934.             End If
  935.         Loop
  936.     Else
  937.         Exit Sub
  938.     End If
  939.     Exit Sub
  940. Swcwcl:
  941.     Cw_DataEnvi.DataConnect.RollbackTrans
  942.     Tsxx = "删除销售订单过程中出现未知错误,程序自动恢复删除前状态!"
  943.     Call Xtxxts(Tsxx, 0, 1)
  944.     Exit Sub
  945.     
  946. End Sub
  948. Private Function Fun_AllowDelete() As Boolean                                        '判断当前单据是否允许删除
  949.     
  950.     Dim RecTemp As New ADODB.Recordset     '临时使用动态集
  951.     Dim Sqlstr As String                   '查询字符串
  952.     Dim Lng_BillID As Long                 '单据ID
  953.     
  954.     Lng_BillID = Val(CxbbGrid.TextMatrix(CxbbGrid.Row, 0))
  955.     Sqlstr = "Select Checker From Tr_HoldMain Where HoldMainId=" & Lng_BillID
  956.     Set RecTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  957.     With RecTemp
  958.         If Not .EOF Then
  959.             If Trim(.Fields("Checker") & "") <> "" Then
  960.                 Tsxx = "该货物运单已审核确认,不能删除!"
  961.                 Call Xtxxts(Tsxx, 0, 4)
  962.                 Exit Function
  963.             End If
  964.         End If
  965.     End With
  966.     Fun_AllowDelete = True
  967.     
  968. End Function
  970. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  971.     
  972.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  973.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  974.     Bbxbtgs = 1                                          '报 表 小 标 题 行 数
  975.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  976.     ReDim Bbxbt(1 To Bbxbtgs)
  977.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  978.     If Bbbwhgs <> 0 Then
  979.         ReDim Bbbwh(1 To Bbbwhgs)
  980.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  981.     End If
  982.     Bbzbt = ReportTitle
  983.     Bbxbt(1) = ""
  984.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  985.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  986.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  987.     If Not bbylte Then
  988.         Unload DY_Tybbyldy
  989.     End If
  990.     
  991. End Sub