frmlogin.frm

一个用VB写的服装进销存源码

VERSION 5.00
Begin VB.Form frmlogin 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "用户登陆"
   ClientHeight    =   2265
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   4275
   Icon            =   "frmlogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2265
   ScaleWidth      =   4275
   StartUpPosition =   2  '屏幕中心
   Begin VB.ComboBox cmbcaozuoyuan 
      Height          =   300
      ItemData        =   "frmlogin.frx":08CA
      Left            =   1440
      List            =   "frmlogin.frx":08CC
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   600
      Width           =   2055
   End
   Begin VB.TextBox txtpassword 
      Height          =   270
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1080
      Width           =   2055
   End
   Begin VB.CommandButton cmdlogin 
      Caption         =   "登陆(&L)"
      Height          =   375
      Left            =   720
      TabIndex        =   2
      Top             =   1440
      Width           =   1335
   End
   Begin VB.CommandButton cmdclose 
      Caption         =   "退出(&Q)"
      Height          =   375
      Left            =   2280
      TabIndex        =   3
      Top             =   1440
      Width           =   1215
   End
   Begin VB.Label Label5 
      AutoSize        =   -1  'True
      Caption         =   "http://www.soyusky.com"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   -1  'True
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   210
      Left            =   1440
      TabIndex        =   8
      Top             =   1920
      Width           =   2310
   End
   Begin VB.Label Label4 
      AutoSize        =   -1  'True
      Caption         =   "作者主页:"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FF0000&
      Height          =   210
      Left            =   480
      TabIndex        =   7
      Top             =   1920
      Width           =   945
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户登陆"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   24
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   495
      Left            =   1200
      TabIndex        =   6
      Top             =   0
      Width           =   1920
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "用  户:"
      Height          =   180
      Left            =   720
      TabIndex        =   5
      Top             =   600
      Width           =   630
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "密  码:"
      Height          =   180
      Left            =   720
      TabIndex        =   4
      Top             =   1080
      Width           =   630
   End
End
Attribute VB_Name = "frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim rs As New ADODB.Recordset
Dim sql As String
Private Sub cmbcaozuoyuan_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        txtpassword.SetFocus
    End If
End Sub

Private Sub cmdclose_Click() '退出登陆
    If MsgBox("退出登陆将导致不能进入系统,您确定吗?", 36, "信息提示") = vbNo Then
        Exit Sub
    Else
    End
    End If
End Sub

Private Sub Form_Activate() '窗体激活事件
  sql = "select caozuoyuan from admin"
  rs.open sql, cn, adOpenDynamic, adLockOptimistic
  If rs.EOF = False Then rs.MoveLast
  If rs.BOF = False Then rs.MoveFirst
  For i = 0 To rs.RecordCount - 1
      cmbcaozuoyuan.AddItem rs!caozuoyuan
      rs.MoveNext
  Next i
  If cmbcaozuoyuan.ListCount > 0 Then cmbcaozuoyuan.ListIndex = 0
  rs.Close
  cmbcaozuoyuan.SetFocus
End Sub
Private Sub cmdlogin_Click()
Dim username As String
Dim userpass As String
Dim username1 As String
Dim userpass1 As String

Dim sql1 As String

Dim rs As New ADODB.Recordset
username = cmbcaozuoyuan.List(cmbcaozuoyuan.ListIndex)
userpass = MD5(Trim(txtpassword.Text))
sql = "select * from admin where caozuoyuan='" & username & "'"
sql1 = "select * from admin where mima='" & userpass & "'"
rs.open sql, cn
ifmana = rs!isguanli
mingzi = rs!caozuoyuan
username1 = rs!caozuoyuan
userpass1 = rs!mima
rs.Close
'确认操作员和密码
  If username = username1 And userpass = userpass1 Then
           MsgBox "系统登陆成功!", 48, "信息提示"                     '系统登录成功
           Unload Me
           frmmain.Show
         Else
           MsgBox "密码或管理权限有错误,请重新输入!", 48, "信息提示"
           txtpassword.SetFocus
           txtpassword.Text = ""
End If
End Sub

Private Sub Label5_Click()
    Dim myIe As Object
    Set myIe = CreateObject("InternetExplorer.Application")
    myIe.navigate "http://www.soyusky.com"
    myIe.Visible = True
End Sub

Private Sub txtpassword_KeyPress(KeyAscii As Integer)
    If Trim(txtpassword.Text) <> "" And KeyAscii = 13 Then
        cmdlogin_Click
    End If
End Sub