VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "登錄"
   ClientHeight    =   1725
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   6105
   Icon            =   "frmLogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1725
   ScaleWidth      =   6105
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.Frame fraLogin 
      Height          =   1755
      Left            =   30
      TabIndex        =   2
      Top             =   -60
      Width           =   6045
      Begin VB.ComboBox cobServer 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   315
         Left            =   1050
         TabIndex        =   10
         Text            =   "<Local>"
         Top             =   300
         Width           =   2745
      End
      Begin VB.TextBox txtDB 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1050
         Locked          =   -1  'True
         TabIndex        =   7
         TabStop         =   0   'False
         Text            =   "Test"
         Top             =   630
         Width           =   2745
      End
      Begin VB.TextBox txtUserName 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   270
         Left            =   1050
         TabIndex        =   0
         Top             =   930
         Width           =   2745
      End
      Begin VB.TextBox txtPassword 
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   8.25
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         IMEMode         =   3  'DISABLE
         Left            =   1050
         PasswordChar    =   "*"
         TabIndex        =   1
         Top             =   1230
         Width           =   2745
      End
      Begin VB.CommandButton cmdLogin 
         Caption         =   "登錄(&L)"
         Default         =   -1  'True
         Height          =   645
         Left            =   4200
         Picture         =   "frmLogin.frx":0442
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   360
         Width           =   1575
      End
      Begin VB.CommandButton cmdCancel 
         Caption         =   "取消(&C)"
         Height          =   315
         Left            =   4200
         TabIndex        =   4
         Top             =   1140
         Width           =   1575
      End
      Begin VB.Label lblDB 
         AutoSize        =   -1  'True
         Caption         =   "數(shù)據(jù)庫(kù):"
         Height          =   180
         Left            =   300
         TabIndex        =   9
         Top             =   690
         Width           =   630
      End
      Begin VB.Label lblServer 
         AutoSize        =   -1  'True
         Caption         =   "服務(wù)器:"
         Height          =   180
         Left            =   300
         TabIndex        =   8
         Top             =   390
         Width           =   630
      End
      Begin VB.Label lblUserName 
         AutoSize        =   -1  'True
         Caption         =   "用戶名:"
         Height          =   180
         Left            =   300
         TabIndex        =   6
         Top             =   990
         Width           =   630
      End
      Begin VB.Label lblPassword 
         AutoSize        =   -1  'True
         Caption         =   "密碼:"
         Height          =   180
         Left            =   480
         TabIndex        =   5
         Top             =   1290
         Width           =   450
      End
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdCancel_Click()
  Unload Me
End Sub

Private Sub cmdLogin_Click()
   DSN = txtDB.Text
   UID = txtUserName.Text
   PWD = txtPassword.Text
   ConnectID = "DSN=" & DSN & ";UID=" & UID & ";PWD=" _
                & PWD & ";DATABASE=Test;"
    With frmMain
      !mnuTrade.Enabled = True
      !mnuStatistics.Enabled = True
      !mnuReport.Enabled = True
      !mnuDataManager.Enabled = True
    End With
    Unload Me
End Sub


Private Sub Form_Load()
  'cmdLogin.Enabled = False
End Sub

'Private Sub txtUserName_Change()
 ' 'If txtUserName.Text = "" Then
 '   cmdLogin.Enabled = False
 ' Else
'    cmdLogin.Enabled = True
'  End If
'End Sub