frmset.frm

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

VERSION 5.00
Begin VB.Form frmset 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "设置您的用户名和密码"
   ClientHeight    =   2745
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4530
   Icon            =   "frmset.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2745
   ScaleWidth      =   4530
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.CommandButton Command2 
      Cancel          =   -1  'True
      Caption         =   "取消(&C)"
      Height          =   375
      Left            =   2520
      TabIndex        =   7
      Top             =   2160
      Width           =   1095
   End
   Begin VB.CommandButton Command1 
      Caption         =   "确定(&O)"
      Height          =   375
      Left            =   600
      TabIndex        =   6
      Top             =   2160
      Width           =   1095
   End
   Begin VB.TextBox Text3 
      Height          =   320
      IMEMode         =   3  'DISABLE
      Left            =   1920
      PasswordChar    =   "*"
      TabIndex        =   5
      Top             =   1560
      Width           =   1455
   End
   Begin VB.TextBox Text2 
      Height          =   320
      IMEMode         =   3  'DISABLE
      Left            =   1920
      PasswordChar    =   "*"
      TabIndex        =   3
      Top             =   960
      Width           =   1455
   End
   Begin VB.TextBox Text1 
      Height          =   320
      Left            =   1920
      TabIndex        =   1
      Top             =   480
      Width           =   1455
   End
   Begin VB.Label Label3 
      AutoSize        =   -1  'True
      Caption         =   "密码确认："
      Height          =   180
      Left            =   840
      TabIndex        =   4
      Top             =   1680
      Width           =   900
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      Caption         =   "密   码："
      Height          =   180
      Left            =   840
      TabIndex        =   2
      Top             =   1080
      Width           =   810
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "您的用户名："
      Height          =   180
      Left            =   720
      TabIndex        =   0
      Top             =   480
      Width           =   1080
   End
End
Attribute VB_Name = "frmset"
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 db As Database, rs As Recordset
Private Sub Command1_Click()
If Text2.Text <> Text3.Text Then
    MsgBox "两次输入密码不一致！", vbCritical + vbOKOnly, SYSTITLE
    Text2.Text = ""
    Text3.Text = ""
    Text2.SetFocus
Else
    With rs
        .AddNew
        !Name = Text1.Text
        !Password = deypt(Text2.Text)
        .Update
    End With
    Unload Me
    db.close
    Load frmlogin
    frmlogin.Show
End If
End Sub

Private Sub Command2_Click()
End
End Sub

Private Sub Form_Load()
'初始化数据库对象和记录集对象
Set db = OpenDatabase(App.Path & "\support\login.dll")
Set rs = db.OpenRecordset("login")
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text2.Text = ""
End If
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
SendKeys "{tab}"
Text3.Text = ""
End If
If Text2.Text = "" And KeyAscii = 8 Then
Text1.SetFocus
End If
End Sub

Private Sub Text3_KeyPress(KeyAscii As Integer)
If Text3.Text <> "" And KeyAscii = 13 Then
Command1_Click
End If
If Text3.Text = "" And KeyAscii = 8 Then
Text2.SetFocus
End If
End Sub