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

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

企业管理

开发平台：

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 Cg_OnRoadTotalList 
  5.    Caption         =   "在途统计表"
  6.    ClientHeight    =   8595
  7.    ClientLeft      =   315
  8.    ClientTop       =   390
  9.    ClientWidth     =   11820
  10.    HelpContextID   =   1109003
  11.    Icon            =   "采购系统_在途统计表查询结果.frx":0000
  12.    KeyPreview      =   -1  'True
  13.    LinkTopic       =   "Form1"
  14.    MDIChild        =   -1  'True
  15.    ScaleHeight     =   8595
  16.    ScaleWidth      =   11820
  17.    WindowState     =   2  'Maximized
  18.    Begin MSComctlLib.Toolbar GsToolbar 
  19.       Height          =   525
  20.       Left            =   9405
  21.       TabIndex        =   3
  22.       Top             =   15
  23.       Width           =   2475
  24.       _ExtentX        =   4366
  25.       _ExtentY        =   926
  26.       ButtonWidth     =   1455
  27.       ButtonHeight    =   926
  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          =   1365
  54.       Left            =   30
  55.       Picture         =   "采购系统_在途统计表查询结果.frx":1042
  56.       ScaleHeight     =   1305
  57.       ScaleWidth      =   11775
  58.       TabIndex        =   1
  59.       Top             =   570
  60.       Width           =   11835
  61.       Begin VB.Label Lbl_Xslabel 
  62.          BackStyle       =   0  'Transparent
  63.          Height          =   180
  64.          Index           =   5
  65.          Left            =   5130
  66.          TabIndex        =   16
  67.          Top             =   990
  68.          Width           =   1275
  69.       End
  70.       Begin VB.Label Lbl_Tslabel 
  71.          AutoSize        =   -1  'True
  72.          BackStyle       =   0  'Transparent
  73.          Caption         =   "业务员:"
  74.          Height          =   180
  75.          Index           =   5
  76.          Left            =   4320
  77.          TabIndex        =   15
  78.          Top             =   990
  79.          Width           =   630
  80.       End
  81.       Begin VB.Label Lbl_Xslabel 
  82.          BackStyle       =   0  'Transparent
  83.          Height          =   180
  84.          Index           =   4
  85.          Left            =   840
  86.          TabIndex        =   14
  87.          Top             =   990
  88.          Width           =   1275
  89.       End
  90.       Begin VB.Label Lbl_Tslabel 
  91.          AutoSize        =   -1  'True
  92.          BackStyle       =   0  'Transparent
  93.          Caption         =   "部门:"
  94.          Height          =   180
  95.          Index           =   4
  96.          Left            =   240
  97.          TabIndex        =   13
  98.          Top             =   990
  99.          Width           =   450
  100.       End
  101.       Begin VB.Label Lbl_Tslabel 
  102.          BackStyle       =   0  'Transparent
  103.          Caption         =   "—"
  104.          BeginProperty Font 
  105.             Name            =   "宋体"
  106.             Size            =   26.25
  107.             Charset         =   134
  108.             Weight          =   400
  109.             Underline       =   0   'False
  110.             Italic          =   0   'False
  111.             Strikethrough   =   0   'False
  112.          EndProperty
  113.          Height          =   315
  114.          Index           =   1
  115.          Left            =   2070
  116.          TabIndex        =   12
  117.          Top             =   540
  118.          Width           =   525
  119.       End
  120.       Begin VB.Label Lbl_Tslabel 
  121.          AutoSize        =   -1  'True
  122.          BackStyle       =   0  'Transparent
  123.          Caption         =   "物料名称:"
  124.          Height          =   180
  125.          Index           =   3
  126.          Left            =   8460
  127.          TabIndex        =   11
  128.          Top             =   690
  129.          Width           =   810
  130.       End
  131.       Begin VB.Label Lbl_Xslabel 
  132.          BackStyle       =   0  'Transparent
  133.          Height          =   180
  134.          Index           =   3
  135.          Left            =   9390
  136.          TabIndex        =   10
  137.          Top             =   690
  138.          Width           =   1275
  139.       End
  140.       Begin VB.Label Lbl_Xslabel 
  141.          BackStyle       =   0  'Transparent
  142.          Height          =   180
  143.          Index           =   2
  144.          Left            =   5130
  145.          TabIndex        =   9
  146.          Top             =   690
  147.          Width           =   3015
  148.       End
  149.       Begin VB.Label Lbl_Tslabel 
  150.          AutoSize        =   -1  'True
  151.          BackStyle       =   0  'Transparent
  152.          Caption         =   "供应商:"
  153.          Height          =   180
  154.          Index           =   2
  155.          Left            =   4320
  156.          TabIndex        =   8
  157.          Top             =   690
  158.          Width           =   630
  159.       End
  160.       Begin VB.Label Lbl_Xslabel 
  161.          BackStyle       =   0  'Transparent
  162.          Height          =   180
  163.          Index           =   1
  164.          Left            =   2790
  165.          TabIndex        =   7
  166.          Top             =   720
  167.          Width           =   885
  168.       End
  169.       Begin VB.Label Lbl_Xslabel 
  170.          BackStyle       =   0  'Transparent
  171.          Height          =   180
  172.          Index           =   0
  173.          Left            =   840
  174.          TabIndex        =   6
  175.          Top             =   720
  176.          Width           =   1035
  177.       End
  178.       Begin VB.Label Lbl_Tslabel 
  179.          AutoSize        =   -1  'True
  180.          BackStyle       =   0  'Transparent
  181.          Caption         =   "日期:"
  182.          Height          =   180
  183.          Index           =   0
  184.          Left            =   240
  185.          TabIndex        =   5
  186.          Top             =   720
  187.          Width           =   450
  188.       End
  189.       Begin VB.Label Lab_Title 
  190.          BackColor       =   &H80000018&
  191.          BackStyle       =   0  'Transparent
  192.          Caption         =   "在途统计表"
  193.          BeginProperty Font 
  194.             Name            =   "宋体"
  195.             Size            =   12
  196.             Charset         =   134
  197.             Weight          =   700
  198.             Underline       =   0   'False
  199.             Italic          =   0   'False
  200.             Strikethrough   =   0   'False
  201.          EndProperty
  202.          ForeColor       =   &H00000000&
  203.          Height          =   300
  204.          Index           =   4
  205.          Left            =   480
  206.          TabIndex        =   2
  207.          Top             =   210
  208.          Width           =   2715
  209.       End
  210.    End
  211.    Begin VB.Timer Timer1 
  212.       Enabled         =   0   'False
  213.       Interval        =   1
  214.       Left            =   7620
  215.       Top             =   90
  216.    End
  217.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  218.       Height          =   6915
  219.       Left            =   30
  220.       TabIndex        =   0
  221.       Top             =   1980
  222.       Width           =   11835
  223.       _cx             =   5080
  224.       _cy             =   5080
  225.       Appearance      =   1
  226.       BorderStyle     =   1
  227.       Enabled         =   -1  'True
  228.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  229.          Name            =   "宋体"
  230.          Size            =   9
  231.          Charset         =   134
  232.          Weight          =   400
  233.          Underline       =   0   'False
  234.          Italic          =   0   'False
  235.          Strikethrough   =   0   'False
  236.       EndProperty
  237.       MousePointer    =   0
  238.       BackColor       =   16777215
  239.       ForeColor       =   -2147483640
  240.       BackColorFixed  =   13826538
  241.       ForeColorFixed  =   -2147483630
  242.       BackColorSel    =   -2147483635
  243.       ForeColorSel    =   -2147483634
  244.       BackColorBkg    =   -2147483636
  245.       BackColorAlternate=   16777215
  246.       GridColor       =   -2147483633
  247.       GridColorFixed  =   -2147483632
  248.       TreeColor       =   -2147483632
  249.       FloodColor      =   192
  250.       SheetBorder     =   -2147483642
  251.       FocusRect       =   1
  252.       HighLight       =   1
  253.       AllowSelection  =   -1  'True
  254.       AllowBigSelection=   -1  'True
  255.       AllowUserResizing=   0
  256.       SelectionMode   =   0
  257.       GridLines       =   1
  258.       GridLinesFixed  =   2
  259.       GridLineWidth   =   1
  260.       Rows            =   50
  261.       Cols            =   10
  262.       FixedRows       =   1
  263.       FixedCols       =   1
  264.       RowHeightMin    =   0
  265.       RowHeightMax    =   0
  266.       ColWidthMin     =   0
  267.       ColWidthMax     =   0
  268.       ExtendLastCol   =   0   'False
  269.       FormatString    =   ""
  270.       ScrollTrack     =   0   'False
  271.       ScrollBars      =   3
  272.       ScrollTips      =   0   'False
  273.       MergeCells      =   0
  274.       MergeCompare    =   0
  275.       AutoResize      =   -1  'True
  276.       AutoSizeMode    =   0
  277.       AutoSearch      =   0
  278.       AutoSearchDelay =   2
  279.       MultiTotals     =   -1  'True
  280.       SubtotalPosition=   1
  281.       OutlineBar      =   0
  282.       OutlineCol      =   0
  283.       Ellipsis        =   0
  284.       ExplorerBar     =   0
  285.       PicturesOver    =   0   'False
  286.       FillStyle       =   0
  287.       RightToLeft     =   0   'False
  288.       PictureType     =   0
  289.       TabBehavior     =   0
  290.       OwnerDraw       =   0
  291.       Editable        =   0
  292.       ShowComboButton =   1
  293.       WordWrap        =   0   'False
  294.       TextStyle       =   0
  295.       TextStyleFixed  =   0
  296.       OleDragMode     =   0
  297.       OleDropMode     =   0
  298.       DataMode        =   0
  299.       VirtualData     =   -1  'True
  300.       DataMember      =   ""
  301.       ComboSearch     =   3
  302.       AutoSizeMouse   =   -1  'True
  303.       FrozenRows      =   0
  304.       FrozenCols      =   0
  305.       AllowUserFreezing=   0
  306.       BackColorFrozen =   0
  307.       ForeColorFrozen =   0
  308.       WallPaperAlignment=   9
  309.       AccessibleName  =   ""
  310.       AccessibleDescription=   ""
  311.       AccessibleValue =   ""
  312.       AccessibleRole  =   24
  313.       Begin MSComctlLib.ImageList ImageList2 
  314.          Left            =   0
  315.          Top             =   0
  316.          _ExtentX        =   1005
  317.          _ExtentY        =   1005
  318.          BackColor       =   -2147483643
  319.          ImageWidth      =   16
  320.          ImageHeight     =   16
  321.          MaskColor       =   12632256
  322.          _Version        =   393216
  323.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  324.             NumListImages   =   40
  325.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  326.                Picture         =   "采购系统_在途统计表查询结果.frx":35106
  327.                Key             =   "sz"
  328.             EndProperty
  329.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  330.                Picture         =   "采购系统_在途统计表查询结果.frx":354A0
  331.                Key             =   "dy"
  332.             EndProperty
  333.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  334.                Picture         =   "采购系统_在途统计表查询结果.frx":3583A
  335.                Key             =   "yl"
  336.             EndProperty
  337.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  338.                Picture         =   "采购系统_在途统计表查询结果.frx":35BD4
  339.                Key             =   "xg"
  340.             EndProperty
  341.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  342.                Picture         =   "采购系统_在途统计表查询结果.frx":35F6E
  343.                Key             =   "zh"
  344.             EndProperty
  345.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  346.                Picture         =   "采购系统_在途统计表查询结果.frx":36308
  347.                Key             =   "sh"
  348.             EndProperty
  349.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  350.                Picture         =   "采购系统_在途统计表查询结果.frx":366A2
  351.                Key             =   "bc"
  352.             EndProperty
  353.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  354.                Picture         =   "采购系统_在途统计表查询结果.frx":36A3C
  355.                Key             =   "fq"
  356.             EndProperty
  357.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  358.                Picture         =   "采购系统_在途统计表查询结果.frx":36DD6
  359.                Key             =   "bz"
  360.             EndProperty
  361.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  362.                Picture         =   "采购系统_在途统计表查询结果.frx":37170
  363.                Key             =   "tc"
  364.             EndProperty
  365.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  366.                Picture         =   "采购系统_在途统计表查询结果.frx":3750A
  367.                Key             =   "bcgs"
  368.             EndProperty
  369.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  370.                Picture         =   "采购系统_在途统计表查询结果.frx":378A4
  371.                Key             =   "mrlk"
  372.             EndProperty
  373.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  374.                Picture         =   "采购系统_在途统计表查询结果.frx":37C3E
  375.                Key             =   "xsxm"
  376.             EndProperty
  377.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  378.                Picture         =   "采购系统_在途统计表查询结果.frx":37FD8
  379.                Key             =   "first"
  380.             EndProperty
  381.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  382.                Picture         =   "采购系统_在途统计表查询结果.frx":38372
  383.                Key             =   "prev"
  384.             EndProperty
  385.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  386.                Picture         =   "采购系统_在途统计表查询结果.frx":3870C
  387.                Key             =   "next"
  388.             EndProperty
  389.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  390.                Picture         =   "采购系统_在途统计表查询结果.frx":38AA6
  391.                Key             =   "last"
  392.             EndProperty
  393.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  394.                Picture         =   "采购系统_在途统计表查询结果.frx":38E40
  395.                Key             =   "xx"
  396.             EndProperty
  397.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  398.                Picture         =   "采购系统_在途统计表查询结果.frx":391DA
  399.                Key             =   "define"
  400.             EndProperty
  401.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  402.                Picture         =   "采购系统_在途统计表查询结果.frx":39574
  403.                Key             =   "exec"
  404.             EndProperty
  405.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  406.                Picture         =   "采购系统_在途统计表查询结果.frx":3990E
  407.                Key             =   "xz"
  408.             EndProperty
  409.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  410.                Picture         =   "采购系统_在途统计表查询结果.frx":39CA8
  411.                Key             =   "sc"
  412.             EndProperty
  413.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  414.                Picture         =   "采购系统_在途统计表查询结果.frx":3A042
  415.                Key             =   "sx"
  416.             EndProperty
  417.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  418.                Picture         =   "采购系统_在途统计表查询结果.frx":3A3DC
  419.                Key             =   "cx"
  420.             EndProperty
  421.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  422.                Picture         =   "采购系统_在途统计表查询结果.frx":3A776
  423.                Key             =   "zd"
  424.             EndProperty
  425.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  426.                Picture         =   "采购系统_在途统计表查询结果.frx":3AB10
  427.                Key             =   "dz"
  428.             EndProperty
  429.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  430.                Picture         =   "采购系统_在途统计表查询结果.frx":3AEAA
  431.                Key             =   "ph"
  432.             EndProperty
  433.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  434.                Picture         =   "采购系统_在途统计表查询结果.frx":3B244
  435.                Key             =   "fz"
  436.             EndProperty
  437.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  438.                Picture         =   "采购系统_在途统计表查询结果.frx":3B5DE
  439.                Key             =   "dw"
  440.             EndProperty
  441.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  442.                Picture         =   "采购系统_在途统计表查询结果.frx":3B978
  443.                Key             =   "hf"
  444.             EndProperty
  445.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  446.                Picture         =   "采购系统_在途统计表查询结果.frx":3BD12
  447.                Key             =   "pz"
  448.             EndProperty
  449.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  450.                Picture         =   "采购系统_在途统计表查询结果.frx":3C0AC
  451.                Key             =   "check"
  452.             EndProperty
  453.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  454.                Picture         =   "采购系统_在途统计表查询结果.frx":3C446
  455.                Key             =   "qs"
  456.             EndProperty
  457.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  458.                Picture         =   "采购系统_在途统计表查询结果.frx":3C7E0
  459.                Key             =   "fullcheck"
  460.             EndProperty
  461.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  462.                Picture         =   "采购系统_在途统计表查询结果.frx":3CB7A
  463.                Key             =   "qq"
  464.             EndProperty
  465.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  466.                Picture         =   "采购系统_在途统计表查询结果.frx":3CF14
  467.                Key             =   "bcw"
  468.             EndProperty
  469.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  470.                Picture         =   "采购系统_在途统计表查询结果.frx":3D2AE
  471.                Key             =   "ye"
  472.             EndProperty
  473.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  474.                Picture         =   "采购系统_在途统计表查询结果.frx":3D648
  475.                Key             =   ""
  476.             EndProperty
  477.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "采购系统_在途统计表查询结果.frx":3D9E2
  479.                Key             =   "frist"
  480.             EndProperty
  481.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "采购系统_在途统计表查询结果.frx":3DD7C
  483.                Key             =   "dj"
  484.             EndProperty
  485.          EndProperty
  486.       End
  487.    End
  488.    Begin MSComctlLib.Toolbar SzToolbar 
  489.       Align           =   1  'Align Top
  490.       Height          =   555
  491.       Left            =   0
  492.       TabIndex        =   4
  493.       Top             =   0
  494.       Width           =   11820
  495.       _ExtentX        =   20849
  496.       _ExtentY        =   979
  497.       ButtonWidth     =   820
  498.       ButtonHeight    =   926
  499.       AllowCustomize  =   0   'False
  500.       Appearance      =   1
  501.       Style           =   1
  502.       ImageList       =   "ImageList1"
  503.       _Version        =   393216
  504.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  505.          NumButtons      =   12
  506.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  507.             Caption         =   "设置"
  508.             Key             =   "ymsz"
  509.             ImageKey        =   "sz"
  510.          EndProperty
  511.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  512.             Caption         =   "打印"
  513.             Key             =   "dy"
  514.             ImageKey        =   "dy"
  515.          EndProperty
  516.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  517.             Caption         =   "预览"
  518.             Key             =   "yl"
  519.             ImageKey        =   "yl"
  520.          EndProperty
  521.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  522.             Style           =   3
  523.          EndProperty
  524.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  525.             Caption         =   "查询"
  526.             Key             =   "cx"
  527.             ImageKey        =   "cx"
  528.          EndProperty
  529.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  530.             Enabled         =   0   'False
  531.             Object.Visible         =   0   'False
  532.             Caption         =   "单据"
  533.             Key             =   "Bill"
  534.             ImageKey        =   "pz"
  535.          EndProperty
  536.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  537.             Enabled         =   0   'False
  538.             Object.Visible         =   0   'False
  539.             Style           =   3
  540.          EndProperty
  541.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  542.             Enabled         =   0   'False
  543.             Object.Visible         =   0   'False
  544.             Caption         =   "新增"
  545.             Key             =   "xz"
  546.             ImageKey        =   "xz"
  547.          EndProperty
  548.          BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  549.             Enabled         =   0   'False
  550.             Object.Visible         =   0   'False
  551.             Caption         =   "删除"
  552.             Key             =   "sc"
  553.             ImageKey        =   "sc"
  554.          EndProperty
  555.          BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  556.             Style           =   3
  557.          EndProperty
  558.          BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  559.             Caption         =   "帮助"
  560.             Key             =   "bz"
  561.             ImageKey        =   "bz"
  562.          EndProperty
  563.          BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  564.             Caption         =   "退出"
  565.             Key             =   "fh"
  566.             ImageKey        =   "tc"
  567.          EndProperty
  568.       EndProperty
  569.       BorderStyle     =   1
  570.       Begin MSComctlLib.ImageList ImageList1 
  571.          Left            =   6990
  572.          Top             =   30
  573.          _ExtentX        =   1005
  574.          _ExtentY        =   1005
  575.          BackColor       =   -2147483643
  576.          ImageWidth      =   16
  577.          ImageHeight     =   16
  578.          MaskColor       =   12632256
  579.          _Version        =   393216
  580.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  581.             NumListImages   =   32
  582.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  583.                Picture         =   "采购系统_在途统计表查询结果.frx":3E116
  584.                Key             =   "sz"
  585.             EndProperty
  586.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  587.                Picture         =   "采购系统_在途统计表查询结果.frx":3E4B0
  588.                Key             =   "dy"
  589.             EndProperty
  590.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  591.                Picture         =   "采购系统_在途统计表查询结果.frx":3E84A
  592.                Key             =   "yl"
  593.             EndProperty
  594.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  595.                Picture         =   "采购系统_在途统计表查询结果.frx":3EBE4
  596.                Key             =   "xg"
  597.             EndProperty
  598.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  599.                Picture         =   "采购系统_在途统计表查询结果.frx":3EF7E
  600.                Key             =   "zh"
  601.             EndProperty
  602.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  603.                Picture         =   "采购系统_在途统计表查询结果.frx":3F318
  604.                Key             =   "sh"
  605.             EndProperty
  606.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  607.                Picture         =   "采购系统_在途统计表查询结果.frx":3F6B2
  608.                Key             =   "bc"
  609.             EndProperty
  610.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  611.                Picture         =   "采购系统_在途统计表查询结果.frx":3FA4C
  612.                Key             =   "fq"
  613.             EndProperty
  614.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  615.                Picture         =   "采购系统_在途统计表查询结果.frx":3FDE6
  616.                Key             =   "bz"
  617.             EndProperty
  618.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  619.                Picture         =   "采购系统_在途统计表查询结果.frx":40180
  620.                Key             =   "tc"
  621.             EndProperty
  622.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  623.                Picture         =   "采购系统_在途统计表查询结果.frx":4051A
  624.                Key             =   "bcgs"
  625.             EndProperty
  626.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  627.                Picture         =   "采购系统_在途统计表查询结果.frx":408B4
  628.                Key             =   "mrlk"
  629.             EndProperty
  630.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  631.                Picture         =   "采购系统_在途统计表查询结果.frx":40C4E
  632.                Key             =   "xsxm"
  633.             EndProperty
  634.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  635.                Picture         =   "采购系统_在途统计表查询结果.frx":40FE8
  636.                Key             =   "first"
  637.             EndProperty
  638.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  639.                Picture         =   "采购系统_在途统计表查询结果.frx":41382
  640.                Key             =   "prev"
  641.             EndProperty
  642.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  643.                Picture         =   "采购系统_在途统计表查询结果.frx":4171C
  644.                Key             =   "next"
  645.             EndProperty
  646.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  647.                Picture         =   "采购系统_在途统计表查询结果.frx":41AB6
  648.                Key             =   "last"
  649.             EndProperty
  650.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  651.                Picture         =   "采购系统_在途统计表查询结果.frx":41E50
  652.                Key             =   "xx"
  653.             EndProperty
  654.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  655.                Picture         =   "采购系统_在途统计表查询结果.frx":421EA
  656.                Key             =   "define"
  657.             EndProperty
  658.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  659.                Picture         =   "采购系统_在途统计表查询结果.frx":42584
  660.                Key             =   "exec"
  661.             EndProperty
  662.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  663.                Picture         =   "采购系统_在途统计表查询结果.frx":4291E
  664.                Key             =   "xz"
  665.             EndProperty
  666.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  667.                Picture         =   "采购系统_在途统计表查询结果.frx":42CB8
  668.                Key             =   "sc"
  669.             EndProperty
  670.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  671.                Picture         =   "采购系统_在途统计表查询结果.frx":43052
  672.                Key             =   "sx"
  673.             EndProperty
  674.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  675.                Picture         =   "采购系统_在途统计表查询结果.frx":433EC
  676.                Key             =   "cx"
  677.             EndProperty
  678.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  679.                Picture         =   "采购系统_在途统计表查询结果.frx":43786
  680.                Key             =   "zd"
  681.             EndProperty
  682.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  683.                Picture         =   "采购系统_在途统计表查询结果.frx":43B20
  684.                Key             =   "dz"
  685.             EndProperty
  686.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  687.                Picture         =   "采购系统_在途统计表查询结果.frx":43EBA
  688.                Key             =   "ph"
  689.             EndProperty
  690.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  691.                Picture         =   "采购系统_在途统计表查询结果.frx":44254
  692.                Key             =   "fz"
  693.             EndProperty
  694.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  695.                Picture         =   "采购系统_在途统计表查询结果.frx":445EE
  696.                Key             =   "dw"
  697.             EndProperty
  698.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  699.                Picture         =   "采购系统_在途统计表查询结果.frx":44988
  700.                Key             =   "hf"
  701.             EndProperty
  702.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  703.                Picture         =   "采购系统_在途统计表查询结果.frx":44D22
  704.                Key             =   "pz"
  705.             EndProperty
  706.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  707.                Picture         =   "采购系统_在途统计表查询结果.frx":450BC
  708.                Key             =   "check"
  709.             EndProperty
  710.          EndProperty
  711.       End
  712.    End
  713. End
  714. Attribute VB_Name = "Cg_OnRoadTotalList"
  715. Attribute VB_GlobalNameSpace = False
  716. Attribute VB_Creatable = False
  717. Attribute VB_PredeclaredId = True
  718. Attribute VB_Exposed = False
  719. '**************************************************************************
  720. '*    模 块 名 称 :在途统计表
  721. '*    功 能 描 述 :
  722. '*    程序员姓名  :李海祥
  723. '*    最后修改人  :李海祥
  724. '*    最后修改时间:2001/10/06
  725. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  726. '**************************************************************************
  727. Dim ReportTitle As String                '报表主标题
  728. Dim Str_QueryCondi As String             '用户录入查询条件
  729. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  731. '以下为固定使用变量
  732. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  733. Dim GridCode As String                   '显示网格网格代码
  734. Dim GridInf() As Variant                 '整个网格设置信息
  735. Dim Tsxx As String                       '系统提示信息
  736. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  737. Dim Sjhgd As Double                      '网格数据行高度
  738. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  739. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  740. Dim GridStr()  As String                 '网格列信息(字符型)
  741. Dim GridInt() As Integer                 '网格列信息(整型)
  742. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  744. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  745.     On Error Resume Next
  746.     With CxbbGrid
  747.         .Width = Me.Width - 160
  748.         .Height = Me.Height - .Top - 400
  749.     End With
  750.     With Pic_Title
  751.         .Width = Me.Width - 160
  752.     End With
  753.     
  754.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  756. End Sub
  758. Private Sub Form_Load()                                                   '窗体装入
  759.   
  760.     '调入打印页面设置窗体
  761.     ReportTitle = "在途统计表"
  762.     XtReportCode = "Cg_OnRoadTotal"
  763.     Load Dyymctbl
  764.       
  765.     '调整标题栏及网格、格式工具条位置(Fixed)
  766.     Pic_Title.Left = 40
  767.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  768.     CxbbGrid.Left = Pic_Title.Left
  769.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  770.      
  771.     '调 入 网 格(Fixed)
  772.     GridCode = "Cg_InvoiceTotal"
  773.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  774.       
  775.     Qslz = GridInf(1)
  776.     Sjhgd = GridInf(2)
  777.     Sfxshjwg = GridInf(7)
  778.     Szzls = CxbbGrid.Cols - 1
  780. End Sub
  782. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  784.     '卸载条件窗体
  785.     Cg_OnRoadTotalQuery.UnloadCheck.Value = 1
  786.     Unload Cg_OnRoadTotalQuery
  787.     
  788.     '卸载打印页面设置窗体
  789.     Unload Dyymctbl
  791. End Sub
  793. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  794.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  795. End Sub
  797. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  798.   
  799.     Select Case Button.Key
  800.         Case "bcgs"                                          '保存表格格式
  801.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  802.         Case "hfmrgs"                                        '恢复默认格式
  803.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  804.         Case "szxsxm"                                        '设置显示项目
  805.             Call Szxsxm(CxbbGrid, GridCode)
  806.     End Select
  808. End Sub
  810. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  811.     
  812.     Select Case Button.Key
  813.         Case "ymsz"                                          '页面设置
  814.             Dyymctbl.Show 1
  815.         Case "yl"                                            '预 览
  816.             Call bbyl(True)
  817.         Case "dy"                                            '打 印
  818.             Call bbyl(False)
  819.         Case "cx"                                            '查 询
  820.             Cg_OnRoadTotalQuery.Show 1
  821.         Case "bz"                                            '帮 助
  822.             Call F1bz
  823.         Case "fh"                                            '退 出
  824.            Unload Me
  825.     End Select
  827. End Sub
  829. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  830.     
  831.     Timer1.Enabled = False
  832.     Xt_Wait.Show
  833.     Xt_Wait.Refresh
  834.    
  835.     '加快显示速度
  836.     CxbbGrid.Redraw = False
  837.  
  838.     '生成查询结果
  839.     Call Sub_Query
  840.    
  841.     CxbbGrid.Redraw = True
  842.     
  843.     Xt_Wait.Hide
  845. End Sub
  847. Private Sub Sub_Query()                                     '生成查询结果(Define)
  848.     
  849.     
  850.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  851.     Dim Coljsq As Long                          '网格列计数器
  852.     Dim jsqte As Long                           '临时动态计数器
  854.     '以下为自定义部分[
  855.      Dim Number As Long
  856.      
  857.     
  858.     With Cg_OnRoadTotalQuery
  859.         '生成查询条件
  860.         Str_QueryCondi = " where Checker<>'' and BanlanceDate is null "
  861.         For jsqte = 1 To 10
  862.             Select Case jsqte
  863.                 Case 1  '日期(起)
  864.                     If Trim(.LrText(0).Text) <> "" Then
  865.                         Str_QueryCondi = Str_QueryCondi & " And InvoiceDate >=convert(datetime,'" & Trim(.LrText(0).Text) & "')"
  866.                         Me.Lbl_Xslabel(0).Caption = Trim(.LrText(0).Text)
  867.                     Else
  868.                         Me.Lbl_Xslabel(0).Caption = ""
  869.                     End If
  870.                 Case 2  '日期(止)
  871.                     If Trim(.LrText(1).Text) <> "" Then
  872.                         Str_QueryCondi = Str_QueryCondi & " and InvoiceDate <=convert(datetime,'" & Trim(.LrText(1).Text) & "')"
  873.                         Me.Lbl_Xslabel(1).Caption = Trim(.LrText(1).Text)
  874.                     Else
  875.                         Me.Lbl_Xslabel(1).Caption = ""
  876.                     End If
  877.                 Case 3  '供应商
  878.                     If Trim(.LrText(2).Text) <> "" Then
  879.                         Str_QueryCondi = Str_QueryCondi & " and SupplierCode =  '" & Trim(.LrText(2).Tag) & "'"
  880.                         Me.Lbl_Xslabel(2).Caption = Trim(.LrText(2).Text)
  881.                     Else
  882.                         Me.Lbl_Xslabel(2).Caption = ""
  883.                     End If
  884.                 Case 4  '采购物料分类
  885.                     If Trim(.LrText(3).Text) <> "" Then
  886.                         Str_QueryCondi = Str_QueryCondi & " and PurSortCode like '" & Trim(.LrText(3).Tag) & "%'"
  887.                     End If
  888.                 Case 5  '物料名称
  889.                     If Trim(.LrText(4).Text) <> "" Then
  890.                         Str_QueryCondi = Str_QueryCondi & " and MNumber = '" & Trim(.LrText(4).Tag) & "'"
  891.                         Me.Lbl_Xslabel(3).Caption = Trim(.LrText(4).Text)
  892.                     Else
  893.                         Me.Lbl_Xslabel(3).Caption = ""
  894.                     End If
  895.                 Case 6  '部门
  896.                     If Trim(.LrText(5).Text) <> "" Then
  897.                         Str_QueryCondi = Str_QueryCondi & " And DeptCode='" & Trim(.LrText(5).Tag) & "'"
  898.                         Me.Lbl_Xslabel(4).Caption = Trim(.LrText(5).Text)
  899.                     Else
  900.                         Me.Lbl_Xslabel(4).Caption = ""
  901.                     End If
  902.                 Case 7  '业务员
  903.                     If Trim(.LrText(6).Text) <> "" Then
  904.                         Str_QueryCondi = Str_QueryCondi & " And PersonCode='" & Trim(.LrText(6).Tag) & "'"
  905.                         Me.Lbl_Xslabel(5).Caption = Trim(.LrText(6).Text)
  906.                     Else
  907.                         Me.Lbl_Xslabel(5).Caption = ""
  908.                     End If
  909.                 Case 8  '部门
  910.                     If Trim(.LrText(7).Text) <> "" Then
  911.                         Str_QueryCondi = Str_QueryCondi & " And PayCode='" & Trim(.LrText(7).Tag) & "'"
  912.                         
  913.                     End If
  914.                 Case 9  '运输方式
  915.                     If Trim(.LrText(8).Text) <> "" Then
  916.                         Str_QueryCondi = Str_QueryCondi & " And TransferWayCode='" & Trim(.LrText(8).Tag) & "'"
  917.                     End If
  918.                 Case 10  '币种
  919.                     If Trim(.LrText(9).Text) <> "" Then
  920.                         Str_QueryCondi = Str_QueryCondi & " And ForeignCurrCode='" & Trim(.LrText(9).Tag) & "'"
  921.                     End If
  922.             End Select
  923.         Next jsqte
  924.     End With
  925.     
  926.      
  927.     Sqlstr = "select ForeignCurrName,ForeignCurrCode,AccRate,SupplierCode,SupplierName,MNumber,MName,Model,PurUnitName,Sum(Quantity) as SumQuantity,Sum(MoneyBb) as SumMoneyBb,Sum(TaxMoneyBb) as SumTaxMoneyBb," & _
  928.             "Sum(TotalMoneyBb) as SumTotalMoneyBb from Cg_V_InvoiceBill  " & Str_QueryCondi & " Group by ForeignCurrName,ForeignCurrCode,AccRate,SupplierCode,SupplierName,MNumber,MName,Model,PurUnitName"
  929.     
  930.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  931.     With Rec_Query
  932.         CxbbGrid.Rows = CxbbGrid.FixedRows
  933.         jsqte = CxbbGrid.FixedRows
  934.         Do While Not .EOF
  935.             If jsqte >= CxbbGrid.Rows Then
  936.                 CxbbGrid.AddItem ""
  937.             End If
  938.             '[>>自定义填充内容
  939.                                                            
  940.             CxbbGrid.TextMatrix(jsqte, Sydz("001", GridStr(), Szzls)) = Trim(.Fields("SupplierCode") & "")                                  '供应商编码
  941.             CxbbGrid.TextMatrix(jsqte, Sydz("002", GridStr(), Szzls)) = Trim(.Fields("SupplierName") & "")                                  '供应商名称
  942.             CxbbGrid.TextMatrix(jsqte, Sydz("003", GridStr(), Szzls)) = Trim(.Fields("ForeignCurrName") & "")                               '币种
  943.             CxbbGrid.TextMatrix(jsqte, Sydz("004", GridStr(), Szzls)) = Format(S2N(.Fields("AccRate") & ""), "###0." + String(4, "0"))      '汇率
  944.             CxbbGrid.TextMatrix(jsqte, Sydz("005", GridStr(), Szzls)) = Trim(.Fields("MNumber") & "")                                       '物料编码
  945.             CxbbGrid.TextMatrix(jsqte, Sydz("006", GridStr(), Szzls)) = Trim(.Fields("MName") & "")                                         '物料名称
  946.             CxbbGrid.TextMatrix(jsqte, Sydz("007", GridStr(), Szzls)) = Trim(.Fields("Model") & "")                                         '规格型号
  947.             CxbbGrid.TextMatrix(jsqte, Sydz("008", GridStr(), Szzls)) = Trim(.Fields("PurUnitName") & "")                                   '计量单位
  948.             CxbbGrid.TextMatrix(jsqte, Sydz("009", GridStr(), Szzls)) = Trim(.Fields("SumQuantity") & "")                                   '数量
  949.             If S2N(Trim(.Fields("SumQuantity") & "")) <> 0 Then
  950.                 If S2N(Trim(.Fields("SumMoneyBb") & "")) / S2N(Trim(.Fields("SumQuantity") & "")) < 0 Then
  951.                     CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = ""
  952.                 Else
  953.                     CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = S2N(Trim(.Fields("SumMoneyBb") & "")) / S2N(Trim(.Fields("SumQuantity") & ""))      '平均单价
  954.                 End If
  955.             Else
  956.                 CxbbGrid.TextMatrix(jsqte, Sydz("010", GridStr(), Szzls)) = ""
  957.             End If
  958.             CxbbGrid.TextMatrix(jsqte, Sydz("011", GridStr(), Szzls)) = Trim(.Fields("SumMoneyBb") & "")                                    '金额
  959.             CxbbGrid.TextMatrix(jsqte, Sydz("012", GridStr(), Szzls)) = Trim(.Fields("SumTaxMoneyBb") & "")                                 '税额
  960.             CxbbGrid.TextMatrix(jsqte, Sydz("013", GridStr(), Szzls)) = Trim(.Fields("SumTotalMoneyBb") & "")                               '价税合计
  961.             
  962.             
  963.             '<<]
  964.             '设置数据行高度(Fixed)
  965.             CxbbGrid.RowHeight(jsqte) = Sjhgd
  966.      
  967.             '动态集指针加1,同时将计数器加1(Fixed)
  968.             .MoveNext
  969.             jsqte = jsqte + 1
  970.         Loop
  971.     End With
  973.     ']以上为用户自定义部分
  975. End Sub
  977. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  978.     
  979.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  980.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  981.     Bbxbtgs = 3                                             '报 表 小 标 题 行 数
  982.     Bbbwhgs = 0                                             '报 表 表 尾 行 数
  983.     ReDim Bbxbt(1 To Bbxbtgs)
  984.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  985.     If Bbbwhgs <> 0 Then
  986.         ReDim Bbbwh(1 To Bbbwhgs)
  987.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  988.     End If
  989.     Bbzbt = ReportTitle
  990.     Bbxbt(1) = ""
  991.     Bbxbt(2) = Space(4) + Fun_FormatOutPut(Me.Lbl_Tslabel(0) + Me.Lbl_Xslabel(0), 10)
  992.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Lbl_Tslabel(1) + Me.Lbl_Xslabel(1), 20) + Fun_FormatOutPut(Me.Lbl_Tslabel(2) + Me.Lbl_Xslabel(2), 20)
  993.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut(Me.Lbl_Tslabel(3) + Me.Lbl_Xslabel(3), 20)
  994.     Bbxbt(3) = Space(4) + Fun_FormatOutPut(Me.Lbl_Tslabel(4) + Me.Lbl_Xslabel(4), 20)
  995.     Bbxbt(3) = Bbxbt(3) + Fun_FormatOutPut(Me.Lbl_Tslabel(5) + Me.Lbl_Xslabel(5), 20)
  996.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  997.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  998.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  999.     If Not bbylte Then
  1000.         Unload DY_Tybbyldy
  1001.     End If
  1003. End Sub