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  '屏幕中心
   Begin VB.Frame fraLogin 
      Height          =   1755
      Left            =   30
      TabIndex        =   2
      Top             =   -60
      Width           =   6045
      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            =   1170
         TabIndex        =   0
         Text            =   "vb"
         Top             =   570
         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            =   1170
         PasswordChar    =   "*"
         TabIndex        =   1
         Text            =   "vb"
         Top             =   870
         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          =   435
         Left            =   4200
         TabIndex        =   4
         Top             =   1140
         Width           =   1575
      End
      Begin VB.Label lblUserName 
         AutoSize        =   -1  'True
         Caption         =   "用户名:"
         Height          =   180
         Left            =   420
         TabIndex        =   6
         Top             =   630
         Width           =   630
      End
      Begin VB.Label lblPassword 
         AutoSize        =   -1  'True
         Caption         =   "密码:"
         Height          =   180
         Left            =   600
         TabIndex        =   5
         Top             =   930
         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()
End
End Sub

Private Sub cmdLogin_Click()



denlu_name = txtUserName.Text
denlu_pass = txtPassword.Text
Dim mycn As New ADODB.Connection
Dim myrs As New ADODB.Recordset
Set myrs = New ADODB.Recordset
mycn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=wl.mdb;"
myrs.Open "SELECT * FROM [user] where (user.user)='" + denlu_name + "';", mycn, adOpenKeyset, adLockOptimistic

If myrs.BOF = True And myrs.EOF = True Then

MsgBox "查无此人", , "登陆信息"
Else
 
     
     If myrs("pass") = denlu_pass Then
        
         ''''''''''''''''''''''''''''''''''''''''''
        MsgBox "身份正确", , "登陆信息"
        main.Show
         
         Unload Me
        
       
           '''''''''''''''''''''''''''''''''''''''''''''''''''
     Else
        MsgBox "密码不正确", , "登陆信息"
     End If
  
 
  End If
    


End Sub