注册.aspx.vb

用VB.NET做的软件工程课程设计

Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
Imports System.Data.SqlClient
Imports System.IO
Imports System.Data
Partial Class 注册
    Inherits System.Web.UI.Page

    Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim empno As String = Me.TextBox1.Text.ToString()
        Dim sqlConnectString As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim dCon = New SqlConnection(sqlConnectString)
        dCon.Open()
        If Asc(empno) < 48 Or Asc(empno) > 57 Then
            MsgBox("编号错误！")
        Else
            Dim sql1 As String
            sql1 = "select count(*) from empinfo where empinfo.empno='" + empno + "'"
            Dim comm1 = New SqlCommand(sql1, dCon)
            Dim count1 As Short
            count1 = CShort(comm1.ExecuteScalar())
            If count1 = 0 Then
                MsgBox("你不是本公司职工")
                Response.Redirect("登录.aspx")
            End If
            If Asc(empno) < 48 Or Asc(empno) > 57 Then
                MsgBox("编号错误！")
            Else
                Dim sql As String
                sql = "select count(*) from empinfo,userinfo where userinfo.empno='" + empno + "'and empinfo.empno=userinfo.empno"
                Dim comm = New SqlCommand(sql, dCon)
                Dim count As Short
                count = CShort(comm.ExecuteScalar())

                If TextBox1.Text = String.Empty Then
                    MsgBox("用户名不能为空")

                ElseIf count > 0 Then
                    MsgBox("该用户已注册")
                    Response.Redirect("注册.aspx")
                Else
                    Label3.Visible = True
                    Label4.Visible = True
                    TextBox2.Visible = True
                    TextBox3.Visible = True
                    Button2.Visible = True
                    Button3.Visible = True
                    Label5.Visible = True
                    MsgBox("恭喜你，你可以使用该帐号！")
                    TextBox1.Enabled = False
                End If
            End If
        End If
    End Sub

    Protected Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim empno As String = Me.TextBox1.Text.ToString()
        Dim sqlConnectString As String = "data source=localhost; database=users;Integrated Security=SSPI; user Id=sa;password='';connection TimeOut=30;"
        Dim dCon = New SqlConnection(sqlConnectString)
        dCon.Open()
        Dim pwd As String = TextBox2.Text
        Dim confirmpwd As String = TextBox3.Text
        If pwd = confirmpwd Then
            Dim sql As String
            sql = "insert into userinfo values('" + TextBox1.Text + "','" + TextBox2.Text + "','职工')"
            Dim comm = New SqlCommand(sql, dCon)
            comm.ExecuteScalar()
            MsgBox("恭喜你注册成功！")
            Response.Redirect("登录.aspx")
        Else
            MsgBox("两次密码输入不一致！")
        End If

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub Button3_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button3.Click
        Response.Redirect("登录.aspx")
    End Sub
End Class