cart.aspx.vb

这是一个商务管理体系

Imports System.Data
Imports System.Data.SqlClient
Public Class cart
    Inherits System.Web.UI.Page
    Protected WithEvents Button1 As System.Web.UI.WebControls.Button
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents Label2 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox2 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Button2 As System.Web.UI.WebControls.Button
    Protected WithEvents Button3 As System.Web.UI.WebControls.Button
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents Table1 As System.Web.UI.WebControls.Table
    Protected WithEvents TextBox3 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label3 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox4 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label4 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox5 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label5 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox6 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label6 As System.Web.UI.WebControls.Label
    Protected WithEvents Button4 As System.Web.UI.WebControls.Button
    Protected WithEvents Label7 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox7 As System.Web.UI.WebControls.TextBox
    Protected WithEvents TextBox8 As System.Web.UI.WebControls.TextBox
    Protected WithEvents Label8 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox9 As System.Web.UI.WebControls.TextBox

    'sid是商品的id
    Dim sid As String
    'Login是登陆成功的标志
    Dim login As Integer = 0

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

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        '
        '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"

    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
        '得到商品的id
        sid = Request.QueryString("sid")
        '得到选择的商品信息
        'myrow是DataReader
        Dim myrow As SqlClient.SqlDataReader
        'nsql是SQL语句
        Dim nsql As String = "Select * from 商品信息  where id=" + sid
        'ncomm是SQL命令
        Dim ncomm As New SqlClient.SqlCommand()
        '打开数据库
        SqlConnection1.Open()
        '指定连接属性
        ncomm.Connection = SqlConnection1
        ncomm.CommandText = nsql
        '读出记录
        myrow = ncomm.ExecuteReader
        myrow.Read()
        '填充Table
        Table1.Rows(1).Cells(0).Text = myrow.Item(0)
        Table1.Rows(1).Cells(1).Text = myrow.Item(1)
        Table1.Rows(1).Cells(2).Text = myrow.Item(2)
        Table1.Rows(1).Cells(3).Text = myrow.Item(3)
        Table1.Rows(1).Cells(4).Text = myrow.Item(5)
        '隐含Textbox9是商品的数量
        TextBox9.Text = myrow.Item(4)
        '关闭DataReader和数据库连接
        myrow.Close()
        SqlConnection1.Close()

    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
        '正确的登陆后填充客户信息
        If login = 1 Then
            '隐含的Textbox7是用户信息中username对应的id
            TextBox7.Text = myreader.Item(0)
            TextBox3.Text = myreader.Item(3)
            TextBox4.Text = myreader.Item(4)
            TextBox5.Text = myreader.Item(5)
            TextBox6.Text = myreader.Item(6)
            '打开修改信息和确认购买的按钮
            Button1.Enabled = True
            Button4.Enabled = True
        End If
        '关闭DataReader和数据库连接
        myreader.Close()
        SqlConnection1.Close()
    End Sub
    '修改信息按钮事件
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        'ncommand是SQL命令
        Dim ncommand As New SqlCommand()
        'nsql是SQL语句
        Dim nsql As String
        nsql = "Update 客户信息 Set 姓名=" + Chr(39) + TextBox3.Text + Chr(39) + " ,电话=" + Chr(39) + TextBox4.Text + Chr(39) + " ,地址=" + Chr(39) + TextBox5.Text + Chr(39) + " ,备注=" + Chr(39) + TextBox6.Text + Chr(39) + " Where id=" + TextBox7.Text
        '打开数据库
        If SqlConnection1.State = ConnectionState.Closed Then SqlConnection1.Open()
        '指定SQL语句对应的连接,指定SQL语句
        ncommand.Connection = SqlConnection1
        ncommand.CommandText() = nsql
        '执行SQL语句，更新数据库
        ncommand.ExecuteNonQuery()
        '关闭数据库连接
        SqlConnection1.Close()
    End Sub
    '购买确认按钮事件
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        'ncommand是SQL命令，nsql是SQL语句，MyReader是DataReader
        Dim ncommand As New SqlCommand()
        Dim nsql As String
        Dim myreader As SqlDataReader
        '生成SQL语句，得到最后一个id号
        nsql = "Select count(id) from 购买信息"
        '打开数据库
        If SqlConnection1.State = ConnectionState.Closed Then SqlConnection1.Open()
        '指定SQL语句对应的连接,指定SQL语句
        ncommand.Connection = SqlConnection1
        ncommand.CommandText() = nsql
        '读出记录
        myreader = ncommand.ExecuteReader()
        myreader.Read()
        'n是最后一个ID号码
        Dim n As Integer = myreader.Item(0)
        myreader.Close()
        '生成购买SQL语句
        nsql = "Insert into 购买信息 values (" + Chr(39) + CStr(n + 1) + Chr(39) + " , " + Chr(39) + TextBox1.Text + Chr(39) + " , " + sid + " , " + Chr(39) + Today.Date.ToShortDateString + Chr(39) + " , " + Chr(39) + "0" + Chr(39) + " , " + Chr(39) + "0" + Chr(39) + " , " + Chr(39) + TextBox8.Text + Chr(39) + ")"
        ncommand.CommandText() = nsql
        '执行添加到购买信息数据表中的SQL语句
        ncommand.ExecuteNonQuery()
        '生成更新商品库存数量的SQL语句
        nsql = "Update 商品信息 Set 库存数量=" + CStr(TextBox9.Text - 1) + " Where id=" + sid
        ncommand.CommandText() = nsql
        TextBox1.Text = nsql
        '更新数据库
        ncommand.ExecuteNonQuery()
        '关闭数据库连接
        SqlConnection1.Close()
        '转向到ok.aspx
        Response.Redirect("ok.aspx")
    End Sub
End Class