adduser.aspx.vb

vb。net 2003数据库设计整套源代码

Imports System.Data
Imports System.Data.SqlClient
Imports System.Text
Public Class adduser
    Inherits System.Web.UI.Page
    Protected WithEvents MyDataGrid As System.Web.UI.WebControls.DataGrid
    Protected WithEvents userid As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents uname As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents password As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents sex As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents address As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents city As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents state As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents zip As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents contract As System.Web.UI.HtmlControls.HtmlSelect
    Protected WithEvents Message As System.Web.UI.HtmlControls.HtmlGenericControl
    Protected WithEvents dep As System.Web.UI.HtmlControls.HtmlInputText
    Protected WithEvents Submit1 As System.Web.UI.HtmlControls.HtmlInputButton

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <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: 此方法调用是 Web 窗体设计器所必需的
        '不要使用代码编辑器修改它。
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim MyConnection As SqlConnection

        '在程序的开始连接数据库
        MyConnection = New SqlConnection("user id=sa;password=;server=qianzh;" _
              & "database=library")
        If Not IsPostBack Then
            BindGrid()
        End If
    End Sub

    Sub Adduser_Click(ByVal Sender As Object, ByVal e As EventArgs)
        Dim MyConnection As SqlConnection

        '在程序的开始连接数据库
        MyConnection = New SqlConnection("user id=sa;password=;server=qianzh;" _
              & "database=library")
        Dim myCommand As SqlCommand
        Dim insertCmd As String
        '检查是否有空，给用户提示
        If (userid.Value = "" Or password.Value = "" Or uname.Value = "" _
           Or sex.Value = "") Then
            Message.InnerHtml = "请输入完整的信息"
            Message.Style("color") = "red"
            BindGrid()
            Exit Sub
        End If

        '插入数据
        insertCmd = "insert into reader values (@userid,@password,@uname,@sex, @dep);"

        myCommand = New SqlCommand(insertCmd, MyConnection)

        myCommand.Parameters.Add(New SqlParameter("@userid", _
        SqlDbType.Char, 10))
        myCommand.Parameters("@userid").Value = userid.Value

        myCommand.Parameters.Add(New SqlParameter("@password", _
           SqlDbType.Char, 6))
        myCommand.Parameters("@password").Value = password.Value

        myCommand.Parameters.Add(New SqlParameter("@uname", _
           SqlDbType.Char, 6))
        myCommand.Parameters("@uname").Value = uname.Value

        myCommand.Parameters.Add(New SqlParameter("@sex", _
           SqlDbType.Char, 4))
        myCommand.Parameters("@sex").Value = sex.Value

        myCommand.Parameters.Add(New SqlParameter("@dep", _
           SqlDbType.Char, 4))
        myCommand.Parameters("@dep").Value = dep.Value

        myCommand.Connection.Open()
        '  判断时候能够插入数据，给用户与提示
        Try
            myCommand.ExecuteNonQuery()
            Message.InnerHtml = "<b>纪录已经被添加</b><br>" & insertCmd
        Catch ex As SqlException
            If ex.Number = 2627 Then
                Message.InnerHtml = "该纪录已经存在" _
                   & "主键相同"
                Message.Style("color") = "red"

            Else
                Message.InnerHtml = "插入错误，轻检查您的输入时候超出范围"
                Message.Style("color") = "red"
            End If
        End Try
        '关闭数据库连接
        myCommand.Connection.Close()
        BindGrid()
    End Sub

    '绑定数据源到DataGrid  
    Sub BindGrid()
        Dim myConnection As SqlConnection
        Dim myCommand As SqlDataAdapter
        myConnection = New SqlConnection("user id=sa;password=;server=qianzh;" _
               & "database=library")
        myCommand = New SqlDataAdapter("SELECT * FROM reader", _
           myConnection)
        Dim ds As DataSet = New DataSet()
        myCommand.Fill(ds)
        MyDataGrid.DataSource = ds
        MyDataGrid.DataBind()
    End Sub


End Class