497.frm

来自「vb20061013（VB编程运用软件）」· FRM 代码 · 共 80 行

VERSION 5.00
Begin VB.Form FormTest 
   Caption         =   "键科实业 生产测试系统"
   ClientHeight    =   2295
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5925
   Icon            =   "497.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   2295
   ScaleWidth      =   5925
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton CommandMain 
      Caption         =   "关闭系统"
      Height          =   1215
      Index           =   2
      Left            =   3960
      Picture         =   "497.frx":0442
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   480
      Width           =   1335
   End
   Begin VB.CommandButton CommandMain 
      Caption         =   "关于系统"
      Height          =   1215
      Index           =   1
      Left            =   2280
      Picture         =   "497.frx":0884
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   480
      Width           =   1335
   End
   Begin VB.CommandButton CommandMain 
      Caption         =   "497控制测试"
      Height          =   1215
      Index           =   0
      Left            =   600
      Picture         =   "497.frx":0CC6
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   480
      Width           =   1335
   End
End
Attribute VB_Name = "FormTest"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub CommandMain_Click(Index As Integer)
    Select Case Index
'-------------------------------------------------------
        Case 0  '497马达控制测试
            FormT497.Show
'-------------------------------------------------------
        Case 1  '关于系统
            frmAbout.Show
'-------------------------------------------------------
        Case 2  '关闭系统
            Unload Me
'-------------------------------------------------------
    End Select
End Sub

Private Sub Form_Load()
    Dim sTemp As String
    Dim blTemp As Boolean
    Dim i As Integer
    
    
    '打开QC测试数据库
    sTemp = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\QCMDB.mdb ;Persist Security Info=False"
    Set cnT497 = New ADODB.Connection
    cnT497.Open sTemp
End Sub