frmrtdb_time.frm

Oracle 数据库 与 Yokogawa Quantum 实时数据库接口

VERSION 5.00
Begin VB.Form FrmRTDB_Time 
   Caption         =   "刷新时间"
   ClientHeight    =   1770
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   3525
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   1770
   ScaleWidth      =   3525
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton CmdCacel 
      Caption         =   "取消(&C)"
      Height          =   330
      Left            =   2520
      TabIndex        =   5
      Top             =   1395
      Width           =   975
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确定(&O)"
      Height          =   330
      Left            =   2520
      TabIndex        =   2
      Top             =   945
      Width           =   975
   End
   Begin VB.TextBox CimsText 
      Alignment       =   2  'Center
      Height          =   330
      Left            =   1170
      TabIndex        =   1
      Top             =   1155
      Width           =   855
   End
   Begin VB.TextBox RtdbText 
      Alignment       =   2  'Center
      Height          =   330
      Left            =   1170
      TabIndex        =   0
      Top             =   795
      Width           =   855
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000005&
      Index           =   1
      X1              =   -15
      X2              =   4545
      Y1              =   555
      Y2              =   555
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000012&
      Index           =   0
      X1              =   -15
      X2              =   4545
      Y1              =   540
      Y2              =   540
   End
   Begin VB.Label Label5 
      Caption         =   "小时"
      Height          =   255
      Left            =   2070
      TabIndex        =   8
      Top             =   1215
      Width           =   495
   End
   Begin VB.Label Label4 
      Caption         =   "分"
      Height          =   255
      Left            =   2115
      TabIndex        =   7
      Top             =   855
      Width           =   375
   End
   Begin VB.Label Label3 
      Alignment       =   2  'Center
      Caption         =   "修改时间间隔"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   18
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00C00000&
      Height          =   495
      Left            =   465
      TabIndex        =   6
      Top             =   135
      Width           =   2505
   End
   Begin VB.Label Label2 
      Caption         =   "读对照表间隔"
      Height          =   255
      Left            =   45
      TabIndex        =   4
      Top             =   1230
      Width           =   1215
   End
   Begin VB.Label Label1 
      Caption         =   "读写时间间隔"
      Height          =   255
      Left            =   45
      TabIndex        =   3
      Top             =   855
      Width           =   1215
   End
End
Attribute VB_Name = "FrmRTDB_Time"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdCacel_Click()
    
    Unload Me

End Sub

Private Sub CmdOK_Click()
    
    FrmRTDB_Quantum_write.gi_rtdbtime = RtdbText  '写入时间间隔(分钟),可修改
    FrmRTDB_Quantum_write.gi_cimstime = CLng(CimsText) '读对照表的时间间隔(小时),可修改
    Unload Me

End Sub

Private Sub Form_Unload(Cancel As Integer)
    
    Screen.MousePointer = vbDefault

End Sub