frmlogin.frm

一个能够有效管理教师（含家庭人口）的住房信息系统（含信息的添加、修改、删除等）

VERSION 5.00
Begin VB.Form frmlogin 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "系统登录"
   ClientHeight    =   2235
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4050
   Icon            =   "frmlogin.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2235
   ScaleWidth      =   4050
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   698
      TabIndex        =   4
      Top             =   1560
      Width           =   975
   End
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2378
      TabIndex        =   5
      Top             =   1560
      Width           =   975
   End
   Begin VB.TextBox Text2 
      Height          =   320
      IMEMode         =   3  'DISABLE
      Left            =   1898
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   915
      Width           =   1335
   End
   Begin VB.TextBox Text1 
      Height          =   320
      Left            =   1898
      TabIndex        =   2
      Top             =   240
      Width           =   1335
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "密  码："
      Height          =   165
      Left            =   825
      TabIndex        =   1
      Top             =   990
      Width           =   720
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "用户名："
      Height          =   165
      Left            =   825
      TabIndex        =   0
      Top             =   318
      Width           =   720
   End
End
Attribute VB_Name = "frmlogin"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''                    教师住房管理系统   Version 1.0                    '''
'''                         （VB6.0 源代码）                             '''
'''                                                                      '''
'''                        俊彦软件工作室出品                            '''
'''                                                                      '''
'''            （浦口校区科技节“电子杯”程序设计大赛参赛作品）          '''
'''                                                                      '''
'''                程序设计：东南大学土木工程学院   周曹俊               '''
'''                                                                      '''
'''                 CopyRight AllRights Reserved (c)2003                 '''
'''                                                                      '''
'''                         2003年5月15日                                '''
'''                                                                      '''
'''                                                                      '''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Option Explicit
Dim mydb As Database, myrs As Recordset
Private Sub Command1_Click()
'登录系统
Static logincount As Integer
Dim strname As String, strpwd As String
strname = Text1.Text
strpwd = deypt(Text2.Text)  '对输入的密码加密
Set myrs = mydb.OpenRecordset("login")
myrs.MoveFirst
Do Until myrs.EOF
    '将用户输入的信息与数据库中的信息相比较
    If myrs!Name = strname And myrs!Password = strpwd Then
        myrs.edit
        myrs!Time = Now
        myrs.Update
        Exit Do
    End If
    myrs.MoveNext
Loop
If myrs.EOF Then        '未找到当前用户的注册信息，不允许登录系统
    MsgBox "用户名或密码错误！", vbCritical + vbOKOnly, SYSTITLE
    logincount = logincount + 1
    If logincount = 3 Then
        mydb.close
        Set frmlogin = Nothing
        End
    Else
        Text1.SetFocus
    End If
Else       '找到当前用户的注册信息，准予登录系统
    Load frmMDI
    Unload Me
    mydb.close
    Set frmlogin = Nothing
    frmMDI.Show
End If
End Sub
Private Sub Command2_Click()
End
mydb.close
Set frmlogin = Nothing
End Sub

Private Sub Form_Load()
Dim a As Integer
'初始化数据库对象和记录集对象
Set mydb = OpenDatabase(App.Path & "\Support\login.dll")
Set myrs = mydb.OpenRecordset("login")
'如果用户未设置用户名和密码
If myrs.EOF Then
    Unload frmSplash
    a = MsgBox("您未设置用户名和密码，是否现在设置？", vbQuestion + vbYesNo, SYSTITLE)
    If a = 6 Then
        Load frmset
        frmset.Show 1
        frmlogin.Visible = False
    Else
        End
    End If
End If
End Sub

Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.Text <> "" And KeyAscii = 13 Then
    Text2.SetFocus
    Text2.Text = ""
End If
End Sub
Private Sub Text2_KeyPress(KeyAscii As Integer)
If Text2.Text <> "" And KeyAscii = 13 Then
    Command1.Default = True
End If
If Text2.Text = "" And KeyAscii = 8 Then
    Text1.SetFocus
End If
End Sub