分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 数据库系统 > SQL Server > 查看源码

frmLogin.frm

资源名称：studentinformationmanagement.rar　[点击查看]
上传用户：rocksue
上传日期：2013-06-17
资源大小：41926k
文件大小：6k
源码类别：SQL Server
开发平台：SQL
frmLogin.frm：源码内容
  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
  153. Public OK As Boolean
  154. '记录确定次数
  155. Dim miCount As Integer
  156. Private Sub Form_Load()
  157.     Dim sBuffer As String
  158.     Dim lSize As Long
  161.     sBuffer = Space$(255)
  162.     lSize = Len(sBuffer)
  163.     Call GetUserName(sBuffer, lSize)
  164.     If lSize > 0 Then
  165.         txtUserName.Text = ""
  166.    
  167.     Else
  168.         txtUserName.Text = vbNullString
  169.     End If
  170.     
  172.     OK = False
  173.     miCount = 0
  174. End Sub
  178. Private Sub cmdCancel_Click()
  179.     OK = False
  180.     Me.Hide
  181. End Sub
  184. Private Sub cmdOK_Click()
  185.     Dim txtSQL As String
  186.     Dim mrc As ADODB.Recordset
  187.     Dim MsgText As String
  188.     'ToDo: create test for correct password
  189.     'check for correct password
  190.     
  191.     UserName = ""
  192.     If Trim(txtUserName.Text = "") Then
  193.         MsgBox "没有这个用户，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
  194.         txtUserName.SetFocus
  195.     Else
  196.         txtSQL = "select * from user_Info where user_ID = '" & txtUserName.Text & "'"
  197.         Set mrc = ExecuteSQL(txtSQL, MsgText)
  198.         If mrc.EOF = True Then
  199.             MsgBox "没有这个用户，请重新输入用户名!", vbOKOnly + vbExclamation, "警告"
  200.             txtUserName.SetFocus
  201.         Else
  202.             If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
  203.                 OK = True
  204.                 mrc.Close
  205.                 Me.Hide
  206.                 UserName = Trim(txtUserName.Text)
  207.             Else
  208.                 MsgBox "输入密码不正确，请重新输入！", vbOKOnly + vbExclamation, "警告"
  209.                 txtPassword.SetFocus
  210.                 txtPassword.Text = ""
  211.             End If
  212.         End If
  213.     End If
  214.     
  215.     miCount = miCount + 1
  216.     If miCount = 3 Then
  217.         Me.Hide
  218.     End If
  219.     Exit Sub
  220. End Sub