hfrm000.frm

饲料生产控制系统

            Width           =   5655
            Caption         =   "價儞儅僗僞乕"
            Size            =   "9975;2566"
            FontName        =   "俵俽 俹僑僔僢僋"
            FontHeight      =   555
            FontCharSet     =   128
            FontPitchAndFamily=   2
            ParagraphAlign  =   3
         End
         Begin MSForms.CommandButton cmdHFrm104_1 
            Height          =   1455
            Left            =   6960
            TabIndex        =   353
            Top             =   1200
            Width           =   5655
            Caption         =   "柫暱攝崌棪儅僗僞乕"
            Size            =   "9975;2566"
            FontName        =   "俵俽 俹僑僔僢僋"
            FontHeight      =   555
            FontCharSet     =   128
            FontPitchAndFamily=   2
            ParagraphAlign  =   3
         End
         Begin MSForms.CommandButton cmdHFrm102_1 
            Height          =   1455
            Left            =   480
            TabIndex        =   351
            Top             =   3840
            Width           =   5655
            Caption         =   "柫暱儅僗僞乕"
            Size            =   "9975;2566"
            FontName        =   "俵俽 俹僑僔僢僋"
            FontHeight      =   555
            FontCharSet     =   128
            FontPitchAndFamily=   2
            ParagraphAlign  =   3
         End
         Begin MSForms.CommandButton cmdHFrm101_1 
            Height          =   1455
            Left            =   480
            TabIndex        =   350
            Top             =   1200
            Width           =   5655
            Caption         =   "尨椏儅僗僞乕"
            Size            =   "9975;2566"
            FontName        =   "俵俽 俹僑僔僢僋"
            FontHeight      =   555
            FontCharSet     =   128
            FontPitchAndFamily=   2
            ParagraphAlign  =   3
         End
      End
      Begin VB.Timer Timer2 
         Enabled         =   0   'False
         Interval        =   1000
         Left            =   11280
         Top             =   960
      End
      Begin VB.TextBox Text3 
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   9
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Index           =   11
         Left            =   4920
         TabIndex        =   349
         Text            =   "Text3"
         Top             =   840
         Visible         =   0   'False
         Width           =   180
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   9
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   300
         Index           =   13
         Left            =   6960
         TabIndex        =   347
         Top             =   960
         Visible         =   0   'False
         Width           =   180
      End
      Begin VB.Timer Timer1 
         Enabled         =   0   'False
         Interval        =   1000
         Left            =   120
         Top             =   1560
      End
      Begin VB.CommandButton Command1 
         Caption         =   "F12:儊僯儏乕"
         BeginProperty Font 
            Name            =   "俵俽 俹僑僔僢僋"
            Size            =   15.75
            Charset         =   128
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   13680
         TabIndex        =   40
         Top             =   10440
         Visible         =   0   'False
         Width           =   1935
      End
      Begin VB.ListBox List1 
         Columns         =   2
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   10.5
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   900
         ItemData        =   "HFrm000.frx":019B
         Left            =   12840
         List            =   "HFrm000.frx":019D
         TabIndex        =   39
         TabStop         =   0   'False
         Top             =   7860
         Width           =   5895
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   0
         Left            =   2880
         TabIndex        =   38
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   1
         Left            =   2880
         TabIndex        =   37
         Top             =   12480
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   2
         Left            =   5160
         TabIndex        =   36
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   3
         Left            =   5160
         TabIndex        =   35
         Top             =   12480
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   4
         Left            =   7320
         TabIndex        =   34
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   5
         Left            =   7320
         TabIndex        =   33
         Top             =   12480
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   6
         Left            =   9720
         TabIndex        =   32
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   7
         Left            =   12120
         TabIndex        =   31
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   8
         Left            =   12120
         TabIndex        =   30
         Top             =   12480
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   9
         Left            =   15960
         TabIndex        =   29
         Top             =   12000
         Visible         =   0   'False
         Width           =   252
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   10
         Left            =   15960
         TabIndex        =   28
         Top             =   12480
         Visible         =   0   'False
         Width           =   192
      End
      Begin VB.CheckBox Check1 
         Height          =   252
         Index           =   11
         Left            =   9720
         TabIndex        =   27
         Top             =   12480
         Visible         =   0   'False
         Width           =   192
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   9
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   0
         Left            =   12480
         TabIndex        =   26
         Top             =   10680
         Visible         =   0   'False
         Width           =   180
      End
      Begin VB.TextBox Text2 
         Height          =   300
         Left            =   4560
         TabIndex        =   25
         Top             =   840
         Visible         =   0   'False
         Width           =   270
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   9
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   1
         Left            =   12240
         TabIndex        =   24
         Top             =   10680
         Visible         =   0   'False
         Width           =   180
      End
      Begin VB.TextBox Text1 
         BeginProperty Font 
            Name            =   "俵俽 僑僔僢僋"
            Size            =   9
            Charset         =   128
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   390
         Index           =   2
         Left            =   12000
         TabIndex        =   23
         Top             =   10680
         Visible         =   0   'False
         Width           =   180
      End
      Begin VB.TextBox Text1 
         Beg