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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 控制台编程 > 查看源码
frmView.frm
资源名称：zidongpeiliao.rar　[点击查看]
上传用户：xianglong
上传日期：2022-06-19
资源大小：1105k
文件大小：69k
源码类别：

控制台编程

开发平台：

Visual Basic

frmView.frm：源码内容
  1. VERSION 5.00
  2. Object = "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCT2.OCX"
  3. Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
  4. Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
  5. Object = "{CDE57A40-8B86-11D0-B3C6-00A0C90AEA82}#1.0#0"; "MSDATGRD.OCX"
  6. Object = "{C8530F8A-C19C-11D2-99D6-9419F37DBB29}#1.1#0"; "ccrpprg6.ocx"
  7. Begin VB.Form frmView 
  8.    Caption         =   "模拟操作"
  9.    ClientHeight    =   9825
  10.    ClientLeft      =   60
  11.    ClientTop       =   420
  12.    ClientWidth     =   15240
  13.    FillColor       =   &H8000000E&
  14.    LinkTopic       =   "Form1"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   9825
  18.    ScaleWidth      =   15240
  19.    StartUpPosition =   2  '屏幕中心
  20.    Begin VB.CommandButton cmdRep 
  21.       Caption         =   "重置"
  22.       Height          =   375
  23.       Left            =   14040
  24.       TabIndex        =   58
  25.       Top             =   120
  26.       Width           =   1095
  27.    End
  28.    Begin VB.Timer Timer10 
  29.       Enabled         =   0   'False
  30.       Interval        =   250
  31.       Left            =   8160
  32.       Top             =   600
  33.    End
  34.    Begin CCRProgressBar6.ccrpProgressBar ccrpProgressBar1 
  35.       Height          =   255
  36.       Left            =   0
  37.       Top             =   1920
  38.       Width           =   3135
  39.       _ExtentX        =   5530
  40.       _ExtentY        =   450
  41.       AutoCaption     =   1
  42.       BorderStyle     =   1
  43.       Caption         =   "0%"
  44.       FillColor       =   255
  45.       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  46.          Name            =   "宋体"
  47.          Size            =   9
  48.          Charset         =   134
  49.          Weight          =   400
  50.          Underline       =   0   'False
  51.          Italic          =   0   'False
  52.          Strikethrough   =   0   'False
  53.       EndProperty
  54.       ForeColor       =   0
  55.       Max             =   25
  56.    End
  57.    Begin VB.Frame Frame4 
  58.       Caption         =   "物料加工列表："
  59.       BeginProperty Font 
  60.          Name            =   "宋体"
  61.          Size            =   9
  62.          Charset         =   134
  63.          Weight          =   700
  64.          Underline       =   0   'False
  65.          Italic          =   0   'False
  66.          Strikethrough   =   0   'False
  67.       EndProperty
  68.       ForeColor       =   &H000000FF&
  69.       Height          =   2415
  70.       Left            =   11520
  71.       TabIndex        =   43
  72.       Top             =   4320
  73.       Width           =   3615
  74.       Begin MSAdodcLib.Adodc Adodc2 
  75.          Height          =   375
  76.          Left            =   960
  77.          Top             =   960
  78.          Visible         =   0   'False
  79.          Width           =   1575
  80.          _ExtentX        =   2778
  81.          _ExtentY        =   661
  82.          ConnectMode     =   0
  83.          CursorLocation  =   3
  84.          IsolationLevel  =   -1
  85.          ConnectionTimeout=   15
  86.          CommandTimeout  =   30
  87.          CursorType      =   3
  88.          LockType        =   3
  89.          CommandType     =   8
  90.          CursorOptions   =   0
  91.          CacheSize       =   50
  92.          MaxRecords      =   0
  93.          BOFAction       =   0
  94.          EOFAction       =   0
  95.          ConnectStringType=   1
  96.          Appearance      =   1
  97.          BackColor       =   -2147483643
  98.          ForeColor       =   -2147483640
  99.          Orientation     =   0
  100.          Enabled         =   -1
  101.          Connect         =   ""
  102.          OLEDBString     =   ""
  103.          OLEDBFile       =   ""
  104.          DataSourceName  =   ""
  105.          OtherAttributes =   ""
  106.          UserName        =   ""
  107.          Password        =   ""
  108.          RecordSource    =   ""
  109.          Caption         =   "Adodc2"
  110.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  111.             Name            =   "宋体"
  112.             Size            =   9
  113.             Charset         =   134
  114.             Weight          =   400
  115.             Underline       =   0   'False
  116.             Italic          =   0   'False
  117.             Strikethrough   =   0   'False
  118.          EndProperty
  119.          _Version        =   393216
  120.       End
  121.       Begin MSDataGridLib.DataGrid DataGrid2 
  122.          Bindings        =   "frmView.frx":0000
  123.          Height          =   2055
  124.          Left            =   120
  125.          TabIndex        =   44
  126.          Top             =   240
  127.          Width           =   3375
  128.          _ExtentX        =   5953
  129.          _ExtentY        =   3625
  130.          _Version        =   393216
  131.          HeadLines       =   1
  132.          RowHeight       =   15
  133.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  134.             Name            =   "宋体"
  135.             Size            =   9
  136.             Charset         =   134
  137.             Weight          =   400
  138.             Underline       =   0   'False
  139.             Italic          =   0   'False
  140.             Strikethrough   =   0   'False
  141.          EndProperty
  142.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  143.             Name            =   "宋体"
  144.             Size            =   9
  145.             Charset         =   134
  146.             Weight          =   400
  147.             Underline       =   0   'False
  148.             Italic          =   0   'False
  149.             Strikethrough   =   0   'False
  150.          EndProperty
  151.          ColumnCount     =   2
  152.          BeginProperty Column00 
  153.             DataField       =   ""
  154.             Caption         =   ""
  155.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  156.                Type            =   0
  157.                Format          =   ""
  158.                HaveTrueFalseNull=   0
  159.                FirstDayOfWeek  =   0
  160.                FirstWeekOfYear =   0
  161.                LCID            =   2052
  162.                SubFormatType   =   0
  163.             EndProperty
  164.          EndProperty
  165.          BeginProperty Column01 
  166.             DataField       =   ""
  167.             Caption         =   ""
  168.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  169.                Type            =   0
  170.                Format          =   ""
  171.                HaveTrueFalseNull=   0
  172.                FirstDayOfWeek  =   0
  173.                FirstWeekOfYear =   0
  174.                LCID            =   2052
  175.                SubFormatType   =   0
  176.             EndProperty
  177.          EndProperty
  178.          SplitCount      =   1
  179.          BeginProperty Split0 
  180.             BeginProperty Column00 
  181.             EndProperty
  182.             BeginProperty Column01 
  183.             EndProperty
  184.          EndProperty
  185.       End
  186.    End
  187.    Begin VB.Frame Frame3 
  188.       Caption         =   "产品信息列表："
  189.       BeginProperty Font 
  190.          Name            =   "宋体"
  191.          Size            =   9
  192.          Charset         =   134
  193.          Weight          =   700
  194.          Underline       =   0   'False
  195.          Italic          =   0   'False
  196.          Strikethrough   =   0   'False
  197.       EndProperty
  198.       ForeColor       =   &H000000FF&
  199.       Height          =   1335
  200.       Left            =   11520
  201.       TabIndex        =   36
  202.       Top             =   2880
  203.       Width           =   3615
  204.       Begin MSAdodcLib.Adodc Adodc1 
  205.          Height          =   330
  206.          Left            =   960
  207.          Top             =   840
  208.          Visible         =   0   'False
  209.          Width           =   1695
  210.          _ExtentX        =   2990
  211.          _ExtentY        =   582
  212.          ConnectMode     =   0
  213.          CursorLocation  =   3
  214.          IsolationLevel  =   -1
  215.          ConnectionTimeout=   15
  216.          CommandTimeout  =   30
  217.          CursorType      =   3
  218.          LockType        =   3
  219.          CommandType     =   8
  220.          CursorOptions   =   0
  221.          CacheSize       =   50
  222.          MaxRecords      =   0
  223.          BOFAction       =   0
  224.          EOFAction       =   0
  225.          ConnectStringType=   1
  226.          Appearance      =   1
  227.          BackColor       =   -2147483643
  228.          ForeColor       =   -2147483640
  229.          Orientation     =   0
  230.          Enabled         =   -1
  231.          Connect         =   ""
  232.          OLEDBString     =   ""
  233.          OLEDBFile       =   ""
  234.          DataSourceName  =   ""
  235.          OtherAttributes =   ""
  236.          UserName        =   ""
  237.          Password        =   ""
  238.          RecordSource    =   ""
  239.          Caption         =   "Adodc1"
  240.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  241.             Name            =   "宋体"
  242.             Size            =   9
  243.             Charset         =   134
  244.             Weight          =   400
  245.             Underline       =   0   'False
  246.             Italic          =   0   'False
  247.             Strikethrough   =   0   'False
  248.          EndProperty
  249.          _Version        =   393216
  250.       End
  251.       Begin MSDataGridLib.DataGrid DataGrid1 
  252.          Height          =   975
  253.          Left            =   120
  254.          TabIndex        =   37
  255.          Top             =   240
  256.          Width           =   3375
  257.          _ExtentX        =   5953
  258.          _ExtentY        =   1720
  259.          _Version        =   393216
  260.          HeadLines       =   1
  261.          RowHeight       =   15
  262.          BeginProperty HeadFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  263.             Name            =   "宋体"
  264.             Size            =   9
  265.             Charset         =   134
  266.             Weight          =   400
  267.             Underline       =   0   'False
  268.             Italic          =   0   'False
  269.             Strikethrough   =   0   'False
  270.          EndProperty
  271.          BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
  272.             Name            =   "宋体"
  273.             Size            =   9
  274.             Charset         =   134
  275.             Weight          =   400
  276.             Underline       =   0   'False
  277.             Italic          =   0   'False
  278.             Strikethrough   =   0   'False
  279.          EndProperty
  280.          ColumnCount     =   2
  281.          BeginProperty Column00 
  282.             DataField       =   ""
  283.             Caption         =   ""
  284.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  285.                Type            =   0
  286.                Format          =   ""
  287.                HaveTrueFalseNull=   0
  288.                FirstDayOfWeek  =   0
  289.                FirstWeekOfYear =   0
  290.                LCID            =   2052
  291.                SubFormatType   =   0
  292.             EndProperty
  293.          EndProperty
  294.          BeginProperty Column01 
  295.             DataField       =   ""
  296.             Caption         =   ""
  297.             BeginProperty DataFormat {6D835690-900B-11D0-9484-00A0C91110ED} 
  298.                Type            =   0
  299.                Format          =   ""
  300.                HaveTrueFalseNull=   0
  301.                FirstDayOfWeek  =   0
  302.                FirstWeekOfYear =   0
  303.                LCID            =   2052
  304.                SubFormatType   =   0
  305.             EndProperty
  306.          EndProperty
  307.          SplitCount      =   1
  308.          BeginProperty Split0 
  309.             BeginProperty Column00 
  310.             EndProperty
  311.             BeginProperty Column01 
  312.             EndProperty
  313.          EndProperty
  314.       End
  315.    End
  316.    Begin VB.Frame Frame2 
  317.       Caption         =   "请选择要生产的产品及产量："
  318.       BeginProperty Font 
  319.          Name            =   "宋体"
  320.          Size            =   9
  321.          Charset         =   134
  322.          Weight          =   700
  323.          Underline       =   0   'False
  324.          Italic          =   0   'False
  325.          Strikethrough   =   0   'False
  326.       EndProperty
  327.       ForeColor       =   &H000000FF&
  328.       Height          =   2055
  329.       Left            =   11520
  330.       TabIndex        =   29
  331.       Top             =   720
  332.       Width           =   3615
  333.       Begin MSComCtl2.MonthView MonthView 
  334.          Height          =   2220
  335.          Left            =   0
  336.          TabIndex        =   42
  337.          Top             =   1920
  338.          Visible         =   0   'False
  339.          Width           =   4065
  340.          _ExtentX        =   7170
  341.          _ExtentY        =   3916
  342.          _Version        =   393216
  343.          ForeColor       =   -2147483630
  344.          BackColor       =   -2147483633
  345.          Appearance      =   1
  346.          StartOfWeek     =   25493505
  347.          CurrentDate     =   39216
  348.       End
  349.       Begin VB.CommandButton cmd 
  350.          Appearance      =   0  'Flat
  351.          Height          =   615
  352.          Left            =   2880
  353.          Picture         =   "frmView.frx":0015
  354.          Style           =   1  'Graphical
  355.          TabIndex        =   41
  356.          Top             =   960
  357.          Width           =   615
  358.       End
  359.       Begin VB.TextBox Text3 
  360.          BeginProperty DataFormat 
  361.             Type            =   1
  362.             Format          =   "yyyy-M-d"
  363.             HaveTrueFalseNull=   0
  364.             FirstDayOfWeek  =   0
  365.             FirstWeekOfYear =   0
  366.             LCID            =   2052
  367.             SubFormatType   =   3
  368.          EndProperty
  369.          Height          =   270
  370.          Left            =   1440
  371.          TabIndex        =   40
  372.          Top             =   1080
  373.          Visible         =   0   'False
  374.          Width           =   1335
  375.       End
  376.       Begin VB.ComboBox cmbMID 
  377.          BeginProperty Font 
  378.             Name            =   "宋体"
  379.             Size            =   9
  380.             Charset         =   134
  381.             Weight          =   700
  382.             Underline       =   0   'False
  383.             Italic          =   0   'False
  384.             Strikethrough   =   0   'False
  385.          EndProperty
  386.          ForeColor       =   &H000000FF&
  387.          Height          =   300
  388.          Left            =   240
  389.          Style           =   2  'Dropdown List
  390.          TabIndex        =   38
  391.          Top             =   720
  392.          Width           =   1095
  393.       End
  394.       Begin VB.CommandButton cmdQuit 
  395.          Caption         =   "取消"
  396.          Height          =   375
  397.          Left            =   1920
  398.          TabIndex        =   35
  399.          Top             =   1440
  400.          Width           =   855
  401.       End
  402.       Begin VB.CommandButton cmdGive 
  403.          Caption         =   "提交"
  404.          Height          =   375
  405.          Left            =   840
  406.          TabIndex        =   34
  407.          Top             =   1440
  408.          Width           =   975
  409.       End
  410.       Begin VB.TextBox Text2 
  411.          ForeColor       =   &H000000FF&
  412.          Height          =   270
  413.          Left            =   1440
  414.          TabIndex        =   31
  415.          Top             =   720
  416.          Width           =   975
  417.       End
  418.       Begin VB.ComboBox cmbPro 
  419.          ForeColor       =   &H00FF0000&
  420.          Height          =   300
  421.          Left            =   1440
  422.          Style           =   2  'Dropdown List
  423.          TabIndex        =   30
  424.          Top             =   360
  425.          Width           =   1935
  426.       End
  427.       Begin VB.Label Label14 
  428.          Caption         =   "日    期："
  429.          BeginProperty Font 
  430.             Name            =   "宋体"
  431.             Size            =   9
  432.             Charset         =   134
  433.             Weight          =   700
  434.             Underline       =   0   'False
  435.             Italic          =   0   'False
  436.             Strikethrough   =   0   'False
  437.          EndProperty
  438.          ForeColor       =   &H000000FF&
  439.          Height          =   255
  440.          Left            =   240
  441.          TabIndex        =   39
  442.          Top             =   1080
  443.          Width           =   1095
  444.       End
  445.       Begin VB.Label Label15 
  446.          Caption         =   "(要求数字)"
  447.          BeginProperty Font 
  448.             Name            =   "宋体"
  449.             Size            =   9
  450.             Charset         =   134
  451.             Weight          =   700
  452.             Underline       =   0   'False
  453.             Italic          =   0   'False
  454.             Strikethrough   =   0   'False
  455.          EndProperty
  456.          ForeColor       =   &H000000FF&
  457.          Height          =   255
  458.          Left            =   2400
  459.          TabIndex        =   33
  460.          Top             =   720
  461.          Width           =   1095
  462.       End
  463.       Begin VB.Label Label13 
  464.          Caption         =   "产 品 名："
  465.          BeginProperty Font 
  466.             Name            =   "宋体"
  467.             Size            =   9
  468.             Charset         =   134
  469.             Weight          =   700
  470.             Underline       =   0   'False
  471.             Italic          =   0   'False
  472.             Strikethrough   =   0   'False
  473.          EndProperty
  474.          ForeColor       =   &H000000FF&
  475.          Height          =   255
  476.          Left            =   240
  477.          TabIndex        =   32
  478.          Top             =   360
  479.          Width           =   1095
  480.       End
  481.    End
  482.    Begin VB.CommandButton cmdOver 
  483.       Caption         =   "暂停"
  484.       Height          =   375
  485.       Left            =   12840
  486.       TabIndex        =   28
  487.       Top             =   120
  488.       Width           =   1095
  489.    End
  490.    Begin VB.Timer Timer9 
  491.       Enabled         =   0   'False
  492.       Interval        =   250
  493.       Left            =   2520
  494.       Top             =   9000
  495.    End
  496.    Begin VB.Timer Timer8 
  497.       Enabled         =   0   'False
  498.       Interval        =   250
  499.       Left            =   3120
  500.       Top             =   9000
  501.    End
  502.    Begin VB.Frame Frame1 
  503.       Caption         =   "部分工作模块的代码显示："
  504.       BeginProperty Font 
  505.          Name            =   "宋体"
  506.          Size            =   9
  507.          Charset         =   134
  508.          Weight          =   700
  509.          Underline       =   0   'False
  510.          Italic          =   0   'False
  511.          Strikethrough   =   0   'False
  512.       EndProperty
  513.       ForeColor       =   &H000000FF&
  514.       Height          =   2655
  515.       Left            =   11520
  516.       TabIndex        =   24
  517.       Top             =   6840
  518.       Width           =   3615
  519.       Begin VB.TextBox Text1 
  520.          Height          =   2295
  521.          Left            =   120
  522.          MultiLine       =   -1  'True
  523.          ScrollBars      =   3  'Both
  524.          TabIndex        =   25
  525.          Top             =   240
  526.          Width           =   3375
  527.       End
  528.    End
  529.    Begin VB.CommandButton SQ2 
  530.       Caption         =   "SQ2(OFF)"
  531.       Height          =   375
  532.       Left            =   5880
  533.       TabIndex        =   13
  534.       Top             =   9120
  535.       Width           =   855
  536.    End
  537.    Begin VB.CommandButton SQ1 
  538.       Caption         =   "SQ1(OFF)"
  539.       Height          =   375
  540.       Left            =   4680
  541.       TabIndex        =   12
  542.       Top             =   9120
  543.       Width           =   855
  544.    End
  545.    Begin VB.Timer Timer7 
  546.       Enabled         =   0   'False
  547.       Interval        =   250
  548.       Left            =   3120
  549.       Top             =   8400
  550.    End
  551.    Begin VB.Timer Timer6 
  552.       Enabled         =   0   'False
  553.       Interval        =   250
  554.       Left            =   2520
  555.       Top             =   8400
  556.    End
  557.    Begin VB.Timer Timer5 
  558.       Enabled         =   0   'False
  559.       Interval        =   250
  560.       Left            =   3120
  561.       Top             =   7800
  562.    End
  563.    Begin VB.Timer Timer4 
  564.       Enabled         =   0   'False
  565.       Interval        =   250
  566.       Left            =   2520
  567.       Top             =   7800
  568.    End
  569.    Begin VB.Timer Timer3 
  570.       Enabled         =   0   'False
  571.       Interval        =   250
  572.       Left            =   2520
  573.       Top             =   7200
  574.    End
  575.    Begin VB.Timer Timer1 
  576.       Enabled         =   0   'False
  577.       Interval        =   100
  578.       Left            =   6120
  579.       Top             =   2520
  580.    End
  581.    Begin VB.CommandButton cmdStart 
  582.       Caption         =   "启动(SB1)"
  583.       Height          =   375
  584.       Left            =   11640
  585.       TabIndex        =   1
  586.       Top             =   120
  587.       Width           =   1095
  588.    End
  589.    Begin VB.Timer Timer2 
  590.       Enabled         =   0   'False
  591.       Interval        =   250
  592.       Left            =   5520
  593.       Top             =   2520
  594.    End
  595.    Begin VB.PictureBox picCar 
  596.       Appearance      =   0  'Flat
  597.       AutoRedraw      =   -1  'True
  598.       AutoSize        =   -1  'True
  599.       BackColor       =   &H80000005&
  600.       DrawStyle       =   5  'Transparent
  601.       ForeColor       =   &H80000008&
  602.       Height          =   840
  603.       Left            =   9960
  604.       Picture         =   "frmView.frx":08DF
  605.       ScaleHeight     =   810
  606.       ScaleWidth      =   1410
  607.       TabIndex        =   0
  608.       Top             =   8040
  609.       Width           =   1440
  610.    End
  611.    Begin MSComctlLib.StatusBar sbStatusBar 
  612.       Align           =   2  'Align Bottom
  613.       Height          =   270
  614.       Left            =   0
  615.       TabIndex        =   2
  616.       Top             =   9555
  617.       Width           =   15240
  618.       _ExtentX        =   26882
  619.       _ExtentY        =   476
  620.       _Version        =   393216
  621.       BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
  622.          NumPanels       =   3
  623.          BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  624.             AutoSize        =   1
  625.             Object.Width           =   20902
  626.             Text            =   "自动配料系统简单的演示"
  627.             TextSave        =   "自动配料系统简单的演示"
  628.          EndProperty
  629.          BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  630.             Style           =   6
  631.             AutoSize        =   2
  632.             TextSave        =   "2007-6-4"
  633.          EndProperty
  634.          BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
  635.             Style           =   5
  636.             AutoSize        =   2
  637.             Object.Width           =   2858
  638.             TextSave        =   "☆崔兆阳☆ 15:06"
  639.          EndProperty
  640.       EndProperty
  641.    End
  642.    Begin VB.Line Line86 
  643.       BorderColor     =   &H000000FF&
  644.       X1              =   10440
  645.       X2              =   11160
  646.       Y1              =   3600
  647.       Y2              =   3120
  648.    End
  649.    Begin VB.Line Line85 
  650.       BorderColor     =   &H000000FF&
  651.       X1              =   10800
  652.       X2              =   11160
  653.       Y1              =   3600
  654.       Y2              =   3120
  655.    End
  656.    Begin VB.Line Line84 
  657.       BorderColor     =   &H000000FF&
  658.       X1              =   10440
  659.       X2              =   9600
  660.       Y1              =   3600
  661.       Y2              =   3600
  662.    End
  663.    Begin VB.Line Line83 
  664.       BorderColor     =   &H000000FF&
  665.       X1              =   9600
  666.       X2              =   9600
  667.       Y1              =   3600
  668.       Y2              =   4560
  669.    End
  670.    Begin VB.Line Line82 
  671.       BorderColor     =   &H000000FF&
  672.       X1              =   11280
  673.       X2              =   11280
  674.       Y1              =   3600
  675.       Y2              =   4560
  676.    End
  677.    Begin VB.Line Line81 
  678.       BorderColor     =   &H000000FF&
  679.       X1              =   9600
  680.       X2              =   11280
  681.       Y1              =   4560
  682.       Y2              =   4560
  683.    End
  684.    Begin VB.Line Line80 
  685.       BorderColor     =   &H000000FF&
  686.       X1              =   10800
  687.       X2              =   11280
  688.       Y1              =   3600
  689.       Y2              =   3600
  690.    End
  691.    Begin VB.Label Label27 
  692.       Caption         =   "☆根据产品名选☆☆则来查看相关☆☆信息以便于提☆☆交物料的信息☆"
  693.       ForeColor       =   &H000000FF&
  694.       Height          =   735
  695.       Left            =   9720
  696.       TabIndex        =   57
  697.       Top             =   3720
  698.       Width           =   1455
  699.    End
  700.    Begin VB.Line Line79 
  701.       BorderColor     =   &H000000FF&
  702.       X1              =   8880
  703.       X2              =   8160
  704.       Y1              =   6480
  705.       Y2              =   6960
  706.    End
  707.    Begin VB.Line Line78 
  708.       BorderColor     =   &H000000FF&
  709.       X1              =   8520
  710.       X2              =   8160
  711.       Y1              =   6480
  712.       Y2              =   6960
  713.    End
  714.    Begin VB.Line Line77 
  715.       BorderColor     =   &H000000FF&
  716.       X1              =   9720
  717.       X2              =   9720
  718.       Y1              =   5640
  719.       Y2              =   6480
  720.    End
  721.    Begin VB.Line Line76 
  722.       BorderColor     =   &H000000FF&
  723.       X1              =   8040
  724.       X2              =   8040
  725.       Y1              =   6480
  726.       Y2              =   5640
  727.    End
  728.    Begin VB.Line Line75 
  729.       BorderColor     =   &H000000FF&
  730.       X1              =   8040
  731.       X2              =   9720
  732.       Y1              =   5640
  733.       Y2              =   5640
  734.    End
  735.    Begin VB.Line Line74 
  736.       BorderColor     =   &H000000FF&
  737.       X1              =   8040
  738.       X2              =   8520
  739.       Y1              =   6480
  740.       Y2              =   6480
  741.    End
  742.    Begin VB.Line Line73 
  743.       BorderColor     =   &H000000FF&
  744.       X1              =   8880
  745.       X2              =   9720
  746.       Y1              =   6480
  747.       Y2              =   6480
  748.    End
  749.    Begin VB.Label Label26 
  750.       Caption         =   "☆电动机M3把物☆☆料传给电动机☆☆M4灯M4亮    ☆"
  751.       ForeColor       =   &H000000FF&
  752.       Height          =   615
  753.       Left            =   8160
  754.       TabIndex        =   56
  755.       Top             =   5760
  756.       Width           =   1455
  757.    End
  758.    Begin VB.Line Line72 
  759.       BorderColor     =   &H000000FF&
  760.       X1              =   6720
  761.       X2              =   6000
  762.       Y1              =   5640
  763.       Y2              =   6120
  764.    End
  765.    Begin VB.Line Line71 
  766.       BorderColor     =   &H000000FF&
  767.       X1              =   6360
  768.       X2              =   6000
  769.       Y1              =   5640
  770.       Y2              =   6120
  771.    End
  772.    Begin VB.Line Line70 
  773.       BorderColor     =   &H000000FF&
  774.       X1              =   5880
  775.       X2              =   6360
  776.       Y1              =   5640
  777.       Y2              =   5640
  778.    End
  779.    Begin VB.Line Line69 
  780.       BorderColor     =   &H000000FF&
  781.       X1              =   6720
  782.       X2              =   7560
  783.       Y1              =   5640
  784.       Y2              =   5640
  785.    End
  786.    Begin VB.Line Line68 
  787.       BorderColor     =   &H000000FF&
  788.       X1              =   7560
  789.       X2              =   7560
  790.       Y1              =   5640
  791.       Y2              =   4800
  792.    End
  793.    Begin VB.Line Line67 
  794.       BorderColor     =   &H000000FF&
  795.       X1              =   5880
  796.       X2              =   5880
  797.       Y1              =   5640
  798.       Y2              =   4800
  799.    End
  800.    Begin VB.Line Line66 
  801.       BorderColor     =   &H000000FF&
  802.       X1              =   5880
  803.       X2              =   7560
  804.       Y1              =   4800
  805.       Y2              =   4800
  806.    End
  807.    Begin VB.Label Label25 
  808.       Caption         =   "☆电动机M2把物☆☆料传给电动机☆☆M3灯M3亮    ☆"
  809.       ForeColor       =   &H000000FF&
  810.       Height          =   615
  811.       Left            =   6000
  812.       TabIndex        =   55
  813.       Top             =   4920
  814.       Width           =   1455
  815.    End
  816.    Begin VB.Line Line65 
  817.       BorderColor     =   &H000000FF&
  818.       X1              =   4920
  819.       X2              =   4080
  820.       Y1              =   4680
  821.       Y2              =   5160
  822.    End
  823.    Begin VB.Line Line64 
  824.       BorderColor     =   &H000000FF&
  825.       X1              =   4560
  826.       X2              =   4080
  827.       Y1              =   4680
  828.       Y2              =   5160
  829.    End
  830.    Begin VB.Line Line63 
  831.       BorderColor     =   &H000000FF&
  832.       X1              =   4920
  833.       X2              =   5640
  834.       Y1              =   4680
  835.       Y2              =   4680
  836.    End
  837.    Begin VB.Line Line62 
  838.       BorderColor     =   &H000000FF&
  839.       X1              =   3960
  840.       X2              =   4560
  841.       Y1              =   4680
  842.       Y2              =   4680
  843.    End
  844.    Begin VB.Line Line61 
  845.       BorderColor     =   &H000000FF&
  846.       X1              =   3960
  847.       X2              =   3960
  848.       Y1              =   4680
  849.       Y2              =   3840
  850.    End
  851.    Begin VB.Line Line60 
  852.       BorderColor     =   &H000000FF&
  853.       X1              =   5640
  854.       X2              =   5640
  855.       Y1              =   4680
  856.       Y2              =   3840
  857.    End
  858.    Begin VB.Line Line59 
  859.       BorderColor     =   &H000000FF&
  860.       X1              =   3960
  861.       X2              =   5640
  862.       Y1              =   3840
  863.       Y2              =   3840
  864.    End
  865.    Begin VB.Label Label24 
  866.       Caption         =   "☆电动机M1把物☆☆料传给电动机☆☆M2灯M2亮    ☆"
  867.       ForeColor       =   &H000000FF&
  868.       Height          =   615
  869.       Left            =   4080
  870.       TabIndex        =   54
  871.       Top             =   3960
  872.       Width           =   1455
  873.    End
  874.    Begin VB.Line Line58 
  875.       BorderColor     =   &H000000FF&
  876.       X1              =   840
  877.       X2              =   1680
  878.       Y1              =   5280
  879.       Y2              =   4800
  880.    End
  881.    Begin VB.Line Line57 
  882.       BorderColor     =   &H000000FF&
  883.       X1              =   1200
  884.       X2              =   1680
  885.       Y1              =   5280
  886.       Y2              =   4800
  887.    End
  888.    Begin VB.Line Line56 
  889.       BorderColor     =   &H000000FF&
  890.       X1              =   840
  891.       X2              =   120
  892.       Y1              =   5280
  893.       Y2              =   5280
  894.    End
  895.    Begin VB.Line Line55 
  896.       BorderColor     =   &H000000FF&
  897.       X1              =   1200
  898.       X2              =   1800
  899.       Y1              =   5280
  900.       Y2              =   5280
  901.    End
  902.    Begin VB.Line Line54 
  903.       BorderColor     =   &H000000FF&
  904.       X1              =   1800
  905.       X2              =   1800
  906.       Y1              =   5280
  907.       Y2              =   6120
  908.    End
  909.    Begin VB.Line Line53 
  910.       BorderColor     =   &H000000FF&
  911.       X1              =   1800
  912.       X2              =   120
  913.       Y1              =   6120
  914.       Y2              =   6120
  915.    End
  916.    Begin VB.Line Line52 
  917.       BorderColor     =   &H000000FF&
  918.       X1              =   120
  919.       X2              =   120
  920.       Y1              =   5280
  921.       Y2              =   6120
  922.    End
  923.    Begin VB.Label Label23 
  924.       Caption         =   "☆物料到达电动☆☆机后电动机传☆☆料M1灯亮    ☆"
  925.       ForeColor       =   &H000000FF&
  926.       Height          =   615
  927.       Left            =   240
  928.       TabIndex        =   53
  929.       Top             =   5400
  930.       Width           =   1455
  931.    End
  932.    Begin VB.Line Line51 
  933.       BorderColor     =   &H000000FF&
  934.       X1              =   1560
  935.       X2              =   2280
  936.       Y1              =   2640
  937.       Y2              =   3120
  938.    End
  939.    Begin VB.Line Line50 
  940.       BorderColor     =   &H000000FF&
  941.       X1              =   1560
  942.       X2              =   1920
  943.       Y1              =   2640
  944.       Y2              =   3120
  945.    End
  946.    Begin VB.Line Line49 
  947.       BorderColor     =   &H000000FF&
  948.       X1              =   1440
  949.       X2              =   1920
  950.       Y1              =   3120
  951.       Y2              =   3120
  952.    End
  953.    Begin VB.Line Line48 
  954.       BorderColor     =   &H000000FF&
  955.       X1              =   2280
  956.       X2              =   3120
  957.       Y1              =   3120
  958.       Y2              =   3120
  959.    End
  960.    Begin VB.Line Line47 
  961.       BorderColor     =   &H000000FF&
  962.       X1              =   1440
  963.       X2              =   1440
  964.       Y1              =   3120
  965.       Y2              =   3960
  966.    End
  967.    Begin VB.Line Line46 
  968.       BorderColor     =   &H000000FF&
  969.       X1              =   3120
  970.       X2              =   3120
  971.       Y1              =   3120
  972.       Y2              =   3960
  973.    End
  974.    Begin VB.Line Line45 
  975.       BorderColor     =   &H000000FF&
  976.       X1              =   1440
  977.       X2              =   3120
  978.       Y1              =   3960
  979.       Y2              =   3960
  980.    End
  981.    Begin VB.Label Label22 
  982.       Caption         =   "☆物料配完后打☆☆开阀门出料D2☆☆灯亮        ☆"
  983.       ForeColor       =   &H000000FF&
  984.       Height          =   615
  985.       Left            =   1560
  986.       TabIndex        =   52
  987.       Top             =   3240
  988.       Width           =   1455
  989.    End
  990.    Begin VB.Line Line44 
  991.       BorderColor     =   &H000000FF&
  992.       X1              =   4200
  993.       X2              =   3480
  994.       Y1              =   1920
  995.       Y2              =   1440
  996.    End
  997.    Begin VB.Line Line43 
  998.       BorderColor     =   &H000000FF&
  999.       X1              =   3840
  1000.       X2              =   3480
  1001.       Y1              =   1920
  1002.       Y2              =   1440
  1003.    End
  1004.    Begin VB.Line Line42 
  1005.       BorderColor     =   &H000000FF&
  1006.       X1              =   4200
  1007.       X2              =   4920
  1008.       Y1              =   1920
  1009.       Y2              =   1920
  1010.    End
  1011.    Begin VB.Line Line41 
  1012.       BorderColor     =   &H000000FF&
  1013.       X1              =   3240
  1014.       X2              =   3840
  1015.       Y1              =   1920
  1016.       Y2              =   1920
  1017.    End
  1018.    Begin VB.Line Line40 
  1019.       BorderColor     =   &H000000FF&
  1020.       X1              =   3240
  1021.       X2              =   3240
  1022.       Y1              =   1920
  1023.       Y2              =   2880
  1024.    End
  1025.    Begin VB.Line Line39 
  1026.       BorderColor     =   &H000000FF&
  1027.       X1              =   4920
  1028.       X2              =   4920
  1029.       Y1              =   1920
  1030.       Y2              =   2880
  1031.    End
  1032.    Begin VB.Line Line38 
  1033.       BorderColor     =   &H000000FF&
  1034.       X1              =   3240
  1035.       X2              =   4920
  1036.       Y1              =   2880
  1037.       Y2              =   2880
  1038.    End
  1039.    Begin VB.Label Label21 
  1040.       Caption         =   "☆物料进入容器☆☆当物料填满后☆☆容器配料D3灯☆☆亮并显示进度☆"
  1041.       ForeColor       =   &H000000FF&
  1042.       Height          =   735
  1043.       Left            =   3360
  1044.       TabIndex        =   51
  1045.       Top             =   2040
  1046.       Width           =   1455
  1047.    End
  1048.    Begin VB.Line Line37 
  1049.       BorderColor     =   &H000000FF&
  1050.       X1              =   6960
  1051.       X2              =   6240
  1052.       Y1              =   1080
  1053.       Y2              =   600
  1054.    End
  1055.    Begin VB.Line Line36 
  1056.       BorderColor     =   &H000000FF&
  1057.       X1              =   6240
  1058.       X2              =   6600
  1059.       Y1              =   600
  1060.       Y2              =   1080
  1061.    End
  1062.    Begin VB.Line Line35 
  1063.       BorderColor     =   &H000000FF&
  1064.       X1              =   6000
  1065.       X2              =   6600
  1066.       Y1              =   1080
  1067.       Y2              =   1080
  1068.    End
  1069.    Begin VB.Line Line34 
  1070.       BorderColor     =   &H000000FF&
  1071.       X1              =   7680
  1072.       X2              =   7680
  1073.       Y1              =   1080
  1074.       Y2              =   2040
  1075.    End
  1076.    Begin VB.Line Line33 
  1077.       BorderColor     =   &H000000FF&
  1078.       X1              =   6000
  1079.       X2              =   6000
  1080.       Y1              =   1080
  1081.       Y2              =   2040
  1082.    End
  1083.    Begin VB.Line Line32 
  1084.       BorderColor     =   &H000000FF&
  1085.       X1              =   6000
  1086.       X2              =   7680
  1087.       Y1              =   2040
  1088.       Y2              =   2040
  1089.    End
  1090.    Begin VB.Line Line31 
  1091.       BorderColor     =   &H000000FF&
  1092.       X1              =   6960
  1093.       X2              =   7680
  1094.       Y1              =   1080
  1095.       Y2              =   1080
  1096.    End
  1097.    Begin VB.Label Label20 
  1098.       Caption         =   "☆根据系统操作☆☆员提供的数据☆☆物料进料D4灯☆☆亮直到容器满☆"
  1099.       ForeColor       =   &H000000FF&
  1100.       Height          =   735
  1101.       Left            =   6120
  1102.       TabIndex        =   50
  1103.       Top             =   1200
  1104.       Width           =   1455
  1105.    End
  1106.    Begin VB.Line Line30 
  1107.       BorderColor     =   &H000000FF&
  1108.       X1              =   10680
  1109.       X2              =   11160
  1110.       Y1              =   1440
  1111.       Y2              =   960
  1112.    End
  1113.    Begin VB.Line Line29 
  1114.       BorderColor     =   &H000000FF&
  1115.       X1              =   10320
  1116.       X2              =   11160
  1117.       Y1              =   1440
  1118.       Y2              =   960
  1119.    End
  1120.    Begin VB.Line Line28 
  1121.       BorderColor     =   &H000000FF&
  1122.       X1              =   11280
  1123.       X2              =   10680
  1124.       Y1              =   1440
  1125.       Y2              =   1440
  1126.    End
  1127.    Begin VB.Line Line27 
  1128.       BorderColor     =   &H000000FF&
  1129.       X1              =   11280
  1130.       X2              =   11280
  1131.       Y1              =   1440
  1132.       Y2              =   2400
  1133.    End
  1134.    Begin VB.Line Line26 
  1135.       BorderColor     =   &H000000FF&
  1136.       X1              =   9600
  1137.       X2              =   9600
  1138.       Y1              =   1440
  1139.       Y2              =   2400
  1140.    End
  1141.    Begin VB.Line Line25 
  1142.       BorderColor     =   &H000000FF&
  1143.       X1              =   9600
  1144.       X2              =   11280
  1145.       Y1              =   2400
  1146.       Y2              =   2400
  1147.    End
  1148.    Begin VB.Line Line24 
  1149.       BorderColor     =   &H000000FF&
  1150.       X1              =   9600
  1151.       X2              =   10320
  1152.       Y1              =   1440
  1153.       Y2              =   1440
  1154.    End
  1155.    Begin VB.Label Label19 
  1156.       Caption         =   "☆小车进入装料☆☆位置系统操作☆☆员选择要生产☆☆的产品和原料☆"
  1157.       ForeColor       =   &H000000FF&
  1158.       Height          =   735
  1159.       Left            =   9720
  1160.       TabIndex        =   49
  1161.       Top             =   1560
  1162.       Width           =   1455
  1163.    End
  1164.    Begin VB.Label Label18 
  1165.       Caption         =   "☆小车装满后离☆☆开位置SQ2-ON☆☆同时 D1灯 亮☆"
  1166.       ForeColor       =   &H000000FF&
  1167.       Height          =   615
  1168.       Left            =   9240
  1169.       TabIndex        =   48
  1170.       Top             =   6960
  1171.       Width           =   1455
  1172.    End
  1173.    Begin VB.Line Line23 
  1174.       BorderColor     =   &H000000FF&
  1175.       X1              =   9960
  1176.       X2              =   9120
  1177.       Y1              =   7680
  1178.       Y2              =   8040
  1179.    End
  1180.    Begin VB.Line Line22 
  1181.       BorderColor     =   &H000000FF&
  1182.       X1              =   9600
  1183.       X2              =   9120
  1184.       Y1              =   7680
  1185.       Y2              =   8040
  1186.    End
  1187.    Begin VB.Line Line21 
  1188.       BorderColor     =   &H000000FF&
  1189.       X1              =   9120
  1190.       X2              =   9600
  1191.       Y1              =   7680
  1192.       Y2              =   7680
  1193.    End
  1194.    Begin VB.Line Line20 
  1195.       BorderColor     =   &H000000FF&
  1196.       X1              =   9120
  1197.       X2              =   9120
  1198.       Y1              =   6840
  1199.       Y2              =   7680
  1200.    End
  1201.    Begin VB.Line Line19 
  1202.       BorderColor     =   &H000000FF&
  1203.       X1              =   10800
  1204.       X2              =   10800
  1205.       Y1              =   6840
  1206.       Y2              =   7680
  1207.    End
  1208.    Begin VB.Line Line7 
  1209.       BorderColor     =   &H000000FF&
  1210.       X1              =   9960
  1211.       X2              =   10800
  1212.       Y1              =   7680
  1213.       Y2              =   7680
  1214.    End
  1215.    Begin VB.Line Line6 
  1216.       BorderColor     =   &H000000FF&
  1217.       X1              =   9120
  1218.       X2              =   10800
  1219.       Y1              =   6840
  1220.       Y2              =   6840
  1221.    End
  1222.    Begin VB.Label Label17 
  1223.       Caption         =   "☆系统启动后小☆☆车开进位置进☆☆行装料SQ1-ON☆"
  1224.       ForeColor       =   &H000000FF&
  1225.       Height          =   615
  1226.       Left            =   9240
  1227.       TabIndex        =   47
  1228.       Top             =   6960
  1229.       Width           =   1455
  1230.    End
  1231.    Begin VB.Label Label4 
  1232.       Caption         =   "传感器-->"
  1233.       ForeColor       =   &H000000FF&
  1234.       Height          =   255
  1235.       Left            =   7080
  1236.       TabIndex        =   46
  1237.       Top             =   8880
  1238.       Width           =   855
  1239.    End
  1240.    Begin VB.Label Label16 
  1241.       Caption         =   "<--容器配料进度显示"
  1242.       ForeColor       =   &H000000FF&
  1243.       Height          =   255
  1244.       Left            =   3120
  1245.       TabIndex        =   45
  1246.       Top             =   1920
  1247.       Width           =   1815
  1248.    End
  1249.    Begin VB.Label Label12 
  1250.       Caption         =   "代表系统运行态"
  1251.       ForeColor       =   &H0000FFFF&
  1252.       Height          =   255
  1253.       Left            =   840
  1254.       TabIndex        =   27
  1255.       Top             =   6960
  1256.       Width           =   1335
  1257.    End
  1258.    Begin VB.Label Label11 
  1259.       BackColor       =   &H0000FFFF&
  1260.       Caption         =   "黄色"
  1261.       Height          =   375
  1262.       Left            =   240
  1263.       TabIndex        =   26
  1264.       Top             =   6840
  1265.       Width           =   375
  1266.    End
  1267.    Begin VB.Label Label10 
  1268.       Caption         =   "额外要求"
  1269.       ForeColor       =   &H0000FF00&
  1270.       Height          =   255
  1271.       Left            =   720
  1272.       TabIndex        =   23
  1273.       Top             =   9120
  1274.       Width           =   1455
  1275.    End
  1276.    Begin VB.Label Label9 
  1277.       BackColor       =   &H0000C000&
  1278.       Caption         =   "绿色"
  1279.       Height          =   375
  1280.       Left            =   240
  1281.       TabIndex        =   22
  1282.       Top             =   9000
  1283.       Width           =   375
  1284.    End
  1285.    Begin VB.Label Label8 
  1286.       Caption         =   "代表系统的终态"
  1287.       ForeColor       =   &H000000FF&
  1288.       Height          =   255
  1289.       Left            =   720
  1290.       TabIndex        =   21
  1291.       Top             =   8400
  1292.       Width           =   1455
  1293.    End
  1294.    Begin VB.Label Label7 
  1295.       BackColor       =   &H000000FF&
  1296.       Caption         =   "红色"
  1297.       Height          =   375
  1298.       Left            =   240
  1299.       TabIndex        =   20
  1300.       Top             =   8280
  1301.       Width           =   375
  1302.    End
  1303.    Begin VB.Label Label6 
  1304.       Caption         =   "代表系统初始状态"
  1305.       ForeColor       =   &H000080FF&
  1306.       Height          =   255
  1307.       Left            =   720
  1308.       TabIndex        =   19
  1309.       Top             =   7680
  1310.       Width           =   1455
  1311.    End
  1312.    Begin VB.Label Label5 
  1313.       BackColor       =   &H000080FF&
  1314.       Caption         =   "橙色"
  1315.       Height          =   375
  1316.       Left            =   240
  1317.       TabIndex        =   18
  1318.       Top             =   7560
  1319.       Width           =   375
  1320.    End
  1321.    Begin VB.Label M4 
  1322.       BackColor       =   &H000080FF&
  1323.       Caption         =   "M4"
  1324.       Height          =   375
  1325.       Left            =   6360
  1326.       TabIndex        =   17
  1327.       Top             =   7200
  1328.       Width           =   375
  1329.    End
  1330.    Begin VB.Label M3 
  1331.       BackColor       =   &H000080FF&
  1332.       Caption         =   "M3"
  1333.       Height          =   375
  1334.       Left            =   4200
  1335.       TabIndex        =   16
  1336.       Top             =   6240
  1337.       Width           =   375
  1338.    End
  1339.    Begin VB.Label M2 
  1340.       BackColor       =   &H000080FF&
  1341.       Caption         =   "M2"
  1342.       Height          =   375
  1343.       Left            =   2160
  1344.       TabIndex        =   15
  1345.       Top             =   5280
  1346.       Width           =   375
  1347.    End
  1348.    Begin VB.Label M1 
  1349.       BackColor       =   &H000080FF&
  1350.       Caption         =   "M1"
  1351.       Height          =   375
  1352.       Left            =   0
  1353.       TabIndex        =   14
  1354.       Top             =   4320
  1355.       Width           =   375
  1356.    End
  1357.    Begin VB.Label D4 
  1358.       BackColor       =   &H000080FF&
  1359.       Caption         =   "D4灯"
  1360.       Height          =   375
  1361.       Left            =   7200
  1362.       TabIndex        =   11
  1363.       Top             =   600
  1364.       Width           =   375
  1365.    End
  1366.    Begin VB.Label D3 
  1367.       BackColor       =   &H000080FF&
  1368.       Caption         =   "D3灯"
  1369.       Height          =   375
  1370.       Left            =   3240
  1371.       TabIndex        =   10
  1372.       Top             =   1080
  1373.       Width           =   375
  1374.    End
  1375.    Begin VB.Label D2 
  1376.       BackColor       =   &H000080FF&
  1377.       Caption         =   "D2灯"
  1378.       Height          =   375
  1379.       Left            =   360
  1380.       TabIndex        =   9
  1381.       Top             =   2400
  1382.       Width           =   375
  1383.    End
  1384.    Begin VB.Label D1 
  1385.       BackColor       =   &H000080FF&
  1386.       Caption         =   "D1灯"
  1387.       Height          =   375
  1388.       Left            =   8760
  1389.       TabIndex        =   8
  1390.       Top             =   9120
  1391.       Width           =   375
  1392.    End
  1393.    Begin VB.Label L2 
  1394.       BackColor       =   &H000000FF&
  1395.       Caption         =   "L2"
  1396.       Height          =   375
  1397.       Left            =   10680
  1398.       TabIndex        =   7
  1399.       Top             =   9120
  1400.       Width           =   375
  1401.    End
  1402.    Begin VB.Label L1 
  1403.       BackColor       =   &H0000C000&
  1404.       Caption         =   "L1灯"
  1405.       Height          =   375
  1406.       Left            =   9960
  1407.       TabIndex        =   6
  1408.       Top             =   9120
  1409.       Width           =   375
  1410.    End
  1411.    Begin VB.Line Line18 
  1412.       X1              =   9840
  1413.       X2              =   9840
  1414.       Y1              =   8880
  1415.       Y2              =   9000
  1416.    End
  1417.    Begin VB.Line Line17 
  1418.       X1              =   8040
  1419.       X2              =   8040
  1420.       Y1              =   8880
  1421.       Y2              =   9000
  1422.    End
  1423.    Begin VB.Line Line16 
  1424.       X1              =   8040
  1425.       X2              =   9840
  1426.       Y1              =   9000
  1427.       Y2              =   9000
  1428.    End
  1429.    Begin VB.Line Line15 
  1430.       X1              =   8040
  1431.       X2              =   9840
  1432.       Y1              =   8880
  1433.       Y2              =   8880
  1434.    End
  1435.    Begin VB.Label Label3 
  1436.       Caption         =   "<--出料口"
  1437.       ForeColor       =   &H000000FF&
  1438.       Height          =   255
  1439.       Left            =   1440
  1440.       TabIndex        =   5
  1441.       Top             =   2280
  1442.       Width           =   975
  1443.    End
  1444.    Begin VB.Label Label2 
  1445.       Caption         =   "<--进料口"
  1446.       ForeColor       =   &H000000FF&
  1447.       Height          =   255
  1448.       Left            =   6480
  1449.       TabIndex        =   4
  1450.       Top             =   120
  1451.       Width           =   1095
  1452.    End
  1453.    Begin VB.Line Line14 
  1454.       X1              =   6360
  1455.       X2              =   6360
  1456.       Y1              =   0
  1457.       Y2              =   480
  1458.    End
  1459.    Begin VB.Line Line13 
  1460.       X1              =   6240
  1461.       X2              =   6240
  1462.       Y1              =   0
  1463.       Y2              =   480
  1464.    End
  1465.    Begin VB.Line Line12 
  1466.       X1              =   840
  1467.       X2              =   1320
  1468.       Y1              =   3480
  1469.       Y2              =   3480
  1470.    End
  1471.    Begin VB.Line Line11 
  1472.       X1              =   840
  1473.       X2              =   1320
  1474.       Y1              =   3600
  1475.       Y2              =   3600
  1476.    End
  1477.    Begin VB.Line Line10 
  1478.       X1              =   6360
  1479.       X2              =   3120
  1480.       Y1              =   0
  1481.       Y2              =   0
  1482.    End
  1483.    Begin VB.Line Line9 
  1484.       X1              =   1320
  1485.       X2              =   1320
  1486.       Y1              =   2160
  1487.       Y2              =   3600
  1488.    End
  1489.    Begin VB.Line Line8 
  1490.       X1              =   840
  1491.       X2              =   840
  1492.       Y1              =   2160
  1493.       Y2              =   3600
  1494.    End
  1495.    Begin VB.Line Line5 
  1496.       X1              =   3120
  1497.       X2              =   3120
  1498.       Y1              =   480
  1499.       Y2              =   1920
  1500.    End
  1501.    Begin VB.Line Line4 
  1502.       X1              =   6360
  1503.       X2              =   3120
  1504.       Y1              =   480
  1505.       Y2              =   480
  1506.    End
  1507.    Begin VB.Label Label1 
  1508.       Caption         =   "容器"
  1509.       ForeColor       =   &H000000FF&
  1510.       Height          =   1815
  1511.       Left            =   0
  1512.       TabIndex        =   3
  1513.       Top             =   0
  1514.       Width           =   3015
  1515.    End
  1516.    Begin VB.Image imgRoll1 
  1517.       Appearance      =   0  'Flat
  1518.       Height          =   435
  1519.       Left            =   360
  1520.       Picture         =   "frmView.frx":1088
  1521.       Stretch         =   -1  'True
  1522.       Top             =   4320
  1523.       Width           =   2220
  1524.    End
  1525.    Begin VB.Image imgRoll2 
  1526.       Appearance      =   0  'Flat
  1527.       Height          =   435
  1528.       Left            =   2520
  1529.       Picture         =   "frmView.frx":78F0
  1530.       Stretch         =   -1  'True
  1531.       Top             =   5280
  1532.       Width           =   2220
  1533.    End
  1534.    Begin VB.Image imgRoll3 
  1535.       Appearance      =   0  'Flat
  1536.       Height          =   435
  1537.       Left            =   4560
  1538.       Picture         =   "frmView.frx":E158
  1539.       Stretch         =   -1  'True
  1540.       Top             =   6240
  1541.       Width           =   2220
  1542.    End
  1543.    Begin VB.Image imgRoll4 
  1544.       Appearance      =   0  'Flat
  1545.       Height          =   435
  1546.       Left            =   6720
  1547.       Picture         =   "frmView.frx":149C0
  1548.       Stretch         =   -1  'True
  1549.       Top             =   7200
  1550.       Width           =   2220
  1551.    End
  1552.    Begin VB.Line Line1 
  1553.       BorderWidth     =   2
  1554.       X1              =   2520
  1555.       X2              =   2880
  1556.       Y1              =   4680
  1557.       Y2              =   5280
  1558.    End
  1559.    Begin VB.Line Line2 
  1560.       BorderWidth     =   2
  1561.       X1              =   4680
  1562.       X2              =   5040
  1563.       Y1              =   5640
  1564.       Y2              =   6240
  1565.    End
  1566.    Begin VB.Line Line3 
  1567.       BorderWidth     =   2
  1568.       X1              =   6720
  1569.       X2              =   7080
  1570.       Y1              =   6600
  1571.       Y2              =   7200
  1572.    End
  1573.    Begin VB.Image imgres1 
  1574.       Height          =   450
  1575.       Left            =   5280
  1576.       Picture         =   "frmView.frx":1B228
  1577.       Top             =   0
  1578.       Width           =   975
  1579.    End
  1580.    Begin VB.Image imgmix1 
  1581.       Height          =   555
  1582.       Left            =   840
  1583.       Picture         =   "frmView.frx":1B91E
  1584.       Stretch         =   -1  'True
  1585.       Top             =   2160
  1586.       Width           =   465
  1587.    End
  1588.    Begin VB.Menu popMenu 
  1589.       Caption         =   ""
  1590.       Visible         =   0   'False
  1591.       Begin VB.Menu wait 
  1592.          Caption         =   "您的程序已暂停"
  1593.       End
  1594.    End
  1595. End
  1596. Attribute VB_Name = "frmView"
  1597. Attribute VB_GlobalNameSpace = False
  1598. Attribute VB_Creatable = False
  1599. Attribute VB_PredeclaredId = True
  1600. Attribute VB_Exposed = False
  1602.   
  1603.   Dim ImageNo1% '当前第一个滚梯的位图编号
  1604.   Dim ImageNo2% '当前第二个滚梯的位图编号
  1605.   Dim ImageNo3% '当前第三个滚梯的位图编号
  1606.   Dim ImageNo4% '当前第四个滚梯的位图编号
  1607.   
  1608.   Dim a As Double
  1609.    
  1610.   Dim b As Double '小车做循环直线移动
  1611.   
  1612.   Dim c As Double
  1613.   
  1614.   Dim d As Double
  1615.   
  1616.   Dim x(100), Y(100), pace(100), size(100) As Integer
  1617.   
  1618. Private Sub cmbPro_Click()
  1619. If cmbPro.Text = "产品1" Then
  1620. Adodc1.RecordSource = "select * from 产品信息表 where Productname = '产品1'"
  1621. Adodc1.Refresh: Set DataGrid1.DataSource = Adodc1
  1622. Text2.Visible = True
  1623. Text3.Visible = True
  1624. ElseIf cmbPro.Text = "产品2" Then
  1625. Adodc1.RecordSource = "select * from 产品信息表 where Productname = '产品2'"
  1626. Adodc1.Refresh: Set DataGrid1.DataSource = Adodc1
  1627. Text2.Visible = True
  1628. Text3.Visible = True
  1629. ElseIf cmbPro.Text = "产品3" Then
  1630. Adodc1.RecordSource = "select * from 产品信息表 where Productname = '产品3'"
  1631. Adodc1.Refresh: Set DataGrid1.DataSource = Adodc1
  1632. Text2.Visible = True
  1633. Text3.Visible = True
  1634. End If
  1636. '提示(物料加工列表)
  1637. Label27.Visible = True
  1638. Line80.Visible = True
  1639. Line81.Visible = True
  1640. Line82.Visible = True
  1641. Line83.Visible = True
  1642. Line84.Visible = True
  1643. Line85.Visible = True
  1644. Line86.Visible = True
  1645. End Sub
  1647. Private Sub cmd_Click()
  1648. MonthView.Visible = True
  1649. End Sub
  1651. Private Sub cmdGive_Click()
  1652. 'ccrpProgressBar1.Max = Text2.Text + 20
  1653. Dim con As New ADODB.Connection
  1654. Adodc2.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info = False"
  1656. If Text2.Text = "" Or Text3.Text = "" Or cmbPro.Text = "选择产品" Or cmbMID.Text = "原料" Then
  1657.     MsgBox "请正确输入产品、产量信息、日期!", 48, "提示信息"
  1658. Else
  1659.     con.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info = False"
  1660.     con.Open
  1661.     Set Rs = con.Execute("insert into 物料加工表([Code],[Productname],[Volume1],[Day]) values('" + cmbPro.Text + "','" + cmbMID.Text + "','" + Text2 + "','" + Text3 + "')")
  1662.     con.Close
  1663.     
  1664. ccrpProgressBar1.Max = Text2.Text + 20
  1666. Timer9.Enabled = True
  1668. imgres1.Visible = True
  1670. '物料进料提示
  1671. Label20.Visible = True
  1672. Line31.Visible = True
  1673. Line32.Visible = True
  1674. Line33.Visible = True
  1675. Line34.Visible = True
  1676. Line35.Visible = True
  1677. Line36.Visible = True
  1678. Line37.Visible = True
  1679. End If
  1680. Adodc2.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info = False"
  1681. Adodc2.RecordSource = "select * from 物料加工表 order by ID"
  1682. Adodc2.Refresh
  1683. Set DataGrid2.DataSource = Adodc2
  1684. DataGrid2.Columns(0).Visible = False
  1686. 'Timer9.Enabled = True
  1688. 'imgres1.Visible = True
  1690. '提示框(提交物料)
  1691. Label19.Visible = False
  1692. Line24.Visible = False
  1693. Line25.Visible = False
  1694. Line26.Visible = False
  1695. Line27.Visible = False
  1696. Line28.Visible = False
  1697. Line29.Visible = False
  1698. Line30.Visible = False
  1700. '提示(物料加工列表)
  1701. Label27.Visible = False
  1702. Line80.Visible = False
  1703. Line81.Visible = False
  1704. Line82.Visible = False
  1705. Line83.Visible = False
  1706. Line84.Visible = False
  1707. Line85.Visible = False
  1708. Line86.Visible = False
  1710. '物料进料提示
  1711. 'Label20.Visible = True
  1712. 'Line31.Visible = True
  1713. 'Line32.Visible = True
  1714. 'Line33.Visible = True
  1715. 'Line34.Visible = True
  1716. 'Line35.Visible = True
  1717. 'Line36.Visible = True
  1718. 'Line37.Visible = True
  1720. End Sub
  1722. Private Sub cmdOver_Click()
  1723. MsgBox "<@>您的程序已经暂停，点击确定可以继续<@>"
  1724. End Sub
  1726. Private Sub cmdQuit_Click()
  1727. Text2.Text = ""
  1728. Text3.Text = ""
  1729. End Sub
  1731. Private Sub cmdRep_Click()
  1732. MonthView.Visible = False
  1734. Text2.Visible = False
  1736.   L1.BackColor = &H80FF&
  1737.   L2.BackColor = &H80FF&
  1738.   M1.BackColor = &H80FF&
  1739.   M2.BackColor = &H80FF&
  1740.   M3.BackColor = &H80FF&
  1741.   M4.BackColor = &H80FF&
  1742.   D1.BackColor = &H80FF&
  1743.   D2.BackColor = &H80FF&
  1744.   D3.BackColor = &H80FF&
  1745.   D4.BackColor = &H80FF&
  1746.   SQ1.Caption = "SQ1(OFF)"
  1747.   SQ2.Caption = "SQ2(OFF)"
  1748.   
  1749.   GoNow = False
  1750.   
  1751.   ImageNo1% = 1 '当前第一个滚梯的位图编号
  1752.   ImageNo2% = 2 '当前第二个滚梯的位图编号
  1753.   ImageNo3% = 3 '当前第三个滚梯的位图编号
  1754.   ImageNo4% = 4 '当前第四个滚梯的位图编号
  1755.   
  1756.   c = 0
  1758. '提示框 (小车)
  1759. Label17.Visible = False
  1760. Label18.Visible = False
  1761. Line6.Visible = False
  1762. Line7.Visible = False
  1763. Line19.Visible = False
  1764. Line20.Visible = False
  1765. Line21.Visible = False
  1766. Line22.Visible = False
  1767. Line23.Visible = False
  1769. '提示框(提交物料)
  1770. Label19.Visible = False
  1771. Line24.Visible = False
  1772. Line25.Visible = False
  1773. Line26.Visible = False
  1774. Line27.Visible = False
  1775. Line28.Visible = False
  1776. Line29.Visible = False
  1777. Line30.Visible = False
  1779. '提示(物料加工列表)
  1780. Label27.Visible = False
  1781. Line80.Visible = False
  1782. Line81.Visible = False
  1783. Line82.Visible = False
  1784. Line83.Visible = False
  1785. Line84.Visible = False
  1786. Line85.Visible = False
  1787. Line86.Visible = False
  1789. '物料进料提示
  1790. Label20.Visible = False
  1791. Line31.Visible = False
  1792. Line32.Visible = False
  1793. Line33.Visible = False
  1794. Line34.Visible = False
  1795. Line35.Visible = False
  1796. Line36.Visible = False
  1797. Line37.Visible = False
  1799. '容器提示信息
  1800. Label21.Visible = False
  1801. Line38.Visible = False
  1802. Line39.Visible = False
  1803. Line40.Visible = False
  1804. Line41.Visible = False
  1805. Line42.Visible = False
  1806. Line43.Visible = False
  1807. Line44.Visible = False
  1809. '物料出料提示
  1810. Label22.Visible = False
  1811. Line45.Visible = False
  1812. Line46.Visible = False
  1813. Line47.Visible = False
  1814. Line48.Visible = False
  1815. Line49.Visible = False
  1816. Line50.Visible = False
  1817. Line51.Visible = False
  1819. 'c传送带1的提示信息
  1820. Label23.Visible = False
  1821. Line52.Visible = False
  1822. Line53.Visible = False
  1823. Line54.Visible = False
  1824. Line55.Visible = False
  1825. Line56.Visible = False
  1826. Line57.Visible = False
  1827. Line58.Visible = False
  1829. '传送带2的提示
  1830. Label24.Visible = False
  1831. Line59.Visible = False
  1832. Line60.Visible = False
  1833. Line61.Visible = False
  1834. Line62.Visible = False
  1835. Line63.Visible = False
  1836. Line64.Visible = False
  1837. Line65.Visible = False
  1839. '传送带3的提示
  1840. Label25.Visible = False
  1841. Line66.Visible = False
  1842. Line67.Visible = False
  1843. Line68.Visible = False
  1844. Line69.Visible = False
  1845. Line70.Visible = False
  1846. Line71.Visible = False
  1847. Line72.Visible = False
  1849. '传送带4的提示
  1850. Label26.Visible = False
  1851. Line73.Visible = False
  1852. Line74.Visible = False
  1853. Line75.Visible = False
  1854. Line76.Visible = False
  1855. Line77.Visible = False
  1856. Line78.Visible = False
  1857. Line79.Visible = False
  1859. '还原跟小车有关的属性
  1860. picCar.Left = 9960
  1861. picCar.Top = 8040
  1863. picCar.Picture = LoadPicture(App.Path & "imgmaincar1.GIF")
  1865. '还原跟物料添加有关的属性
  1866. imgres1.Left = 5280
  1867. imgres1.Top = 0
  1868. '物料出料的相关属性
  1869. imgmix1.Left = 840
  1870. imgmix1.Top = 2160
  1873. End Sub
  1875. Private Sub Form_Load()
  1876. imgres1.Visible = False
  1878. imgmix1.Visible = False
  1880. MonthView.Visible = False
  1882. Text2.Visible = False
  1884. Dim ChangeRate As Variant
  1885. Dim ChangeRate1 As Variant
  1887. ChangeRate = Array("产品1", "产品2", "产品3")
  1888. ChangeRate1 = Array("600005", "600037", "600088", "600228", "600253", "600283", "600513", "600775", "600789")
  1890. For i = 0 To 2
  1891.      cmbPro.AddItem ChangeRate(i)
  1892. Next i
  1894. For i = 0 To 8
  1895.      cmbMID.AddItem ChangeRate1(i)
  1896. Next i
  1898. Adodc1.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info = False"
  1899. Adodc2.ConnectionString = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "dbmaterialinfo2007.mdb;Persist Security Info = False"
  1901.   L1.BackColor = &H80FF&
  1902.   L2.BackColor = &H80FF&
  1903.   M1.BackColor = &H80FF&
  1904.   M2.BackColor = &H80FF&
  1905.   M3.BackColor = &H80FF&
  1906.   M4.BackColor = &H80FF&
  1907.   D1.BackColor = &H80FF&
  1908.   D2.BackColor = &H80FF&
  1909.   D3.BackColor = &H80FF&
  1910.   D4.BackColor = &H80FF&
  1911.   SQ1.Caption = "SQ1(OFF)"
  1912.   SQ2.Caption = "SQ2(OFF)"
  1913.   
  1914.   GoNow = False
  1915.   
  1916.   ImageNo1% = 1 '当前第一个滚梯的位图编号
  1917.   ImageNo2% = 2 '当前第二个滚梯的位图编号
  1918.   ImageNo3% = 3 '当前第三个滚梯的位图编号
  1919.   ImageNo4% = 4 '当前第四个滚梯的位图编号
  1920.   
  1921.   c = 0
  1922.   
  1923. '提示框 (小车)
  1924. Label17.Visible = False
  1925. Label18.Visible = False
  1926. Line6.Visible = False
  1927. Line7.Visible = False
  1928. Line19.Visible = False
  1929. Line20.Visible = False
  1930. Line21.Visible = False
  1931. Line22.Visible = False
  1932. Line23.Visible = False
  1934. '提示框(提交物料)
  1935. Label19.Visible = False
  1936. Line24.Visible = False
  1937. Line25.Visible = False
  1938. Line26.Visible = False
  1939. Line27.Visible = False
  1940. Line28.Visible = False
  1941. Line29.Visible = False
  1942. Line30.Visible = False
  1944. '提示(物料加工列表)
  1945. Label27.Visible = False
  1946. Line80.Visible = False
  1947. Line81.Visible = False
  1948. Line82.Visible = False
  1949. Line83.Visible = False
  1950. Line84.Visible = False
  1951. Line85.Visible = False
  1952. Line86.Visible = False
  1954. '物料进料提示
  1955. Label20.Visible = False
  1956. Line31.Visible = False
  1957. Line32.Visible = False
  1958. Line33.Visible = False
  1959. Line34.Visible = False
  1960. Line35.Visible = False
  1961. Line36.Visible = False
  1962. Line37.Visible = False
  1964. '容器提示信息
  1965. Label21.Visible = False
  1966. Line38.Visible = False
  1967. Line39.Visible = False
  1968. Line40.Visible = False
  1969. Line41.Visible = False
  1970. Line42.Visible = False
  1971. Line43.Visible = False
  1972. Line44.Visible = False
  1974. '物料出料提示
  1975. Label22.Visible = False
  1976. Line45.Visible = False
  1977. Line46.Visible = False
  1978. Line47.Visible = False
  1979. Line48.Visible = False
  1980. Line49.Visible = False
  1981. Line50.Visible = False
  1982. Line51.Visible = False
  1984. 'c传送带1的提示信息
  1985. Label23.Visible = False
  1986. Line52.Visible = False
  1987. Line53.Visible = False
  1988. Line54.Visible = False
  1989. Line55.Visible = False
  1990. Line56.Visible = False
  1991. Line57.Visible = False
  1992. Line58.Visible = False
  1994. '传送带2的提示
  1995. Label24.Visible = False
  1996. Line59.Visible = False
  1997. Line60.Visible = False
  1998. Line61.Visible = False
  1999. Line62.Visible = False
  2000. Line63.Visible = False
  2001. Line64.Visible = False
  2002. Line65.Visible = False
  2004. '传送带3的提示
  2005. Label25.Visible = False
  2006. Line66.Visible = False
  2007. Line67.Visible = False
  2008. Line68.Visible = False
  2009. Line69.Visible = False
  2010. Line70.Visible = False
  2011. Line71.Visible = False
  2012. Line72.Visible = False
  2014. '传送带4的提示
  2015. Label26.Visible = False
  2016. Line73.Visible = False
  2017. Line74.Visible = False
  2018. Line75.Visible = False
  2019. Line76.Visible = False
  2020. Line77.Visible = False
  2021. Line78.Visible = False
  2022. Line79.Visible = False
  2024. End Sub
  2026. Private Sub Form_Activate()
  2027. Randomize
  2028. For i = 1 To 100
  2029. X1 = Int(Label1.Width * Rnd)
  2030. Y1 = Int(Label1.Height * Rnd)
  2031. pace1 = Int(500 - (Int(Rnd * 499)))
  2032. size1 = 25 * Rnd
  2033. x(i) = X1
  2034. Y(i) = Y1
  2035. pace(i) = pace1
  2036. size(i) = size1
  2037. Next
  2038. End Sub
  2040. Private Sub Form_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
  2041.  If Button = vbRightButton Then
  2042.     frmMain.PopupMenu popMenu
  2043.  End If
  2044. End Sub
  2046. Private Sub Text2_KeyPress(KeyAscii As Integer)
  2047.         Select Case KeyAscii
  2048.         Case Asc("0") To Asc("9"), vbKeyBack
  2049.                 'text Change
  2050.         Case Else
  2051.                 KeyAscii = 0
  2052.         End Select
  2053. End Sub
  2055. Private Sub wait_Click()
  2056. wait.Checked = Not wait.Checked
  2057. End Sub
  2059. Private Sub cmdStart_Click() '启动按钮
  2060.       Timer8.Enabled = True
  2061.       L1.BackColor = &HC000&
  2062.       D1.BackColor = &HFFFF&
  2064. End Sub
  2066. Private Sub MonthView_DateClick(ByVal DateClicked As Date)
  2067.   Text3.Text = MonthView.Value
  2068.   MonthView.Visible = False
  2069. End Sub
  2071. Private Sub Text3_LostFocus()
  2072.     If Trim(Text3.Text) = "" Then
  2073.         MsgBox "请输入日期！", 48, "提示"
  2074.         Text3.SetFocus
  2075.     Else
  2076.         If Not IsDate(Text3.Text) Then
  2077.             MsgBox "请输入日期型格式！", 48, "提示"
  2078.             Text3.SetFocus
  2079.         Else
  2080.             Text3.Text = Format(Text3.Text, "yyyy-mm-dd")
  2081.         End If
  2082.     End If
  2083. End Sub
  2085. Private Sub Timer1_Timer()
  2086.   Open App.Path & "txt容器模块代码.txt" For Input As #1
  2087.   Do While Not EOF(1)
  2088.      Line Input #1, aspect$ '一行一行读入
  2089.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2090.   Loop
  2091.   Text1.Text = whole$
  2092.   Close #1
  2093.   
  2094. D3.BackColor = &HFFFF&
  2095. Static nTimes As Integer
  2096. nTimes = nTimes + 1
  2097. Debug.Print nTimes
  2098. If nTimes = ccrpProgressBar1.Max Then
  2099. nTimes = nTimes - ccrpProgressBar1.Max
  2100. imgmix1.Visible = True
  2101. Timer1.Enabled = False
  2102. Timer2.Enabled = True
  2103. D3.BackColor = &HFF&
  2104. Label3.Caption = "<--开始出料"
  2105. End If
  2107. ccrpProgressBar1.Value = nTimes
  2109. For i = 1 To 100
  2110. Circle (x(i), Y(i)), size(i), BackColor
  2111. Y(i) = Y(i) + pace(i)
  2112. If Y(i) >= Label1.Height Then Y(i) = 0: x(i) = Int(Label1.Width * Rnd)
  2113. Circle (x(i), Y(i)), size(i)
  2114. Next
  2116. '物料进料提示
  2117. Label20.Visible = False
  2118. Line31.Visible = False
  2119. Line32.Visible = False
  2120. Line33.Visible = False
  2121. Line34.Visible = False
  2122. Line35.Visible = False
  2123. Line36.Visible = False
  2124. Line37.Visible = False
  2126. '容器提示信息
  2127. Label21.Visible = True
  2128. Line38.Visible = True
  2129. Line39.Visible = True
  2130. Line40.Visible = True
  2131. Line41.Visible = True
  2132. Line42.Visible = True
  2133. Line43.Visible = True
  2134. Line44.Visible = True
  2136. End Sub
  2138. Private Sub Timer10_Timer()
  2139. '提示框 (小车)
  2140. Label17.Visible = False
  2141. Label18.Visible = False
  2142. Line6.Visible = False
  2143. Line7.Visible = False
  2144. Line19.Visible = False
  2145. Line20.Visible = False
  2146. Line21.Visible = False
  2147. Line22.Visible = False
  2148. Line23.Visible = False
  2149. End Sub
  2151. Private Sub Timer2_Timer()
  2152.   Open App.Path & "txt物料出料模块代码.txt" For Input As #1
  2153.   Do While Not EOF(1)
  2154.      Line Input #1, aspect$ '一行一行读入
  2155.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2156.   Loop
  2157.   Text1.Text = whole$
  2158.   Close #1
  2159.   
  2160. D2.BackColor = &HFFFF&
  2161. Static xTimes As Integer
  2162. xTimes = xTimes + 1
  2163. Debug.Print xTimes
  2164. If xTimes = 8 Then
  2165. xTimes = xTimes - 8
  2166. Timer2.Enabled = False
  2167. Timer3.Enabled = True
  2168. imgmix1.Visible = False
  2169. D2.BackColor = &HFF&
  2170. End If
  2171.    imgmix1.Top = imgmix1.Top + 220
  2172.    
  2173. '容器提示信息
  2174. Label21.Visible = False
  2175. Line38.Visible = False
  2176. Line39.Visible = False
  2177. Line40.Visible = False
  2178. Line41.Visible = False
  2179. Line42.Visible = False
  2180. Line43.Visible = False
  2181. Line44.Visible = False
  2183. '物料出料提示
  2184. Label22.Visible = True
  2185. Line45.Visible = True
  2186. Line46.Visible = True
  2187. Line47.Visible = True
  2188. Line48.Visible = True
  2189. Line49.Visible = True
  2190. Line50.Visible = True
  2191. Line51.Visible = True
  2192. Line52.Visible = True
  2194. End Sub
  2196. Private Sub Timer3_Timer() 'Timer事件
  2197.   Open App.Path & "txt传送带模块代码.txt" For Input As #1
  2198.   Do While Not EOF(1)
  2199.      Line Input #1, aspect$ '一行一行读入
  2200.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2201.   Loop
  2202.   Text1.Text = whole$
  2203.   Close #1
  2204.   
  2205.    M1.BackColor = &HFFFF&
  2206.    ImageNo1% = ImageNo1% + 1 '动画下一帧
  2207.    If ImageNo1% > 8 Then '如果动画已到最后一帧，则
  2208.    ImageNo1% = 0 '再从第一帧开始
  2209.    Timer3.Enabled = False
  2210.    Timer4.Enabled = True
  2211.    M1.BackColor = &HFF&
  2212.    End If
  2213.    imgRoll1.Picture = LoadPicture(App.Path & "imgroll1roll" & ImageNo1% & ".jpg")
  2215. '物料出料提示
  2216. Label22.Visible = False
  2217. Line45.Visible = False
  2218. Line46.Visible = False
  2219. Line47.Visible = False
  2220. Line48.Visible = False
  2221. Line49.Visible = False
  2222. Line50.Visible = False
  2223. Line51.Visible = False
  2225. '传送带1的提示
  2226. Label23.Visible = True
  2227. Line52.Visible = True
  2228. Line53.Visible = True
  2229. Line54.Visible = True
  2230. Line55.Visible = True
  2231. Line56.Visible = True
  2232. Line57.Visible = True
  2233. Line58.Visible = True
  2235. End Sub
  2237. Private Sub Timer4_Timer()
  2238.   Open App.Path & "txt传送带模块代码.txt" For Input As #1
  2239.   Do While Not EOF(1)
  2240.      Line Input #1, aspect$ '一行一行读入
  2241.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2242.   Loop
  2243.   Text1.Text = whole$
  2244.   Close #1
  2245.   
  2246.    M2.BackColor = &HFFFF&
  2247.    ImageNo2% = ImageNo2% + 1 '动画下一帧
  2248.    If ImageNo2% > 8 Then '如果动画已到最后一帧，则
  2249.    ImageNo2% = 0 '再从第一帧开始
  2250.    Timer4.Enabled = False
  2251.    Timer5.Enabled = True
  2252.    M2.BackColor = &HFF&
  2253.    End If
  2254.    imgRoll2.Picture = LoadPicture(App.Path & "imgroll2roll" & ImageNo2% & ".jpg")
  2255.    
  2256. 'c传送带1的提示信息
  2257. Label23.Visible = False
  2258. Line52.Visible = False
  2259. Line53.Visible = False
  2260. Line54.Visible = False
  2261. Line55.Visible = False
  2262. Line56.Visible = False
  2263. Line57.Visible = False
  2264. Line58.Visible = False
  2266. '传送带2的提示
  2267. Label24.Visible = True
  2268. Line59.Visible = True
  2269. Line60.Visible = True
  2270. Line61.Visible = True
  2271. Line62.Visible = True
  2272. Line63.Visible = True
  2273. Line64.Visible = True
  2274. Line65.Visible = True
  2276. End Sub
  2278. Private Sub Timer5_Timer()
  2279.   Open App.Path & "txt传送带模块代码.txt" For Input As #1
  2280.   Do While Not EOF(1)
  2281.      Line Input #1, aspect$ '一行一行读入
  2282.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2283.   Loop
  2284.   Text1.Text = whole$
  2285.   Close #1
  2286.   
  2287.    M3.BackColor = &HFFFF&
  2288.    ImageNo3% = ImageNo3% + 1 '动画下一帧
  2289.    If ImageNo3% > 8 Then '如果动画已到最后一帧，则
  2290.    ImageNo3% = 0 '再从第一帧开始
  2291.    Timer5.Enabled = False
  2292.    Timer6.Enabled = True
  2293.    M3.BackColor = &HFF&
  2294.    End If
  2295.    imgRoll3.Picture = LoadPicture(App.Path & "imgroll3roll" & ImageNo3% & ".jpg")
  2296.    
  2297. '传送带2的提示
  2298. Label24.Visible = False
  2299. Line59.Visible = False
  2300. Line60.Visible = False
  2301. Line61.Visible = False
  2302. Line62.Visible = False
  2303. Line63.Visible = False
  2304. Line64.Visible = False
  2305. Line65.Visible = False
  2307. '传送带3的提示
  2308. Label25.Visible = True
  2309. Line66.Visible = True
  2310. Line67.Visible = True
  2311. Line68.Visible = True
  2312. Line69.Visible = True
  2313. Line70.Visible = True
  2314. Line71.Visible = True
  2315. Line72.Visible = True
  2317. End Sub
  2319. Private Sub Timer6_Timer()
  2320.   Open App.Path & "txt传送带模块代码.txt" For Input As #1
  2321.   Do While Not EOF(1)
  2322.      Line Input #1, aspect$ '一行一行读入
  2323.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2324.   Loop
  2325.   Text1.Text = whole$
  2326.   Close #1
  2327.   
  2328.    M4.BackColor = &HFFFF&
  2329.    ImageNo4% = ImageNo4% + 1 '动画下一帧
  2330.    If ImageNo4% > 8 Then '如果动画已到最后一帧，则
  2331.    ImageNo4% = 0 '再从第一帧开始
  2332.    Timer6.Enabled = False
  2333.    Timer7.Enabled = True
  2334.    M4.BackColor = &HFF&
  2335.    L1.BackColor = &HC000&
  2336.    L2.BackColor = &H80FF&
  2337.    SQ2.Caption = "SQ2(ON)"
  2338.    End If
  2339.    imgRoll4.Picture = LoadPicture(App.Path & "imgroll4roll" & ImageNo4% & ".jpg")
  2340.    
  2341. '传送带3的提示
  2342. Label25.Visible = False
  2343. Line66.Visible = False
  2344. Line67.Visible = False
  2345. Line68.Visible = False
  2346. Line69.Visible = False
  2347. Line70.Visible = False
  2348. Line71.Visible = False
  2349. Line72.Visible = False
  2351. '传送带4的提示
  2352. Label26.Visible = True
  2353. Line73.Visible = True
  2354. Line74.Visible = True
  2355. Line75.Visible = True
  2356. Line76.Visible = True
  2357. Line77.Visible = True
  2358. Line78.Visible = True
  2359. Line79.Visible = True
  2362. End Sub
  2364. Private Sub Timer7_Timer()
  2365.   Open App.Path & "txt小车开走模块代码.txt" For Input As #1
  2366.   Do While Not EOF(1)
  2367.      Line Input #1, aspect$ '一行一行读入
  2368.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2369.   Loop
  2370.   Text1.Text = whole$
  2371.   Close #1
  2372. D1.BackColor = &HFF&
  2373. picCar.Picture = LoadPicture(App.Path & "imgmaincar2.GIF")
  2374. Static yTimes As Integer
  2375. yTimes = yTimes + 1
  2376. Debug.Print yTimes
  2377. If yTimes = 11 Then
  2378. yTimes = yTimes - 11
  2379. Timer7.Enabled = False
  2380. SQ1.Caption = "SQ1(OFF)"
  2381. End If
  2382.    picCar.Left = picCar.Left - 440
  2384. '传送带4的提示
  2385. Label26.Visible = False
  2386. Line73.Visible = False
  2387. Line74.Visible = False
  2388. Line75.Visible = False
  2389. Line76.Visible = False
  2390. Line77.Visible = False
  2391. Line78.Visible = False
  2392. Line79.Visible = False
  2393.    
  2394. '提示框 (小车)
  2395. Label17.Visible = False
  2396. Label18.Visible = True
  2397. Line6.Visible = True
  2398. Line7.Visible = True
  2399. Line19.Visible = True
  2400. Line20.Visible = True
  2401. Line21.Visible = True
  2402. Line22.Visible = True
  2403. Line23.Visible = True
  2404. End Sub
  2406. Private Sub Timer8_Timer()
  2407.   Open App.Path & "txt小车模块代码.txt" For Input As #1
  2408.   Do While Not EOF(1)
  2409.      Line Input #1, aspect$ '一行一行读入
  2410.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2411.   Loop
  2412.   Text1.Text = whole$
  2413.   Close #1
  2414.   L2.BackColor = &HFF&
  2415.   L1.BackColor = &H80FF&
  2416.   SQ1.Caption = "SQ1(ON)"
  2417.   Label2.Caption = "<--开始进料"
  2418.   
  2419.   Static aTimes As Integer
  2420.   aTimes = aTimes + 1
  2421.   Debug.Print aTimes
  2422.   If aTimes = 7 Then
  2423.   aTimes = aTimes - 7
  2424. '提示框(提交物料)
  2425. Label19.Visible = True
  2426. Line24.Visible = True
  2427. Line25.Visible = True
  2428. Line26.Visible = True
  2429. Line27.Visible = True
  2430. Line28.Visible = True
  2431. Line29.Visible = True
  2432. Line30.Visible = True
  2434.   Timer8.Enabled = False
  2435.   Timer10.Enabled = True
  2436.   D4.BackColor = &HFFFF&
  2437.   End If
  2438.     picCar.Left = picCar.Left - 200
  2439. '提示框 (小车)
  2440. Label17.Visible = True
  2441. Label18.Visible = False
  2442. Line6.Visible = True
  2443. Line7.Visible = True
  2444. Line19.Visible = True
  2445. Line20.Visible = True
  2446. Line21.Visible = True
  2447. Line22.Visible = True
  2448. Line23.Visible = True
  2449. End Sub
  2451. Private Sub Timer9_Timer()
  2452.   Open App.Path & "txt物料进料模块代码.txt" For Input As #1
  2453.   Do While Not EOF(1)
  2454.      Line Input #1, aspect$ '一行一行读入
  2455.      whole$ = whole$ + aspect$ + Chr$(13) + Chr$(10)
  2456.   Loop
  2457.   Text1.Text = whole$
  2458.   Close #1
  2459.   
  2460.   Static bTimes As Integer
  2461.   bTimes = bTimes + 1
  2462.   Debug.Print bTimes
  2463.   If bTimes = 5 Then
  2464.   bTimes = bTimes - 5
  2465.   Timer9.Enabled = False
  2466.   imgres1.Visible = False
  2467.   Timer1.Enabled = True
  2468.   
  2469.   D4.BackColor = &HFF&
  2470.   End If
  2471.     imgres1.Left = imgres1.Left - 650
  2473. End Sub