登陆.frm

毕业设计

VERSION 5.00
Begin VB.Form 登陆 
   Caption         =   "电信卡进销存管理登陆"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5250
   LinkTopic       =   "Form1"
   ScaleHeight     =   3645
   ScaleWidth      =   5250
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "退出"
      Height          =   495
      Left            =   2760
      TabIndex        =   5
      Top             =   2640
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "登陆"
      Height          =   495
      Left            =   1320
      TabIndex        =   4
      Top             =   2640
      Width           =   1095
   End
   Begin VB.TextBox Text2 
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   2400
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1680
      Width           =   1935
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   2400
      TabIndex        =   0
      Top             =   720
      Width           =   1935
   End
   Begin VB.Label Label2 
      Caption         =   "密  码"
      Height          =   615
      Left            =   1200
      TabIndex        =   3
      Top             =   1680
      Width           =   1095
   End
   Begin VB.Label Label1 
      Caption         =   "帐   号"
      Height          =   735
      Left            =   1200
      TabIndex        =   1
      Top             =   840
      Width           =   1215
   End
End
Attribute VB_Name = "登陆"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.ConnectionString = "file name=E:\电信卡进销存\connect.udl"
conn.Open
rs.ActiveConnection = conn
rs.Open "select * from 管理员 where 用户帐号= '" + Text1.Text + "' and 密码='" + Text2.Text + "'   ", , adOpenKeyset, adLockOptimistic, adCmdText

If rs.EOF Then
    MsgBox ("用户帐号号或密码错误！")
    Text1.Text = ""
    Text2.Text = ""
Else
   
   UserName = rs!姓名
   Unload 登陆
    电信进销存管理系统.Show
    
End If

rs.Close
conn.Close

End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Text2_Change()

End Sub