check.aspx.vb

1.使用源程序前系统必须安装Microsoft SQL Server 2000 3.将程序中数据库连接字符串中的Data Source项改成与安装后的SQL Server服务器的名称一致

Imports System.Data
Imports System.Data.SqlClient
Public Class check
    Inherits System.Web.UI.Page
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents SqlDataAdapter1 As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlInsertCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlUpdateCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents SqlDeleteCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DataSet21 As Shangwu.DataSet2
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlDataAdapter1 = New System.Data.SqlClient.SqlDataAdapter()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlInsertCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlUpdateCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.SqlDeleteCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.DataSet21 = New Shangwu.DataSet2()
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=localhost;initial catalog=Shangwu;persist security info=False;user id" & _
        "=sa;password=lovess;workstation id=LIGHT257;packet size=4096"
        '
        'SqlDataAdapter1
        '
        Me.SqlDataAdapter1.DeleteCommand = Me.SqlDeleteCommand1
        Me.SqlDataAdapter1.InsertCommand = Me.SqlInsertCommand1
        Me.SqlDataAdapter1.SelectCommand = Me.SqlSelectCommand1
        Me.SqlDataAdapter1.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "购买信息", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("id", "id"), New System.Data.Common.DataColumnMapping("用户id", "用户id"), New System.Data.Common.DataColumnMapping("商品id", "商品id"), New System.Data.Common.DataColumnMapping("购买时间", "购买时间"), New System.Data.Common.DataColumnMapping("已处理", "已处理"), New System.Data.Common.DataColumnMapping("已配送", "已配送"), New System.Data.Common.DataColumnMapping("备注", "备注")})})
        Me.SqlDataAdapter1.UpdateCommand = Me.SqlUpdateCommand1
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT id, 用户id, 商品id, 购买时间, 已处理, 已配送, 备注 FROM 购买信息 WHERE (用户id = @uid)"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@uid", System.Data.SqlDbType.VarChar, 10, "用户id"))
        '
        'SqlInsertCommand1
        '
        Me.SqlInsertCommand1.CommandText = "INSERT INTO 购买信息(id, 用户id, 商品id, 购买时间, 已处理, 已配送, 备注) VALUES (@id, @用户id, @商品id, @" & _
        "购买时间, @已处理, @已配送, @备注); SELECT id, 用户id, 商品id, 购买时间, 已处理, 已配送, 备注 FROM 购买信息 WHER" & _
        "E (id = @id)"
        Me.SqlInsertCommand1.Connection = Me.SqlConnection1
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配送"))
        Me.SqlInsertCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        '
        'SqlUpdateCommand1
        '
        Me.SqlUpdateCommand1.CommandText = "UPDATE 购买信息 SET id = @id, 用户id = @用户id, 商品id = @商品id, 购买时间 = @购买时间, 已处理 = @已处理, 已" & _
        "配送 = @已配送, 备注 = @备注 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Ori" & _
        "ginal_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS N" & _
        "ULL AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS" & _
        " NULL) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用" & _
        "户id = @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Or" & _
        "iginal_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL); SELECT id, 用户id, 商品id, " & _
        "购买时间, 已处理, 已配送, 备注 FROM 购买信息 WHERE (id = @id)"
        Me.SqlUpdateCommand1.Connection = Me.SqlConnection1
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@id", System.Data.SqlDbType.Int, 4, "id"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@用户id", System.Data.SqlDbType.VarChar, 10, "用户id"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@商品id", System.Data.SqlDbType.Int, 4, "商品id"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@购买时间", System.Data.SqlDbType.VarChar, 30, "购买时间"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已处理", System.Data.SqlDbType.Bit, 1, "已处理"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@已配送", System.Data.SqlDbType.Bit, 1, "已配送"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@备注", System.Data.SqlDbType.VarChar, 50, "备注"))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商品id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商品id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已处理", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已处理", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已配送", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已配送", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_用户id", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlUpdateCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_购买时间", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "购买时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'SqlDeleteCommand1
        '
        Me.SqlDeleteCommand1.CommandText = "DELETE FROM 购买信息 WHERE (id = @Original_id) AND (商品id = @Original_商品id OR @Origina" & _
        "l_商品id IS NULL AND 商品id IS NULL) AND (备注 = @Original_备注 OR @Original_备注 IS NULL " & _
        "AND 备注 IS NULL) AND (已处理 = @Original_已处理 OR @Original_已处理 IS NULL AND 已处理 IS NUL" & _
        "L) AND (已配送 = @Original_已配送 OR @Original_已配送 IS NULL AND 已配送 IS NULL) AND (用户id " & _
        "= @Original_用户id OR @Original_用户id IS NULL AND 用户id IS NULL) AND (购买时间 = @Origin" & _
        "al_购买时间 OR @Original_购买时间 IS NULL AND 购买时间 IS NULL)"
        Me.SqlDeleteCommand1.Connection = Me.SqlConnection1
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_商品id", System.Data.SqlDbType.Int, 4, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "商品id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_备注", System.Data.SqlDbType.VarChar, 50, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "备注", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已处理", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已处理", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_已配送", System.Data.SqlDbType.Bit, 1, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "已配送", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_用户id", System.Data.SqlDbType.VarChar, 10, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "用户id", System.Data.DataRowVersion.Original, Nothing))
        Me.SqlDeleteCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@Original_购买时间", System.Data.SqlDbType.VarChar, 30, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "购买时间", System.Data.DataRowVersion.Original, Nothing))
        '
        'DataSet21
        '
        Me.DataSet21.DataSetName = "DataSet2"
        Me.DataSet21.Locale = New System.Globalization.CultureInfo("zh-CN")
        Me.DataSet21.Namespace = "http://www.tempuri.org/DataSet2.xsd"
        CType(Me.DataSet21, System.ComponentModel.ISupportInitialize).EndInit()

    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
    Dim login As Integer = 0

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
    End Sub
    '登陆按钮事件
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        'nsql是SQL语句
        Dim nsql As String
        '设置错误陷阱
        On Error GoTo 10
        'ncomm是SQL命令
        Dim ncomm As New SqlCommand()
        '生成SQL语句
        nsql = "Select * from 客户信息 where username=" + Chr(39) + TextBox1.Text + Chr(39)
        Dim myreader As SqlDataReader
        SqlConnection1.Open()
        ncomm.Connection = SqlConnection1
        ncomm.CommandText = nsql
        '读出记录
        myreader = ncomm.ExecuteReader()
        myreader.Read()
        '得到Password
        Dim pass As String = myreader.GetString(2)
        '判断Password是否正确
        If pass = TextBox2.Text Then
            '正确的设置login信号
            login = 1
            Label7.Visible = False
        End If
        '不正确则弹出提示
10:     If login <> 1 Then Label7.Visible = True
        '关闭DataReader
        myreader.Close()
        '正确的登陆后显示购买信息
        If login = 1 Then
            '填写SQL语句中的参数
            SqlSelectCommand1.Parameters("@uid").Value = TextBox1.Text
            '填充数据集
            SqlDataAdapter1.Fill(DataSet21)
            '指定DataGrid1的数据源，并且绑定数据
            DataGrid1.DataSource = DataSet21
            DataGrid1.DataBind()
        End If
        '关闭数据库连接
        SqlConnection1.Close()
    End Sub
End Class