web/Add_userinfo.aspx.vb

这里只显示每个文件的开头 60 行。登录后可以解锁完整代码。

微信扫码关注公众号，代码整理好后第一时间通知你。

Imports BLL
Imports Model
Imports System.Data
Imports System.Data.SqlClient
Partial Class Add_userinfo
    Inherits System.Web.UI.Page
    Dim Syscrf As New SystemBLL()
    Dim sysuserinfo As New USERINFOBLL
    Dim struserinfo As New USERINFO
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            DeptGrid()
            If Request.QueryString("ID") Is Nothing Then
                savebtn0.Visible = False
            Else
                txt_id.Text = Request.QueryString("ID").ToString.Trim
                Panel3.Visible = False
                savebtn.Visible = False
                getdata()

            End If
        End If
    End Sub

    Private Sub DeptGrid()
        list_dept.DataSource = Syscrf.seachData("select DEPTCODE,DEPTNAME from Dept")
        list_dept.DataTextField = "DEPTNAME"
        list_dept.DataValueField = "DEPTCODE"
        list_dept.DataBind()
        list_dept.Items.Insert(0, "")
    End Sub

    Private Sub getdata()
        Dim dt As DataTable = Syscrf.seachData("select * from userinfo where id=" & txt_id.Text.Trim).Tables(0)
        txt_userid.Text = dt.Rows(0)("USERID").ToString
        txt_name.Text = dt.Rows(0)("USERNAME").ToString
        txt_pwd.Text = dt.Rows(0)("PWD").ToString
        list_dept.SelectedValue = dt.Rows(0)("DIMENSION").ToString
        txt_ADD.Text = dt.Rows(0)("ADDRESS").ToString
        txt_TEL.Text = dt.Rows(0)("TEL").ToString
        txt_LOCTEL.Text = dt.Rows(0)("LOCALTEL").ToString
        list_status.SelectedValue = dt.Rows(0)("STATUS").ToString
    End Sub

    Protected Sub savebtn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles savebtn.Click
        struserinfo.USERID = txt_userid.Text.Trim
        struserinfo.USERNAME = txt_name.Text.Trim
        struserinfo.DIMENSION = list_dept.Text.Trim
        struserinfo.PWD = txt_password.Text.Trim
        struserinfo.TRAINING = ""
        struserinfo.ADDRESS = txt_ADD.Text.Trim
        struserinfo.TEL = txt_TEL.Text.Trim
        struserinfo.LOCALTEL = txt_LOCTEL.Text.Trim
        struserinfo.SEX = 0
        struserinfo.STATUS = Convert.ToInt16(list_status.SelectedItem.Value)
        struserinfo.CREATER = Request.Cookies("sh")("userid").ToString
        'Request.Cookies("userid")("username").ToString
        If sysuserinfo.Add_USERINFO(struserinfo) > 0 Then
            Response.Redirect("UserInfomation.aspx")