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

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

企业管理

开发平台：

Visual Basic

c：源码内容
  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 FrmProGraph_Zst 
  6.    Caption         =   "成品等级走势图"
  7.    ClientHeight    =   8595
  8.    ClientLeft      =   315
  9.    ClientTop       =   390
  10.    ClientWidth     =   11820
  11.    HelpContextID   =   5001
  12.    Icon            =   "c成品检验管理_成品质量等级走势图.frx":0000
  13.    KeyPreview      =   -1  'True
  14.    LinkTopic       =   "Form1"
  15.    MDIChild        =   -1  'True
  16.    ScaleHeight     =   8595
  17.    ScaleWidth      =   11820
  18.    WindowState     =   2  'Maximized
  19.    Begin VB.PictureBox Pic_Title 
  20.       BackColor       =   &H80000009&
  21.       Height          =   1065
  22.       Left            =   45
  23.       Picture         =   "c成品检验管理_成品质量等级走势图.frx":1042
  24.       ScaleHeight     =   1005
  25.       ScaleWidth      =   11535
  26.       TabIndex        =   0
  27.       Top             =   570
  28.       Width           =   11595
  29.       Begin VB.Label Label7 
  30.          BackStyle       =   0  'Transparent
  31.          ForeColor       =   &H00FF0000&
  32.          Height          =   255
  33.          Left            =   9870
  34.          TabIndex        =   11
  35.          Top             =   705
  36.          Width           =   375
  37.       End
  38.       Begin VB.Label Label6 
  39.          BackStyle       =   0  'Transparent
  40.          Caption         =   "周期数:"
  41.          Height          =   255
  42.          Left            =   9120
  43.          TabIndex        =   10
  44.          Top             =   705
  45.          Width           =   675
  46.       End
  47.       Begin VB.Label Label4 
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "周期:"
  50.          Height          =   255
  51.          Left            =   10230
  52.          TabIndex        =   9
  53.          Top             =   705
  54.          Width           =   495
  55.       End
  56.       Begin VB.Label Label5 
  57.          BackStyle       =   0  'Transparent
  58.          ForeColor       =   &H00FF0000&
  59.          Height          =   255
  60.          Left            =   10800
  61.          TabIndex        =   8
  62.          Top             =   705
  63.          Width           =   375
  64.       End
  65.       Begin VB.Label Label3 
  66.          BackStyle       =   0  'Transparent
  67.          ForeColor       =   &H00FF0000&
  68.          Height          =   255
  69.          Left            =   6870
  70.          TabIndex        =   7
  71.          Top             =   705
  72.          Width           =   2235
  73.       End
  74.       Begin VB.Label Label2 
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "生产日期:"
  77.          Height          =   255
  78.          Left            =   5970
  79.          TabIndex        =   6
  80.          Top             =   705
  81.          Width           =   975
  82.       End
  83.       Begin VB.Label Lab_TitleMess 
  84.          BackStyle       =   0  'Transparent
  85.          Caption         =   "物料名称:"
  86.          Height          =   225
  87.          Index           =   1
  88.          Left            =   2790
  89.          TabIndex        =   5
  90.          Top             =   705
  91.          Width           =   1215
  92.       End
  93.       Begin VB.Label label1 
  94.          BackStyle       =   0  'Transparent
  95.          ForeColor       =   &H00FF0000&
  96.          Height          =   225
  97.          Index           =   1
  98.          Left            =   3990
  99.          TabIndex        =   4
  100.          Top             =   705
  101.          Width           =   1695
  102.       End
  103.       Begin VB.Label label1 
  104.          BackStyle       =   0  'Transparent
  105.          ForeColor       =   &H00FF0000&
  106.          Height          =   225
  107.          Index           =   0
  108.          Left            =   1590
  109.          TabIndex        =   3
  110.          Top             =   705
  111.          Width           =   1095
  112.       End
  113.       Begin VB.Label Lab_TitleMess 
  114.          BackStyle       =   0  'Transparent
  115.          Caption         =   "物料编码:"
  116.          Height          =   225
  117.          Index           =   0
  118.          Left            =   390
  119.          TabIndex        =   2
  120.          Top             =   705
  121.          Width           =   1215
  122.       End
  123.       Begin VB.Label tsLabel 
  124.          AutoSize        =   -1  'True
  125.          BackColor       =   &H80000018&
  126.          BackStyle       =   0  'Transparent
  127.          Caption         =   "成品等级走势图"
  128.          BeginProperty Font 
  129.             Name            =   "宋体"
  130.             Size            =   12
  131.             Charset         =   134
  132.             Weight          =   700
  133.             Underline       =   0   'False
  134.             Italic          =   0   'False
  135.             Strikethrough   =   0   'False
  136.          EndProperty
  137.          ForeColor       =   &H00000000&
  138.          Height          =   240
  139.          Index           =   4
  140.          Left            =   495
  141.          TabIndex        =   1
  142.          Top             =   150
  143.          Width           =   1785
  144.       End
  145.    End
  146.    Begin VB.Timer Timer1 
  147.       Enabled         =   0   'False
  148.       Interval        =   1
  149.       Left            =   7620
  150.       Top             =   90
  151.    End
  152.    Begin VSFlex8Ctl.VSFlexGrid CxbbGrid 
  153.       Height          =   6885
  154.       Left            =   30
  155.       TabIndex        =   12
  156.       Top             =   1680
  157.       Width           =   11775
  158.       _ExtentX        =   20770
  159.       _ExtentY        =   12144
  160.       Appearance      =   1
  161.       BorderStyle     =   1
  162.       Enabled         =   -1  'True
  163.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  164.          Name            =   "宋体"
  165.          Size            =   9
  166.          Charset         =   134
  167.          Weight          =   400
  168.          Underline       =   0   'False
  169.          Italic          =   0   'False
  170.          Strikethrough   =   0   'False
  171.       EndProperty
  172.       MousePointer    =   0
  173.       BackColor       =   16777215
  174.       ForeColor       =   -2147483640
  175.       BackColorFixed  =   13826538
  176.       ForeColorFixed  =   -2147483630
  177.       BackColorSel    =   -2147483635
  178.       ForeColorSel    =   -2147483634
  179.       BackColorBkg    =   -2147483636
  180.       BackColorAlternate=   16777215
  181.       GridColor       =   -2147483633
  182.       GridColorFixed  =   -2147483632
  183.       TreeColor       =   -2147483632
  184.       FloodColor      =   192
  185.       SheetBorder     =   -2147483642
  186.       FocusRect       =   1
  187.       HighLight       =   1
  188.       AllowSelection  =   -1  'True
  189.       AllowBigSelection=   -1  'True
  190.       AllowUserResizing=   0
  191.       SelectionMode   =   0
  192.       GridLines       =   1
  193.       GridLinesFixed  =   2
  194.       GridLineWidth   =   1
  195.       Rows            =   50
  196.       Cols            =   10
  197.       FixedRows       =   1
  198.       FixedCols       =   1
  199.       RowHeightMin    =   0
  200.       RowHeightMax    =   0
  201.       ColWidthMin     =   0
  202.       ColWidthMax     =   0
  203.       ExtendLastCol   =   0   'False
  204.       FormatString    =   ""
  205.       ScrollTrack     =   0   'False
  206.       ScrollBars      =   3
  207.       ScrollTips      =   0   'False
  208.       MergeCells      =   0
  209.       MergeCompare    =   0
  210.       AutoResize      =   -1  'True
  211.       AutoSizeMode    =   0
  212.       AutoSearch      =   0
  213.       MultiTotals     =   -1  'True
  214.       SubtotalPosition=   0
  215.       OutlineBar      =   0
  216.       OutlineCol      =   0
  217.       Ellipsis        =   0
  218.       ExplorerBar     =   0
  219.       PicturesOver    =   0   'False
  220.       FillStyle       =   0
  221.       RightToLeft     =   0   'False
  222.       PictureType     =   0
  223.       TabBehavior     =   0
  224.       OwnerDraw       =   0
  225.       Editable        =   0   'False
  226.       ShowComboButton =   -1  'True
  227.       WordWrap        =   0   'False
  228.       TextStyle       =   0
  229.       TextStyleFixed  =   0
  230.       OleDragMode     =   0
  231.       OleDropMode     =   0
  232.       DataMode        =   0
  233.       VirtualData     =   -1  'True
  234.       Begin MSComctlLib.ImageList ImageList2 
  235.          Left            =   0
  236.          Top             =   0
  237.          _ExtentX        =   1005
  238.          _ExtentY        =   1005
  239.          BackColor       =   -2147483643
  240.          ImageWidth      =   16
  241.          ImageHeight     =   16
  242.          MaskColor       =   12632256
  243.          _Version        =   393216
  244.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  245.             NumListImages   =   40
  246.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  247.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":1FAC4
  248.                Key             =   "sz"
  249.             EndProperty
  250.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  251.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":1FE5E
  252.                Key             =   "dy"
  253.             EndProperty
  254.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  255.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":201F8
  256.                Key             =   "yl"
  257.             EndProperty
  258.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  259.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":20592
  260.                Key             =   "xg"
  261.             EndProperty
  262.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  263.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2092C
  264.                Key             =   "zh"
  265.             EndProperty
  266.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  267.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":20CC6
  268.                Key             =   "sh"
  269.             EndProperty
  270.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  271.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":21060
  272.                Key             =   "bc"
  273.             EndProperty
  274.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  275.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":213FA
  276.                Key             =   "fq"
  277.             EndProperty
  278.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  279.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":21794
  280.                Key             =   "bz"
  281.             EndProperty
  282.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  283.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":21B2E
  284.                Key             =   "tc"
  285.             EndProperty
  286.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  287.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":21EC8
  288.                Key             =   "bcgs"
  289.             EndProperty
  290.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  291.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":22262
  292.                Key             =   "mrlk"
  293.             EndProperty
  294.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  295.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":225FC
  296.                Key             =   "xsxm"
  297.             EndProperty
  298.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  299.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":22996
  300.                Key             =   "first"
  301.             EndProperty
  302.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  303.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":22D30
  304.                Key             =   "prev"
  305.             EndProperty
  306.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  307.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":230CA
  308.                Key             =   "next"
  309.             EndProperty
  310.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  311.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":23464
  312.                Key             =   "last"
  313.             EndProperty
  314.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  315.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":237FE
  316.                Key             =   "xx"
  317.             EndProperty
  318.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  319.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":23B98
  320.                Key             =   "define"
  321.             EndProperty
  322.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  323.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":23F32
  324.                Key             =   "exec"
  325.             EndProperty
  326.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  327.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":242CC
  328.                Key             =   "xz"
  329.             EndProperty
  330.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  331.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":24666
  332.                Key             =   "sc"
  333.             EndProperty
  334.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  335.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":24A00
  336.                Key             =   "sx"
  337.             EndProperty
  338.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  339.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":24D9A
  340.                Key             =   "cx"
  341.             EndProperty
  342.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  343.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":25134
  344.                Key             =   "zd"
  345.             EndProperty
  346.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  347.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":254CE
  348.                Key             =   "dz"
  349.             EndProperty
  350.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  351.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":25868
  352.                Key             =   "ph"
  353.             EndProperty
  354.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  355.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":25C02
  356.                Key             =   "fz"
  357.             EndProperty
  358.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  359.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":25F9C
  360.                Key             =   "dw"
  361.             EndProperty
  362.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  363.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":26336
  364.                Key             =   "hf"
  365.             EndProperty
  366.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  367.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":266D0
  368.                Key             =   "pz"
  369.             EndProperty
  370.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  371.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":26A6A
  372.                Key             =   "check"
  373.             EndProperty
  374.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  375.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":26E04
  376.                Key             =   "qs"
  377.             EndProperty
  378.             BeginProperty ListImage34 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  379.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2719E
  380.                Key             =   "fullcheck"
  381.             EndProperty
  382.             BeginProperty ListImage35 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  383.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":27538
  384.                Key             =   "qq"
  385.             EndProperty
  386.             BeginProperty ListImage36 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  387.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":278D2
  388.                Key             =   "bcw"
  389.             EndProperty
  390.             BeginProperty ListImage37 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  391.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":27C6C
  392.                Key             =   "ye"
  393.             EndProperty
  394.             BeginProperty ListImage38 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  395.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":28006
  396.                Key             =   ""
  397.             EndProperty
  398.             BeginProperty ListImage39 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  399.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":283A0
  400.                Key             =   "frist"
  401.             EndProperty
  402.             BeginProperty ListImage40 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  403.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2873A
  404.                Key             =   "dj"
  405.             EndProperty
  406.          EndProperty
  407.       End
  408.    End
  409.    Begin MSComctlLib.Toolbar SzToolbar 
  410.       Align           =   1  'Align Top
  411.       Height          =   570
  412.       Left            =   0
  413.       TabIndex        =   13
  414.       Top             =   0
  415.       Width           =   11820
  416.       _ExtentX        =   20849
  417.       _ExtentY        =   1005
  418.       ButtonWidth     =   820
  419.       ButtonHeight    =   953
  420.       AllowCustomize  =   0   'False
  421.       Appearance      =   1
  422.       Style           =   1
  423.       ImageList       =   "ImageList1"
  424.       _Version        =   393216
  425.       BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  426.          NumButtons      =   8
  427.          BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  428.             Caption         =   "设置"
  429.             Key             =   "ymsz"
  430.             ImageKey        =   "sz"
  431.          EndProperty
  432.          BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  433.             Caption         =   "打印"
  434.             Key             =   "dy"
  435.             ImageKey        =   "dy"
  436.          EndProperty
  437.          BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  438.             Caption         =   "预览"
  439.             Key             =   "yl"
  440.             ImageKey        =   "yl"
  441.          EndProperty
  442.          BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  443.             Style           =   3
  444.          EndProperty
  445.          BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  446.             Caption         =   "查询"
  447.             Key             =   "cx"
  448.             ImageKey        =   "cx"
  449.          EndProperty
  450.          BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  451.             Style           =   3
  452.          EndProperty
  453.          BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  454.             Caption         =   "帮助"
  455.             Key             =   "bz"
  456.             ImageKey        =   "bz"
  457.          EndProperty
  458.          BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  459.             Caption         =   "退出"
  460.             Key             =   "fh"
  461.             ImageKey        =   "tc"
  462.          EndProperty
  463.       EndProperty
  464.       BorderStyle     =   1
  465.       Begin MSComctlLib.ImageList ImageList1 
  466.          Left            =   6990
  467.          Top             =   30
  468.          _ExtentX        =   1005
  469.          _ExtentY        =   1005
  470.          BackColor       =   -2147483643
  471.          ImageWidth      =   16
  472.          ImageHeight     =   16
  473.          MaskColor       =   12632256
  474.          _Version        =   393216
  475.          BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} 
  476.             NumListImages   =   33
  477.             BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  478.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":28AD4
  479.                Key             =   "sz"
  480.             EndProperty
  481.             BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  482.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":28E6E
  483.                Key             =   "dy"
  484.             EndProperty
  485.             BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  486.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":29208
  487.                Key             =   "yl"
  488.             EndProperty
  489.             BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  490.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":295A2
  491.                Key             =   "xg"
  492.             EndProperty
  493.             BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  494.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2993C
  495.                Key             =   "zh"
  496.             EndProperty
  497.             BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  498.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":29CD6
  499.                Key             =   "sh"
  500.             EndProperty
  501.             BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  502.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2A070
  503.                Key             =   "bc"
  504.             EndProperty
  505.             BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  506.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2A40A
  507.                Key             =   "fq"
  508.             EndProperty
  509.             BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  510.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2A7A4
  511.                Key             =   "bz"
  512.             EndProperty
  513.             BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  514.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2AB3E
  515.                Key             =   "tc"
  516.             EndProperty
  517.             BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  518.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2AED8
  519.                Key             =   "bcgs"
  520.             EndProperty
  521.             BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  522.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2B272
  523.                Key             =   "mrlk"
  524.             EndProperty
  525.             BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  526.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2B60C
  527.                Key             =   "xsxm"
  528.             EndProperty
  529.             BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  530.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2B9A6
  531.                Key             =   "first"
  532.             EndProperty
  533.             BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  534.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2BD40
  535.                Key             =   "prev"
  536.             EndProperty
  537.             BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  538.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2C0DA
  539.                Key             =   "next"
  540.             EndProperty
  541.             BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  542.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2C474
  543.                Key             =   "last"
  544.             EndProperty
  545.             BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  546.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2C80E
  547.                Key             =   "xx"
  548.             EndProperty
  549.             BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  550.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2CBA8
  551.                Key             =   "define"
  552.             EndProperty
  553.             BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  554.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2CF42
  555.                Key             =   "exec"
  556.             EndProperty
  557.             BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  558.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2D2DC
  559.                Key             =   "xz"
  560.             EndProperty
  561.             BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  562.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2D676
  563.                Key             =   "sc"
  564.             EndProperty
  565.             BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  566.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2DA10
  567.                Key             =   "sx"
  568.             EndProperty
  569.             BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  570.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2DDAA
  571.                Key             =   "cx"
  572.             EndProperty
  573.             BeginProperty ListImage25 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  574.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2E144
  575.                Key             =   "zd"
  576.             EndProperty
  577.             BeginProperty ListImage26 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  578.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2E4DE
  579.                Key             =   "dz"
  580.             EndProperty
  581.             BeginProperty ListImage27 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  582.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2E878
  583.                Key             =   "ph"
  584.             EndProperty
  585.             BeginProperty ListImage28 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  586.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2EC12
  587.                Key             =   "fz"
  588.             EndProperty
  589.             BeginProperty ListImage29 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  590.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2EFAC
  591.                Key             =   "dw"
  592.             EndProperty
  593.             BeginProperty ListImage30 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  594.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2F346
  595.                Key             =   "hf"
  596.             EndProperty
  597.             BeginProperty ListImage31 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  598.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2F6E0
  599.                Key             =   "pz"
  600.             EndProperty
  601.             BeginProperty ListImage32 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  602.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2FA7A
  603.                Key             =   "check"
  604.             EndProperty
  605.             BeginProperty ListImage33 {2C247F27-8591-11D1-B16A-00C0F0283628} 
  606.                Picture         =   "c成品检验管理_成品质量等级走势图.frx":2FE14
  607.                Key             =   "txfx"
  608.             EndProperty
  609.          EndProperty
  610.       End
  611.       Begin MSComctlLib.Toolbar GsToolbar 
  612.          Height          =   540
  613.          Left            =   10950
  614.          TabIndex        =   14
  615.          Top             =   0
  616.          Width           =   855
  617.          _ExtentX        =   1508
  618.          _ExtentY        =   953
  619.          ButtonWidth     =   1455
  620.          ButtonHeight    =   953
  621.          Appearance      =   1
  622.          Style           =   1
  623.          ImageList       =   "ImageList1"
  624.          DisabledImageList=   "ImageList1"
  625.          HotImageList    =   "ImageList1"
  626.          _Version        =   393216
  627.          BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
  628.             NumButtons      =   4
  629.             BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  630.                Object.Visible         =   0   'False
  631.                Caption         =   "保存格式"
  632.                Key             =   "bcgs"
  633.                ImageKey        =   "bcgs"
  634.             EndProperty
  635.             BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  636.                Object.Visible         =   0   'False
  637.                Caption         =   "默认列宽"
  638.                Key             =   "hfmrgs"
  639.                ImageKey        =   "mrlk"
  640.             EndProperty
  641.             BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  642.                Object.Visible         =   0   'False
  643.                Caption         =   "显示项目"
  644.                Key             =   "xsxm"
  645.                ImageKey        =   "mrlk"
  646.             EndProperty
  647.             BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
  648.                Caption         =   "图形分析"
  649.                Key             =   "txfx"
  650.                ImageKey        =   "txfx"
  651.             EndProperty
  652.          EndProperty
  653.       End
  654.    End
  655. End
  656. Attribute VB_Name = "FrmProGraph_Zst"
  657. Attribute VB_GlobalNameSpace = False
  658. Attribute VB_Creatable = False
  659. Attribute VB_PredeclaredId = True
  660. Attribute VB_Exposed = False
  661. '**************************************************************************
  662. '*    模 块 名 称 :成品等级走势图
  663. '*    功 能 描 述 :
  664. '*    程序员姓名  :邹力
  665. '*    最后修改人  :张晶石
  666. '*    最后修改时间:2002/01/10
  667. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  668. '**************************************************************************
  669. Dim intcycle As Integer                  '分段数
  670. Dim resultY() As Single                  '优级品率
  671. Dim resultH() As Single                  '合格品率
  672. Dim Cycle() As String                    '分段数据
  673. Dim result() As Single                   '品级率
  674. Dim gradecode() As String                '质量等级编码
  675. Dim gradename() As String                '质量等级名称
  677. Dim intcount As Integer                  '检验项目数量
  678. Dim reptitle As String                   '图形输出标题
  679. Dim gradecount As Integer                '质量等级个数
  681. Dim ReportTitle As String                '报表主标题
  683. Dim Str_QueryCondi As String             '用户录入查询条件
  684. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  685. Dim strwlbh As String                    '物料编号
  686. Dim strName As String                    '物料名称
  687. Dim Daystart As String                   '起始日期
  688. Dim Dayend   As String                   '结束日期
  689. Dim strcycle As String                   '周期
  691. '以下为固定使用变量
  692. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  693. Dim GridCode As String                   '显示网格网格代码
  694. Dim GridInf() As Variant                 '整个网格设置信息
  695. Dim Tsxx As String                       '系统提示信息
  696. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  697. Dim Sjhgd As Double                      '网格数据行高度
  698. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  699. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  700. Dim GridStr()  As String                 '网格列信息(字符型)
  701. Dim GridInt() As Integer                 '网格列信息(整型)
  702. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  704. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  705.     On Error Resume Next
  706.     With CxbbGrid
  707.         .Width = Me.Width - 160
  708.         .Height = Me.Height - .Top - 400
  709.     End With
  710.     With Pic_Title
  711.         .Width = Me.Width - 160
  712.     End With
  713.     
  714.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  716. End Sub
  718. Private Sub Form_Load()                                                   '窗体装入
  719.   
  720.     '调入打印页面设置窗体
  721.     ReportTitle = "成品等级走势图"
  722.     XtReportCode = "QC_ProGraphZst"
  723.     Load Dyymctbl
  724.       
  725.     '调整标题栏及网格、格式工具条位置(Fixed)
  726.     Pic_Title.Left = 40
  727.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  728.     CxbbGrid.Left = Pic_Title.Left
  729.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  730.      
  731.     '调 入 网 格(Fixed)
  732.     GridCode = "QC_ProGraphZst"
  733.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  734.       
  735.     Qslz = GridInf(1)
  736.     Sjhgd = GridInf(2)
  737.     Sfxshjwg = GridInf(7)
  738.     Szzls = CxbbGrid.Cols - 1
  740. End Sub
  742. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  744.     '卸载条件窗体
  745.     FrmProGraph_ZstQuery.UnloadCheck.Value = 1
  746.     Unload FrmProGraph_ZstQuery
  747.     
  748.     '卸载打印页面设置窗体
  749.     Unload Dyymctbl
  751. End Sub
  753. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  754.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  755. End Sub
  757. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  758.   
  759.     Select Case Button.Key
  760.         Case "bcgs"                                          '保存表格格式
  761.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  762.         Case "hfmrgs"                                        '恢复默认格式
  763.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  764.         Case "szxsxm"                                        '设置显示项目
  765.             Call Szxsxm(CxbbGrid, GridCode)
  766.       Case "txfx"                                            '图形分析报表
  767.         If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  768.             Exit Sub
  769.         End If
  770.         XT_TxfxFrm.HelpContextID = 150400502
  771.         Call Txfxbb(CxbbGrid, "QC_ProGraphZst")
  772.     End Select
  774. End Sub
  777. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  778.     
  779.     Select Case Button.Key
  780.         Case "ymsz"                                          '页面设置
  781.             Dyymctbl.Show 1
  782.         Case "yl"                                            '预 览
  783.             Call bbyl(True)
  784.         Case "dy"                                            '打 印
  785.             Call bbyl(False)
  786.         Case "cx"                                            '查 询
  787.             FrmProGraph_ZstQuery.Show 1
  788.         Case "bz"                                            '帮 助
  789.             Call F1bz
  790.         Case "fh"                                            '退 出
  791.            Unload Me
  792.     End Select
  794. End Sub
  796. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  797.     
  798.     Timer1.Enabled = False
  799.     Xt_Wait.Show
  800.     Xt_Wait.Refresh
  801.    
  802.     '加快显示速度
  803.     CxbbGrid.Redraw = False
  804.     
  806.     '生成查询结果
  807.     Call Sub_Query
  808.    
  809.     CxbbGrid.Redraw = True
  810.     
  811.     Xt_Wait.Hide
  813. End Sub
  815. Public Sub Sub_Query()                                     '生成查询结果(Define)
  817.   Dim Sqlstr, strSQL, strSQL1, strSQL2 As String
  818.   Dim rec As ADODB.Recordset
  819.   Dim rectemp1 As ADODB.Recordset
  820.   Dim rectemp2 As ADODB.Recordset
  821.     
  822.   Dim ii As Integer
  823.   Dim i As Integer
  824.   Dim TiaoJian As String
  825.     
  826.     With FrmProGraph_ZstQuery
  827.         If Trim(.LrText(0).Text & "") = "" Then
  828.            Lab_TitleMess(0).Caption = "物料大类编码:"
  829.            Lab_TitleMess(1).Caption = "物料大类名称:"
  830.            strwlbh = Trim(.LrText(5).Tag & "")
  831.            strName = Trim(.LrText(5).Text & "")
  832.         Else
  833.            Lab_TitleMess(0).Caption = "物料编码:"
  834.            Lab_TitleMess(1).Caption = "物料名称:"
  835.            strwlbh = Trim(.LrText(0).Text & "")
  836.            strName = Trim(.LrText(1).Text & "")
  837.         End If
  838.         label1(0).Caption = strwlbh
  839.         label1(1).Caption = strName
  840.         Daystart = Format(Trim(.LrText(2).Text), "yyyy-mm-dd")
  841.         Dayend = Format(Trim(.LrText(3).Text), "yyyy-mm-dd")
  842.         intcycle = Val(.LrText(4).Text)
  843.         strcycle = Trim(.Combo1.Text)
  844.         
  845.         Label3.Caption = Format(Daystart, "yyyy-mm-dd") & "～" & Format(Dayend, "yyyy-mm-dd")
  846.         Label5.Caption = strcycle
  847.         Label7.Caption = intcycle
  848.         
  849.         '查询连接串
  850.         If Trim(.LrText(0).Text & "") = "" Then
  851.            TiaoJian = " where msnumber = '" & strwlbh & "' "
  852.         Else
  853.            TiaoJian = " where mnumber = '" & strwlbh & "' "
  854.         End If
  855.         
  857.         Sqlstr = "SELECT checksortcode FROM Qc_ProductMaterial " & TiaoJian
  858.         Set rec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  859.         
  860.         If rec.RecordCount < 1 Then
  861.             If Trim(.LrText(0).Text & "") = "" Then
  862.                Tsxx = "请先设置该物料大类中物料的检验类别!"
  863.             Else
  864.                Tsxx = "请先设置该物料的检验类别!"
  865.             End If
  866.             Call Xtxxts(Tsxx, 0, 3)
  867.             Exit Sub
  868.         End If
  869.     End With
  870.     
  871.     If Trim(FrmProGraph_ZstQuery.LrText(0).Text & "") = "" Then
  872.         TiaoJian = " where msnumber = '" & strwlbh & "'  and Checker<>'' "
  873.     Else
  874.         TiaoJian = " where mnumber = '" & strwlbh & "'  and Checker<>'' "
  875.     End If
  876.     
  877.     Sqlstr = "SELECT gradecode,gradename FROM QC_grade  where checksortcode ='" & Trim(rec.Fields("checksortcode") & "") & "' order by gradecode"
  878.     If rec.State Then rec.Close
  879.     Set rec = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  880.     
  881.     If rec.RecordCount < 1 Then
  882.        Tsxx = "请先设置该物料的质量等级!"
  883.        Call Xtxxts(Tsxx, 0, 3)
  884.        Exit Sub
  885.     End If
  886.    
  887.    gradecount = rec.RecordCount
  888.    ReDim gradecode(gradecount) As String
  889.    ReDim gradename(gradecount) As String
  890.    ReDim result(gradecount, intcycle) As Single
  891.     
  892.    For i = 0 To rec.RecordCount - 1
  893.     gradecode(i) = rec.Fields("gradecode")
  894.     gradename(i) = rec.Fields("gradename")
  895.     rec.MoveNext
  896.    Next i
  897.     
  898.     ReDim resultY(intcycle) As Single
  899.     ReDim resultH(intcycle) As Single
  900.     ReDim Cycle(intcycle) As String
  901.     
  902.     CxbbGrid.Rows = 1
  903.     
  904.     '提取标题
  905.     If Format(Daystart, "yyyy-mm") <> Format(Dayend, "yyyy-mm") Then
  906.          reptitle = Format(Daystart, "yyyy-mm") + "-" + Format(Dayend, "yyyy-mm")
  907.     Else
  908.          reptitle = Format(Daystart, "yyyy-mm")
  909.     End If
  910.     
  911.    
  912.     reptitle = reptitle + Space(2) + label1(1).Caption
  913.    
  914.     '查询连接串
  915.      
  916.     '查询数据分布
  917.     Dim intd() As Date
  918.     ReDim intd(intcycle + 1) As Date
  919.     intd(0) = Daystart
  920.     For i = 1 To intcycle
  921.        
  922.             If strcycle = "周" Then
  923.                 intd(i) = DateAdd("ww", i, intd(0))
  924.             Else
  925.                  intd(i) = DateAdd("m", i, intd(0))
  926.             End If
  927.            '总重
  928.            strSQL = "SELECT SUM(Quantity) AS eprweight FROM (SELECT a.*, b.MSNumber AS msnumber FROM Qc_ProductCheckMain a LEFT OUTER JOIN " & _
  929.                     "Qc_ProductMaterial b ON a.MNumber = b.MNumber) c " & TiaoJian & " and PurReciptDate>='" & intd(i - 1) & "' and PurReciptDate<'" & intd(i) & "' "
  930.            Set rectemp1 = Cw_DataEnvi.DataConnect.Execute(strSQL)
  931.          
  932.            rectemp1.MoveFirst
  933.            
  934.            If IsNull(rectemp1.Fields(0)) Then
  935.                sind1 = 0
  936.            Else
  937.                sind1 = rectemp1.Fields(0)
  938.            End If
  939.     
  940.         '********************************************************************************
  941.         For ii = 0 To gradecount - 2
  942.           
  943.             If ii < gradecount - 2 Then
  944.                strSQL1 = "SELECT sum(Quantity) as eprweight1 FROM (SELECT a.*, b.MSNumber AS msnumber FROM Qc_ProductCheckMain a LEFT OUTER JOIN " & _
  945.                     "Qc_ProductMaterial b ON a.MNumber = b.MNumber) c " & TiaoJian & " and gradecode='" & gradecode(ii) & "' and  PurReciptDate>='" & intd(i - 1) & "' and PurReciptDate<'" & intd(i) & "'  "
  946.             Else
  947.                strSQL1 = "SELECT sum(Quantity) as eprweight1 FROM (SELECT a.*, b.MSNumber AS msnumber FROM Qc_ProductCheckMain a LEFT OUTER JOIN " & _
  948.                     "Qc_ProductMaterial b ON a.MNumber = b.MNumber) c " & TiaoJian & " and gradecode<>'" & gradecode(ii + 1) & "' and  PurReciptDate>='" & intd(i - 1) & "' and PurReciptDate<'" & intd(i) & "'  "
  949.             End If
  950.                
  951.             Set rectemp1 = Cw_DataEnvi.DataConnect.Execute(strSQL1)
  952.             If IsNull(rectemp1.Fields(0)) Then
  953.                sind2 = 0
  954.             Else
  955.                sind2 = rectemp1.Fields(0)
  956.             End If
  957.             
  958.             If sind1 = 0 Then
  959.                result(ii, i - 1) = 0
  960.             Else
  961.                result(ii, i - 1) = sind2 / sind1
  962.             End If
  963.             
  964.             If ii <> 0 And ii <> gradecount - 2 Then
  965.                result(ii, i - 1) = result(ii, i - 1) + result(ii - 1, i - 1)
  966.             End If
  967.     
  968.          Next ii
  969.            '*********************************************
  970.        
  971.         '分段数据
  972.         Cycle(i - 1) = Format(Str(intd(i - 1)), "yyyy-mm-dd")
  973.     Next i
  974.        
  975.     CxbbGrid.FixedRows = 1
  976.     CxbbGrid.Clear , flexClearData
  977.     CxbbGrid.Rows = intcycle + CxbbGrid.FixedRows
  978.     
  979.     Jsqte = CxbbGrid.FixedRows
  980.     
  981.     Call Jltcwg
  982.            
  983.     For i = Jsqte To CxbbGrid.Rows - 1
  984.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  985.     Next i
  986.    
  987. End Sub
  989. Private Sub Jltcwg()                                     '记录内容填充网格
  990.    
  991.     '填充表头
  992.     With CxbbGrid
  993.         .Cols = gradecount
  994.         .TextMatrix(0, 0) = "生产日期"
  995.        For Jsqte = 1 To .Cols - 1
  996.         .TextMatrix(0, Jsqte) = Trim(gradename(Jsqte - 1) & "") & "%"
  997.         .FixedAlignment(Jsqte) = 4
  998.         .ColFormat(Jsqte) = "#,##0." + String(Xtslxsws, "0")
  999.         .ColAlignment(Jsqte) = 6
  1000.         .ColWidth(Jsqte) = 2000
  1001.        Next Jsqte
  1002.     End With
  1003.      
  1004.     '填充时间数据
  1005.      For i = 0 To intcycle - 1
  1006.         CxbbGrid.TextMatrix(i + 1, 0) = Cycle(i)
  1007.      Next
  1008.      
  1009.      '填充品率数据
  1010.     For ii = 0 To gradecount - 2
  1011.      For i = 0 To intcycle - 1
  1012.          CxbbGrid.TextMatrix(i + 1, ii + 1) = result(ii, i) * 100
  1013.        Next i
  1014.      Next ii
  1016. End Sub
  1019. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  1020.     
  1021.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  1022.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  1023.     Bbxbtgs = 3                                          '报 表 小 标 题 行 数
  1024.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  1025.     ReDim Bbxbt(1 To Bbxbtgs)
  1026.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  1027.     If Bbbwhgs <> 0 Then
  1028.         ReDim Bbbwh(1 To Bbbwhgs)
  1029.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  1030.     End If
  1031.     Bbzbt = "成品等级走势图"
  1032.     Bbxbt(2) = Space(4) + Fun_FormatOutPut(Trim(Lab_TitleMess(0).Caption & "") + Trim(label1(0).Caption & ""), 20) + Fun_FormatOutPut(Trim(Lab_TitleMess(1).Caption & "") + Trim(label1(1).Caption & ""), 30)
  1033.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut("生产日期:  " + Trim(Label3.Caption & ""), 20)
  1034.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  1035.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  1036.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  1037.     If Not bbylte Then
  1038.         Unload DY_Tybbyldy
  1039.     End If
  1041. End Sub