adduser.aspx.vb

一个很不错的实验室管理系统,用vb+sql编写,功能强大,界面美观

Imports System.Data
Imports System.Data.SqlClient
Public Class AddUser
    Inherits clsBiz
    Protected WithEvents txtPass As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtRePass As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtUsername As System.Web.UI.WebControls.TextBox
    Protected WithEvents DIVMessage As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents DropDownListAddress As System.Web.UI.WebControls.DropDownList
    Protected WithEvents btnRegist As System.Web.UI.WebControls.Button
    Protected WithEvents btnDelete As System.Web.UI.WebControls.Button
    Protected WithEvents RegularVALtxtUsername As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RequireVALtxtUsername As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegulareVALtxtPass As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RequireVALtxtPass As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents RegularVALtxtRePass As System.Web.UI.WebControls.RegularExpressionValidator
    Protected WithEvents RequireVALtxtRePass As System.Web.UI.WebControls.RequiredFieldValidator
    Protected WithEvents CompareVAL As System.Web.UI.WebControls.CompareValidator
    Protected WithEvents VALSummary As System.Web.UI.WebControls.ValidationSummary
    Protected WithEvents txtUserType As System.Web.UI.WebControls.DropDownList

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
        Me.DIVMessage.InnerHtml = ""
        If Not IsPostBack Then
            '显示地址
            DisplayAddress(DropDownListAddress)
        End If
    End Sub
    Private Sub btnRegist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRegist.Click        
        '检查现在用户是否已经存在
        PubStrSql = "Select * From Users Where UserID='" & txtUsername.Text.Trim _
        & "' and Address='" & DropDownListAddress.SelectedItem.Text.Trim & "'"
        PubSqlCmd.CommandText = PubStrSql
        '使用datareader访问数据库，增加效率
        PubSqlDataReader = PubSqlCmd.ExecuteReader
        If PubSqlDataReader.Read() Then '存在用户
            PubSqlDataReader.Close() '释放资源   
            DIVMessage.InnerHtml = "<p align=center><b>该用户已经存在！<b>"
        Else
            PubSqlDataReader.Close() '释放资源    
            PubStrSql = "insert into Users(UserID,Department,Psw,Address) values('" _
            & txtUsername.Text.Trim & "','" & txtUserType.SelectedItem.Text & "','" _
            & txtPass.Text & "','" & DropDownListAddress.SelectedItem.Text.Trim & "')"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery() '插入数据库
            PubStrSql = "insert into TestPersonInfor(PersonName,Address) values ('" _
            & txtUsername.Text.Trim & "','" & DropDownListAddress.SelectedItem.Text.Trim & "')"
            PubSqlCmd.CommandText = PubStrSql
            PubSqlCmd.ExecuteNonQuery()
            DIVMessage.InnerHtml = "<p align=center><b>注册成功！</b>"
        End If
    End Sub

    Private Sub btnDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDelete.Click        
        PubStrSql = "Select * From Users Where UserID='" _
        & txtUsername.Text.Trim & "' and Address='" _
        & DropDownListAddress.SelectedItem.Text.Trim & "'"
        PubSqlCmd.CommandText = PubStrSql
        PubSqlDataReader = PubSqlCmd.ExecuteReader()
        If PubSqlDataReader.Read() Then
            If Trim(PubSqlDataReader.Item("Psw")) = txtPass.Text Then '密码正确
                PubSqlDataReader.Close() '释放资源
                PubStrSql = "delete from Users Where UserID='" & txtUsername.Text.Trim _
                               & "' and Address='" & DropDownListAddress.SelectedItem.Text.Trim & "'"
                PubSqlCmd.CommandText = PubStrSql
                PubSqlCmd.ExecuteNonQuery()
                PubStrSql = "delete from TestPersonInfor Where PersonName='" _
                & txtUsername.Text.Trim & "' and Address='" _
                & DropDownListAddress.SelectedItem.Text.Trim & "'"
                PubSqlCmd.CommandText = PubStrSql
                PubSqlCmd.ExecuteNonQuery()
                DIVMessage.InnerHtml = "<p align=center><b>该用户已经删除！<b>"
            Else
                DIVMessage.InnerHtml = "<p align=center><b>该用户密码不正确！<b>"
            End If
        Else
            PubSqlDataReader.Close() '释放资源
            DIVMessage.InnerHtml = "<p align=center><b>该用户不存在！<b>"
        End If
    End Sub
End Class