frmlogin.frm

在线图书管理 在线图书管理在线图书管理在线图书管理在线图书管理在线图书管理

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         =   "数据库:"
         Height          =   180
         Left            =   300
         TabIndex        =   9
         Top             =   690
         Width           =   630
      End
      Begin VB.Label lblServer 
         AutoSize        =   -1  'True
         Caption         =   "服务器:"
         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