Partial Class User
Inherits System.Web.UI.Page
Private WithEvents GridView1 As GridView = New GridView()
Private WithEvents b_insert As Button = New Button()
Private l_username As Label = New Label()
Private tb_username As TextBox = New TextBox()
Private l_userpass As Label = New Label()
Private tb_userpass As TextBox = New TextBox()
Private l_insert As Label = New Label()
Private cb_a As CheckBox = New CheckBox()
Private cb_b As CheckBox = New CheckBox()
Private cb_c As CheckBox = New CheckBox()
Private cb_d As CheckBox = New CheckBox()
Private cb_e As CheckBox = New CheckBox()
Private cb_f As CheckBox = New CheckBox()
Private cb_g As CheckBox = New CheckBox()
Private cb_h As CheckBox = New CheckBox()
Private cb_i As CheckBox = New CheckBox()
Private cb_j As CheckBox = New CheckBox()
Private cb_k As CheckBox = New CheckBox()
Private cb_l As CheckBox = New CheckBox()
Private cb_m As CheckBox = New CheckBox()
Private cb_n As CheckBox = New CheckBox()
Private cb_o As CheckBox = New CheckBox()
Private cb_p As CheckBox = New CheckBox()
Private cb_q As CheckBox = New CheckBox()
Private cb_r As CheckBox = New CheckBox()
Private cb_s As CheckBox = New CheckBox()
Private cb_t As CheckBox = New CheckBox()
Private cb_u As CheckBox = New CheckBox()
Private cb_v As CheckBox = New CheckBox()
Private cb_w As CheckBox = New CheckBox()
Private cb_x As CheckBox = New CheckBox()
Private cb_y As CheckBox = New CheckBox()
Private cb_z As CheckBox = New CheckBox()
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
If Request.Cookies("username") IsNot Nothing And Request.Cookies("userpass") IsNot Nothing Then
Dim username As String = Request.Cookies("username").Value
Dim userpass As String = Request.Cookies("username").Value
Dao.sds.SelectCommand = "select count(*) from t_user where username = @username and userpass = @userpass and a = 1"
Dao.sds.SelectParameters.Clear()
Dao.sds.SelectParameters.Add("username", username)
Dao.sds.SelectParameters.Add("userpass", userpass)
Dim i As Integer = Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0)
If i = 0 Then
Response.Redirect("~/Index.aspx")
End If
Else
Response.Redirect("~/Default.aspx")
End If
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
b_insert.Text = "添加用户"
l_username.Text = "用户名"
l_userpass.Text = "密码"
l_insert.ForeColor = System.Drawing.Color.Red
cb_a.Text = "a"
cb_b.Text = "b"
cb_c.Text = "c"
cb_d.Text = "d"
cb_e.Text = "e"
cb_f.Text = "f"
cb_g.Text = "g"
cb_h.Text = "h"
cb_i.Text = "i"
cb_j.Text = "j"
cb_k.Text = "k"
cb_l.Text = "l"
cb_m.Text = "m"
cb_n.Text = "n"
cb_o.Text = "o"
cb_p.Text = "p"
cb_q.Text = "q"
cb_r.Text = "r"
cb_s.Text = "s"
cb_t.Text = "t"
cb_u.Text = "u"
cb_v.Text = "v"
cb_w.Text = "w"
cb_x.Text = "x"
cb_y.Text = "y"
cb_z.Text = "z"
Me.form1.Controls.Add(GridView1)
Me.form1.Controls.Add(b_insert)
Me.form1.Controls.Add(l_insert)
Me.form1.Controls.Add(l_username)
Me.form1.Controls.Add(tb_username)
Me.form1.Controls.Add(l_userpass)
Me.form1.Controls.Add(tb_userpass)
Me.form1.Controls.Add(cb_a)
Me.form1.Controls.Add(cb_b)
Me.form1.Controls.Add(cb_c)
Me.form1.Controls.Add(cb_d)
Me.form1.Controls.Add(cb_e)
Me.form1.Controls.Add(cb_f)
Me.form1.Controls.Add(cb_g)
Me.form1.Controls.Add(cb_h)
Me.form1.Controls.Add(cb_i)
Me.form1.Controls.Add(cb_j)
Me.form1.Controls.Add(cb_k)
Me.form1.Controls.Add(cb_l)
Me.form1.Controls.Add(cb_m)
Me.form1.Controls.Add(cb_n)
Me.form1.Controls.Add(cb_o)
Me.form1.Controls.Add(cb_p)
Me.form1.Controls.Add(cb_q)
Me.form1.Controls.Add(cb_r)
Me.form1.Controls.Add(cb_s)
Me.form1.Controls.Add(cb_t)
Me.form1.Controls.Add(cb_u)
Me.form1.Controls.Add(cb_v)
Me.form1.Controls.Add(cb_w)
Me.form1.Controls.Add(cb_x)
Me.form1.Controls.Add(cb_y)
Me.form1.Controls.Add(cb_z)
End Sub
Protected Sub GridView1_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.Init
Me.GridView1.AllowPaging = True
Me.GridView1.AutoGenerateDeleteButton = True
Me.GridView1.AutoGenerateEditButton = True
Me.GridView1.AutoGenerateSelectButton = True
Me.GridView1.Caption = "用户管理"
Me.GridView1.DataKeyNames = New String() {"username", "p_user_id"}
End Sub
Protected Sub GridView1_PreRender(ByVal sender As Object, ByVal e As System.EventArgs) Handles GridView1.PreRender
Dao.sds.SelectCommand = "select * from t_user order by username asc"
Me.GridView1.DataSource = Dao.sds
Me.GridView1.DataBind()
End Sub
Protected Sub GridView1_PageIndexChanging(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewPageEventArgs) Handles GridView1.PageIndexChanging
Me.GridView1.PageIndex = e.NewPageIndex
Me.GridView1.EditIndex = -1
End Sub
Protected Sub GridView1_RowEditing(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GridView1.RowEditing
Me.GridView1.EditIndex = e.NewEditIndex
End Sub
Protected Sub GridView1_RowCancelingEdit(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GridView1.RowCancelingEdit
Me.GridView1.EditIndex = -1
End Sub
Protected Sub GridView1_RowDeleting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GridView1.RowDeleting
Dim p_user_id As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString()
Dao.sds.DeleteParameters.Clear()
Dao.sds.DeleteCommand = "delete from t_user where p_user_id = @p_user_id"
Dao.sds.DeleteParameters.Add("p_user_id", p_user_id)
Dim i As Integer = Dao.sds.Delete()
If i > 0 Then
Me.l_insert.Text = "删除成功"
End If
Me.GridView1.EditIndex = -1
End Sub
Protected Sub GridView1_RowUpdating(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GridView1.RowUpdating
Dim p_user_id As String = Me.GridView1.DataKeys(e.RowIndex).Values("p_user_id").ToString()
Dim userpass As String = DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(2).Controls(0), TextBox).Text
If userpass.Length < 1 Or userpass.Length > 10 Then
Me.l_insert.Text = "密码太长或太短"
Return
End If
Dao.sds.UpdateCommand = "update t_user set userpass = @userpass, a = @a, b = @b, c = @c, d = @d, e = @e, f = @f, g = @g, h = @h, i = @i, j = @j, k = @k, l = @l, m = @m, n = @n, o = @o, p = @p, q = @q, r = @r, s = @s, t = @t, u = @u, v = @v, w = @w, x = @x, y = @y, z = @z where p_user_id = @p_user_id"
Dao.sds.UpdateParameters.Clear()
Dao.sds.UpdateParameters.Add("userpass", userpass)
Dao.sds.UpdateParameters.Add("a", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(3).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("b", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(4).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("c", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(5).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("d", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(6).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("e", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(7).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("f", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(8).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("g", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(9).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("h", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(10).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("i", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(11).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("j", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(12).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("k", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(13).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("l", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(14).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("m", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(15).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("n", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(16).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("o", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(17).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("p", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(18).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("q", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(19).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("r", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(20).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("s", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(21).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("t", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(22).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("u", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(23).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("v", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(24).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("w", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(25).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("x", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(26).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("y", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(27).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("z", DirectCast(Me.GridView1.Rows(e.RowIndex).Cells(28).Controls(0), CheckBox).Checked)
Dao.sds.UpdateParameters.Add("p_user_id", p_user_id)
Dim i As Integer = Dao.sds.Update()
If i > 0 Then
Me.l_insert.Text = "修改成功"
End If
Me.GridView1.EditIndex = -1
End Sub
Protected Sub b_insert_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles b_insert.Click
Dim username As String = tb_username.Text
Dim userpass As String = tb_userpass.Text
If username.Length < 1 Or username.Length > 10 Or userpass.Length < 1 Or userpass.Length > 10 Then
Me.l_insert.Text = "用户名或密码太长或太短"
Return
End If
Dao.sds.SelectCommand = "select count(*) from t_user where username = @username"
Dao.sds.SelectParameters.Clear()
Dao.sds.SelectParameters.Add("username", username)
Dim i As Integer = Dao.sds.Select(DataSourceSelectArguments.Empty)(0)(0)
If i > 0 Then
Me.l_insert.Text = "用户名已存在"
Return
End If
Dao.sds.InsertCommand = "insert into t_user (username, userpass, a, b, c, d, e, f, g, h, i, j, k, l, m, n, o, p, q, r, s, t, u, v, w, x, y, z) values (@username, @userpass, @a, @b, @c, @d, @e, @f, @g, @h, @i, @j, @k, @l, @m, @n, @o, @q, @q, @r, @s, @t, @u, @v, @w, @x, @y, @z)"
Dao.sds.InsertParameters.Clear()
Dao.sds.InsertParameters.Add("username", username)
Dao.sds.InsertParameters.Add("userpass", userpass)
Dao.sds.InsertParameters.Add("a", cb_a.Checked)
Dao.sds.InsertParameters.Add("b", cb_b.Checked)
Dao.sds.InsertParameters.Add("c", cb_c.Checked)
Dao.sds.InsertParameters.Add("d", cb_d.Checked)
Dao.sds.InsertParameters.Add("e", cb_e.Checked)
Dao.sds.InsertParameters.Add("f", cb_f.Checked)
Dao.sds.InsertParameters.Add("g", cb_g.Checked)
Dao.sds.InsertParameters.Add("h", cb_h.Checked)
Dao.sds.InsertParameters.Add("i", cb_i.Checked)
Dao.sds.InsertParameters.Add("j", cb_j.Checked)
Dao.sds.InsertParameters.Add("k", cb_k.Checked)
Dao.sds.InsertParameters.Add("l", cb_l.Checked)
Dao.sds.InsertParameters.Add("m", cb_m.Checked)
Dao.sds.InsertParameters.Add("n", cb_n.Checked)
Dao.sds.InsertParameters.Add("o", cb_o.Checked)
Dao.sds.InsertParameters.Add("p", cb_p.Checked)
Dao.sds.InsertParameters.Add("q", cb_q.Checked)
Dao.sds.InsertParameters.Add("r", cb_r.Checked)
Dao.sds.InsertParameters.Add("s", cb_s.Checked)
Dao.sds.InsertParameters.Add("t", cb_t.Checked)
Dao.sds.InsertParameters.Add("u", cb_u.Checked)
Dao.sds.InsertParameters.Add("v", cb_v.Checked)
Dao.sds.InsertParameters.Add("w", cb_w.Checked)
Dao.sds.InsertParameters.Add("x", cb_x.Checked)
Dao.sds.InsertParameters.Add("y", cb_y.Checked)
Dao.sds.InsertParameters.Add("z", cb_z.Checked)
Dim j As Integer = Dao.sds.Insert()
If j > 0 Then
Me.l_insert.Text = "添加成功"
End If
Response.Redirect("~/User.aspx")
End Sub
End Class