frmLogin.frm

上传用户:rocksue
上传日期:2013-06-17
资源大小:41926k
文件大小:6k
源码类别:SQL Server
开发平台:SQL
  1. VERSION 5.00
  2. Begin VB.Form frmLogin 
  3.    BorderStyle     =   3  'Fixed Dialog
  4.    Caption         =   "登录"
  5.    ClientHeight    =   3216
  6.    ClientLeft      =   36
  7.    ClientTop       =   336
  8.    ClientWidth     =   5100
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3216
  13.    ScaleWidth      =   5100
  14.    ShowInTaskbar   =   0   'False
  15.    StartUpPosition =   2  'CenterScreen
  16.    Tag             =   "Login"
  17.    Begin VB.CommandButton cmdCancel 
  18.       Cancel          =   -1  'True
  19.       Caption         =   "取消"
  20.       BeginProperty Font 
  21.          Name            =   "宋体"
  22.          Size            =   10.8
  23.          Charset         =   0
  24.          Weight          =   700
  25.          Underline       =   0   'False
  26.          Italic          =   0   'False
  27.          Strikethrough   =   0   'False
  28.       EndProperty
  29.       Height          =   360
  30.       Left            =   2580
  31.       TabIndex        =   4
  32.       Tag             =   "Cancel"
  33.       Top             =   1980
  34.       Width           =   1140
  35.    End
  36.    Begin VB.CommandButton cmdOK 
  37.       Caption         =   "确定"
  38.       Default         =   -1  'True
  39.       BeginProperty Font 
  40.          Name            =   "宋体"
  41.          Size            =   10.8
  42.          Charset         =   0
  43.          Weight          =   700
  44.          Underline       =   0   'False
  45.          Italic          =   0   'False
  46.          Strikethrough   =   0   'False
  47.       EndProperty
  48.       Height          =   360
  49.       Left            =   960
  50.       TabIndex        =   3
  51.       Tag             =   "OK"
  52.       Top             =   1980
  53.       Width           =   1140
  54.    End
  55.    Begin VB.TextBox txtPassword 
  56.       Height          =   288
  57.       IMEMode         =   3  'DISABLE
  58.       Left            =   1788
  59.       PasswordChar    =   "*"
  60.       TabIndex        =   2
  61.       Top             =   1488
  62.       Width           =   2325
  63.    End
  64.    Begin VB.TextBox txtUserName 
  65.       Height          =   288
  66.       Left            =   1788
  67.       TabIndex        =   1
  68.       Top             =   1092
  69.       Width           =   2325
  70.    End
  71.    Begin VB.Label Label2 
  72.       Caption         =   "版权提供:LL Software Corp."
  73.       BeginProperty Font 
  74.          Name            =   "仿宋_GB2312"
  75.          Size            =   15
  76.          Charset         =   134
  77.          Weight          =   700
  78.          Underline       =   0   'False
  79.          Italic          =   0   'False
  80.          Strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   372
  83.       Left            =   240
  84.       TabIndex        =   7
  85.       Top             =   2640
  86.       Width           =   4812
  87.    End
  88.    Begin VB.Label Label1 
  89.       Caption         =   "学生信息管理系统"
  90.       BeginProperty Font 
  91.          Name            =   "华文彩云"
  92.          Size            =   22.2
  93.          Charset         =   134
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   0   'False
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       ForeColor       =   &H80000002&
  100.       Height          =   612
  101.       Left            =   720
  102.       TabIndex        =   6
  103.       Top             =   240
  104.       Width           =   3852
  105.    End
  106.    Begin VB.Label lblLabels 
  107.       Caption         =   "用户密码"
  108.       BeginProperty Font 
  109.          Name            =   "宋体"
  110.          Size            =   10.8
  111.          Charset         =   0
  112.          Weight          =   700
  113.          Underline       =   0   'False
  114.          Italic          =   0   'False
  115.          Strikethrough   =   0   'False
  116.       EndProperty
  117.       Height          =   252
  118.       Index           =   1
  119.       Left            =   588
  120.       TabIndex        =   0
  121.       Top             =   1500
  122.       Width           =   1080
  123.    End
  124.    Begin VB.Label lblLabels 
  125.       Caption         =   "用户名"
  126.       BeginProperty Font 
  127.          Name            =   "宋体"
  128.          Size            =   10.8
  129.          Charset         =   134
  130.          Weight          =   700
  131.          Underline       =   0   'False
  132.          Italic          =   0   'False
  133.          Strikethrough   =   0   'False
  134.       EndProperty
  135.       Height          =   252
  136.       Index           =   0
  137.       Left            =   720
  138.       TabIndex        =   5
  139.       Tag             =   "&User Name:"
  140.       Top             =   1116
  141.       Width           =   840
  142.    End
  143. End
  144. Attribute VB_Name = "frmLogin"
  145. Attribute VB_GlobalNameSpace = False
  146. Attribute VB_Creatable = False
  147. Attribute VB_PredeclaredId = True
  148. Attribute VB_Exposed = False
  149. Option Explicit
  150. Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpbuffer As String, nSize As Long) As Long
  151. Public OK As Boolean
  152. '记录确定次数
  153. Dim miCount As Integer
  154. Private Sub Form_Load()
  155.     Dim sBuffer As String
  156.     Dim lSize As Long
  157.     sBuffer = Space$(255)
  158.     lSize = Len(sBuffer)
  159.     Call GetUserName(sBuffer, lSize)
  160.     If lSize > 0 Then
  161.         txtUserName.Text = ""
  162.    
  163.     Else
  164.         txtUserName.Text = vbNullString
  165.     End If
  166.     
  167.     OK = False
  168.     miCount = 0
  169. End Sub
  170. Private Sub cmdCancel_Click()
  171.     OK = False
  172.     Me.Hide
  173. End Sub
  174. Private Sub cmdOK_Click()
  175.     Dim txtSQL As String
  176.     Dim mrc As ADODB.Recordset
  177.     Dim MsgText As String
  178.     'ToDo: create test for correct password
  179.     'check for correct password
  180.     
  181.     UserName = ""
  182.     If Trim(txtUserName.Text = "") Then
  183.         MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
  184.         txtUserName.SetFocus
  185.     Else
  186.         txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
  187.         Set mrc = ExecuteSQL(txtSQL, MsgText)
  188.         If mrc.EOF = True Then
  189.             MsgBox "没有这个用户,请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
  190.             txtUserName.SetFocus
  191.         Else
  192.             If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
  193.                 OK = True
  194.                 mrc.Close
  195.                 Me.Hide
  196.                 UserName = Trim(txtUserName.Text)
  197.             Else
  198.                 MsgBox "输入密码不正确,请重新输入!", vbOKOnly + vbExclamation, "警告"
  199.                 txtPassword.SetFocus
  200.                 txtPassword.Text = ""
  201.             End If
  202.         End If
  203.     End If
  204.     
  205.     miCount = miCount + 1
  206.     If miCount = 3 Then
  207.         Me.Hide
  208.     End If
  209.     Exit Sub
  210. End Sub