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

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

企业管理

开发平台：

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_Plt 
  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          =   225
  33.          Left            =   9990
  34.          TabIndex        =   11
  35.          Top             =   705
  36.          Width           =   375
  37.       End
  38.       Begin VB.Label Label6 
  39.          BackStyle       =   0  'Transparent
  40.          Caption         =   "周期数:"
  41.          Height          =   225
  42.          Left            =   9240
  43.          TabIndex        =   10
  44.          Top             =   705
  45.          Width           =   675
  46.       End
  47.       Begin VB.Label Label4 
  48.          BackStyle       =   0  'Transparent
  49.          Caption         =   "周期:"
  50.          Height          =   225
  51.          Left            =   10410
  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            =   10980
  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          =   225
  69.          Left            =   7110
  70.          TabIndex        =   7
  71.          Top             =   705
  72.          Width           =   2055
  73.       End
  74.       Begin VB.Label Label2 
  75.          BackStyle       =   0  'Transparent
  76.          Caption         =   "生产日期:"
  77.          Height          =   225
  78.          Left            =   6210
  79.          TabIndex        =   6
  80.          Top             =   705
  81.          Width           =   855
  82.       End
  83.       Begin VB.Label Lab_TitleMess 
  84.          BackStyle       =   0  'Transparent
  85.          Caption         =   "物料名称:"
  86.          Height          =   225
  87.          Index           =   1
  88.          Left            =   2670
  89.          TabIndex        =   5
  90.          Top             =   705
  91.          Width           =   1275
  92.       End
  93.       Begin VB.Label label1 
  94.          BackStyle       =   0  'Transparent
  95.          ForeColor       =   &H00FF0000&
  96.          Height          =   225
  97.          Index           =   1
  98.          Left            =   4050
  99.          TabIndex        =   4
  100.          Top             =   705
  101.          Width           =   2055
  102.       End
  103.       Begin VB.Label label1 
  104.          BackStyle       =   0  'Transparent
  105.          ForeColor       =   &H00FF0000&
  106.          Height          =   225
  107.          Index           =   0
  108.          Left            =   1650
  109.          TabIndex        =   3
  110.          Top             =   705
  111.          Width           =   1155
  112.       End
  113.       Begin VB.Label Lab_TitleMess 
  114.          BackStyle       =   0  'Transparent
  115.          Caption         =   "物料编码:"
  116.          Height          =   225
  117.          Index           =   0
  118.          Left            =   330
  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_Plt"
  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/24
  667. '*    备        注:程序中所有依实际情况自定义部分均用[>>  <<]括起
  668. '**************************************************************************
  669. Dim ReportTitle As String                '报表主标题
  670. Dim Str_QueryCondi As String             '用户录入查询条件
  671. Dim Rec_BillID As New ADODB.Recordset    '用户查询单据ID动态集
  672. Dim intcycle As Integer                  '分段数
  673. Dim result() As Single                   '重量结果
  674. Dim strcause() As String                 '降等原因
  675. Dim Cycle() As String                    '分段数据
  676. Dim intcount As Integer
  678. Dim sintotal As Single                   '总重
  680. '以下为固定使用变量
  681. Dim Dyymctbl As New DY_Dyymsz            '打印页面窗体变量
  682. Dim GridCode As String                   '显示网格网格代码
  683. Dim GridInf() As Variant                 '整个网格设置信息
  684. Dim Tsxx As String                       '系统提示信息
  685. Dim Qslz As Long                         '网格隐藏(非操作显示)列数
  686. Dim Sjhgd As Double                      '网格数据行高度
  687. Dim Sfxshjwg As Boolean                  '是否显示合计网格
  688. Dim GridBoolean() As Boolean             '网格列信息(布尔型)
  689. Dim GridStr()  As String                 '网格列信息(字符型)
  690. Dim GridInt() As Integer                 '网格列信息(整型)
  691. Dim Szzls As Integer                     '数组总列数(网格列数-1)
  693. Private Sub Form_Resize()                '根据窗体大小来调整网格,标题栏大小(Fixed)
  694.     On Error Resume Next
  695.     With CxbbGrid
  696.         .Width = Me.Width - 160
  697.         .Height = Me.Height - .Top - 400
  698.     End With
  699.     With Pic_Title
  700.         .Width = Me.Width - 160
  701.     End With
  702.     
  703.     GsToolbar.Left = Me.Width - GsToolbar.Width - 140
  705. End Sub
  707. Private Sub Form_Load()                                                   '窗体装入
  708.   
  709.     '调入打印页面设置窗体
  710.     ReportTitle = "成品降等排列图"
  711.     XtReportCode = "Qc_FrmProGraph_Plt"
  712.     Load Dyymctbl
  713.       
  714.     '调整标题栏及网格、格式工具条位置(Fixed)
  715.     Pic_Title.Left = 40
  716.     Pic_Title.Top = SzToolbar.Top + SzToolbar.Height - 10
  717.     CxbbGrid.Left = Pic_Title.Left
  718.     CxbbGrid.Top = Pic_Title.Top + Pic_Title.Height + 20
  719.      
  720.     '调 入 网 格(Fixed)
  721.     GridCode = "QC_ProGraphZst"
  722.     Call BzWgcsh(CxbbGrid, GridCode, GridInf(), GridBoolean(), GridInt(), GridStr())
  723.       
  724.     Qslz = GridInf(1)
  725.     Sjhgd = GridInf(2)
  726.     Sfxshjwg = GridInf(7)
  727.     Szzls = CxbbGrid.Cols - 1
  729. End Sub
  731. Private Sub Form_Unload(Cancel As Integer)                                  '窗体卸载
  733.     '卸载条件窗体
  734.     FrmProGraph_PltQuery.UnloadCheck.Value = 1
  735.     Unload FrmProGraph_PltQuery
  736.     
  737.     '卸载打印页面设置窗体
  738.     Unload Dyymctbl
  740. End Sub
  742. Private Sub CxbbGrid_BeforeMoveColumn(ByVal Col As Long, Position As Long)           '网格列发生移动时自动交换网格索引信息
  743.     Call FnBln_RefreshArray(Col, Position, GridStr(), GridInf())
  744. End Sub
  746. Private Sub GsToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)                '网格格式调整(Fixed)
  747.   
  748.     Select Case Button.Key
  749.         Case "bcgs"                                          '保存表格格式
  750.             Call Bcwggs(CxbbGrid, GridCode, GridStr())
  751.         Case "hfmrgs"                                        '恢复默认格式
  752.             Call Hfmrgs(CxbbGrid, GridCode, GridStr())
  753.         Case "szxsxm"                                        '设置显示项目
  754.             Call Szxsxm(CxbbGrid, GridCode)
  755.       Case "txfx"                                            '图形分析报表
  756.         If CxbbGrid.Rows = CxbbGrid.FixedRows Then
  757.             Exit Sub
  758.         End If
  759.         XT_TxfxFrm.HelpContextID = 150400503
  760.         Call Txfxbb(CxbbGrid, "QC_ProGraphZst")
  761.     End Select
  763. End Sub
  765. Private Sub SzToolbar_ButtonClick(ByVal Button As MSComctlLib.Button)
  766.     
  767.     Select Case Button.Key
  768.         Case "ymsz"                                          '页面设置
  769.             Dyymctbl.Show 1
  770.         Case "yl"                                            '预 览
  771.             Call bbyl(True)
  772.         Case "dy"                                            '打 印
  773.             Call bbyl(False)
  774.         Case "cx"                                            '查 询
  775.             FrmProGraph_PltQuery.Show 1
  776.         Case "bz"                                            '帮 助
  777.             Call F1bz
  778.         Case "fh"                                            '退 出
  779.            Unload Me
  780.     End Select
  782. End Sub
  784. Private Sub Timer1_Timer()                                 '在窗体激活后调入查询程序
  785.     
  786.     Timer1.Enabled = False
  787.     Xt_Wait.Show
  788.     Xt_Wait.Refresh
  789.    
  790.     '加快显示速度
  791.     CxbbGrid.Redraw = False
  792.  
  793.     '生成查询结果
  794.     Call Sub_Query(0)
  795.    
  796.     CxbbGrid.Redraw = True
  797.     
  798.     Xt_Wait.Hide
  800. End Sub
  802. Private Sub Sub_Query(Int_QueryType As Integer)                                     '生成查询结果(Define)
  803.     
  804.     '过程参数:Int_QueryType 0-"点确定按钮"查询  1-"刷新"查询
  806.     Dim Rec_Query As New ADODB.Recordset        '查询结果动态集
  807.     Dim Coljsq As Long                          '网格列计数器
  808.     Dim Jsqte As Long                           '临时动态计数器
  809.     Dim QueryTempA As New ADODB.Recordset       '临时结果动态集
  810.     Dim QueryTemp As New ADODB.Recordset        '临时结果动态集
  811.     
  812.     Dim SumTp As Double
  813.     Dim Colint As Long                          '临时动态计数器
  814.     Dim ItemInt As Long
  815.     Dim StrValue As String
  816.     Dim intd() As Date
  818.     '以下为自定义部分[
  819.      With FrmProGraph_PltQuery
  820.          If Trim(.LrText(0).Text & "") = "" Then
  821.             Lab_TitleMess(0).Caption = "物料大类编码:"
  822.             Lab_TitleMess(1).Caption = "物料大类名称:"
  823.             label1(0).Caption = Trim(.LrText(5).Tag & "")
  824.             label1(1).Caption = Trim(.LrText(5).Text & "")
  825.          Else
  826.             Lab_TitleMess(0).Caption = "物料编码:"
  827.             Lab_TitleMess(1).Caption = "物料名称:"
  828.             label1(0).Caption = Trim(.LrText(0).Text & "")
  829.             label1(1).Caption = Trim(.LrText(1).Text & "")
  830.          End If
  831.          Label3.Caption = Format(.LrText(2).Text, "yyyy-mm-dd") & "～" & Format(.LrText(3).Text, "yyyy-mm-dd")
  832.          Label5.Caption = Trim(.Combo1.Text)
  833.          Label7.Caption = Trim(.LrText(4).Text)
  834.          intcycle = Trim(.LrText(4).Text)
  835.          ReDim intd(intcycle + 1) As Date
  836.          intd(0) = Format(Trim(.LrText(2).Text & ""), "yyyy-mm-dd")
  837.          If Trim(.LrText(0).Text & "") = "" Then
  838.             Str_QueryCondi = " where  MsNumber = '" & Trim(.LrText(5).Tag) & "'"
  839.          Else
  840.             Str_QueryCondi = " where  MNumber = '" & Trim(.LrText(0).Text) & "'"
  841.          End If
  842.          Sqlstr = "SELECT DISTINCT ItemCode,ItemName FROM QC_V_ProGraph_plt " & Str_QueryCondi & " and PurReciptDate>='" & Trim(.LrText(2).Text & "") & "' and PurReciptDate<='" & Trim(.LrText(3).Text & "") & "' Order By ItemName"
  843.     End With
  844.         
  845.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  846.     
  847.     If Not Rec_Query.EOF Then
  848.         With CxbbGrid
  849.             .Clear 1
  850.             .Rows = .FixedRows
  851.             .Cols = Sydz("001", GridStr(), Szzls) + Rec_Query.RecordCount + 1
  852.             For i = Sydz("001", GridStr(), Szzls) + 1 To .Cols - 1
  853.                 If Rec_Query.EOF Then Exit For
  854.                 .TextMatrix(0, i) = IIf(Trim(Rec_Query!ItemName & "") = "", "", Trim(Rec_Query!ItemName))
  855.                 .FixedAlignment(i) = 4
  856.                 .ColFormat(i) = "#,##0." + String(Xtslxsws, "0")
  857.                 .ColAlignment(i) = 6
  858.                 .ColWidth(i) = 1700
  859.                 Rec_Query.MoveNext
  860.             Next i
  861.         End With
  862.         
  863.     Else
  864.         CxbbGrid.Cols = Sydz("003", GridStr(), Szzls) + 1
  865.         Exit Sub
  866.     End If
  867.     
  868.     For i = 1 To intcycle
  869.      
  870.         If Trim(FrmProGraph_PltQuery.Combo1.Text) = "日" Then
  871.             intd(i) = DateAdd("d", i, intd(0))
  872.         ElseIf Trim(FrmProGraph_PltQuery.Combo1.Text) = "周" Then
  873.             intd(i) = DateAdd("ww", i, intd(0))
  874.         Else
  875.             intd(i) = DateAdd("m", i, intd(0))
  876.         End If
  877.         
  878.         CxbbGrid.AddItem ""
  879.         '[>>自定义填充内容
  880.         CxbbGrid.TextMatrix(i, Sydz("001", GridStr(), Szzls)) = Format(intd(i - 1), "yyyy-mm-dd")    '日期
  881.         Sqlstr = "SELECT  ItemCode,ItemName, sum(Quantity) as Quantity FROM QC_V_ProGraph_plt  " & Str_QueryCondi & " and PurReciptDate>='" & intd(i - 1) & "' and PurReciptDate<'" & intd(i) & "' GROUP BY ItemCode,ItemName   Order By ItemName"
  882.         If QueryTemp.State Then QueryTemp.Close
  883.         Set QueryTemp = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  884.         
  885.         For Colint = Sydz("001", GridStr(), Szzls) + 1 To CxbbGrid.Cols - 1
  886.             If Not QueryTemp.EOF Then
  887.                 QueryTemp.MoveFirst
  888.                 QueryTemp.Find "ItemName='" & Trim(CxbbGrid.TextMatrix(0, Colint)) & "'"
  889.                 If Not QueryTemp.EOF Then
  890.                     CxbbGrid.TextMatrix(i, Colint) = Format(Val(QueryTemp.Fields("quantity")), "#,##0." + String(Xtslxsws, "0"))       '数量
  891.                 Else
  892.                     QueryTemp.MoveFirst
  893.                     CxbbGrid.TextMatrix(i, Colint) = Format(Val(0), "#,##0." + String(Xtslxsws, "0"))    '数量
  894.                 End If
  895.             Else
  896.                 CxbbGrid.TextMatrix(i, Colint) = Format(Val(0), "#,##0." + String(Xtslxsws, "0"))    '数量
  897.             End If
  898.             
  899.         Next Colint
  900.         '<<]
  901.         
  902.         '设置数据行高度(Fixed)
  903.         CxbbGrid.RowHeight(Jsqte) = Sjhgd
  904.     Next i
  905.     
  906.     If CxbbGrid.FixedRows = CxbbGrid.Rows Then Exit Sub
  907.     For ii = Sydz("001", GridStr(), Szzls) + 1 To CxbbGrid.Cols - 1
  908.         CxbbGrid.Subtotal flexSTSum, -1, ii, "#,##0." + String(Xtslxsws, "0"), , , , ""
  909.     Next ii
  910.     CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("001", GridStr(), Szzls)) = "合 计"
  911.     CxbbGrid.RowHeight(CxbbGrid.Rows - 1) = Sjhgd
  912.     CxbbGrid.Rows = CxbbGrid.Rows + 1
  913.     Sqlstr = "SELECT  sum(Quantity) as Quantity FROM Qc_ProductCheckMain  where ProductCheckMainID in (SELECT DISTINCT ProductCheckMainID FROM QC_V_ProGraph_plt " & Str_QueryCondi & " and PurReciptDate>='" & intd(0) & "' and PurReciptDate<='" & intd(i - 1) & "')"
  914.     Set Rec_Query = Cw_DataEnvi.DataConnect.Execute(Sqlstr)
  915.     CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, Sydz("001", GridStr(), Szzls)) = "百分比"
  916.     For i = Sydz("001", GridStr(), Szzls) + 1 To CxbbGrid.Cols - 1
  917.         CxbbGrid.TextMatrix(CxbbGrid.Rows - 1, i) = Format((Val(CxbbGrid.ValueMatrix(CxbbGrid.Rows - 2, i)) / Rec_Query!Quantity) * 100, "#,##0." + String(Xtslxsws, "0"))
  918.     Next i
  919.     ']以上为用户自定义部分
  921. End Sub
  924. Private Sub bbyl(bbylte As Boolean)                    '报表打印预览
  925.     
  926.     Dim Bbzbt$, Bbxbt() As String, bbxbtzzxs() As Integer, Bbxbtgs As Integer
  927.     Dim Bbbwh() As String, Bbbwhzzxs() As Integer, Bbbwhgs As Integer
  928.     Bbxbtgs = 3                                          '报 表 小 标 题 行 数
  929.     Bbbwhgs = 0                                          '报 表 表 尾 行 数
  930.     ReDim Bbxbt(1 To Bbxbtgs)
  931.     ReDim bbxbtzzxs(1 To Bbxbtgs)
  932.     If Bbbwhgs <> 0 Then
  933.         ReDim Bbbwh(1 To Bbbwhgs)
  934.         ReDim Bbbwhzzxs(1 To Bbbwhgs)
  935.     End If
  936.     Bbzbt = "成品降等排列图"
  937.     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)
  938.     Bbxbt(2) = Bbxbt(2) + Fun_FormatOutPut("生产日期:  " + Trim(Label3.Caption & ""), 20)
  939.     bbxbtzzxs(1) = 0                                     '报表行组织形式(0-居左 1-居中 2-居右)
  940.     Call Scyxsjb(CxbbGrid)                               '生成报表数据
  941.     Call Scdybb(Dyymctbl, Bbzbt, Bbxbt(), bbxbtzzxs(), Bbxbtgs, Bbbwh(), Bbbwhzzxs(), Bbbwhgs, bbylte)
  942.     If Not bbylte Then
  943.         Unload DY_Tybbyldy
  944.     End If
  946. End Sub