frm_login.frm

一个公司的客户财产管理系统vb源码

VERSION 5.00
Begin VB.Form Frm_Login 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "系统登陆"
   ClientHeight    =   2265
   ClientLeft      =   4590
   ClientTop       =   3525
   ClientWidth     =   5970
   ControlBox      =   0   'False
   Icon            =   "Frm_Login.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2265
   ScaleWidth      =   5970
   Begin VB.ComboBox Cob_Department 
      Height          =   300
      Left            =   3090
      Style           =   2  'Dropdown List
      TabIndex        =   0
      Top             =   255
      Width           =   2535
   End
   Begin VB.CommandButton Cmd_Exit 
      Caption         =   "取 消(&X)"
      Height          =   400
      Left            =   4200
      TabIndex        =   4
      Top             =   1680
      Width           =   1215
   End
   Begin VB.CommandButton Cmd_OK 
      Caption         =   "确 定(&O)"
      Height          =   400
      Left            =   2880
      TabIndex        =   3
      Top             =   1680
      Width           =   1215
   End
   Begin VB.TextBox TXT_OperatorPass 
      Height          =   300
      IMEMode         =   3  'DISABLE
      Left            =   3090
      PasswordChar    =   "*"
      TabIndex        =   2
      Text            =   "Text2"
      Top             =   990
      Width           =   2535
   End
   Begin VB.TextBox TXT_OperatorName 
      Height          =   300
      Left            =   3090
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   600
      Width           =   2535
   End
   Begin VB.Image Image1 
      Height          =   735
      Left            =   240
      Top             =   360
      Width           =   735
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000000FF&
      X1              =   0
      X2              =   6600
      Y1              =   1440
      Y2              =   1440
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "密码(&P):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   1
      Left            =   1890
      TabIndex        =   7
      Top             =   1035
      Width           =   930
   End
   Begin VB.Label lblLabels 
      AutoSize        =   -1  'True
      Caption         =   "操作员(&U):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Index           =   0
      Left            =   1665
      TabIndex        =   6
      Top             =   645
      Width           =   1155
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "所在部门(&D):"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   10.5
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   -1  'True
         Strikethrough   =   0   'False
      EndProperty
      Height          =   210
      Left            =   1440
      TabIndex        =   5
      Top             =   300
      Width           =   1380
   End
End
Attribute VB_Name = "Frm_Login"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False

Private Sub cmd_Exit_Click()
    End
End Sub

Private Sub cmd_OK_Click()
On Error GoTo err
  Dim Cn_Department As ADODB.Connection
  Dim Rs_Department As ADODB.Recordset
  Set Cn_Department = New ADODB.Connection
  Cn_Department.Open Cs
  Set Rs_Department = New ADODB.Recordset
  Rs_Department.Open "select * from operator where 用户名='" & Me.TXT_OperatorName.text & "' and 密码='" & Me.TXT_OperatorPass.text & "' and 所在部门='" & Me.Cob_Department.text & "'", Cn_Department, adOpenKeyset, adLockOptimistic, adCmdText
  If Rs_Department.RecordCount = 1 Then
    OperatorName = Rs_Department!用户名
    OperatorPass = Rs_Department!密码
    OperatorDepartment = Rs_Department!所在部门
    OperatorLevel = Rs_Department!权限级别
'    Load Frm_Customer_Riches
'    Frm_Customer_Riches.Show vbModal
    Unload Me
    Load Frm_Main
    Frm_Main.Show
  Else
    MsgBox "输入有错误！" + Chr(13) + "请重新输入！", vbCritical
    Me.TXT_OperatorName.text = ""
    Me.TXT_OperatorPass.text = ""
    Me.Cob_Department.SetFocus
  End If
  Rs_Department.Close
  Cn_Department.Close

Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub

Private Sub Cob_Department_KeyPress(KeyAscii As Integer)
On Error GoTo err

  Call ENTER(KeyAscii)
  
Exit Sub
err:
   MsgBox err.Description, vbCritical
  
End Sub

Private Sub Form_Load()
On Error GoTo err
  Dim Cn_Department As ADODB.Connection
  Dim Rs_Department As ADODB.Recordset
  Dim i As Integer
    Me.Icon = LoadPicture(App.Path & "\icon\mima.ico")
    Me.Image1.Picture = LoadPicture(App.Path & "\icon\mima.ico")
  Set Cn_Department = New ADODB.Connection
  Cn_Department.Open Cs
  Set Rs_Department = New ADODB.Recordset
  Rs_Department.Open "select * from Department", Cn_Department, adOpenKeyset, adLockOptimistic, adCmdText
  If Rs_Department.RecordCount <> 0 Then
    Rs_Department.MoveFirst
    For i = 1 To Rs_Department.RecordCount
      Me.Cob_Department.AddItem Rs_Department!部门名称
      Rs_Department.MoveNext
    Next i
  End If
  Rs_Department.Close
  Cn_Department.Close
  Me.TXT_OperatorName = ""
  Me.TXT_OperatorPass = ""

Exit Sub
err:
   MsgBox "数据库连接失败!", vbCritical
   End
End Sub

Private Sub TXT_OperatorName_KeyPress(KeyAscii As Integer)
On Error GoTo err

  Call ENTER(KeyAscii)
  
Exit Sub
err:
   MsgBox err.Description, vbCritical
  
End Sub

Private Sub TXT_OperatorPass_KeyPress(KeyAscii As Integer)
On Error GoTo err

  If KeyAscii = 13 Then Call cmd_OK_Click

Exit Sub
err:
   MsgBox err.Description, vbCritical
End Sub