frmadduser.frm

实现某班级的图书信息管理

VERSION 5.00
Begin VB.Form FrmAddUser 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "添加用户"
   ClientHeight    =   3315
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   4755
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   3315
   ScaleWidth      =   4755
   Begin VB.Data DataAddUser 
      Caption         =   "Data1"
      Connect         =   "Access"
      DatabaseName    =   ""
      DefaultCursorType=   0  'DefaultCursor
      DefaultType     =   2  'UseODBC
      Exclusive       =   0   'False
      Height          =   345
      Left            =   1320
      Options         =   0
      ReadOnly        =   0   'False
      RecordsetType   =   1  'Dynaset
      RecordSource    =   ""
      Top             =   0
      Visible         =   0   'False
      Width           =   1215
   End
   Begin VB.CommandButton CmdOK 
      Caption         =   "确定"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   2520
      Width           =   975
   End
   Begin VB.CommandButton CmdExit 
      Caption         =   "退出"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   2640
      TabIndex        =   4
      Top             =   2520
      Width           =   975
   End
   Begin VB.TextBox TxtPasswordCheck 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   1920
      Width           =   1815
   End
   Begin VB.TextBox TxtPassword 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      IMEMode         =   3  'DISABLE
      Left            =   1440
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1320
      Width           =   1815
   End
   Begin VB.TextBox TxtUser 
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   1440
      TabIndex        =   0
      Top             =   600
      Width           =   1815
   End
   Begin VB.Label Label3 
      Caption         =   "验证密码："
      Height          =   375
      Left            =   480
      TabIndex        =   7
      Top             =   1920
      Width           =   975
   End
   Begin VB.Label Label2 
      Caption         =   "密码："
      Height          =   375
      Left            =   480
      TabIndex        =   6
      Top             =   1440
      Width           =   735
   End
   Begin VB.Label Label1 
      Caption         =   "用户名："
      Height          =   375
      Left            =   480
      TabIndex        =   5
      Top             =   720
      Width           =   735
   End
End
Attribute VB_Name = "FrmAddUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
 '************************************************************************
     '本窗本用于添加新用户
 '*************************************************************************
Option Explicit
Private rsUserTable As Recordset '定义一窗体级变量，存放用户表的记录

Private Sub CmdExit_Click()
    Unload Me
End Sub

Private Sub CmdOK_Click()
    '对输入的内容进行检查
    If TxtUser.Text = "" Or TxtPassword.Text = "" Or TxtPasswordCheck.Text = "" Then
        MsgBox "请输入完整！", vbOKOnly + vbExclamation, "增添用户"
        Exit Sub
        
    End If
    If TxtPassword.Text <> TxtPasswordCheck.Text Then
        MsgBox "两次密码输入不一致", vbOKOnly + vbInformation, "增添用户"
        TxtPassword = ""
        TxtPasswordCheck = ""
        Exit Sub
    End If
    '检查用户名是否重复，否，就进行添加，给出“注册成功”的消息
    With rsUserTable
        .FindFirst "username = '" & TxtUser & "'"
        If .NoMatch Then
            .AddNew
            .Fields("username") = TxtUser.Text
            .Fields("password") = TxtPassword
            .Update
            MsgBox TxtUser & "注册成功！", vbOKOnly + vbInformation, "增添用户"
        Else
            MsgBox "用户名" & TxtUser & "已经存在！", vbOKOnly + vbInformation, "增添用户"
            Exit Sub
        
        End If
        
    End With
   '清空文本以备再添加
    TxtUser.Text = ""
    TxtPassword = ""
    TxtPasswordCheck = ""
End Sub

Private Sub Form_Activate()
    '方便用户的添加，这个获焦点的方法只有在窗体加载完后才可进行
    TxtUser.SetFocus
End Sub

Private Sub Form_Load()
    '对窗体进行居中调整，并加载用户管理数据库
    Me.Left = (Screen.Width - Me.ScaleWidth) * 1 / 2
    Me.Top = (Screen.Height - Me.ScaleHeight) * 1 / 2
    
    InitializeDataPath '调用模块级函数进行路径的初始化
    DataAddUser.DatabaseName = DataPath
    
    DataAddUser.RecordSource = "select * from usertable "
    DataAddUser.Refresh
    Set rsUserTable = DataAddUser.Recordset
    
End Sub

Private Sub TxtPassword_KeyPress(KeyAscii As Integer)
    '对回车进行处理以方便用户
    If KeyAscii = 13 Then
        TxtPasswordCheck.SetFocus
    End If
End Sub

Private Sub TxtPasswordCheck_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        CmdOK_Click '等同于点击按钮
    End If
End Sub

Private Sub TxtUser_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        TxtPassword.SetFocus
    End If
End Sub