frmlogin.frm

vbsql做的销售管理课程设计样本不完全仅为范例

VERSION 5.00
Begin VB.Form frmLogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "Login"
   ClientHeight    =   6630
   ClientLeft      =   3645
   ClientTop       =   2565
   ClientWidth     =   9225
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6630
   ScaleWidth      =   9225
   ShowInTaskbar   =   0   'False
   Tag             =   "Login"
   Begin VB.PictureBox Picture1 
      Height          =   6015
      Left            =   360
      Picture         =   "frmLogin.frx":0000
      ScaleHeight     =   5955
      ScaleWidth      =   8355
      TabIndex        =   0
      Top             =   120
      Width           =   8415
      Begin VB.TextBox UserName 
         Height          =   405
         Left            =   3480
         TabIndex        =   4
         Top             =   2535
         Width           =   2325
      End
      Begin VB.TextBox Password 
         Height          =   405
         IMEMode         =   3  'DISABLE
         Left            =   3480
         PasswordChar    =   "*"
         TabIndex        =   3
         Top             =   3000
         Width           =   2325
      End
      Begin VB.CommandButton cmdOK 
         Caption         =   "确定"
         Default         =   -1  'True
         Height          =   360
         Left            =   2520
         TabIndex        =   2
         Tag             =   "OK"
         Top             =   3720
         Width           =   1140
      End
      Begin VB.CommandButton cmdCancel 
         Cancel          =   -1  'True
         Caption         =   "退出"
         Height          =   360
         Left            =   4200
         TabIndex        =   1
         Tag             =   "Cancel"
         Top             =   3720
         Width           =   1140
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         Caption         =   "用户名"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   0
         Left            =   2280
         TabIndex        =   7
         Tag             =   "&User Name:"
         Top             =   2550
         Width           =   1080
      End
      Begin VB.Label lblLabels 
         Alignment       =   2  'Center
         Caption         =   "密  码"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   10.5
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   255
         Index           =   1
         Left            =   2295
         TabIndex        =   6
         Tag             =   "&Password:"
         Top             =   3120
         Width           =   840
      End
      Begin VB.Label Label1 
         BackStyle       =   0  'Transparent
         Caption         =   "产品销售信息管理系统"
         BeginProperty Font 
            Name            =   "华文彩云"
            Size            =   36
            Charset         =   134
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H000000FF&
         Height          =   1095
         Left            =   480
         TabIndex        =   5
         Top             =   600
         Width           =   7815
      End
   End
End
Attribute VB_Name = "frmLogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
Private Sub Form_Load()
    Dim sBuffer As String
    Dim lSize As Long
    sBuffer = Space$(255)
    lSize = Len(sBuffer)
    Call GetUserName(sBuffer, lSize)
    If lSize > 0 Then
     UserName.Text = Left$(sBuffer, lSize)
    Else
        UserName.Text = vbNullString
    End If
   
End Sub



Private Sub cmdCancel_Click()
      Unload Me
End Sub


Private Sub cmdOK_Click()
    Dim txtSQL As String
    txtSQL = "select * from users where userid='" & Trim(UserName.Text) & "'" & "and password='" & Trim(Password.Text) & "'"
    Set mrc = ExecuteSQL(txtSQL)
    If mrc.EOF = False Then
             mrc.Close
        flag = 1
       Unload Me
        Else
        MsgBox "密码不正确，请重新输入!", , "Login"
        UserName.SetFocus
         UserName.SelStart = 0
         UserName.SelLength = Len(UserName.Text)
    End If
End Sub