frmnewuser.frm

学生管理信息系统

VERSION 5.00
Begin VB.Form frmNewUser 
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "新用户注册"
   ClientHeight    =   3075
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   5835
   Icon            =   "frmNewUser.frx":0000
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmNewUser.frx":0CCA
   ScaleHeight     =   3075
   ScaleWidth      =   5835
   ShowInTaskbar   =   0   'False
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtNewPass2 
      BorderStyle     =   0  'None
      Height          =   220
      IMEMode         =   3  'DISABLE
      Left            =   1680
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   2
      Top             =   2020
      Width           =   1950
   End
   Begin VB.TextBox txtNewPass1 
      BorderStyle     =   0  'None
      Height          =   220
      IMEMode         =   3  'DISABLE
      Left            =   1680
      MaxLength       =   15
      PasswordChar    =   "*"
      TabIndex        =   1
      Top             =   1590
      Width           =   1950
   End
   Begin VB.TextBox txtUserName 
      BorderStyle     =   0  'None
      Height          =   220
      Left            =   1680
      MaxLength       =   10
      TabIndex        =   0
      Top             =   1165
      Width           =   1950
   End
   Begin VB.Label cmdExit 
      BackStyle       =   0  'Transparent
      Height          =   280
      Left            =   4980
      TabIndex        =   4
      Top             =   2760
      Width           =   705
   End
   Begin VB.Label cmdOK 
      BackStyle       =   0  'Transparent
      Height          =   280
      Left            =   4010
      TabIndex        =   3
      Top             =   2760
      Width           =   700
   End
End
Attribute VB_Name = "frmNewUser"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private conn As ADODB.Connection
Private rs As ADODB.Recordset
Private Sub cmdExit_Click()
 Unload Me
End Sub

Private Sub cmdExit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 cmdExit.BorderStyle = 1
End Sub

Private Sub cmdExit_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 cmdExit.BorderStyle = 0
End Sub

Private Sub cmdOK_Click()
 If LTrim$(RTrim$(txtUserName.Text)) <> "" Then
   If Trim(txtNewPass1.Text) <> "" Then
    If txtNewPass1.Text <> txtNewPass2.Text Then
     MsgBox "两次输入的密码不一致，请重新输入！", vbInformation + vbOKOnly, "提示"
     txtNewPass1.Text = "": txtNewPass2.Text = "": txtNewPass1.SetFocus
    Else
      InputUser                              '将新记录添加到数据库
    End If
   Else
    MsgBox "密码不能为空，请重新输入！"
    txtNewPass1.Text = ""
    txtNewPass1.SetFocus
   End If
 Else
   MsgBox "用户名不能为空！", vbQuestion + vbOKOnly, "提示"
   txtUserName.SetFocus
 End If
End Sub

Private Sub cmdOK_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
 cmdOK.BorderStyle = 1
End Sub

Private Sub cmdOK_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
 cmdOK.BorderStyle = 0
End Sub

Sub InputUser()              '添加用户模块
 Dim txtSQL As String
    txtSQL = "select * from user_Info where userName='" & Trim(txtUserName.Text) & "'"
    Set rs = New ADODB.Recordset
    rs.CursorLocation = adUseClient
    rs.Open txtSQL, conn, 2, 2
    If rs.EOF = False Then
       i = MsgBox("用户名已经存在！是否重新输入？", vbYesNo + vbExclamation, "警告")
       If i = vbYes Then
        txtUserName = ""
        txtUserName.SetFocus
        txtNewPass1.Text = ""
        txtNewPass2.Text = ""
       Else
        Me.Hide
        Exit Sub
       End If
    Else
      rs.AddNew
      rs.Fields(0) = Trim(txtUserName.Text)
      rs.Fields(1) = Trim(txtNewPass2.Text)
      rs.Fields(2) = 0
      rs.Update
      rs.Close
      MsgBox "恭喜你注册成功！"
      Me.Hide
    End If
End Sub

Private Sub Form_Activate()
txtUserName.Text = ""
txtUserName.SetFocus
txtNewPass1.Text = ""
txtNewPass2.Text = ""
End Sub

Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\xs.mdb"
conn.Open
End Sub

Private Sub Form_Unload(Cancel As Integer)
conn.Close
Set rs = Nothing
End Sub