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