frminformation.frm

用于控制氧乐果生产的程序

VERSION 5.00
Begin VB.Form frmInformation 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "信息提示窗口"
   ClientHeight    =   840
   ClientLeft      =   36
   ClientTop       =   324
   ClientWidth     =   2016
   ClipControls    =   0   'False
   ForeColor       =   &H000000FF&
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   840
   ScaleWidth      =   2016
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton Command1 
      Cancel          =   -1  'True
      Caption         =   "&OK"
      Height          =   320
      Left            =   720
      MouseIcon       =   "frmInformation.frx":0000
      TabIndex        =   1
      Top             =   360
      Width           =   800
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "lable"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   360
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   900
   End
End
Attribute VB_Name = "frmInformation"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private mindex As Integer
Public Property Get Index() As Integer
Index = mindex
End Property
Public Property Let Index(ByVal vData As Integer)
mindex = vData
End Property
Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
With Me.Label1
.FontName = "隶书"
Select Case Me.Index
    Case 1
    .Caption = "请确认1#截止阀已经打开！"
    Case 2
    .Caption = "请确认2#截止阀已经打开！"
    Case 3
    .Caption = "请确认3#截止阀已经打开！"
    Case 11
    .Caption = "计量罐内一甲胺少于投料量!"
    Case 12
    .Caption = "已投料量大于修正量，修正量无效，系统自动结束投料!"
    Case 22
    .Caption = "警告：改变参数将影响系统的运行！"
    Case 31
    .Caption = "用户名或密码错,请重新输入！"
    Case 32
    .Caption = "密码错误，请重新输入！"
    Case 33
    .Caption = "对不起，您无此权限！"
    Case 41
    .Caption = "系统发现有重复用户名，请检查并删除！"
    Case 42
    .Caption = "注意：用户名不能重复！"
    Case 51
    .Caption = "请输入各项数据或输入正确数据！"
    Case 55
    .Caption = "无效设定值或下限大于上限，请重新输入！"
    Case 61
    .Caption = "您只有按下确定按钮后才能退出本窗口！"
    Case 71
    .Caption = "您未输入上一釜有关反应数据，请输入后再建立反应！"
    Case 72
    .Caption = "上一釜有关反应数据已经存盘，若想重新输入请继续！"
    Case 91
    .Caption = "请先按下开始按钮！"
    Case 92
    .Caption = "开度值应为0-100！"
    Case 95
    .Caption = "请检查并确认是否插入软盘！"
    Case 100
    .Caption = "起始日期大于截止日期,请重新选择！"
    Case 101
    .Caption = "某釜正在投料,请等到所有反应釜投料完毕再删除记录！"
    Case 102
    .Caption = "删除记录成功！"
    Case 103
    .Caption = "请选择记录表名称！"
    Case 131
    .Caption = "该天无数据或日期无效！"
    Case 132
    .Caption = "请输入0到23之间的整数！"

End Select
End With
With Me
    .Width = .Label1.Width + 200
    .Command1.Top = .Label1.Top + .Label1.Height + 100
    .Command1.Left = .Width / 2 - 400
    .Height = .Command1.Top + .Command1.Height + 400
    .Label1.FontSize = 18
End With
End Sub