知识大全 ASP.NET入门教程 13.4.5 计划结账[6]

Posted 2022-07-16 知

篇首语：聪明在于勤奋，天才在于积累。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 ASP.NET入门教程 13.4.5 计划结账[6]相关的知识，希望对你有一定的参考价值。

ASP.NET入门教程 13.4.5 计划结账[6] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

如果此时实际上正在登录阶段这个步骤才会起作用检查以查看是否己经验证用户如果没有验证则显示适当的错误消息通知用户他们这一次没有能够登录否则验证用户

Sub Wizard _NextButtonClick(ByVal sender As Object ByVal e As System Web UI WebControls WizardNavigationEventArgs)

If e CurrentStepIndex = Then

Dim l As System Web UI WebControls Login = CType(Wizard FindControl( Login ) Login)

If Membership ValidateUser(l UserName l Password) Then

FormsAuthentication SetAuthCookie(l UserName l RememberMeSet)

e Cancel = False

Else

Trace Write(l UserName l Password)

l InstructionText = Your login attempt was not successful Please try again

l InstructionTextStyle ForeColor = System Drawing Color Red

e Cancel = True

End If

End Sub

FinishButtonClick包含或许是最长的代码集但它并不像看起来那么复杂在此处将用户的订单写入到数据库必须能够在发生错误时回滚这一点首先创建连接字符串并且创建事务然后将结账过程中提供的所有详情读入到参数中有许多参数！具有成员名递送地址信用卡详情和整个购物车总价

Sub Wizard _FinishButtonClick(ByVal sender As Object ByVal e As System Web UI WebControls WizardNavigationEventArgs)

TODO: Move to ponent

Insert the order and order lines into the database

Dim conn As New SqlConnection(ConfigurationManager ConnectionStrings( WroxUnited ) ConnectionString)

Dim trans As SqlTransaction = Nothing

Dim cmd As New SqlCommand()

Dim OrderID As Integer

Try

conn Open()

trans = conn BeginTransaction

cmd Connection = conn

cmd Transaction = trans

cmd CommandType = Data CommandType StoredProcedure

set the order details

cmd CommandText = usp_OrderAdd

TODO: by default in beta creating a stored proc doesn t give execute perms

cmd CommandText = INSERT INTO Orders(MemberName OrderDate Name Address County PostCode Country SubTotal Discount Total) & _

VALUES (@MemberName @OrderDate @Name @Address @County @PostCode @Country @SubTotal @Discount @Total)

cmd Parameters Add( @MemberName Data SqlDbType VarChar )

cmd Parameters Add( @OrderDate Data SqlDbType DateTime)

cmd Parameters Add( @Name Data SqlDbType VarChar )

cmd Parameters Add( @Address Data SqlDbType VarChar )

cmd Parameters Add( @County Data SqlDbType VarChar )

cmd Parameters Add( @PostCode Data SqlDbType VarChar )

cmd Parameters Add( @Country Data SqlDbType VarChar )

cmd Parameters Add( @SubTotal Data SqlDbType Money)

cmd Parameters Add( @Discount Data SqlDbType Money)

cmd Parameters Add( @Total Data SqlDbType Money)

cmd Parameters( @MemberName ) Value = User Identity Name

cmd Parameters( @OrderDate ) Value = DateTime Now()

cmd Parameters( @Name ) Value = CType(Wizard FindControl( txtName ) TextBox) Text

cmd Parameters( @Address ) Value = CType(Wizard FindControl( txtAddress ) TextBox) Text

cmd Parameters( @County ) Value = CType(Wizard FindControl( txtCounty ) TextBox) Text

cmd Parameters( @PostCode ) Value = CType(Wizard FindControl( txtPostCode ) TextBox) Text

cmd Parameters( @Country ) Value = CType(Wizard FindControl( txtCountry ) TextBox) Text

cmd Parameters( @Total ) Value = Profile Cart Total

OrderID = Convert ToInt (cmd ExecuteScalar()) cha138/Article/program/net/201311/15649