INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.

Join the forum, it's quick and easy

INTECH
Chào Mừng Bạn Đã Ghé Thăm Diễn Đàn Intech.forumvi.com của chúng tôi.

Mong rằng tại đây bạn sẽ nhận được những thông tin hữu ích,, và đáp ứng được nhu cầu của bạn.

Tuy ít nhiều chúng tôi vẫn còn khá nhiều thiếu sót về nội dung và hình thức, mong nhận được ý kiến đóng góp từ các bạn để chúng tôi tự hoàn thiện.

Hiện tại, bạn có thể đăng nhập Intech thông qua Open ID Facebook, hết sức nhanh chóng và tiện lợi.

Xin lưu ý: Thông tin bạn đăng kí về Giới tính và Ngày sinh, chúng tôi khảo sát nhằm thống kê và kịp gửi lời chúc mừng đến các bạn trong các dịp lễ, sinh hoạt,...trong Diễn Đàn.

Quyền Lợi: Được tham gia giao lưu, chia sẻ kinh nghiệm cùng các thành viên, được tải các tài liệu, phần mềm hỗ trợ cần thiết,...

Các đường Link chỉ sử dụng được khi đã đăng nhập.

Xin Cảm Ơn và gửi đến các bạn lời chào Thân Ái từ Intech.forumvi.com.
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
Đơn vị cung cấp sản phẩm giá cạnh tranh với nhiều loại mặt hàng.Là đơn vị tài trợ hàng đầu của Forum. Liên kết: https://thanhnguyenstore.com/
Latest topics
Lắp máy chiếu phòng họp văn phòng tại Hà NộiWed May 24, 2023 3:00 pmmaychieumanchieu
Cách chọn màn chiếu treo tường phù hợp nhu cầuSat May 06, 2023 4:22 pmmaychieumanchieu
Cho thuê máy chiếu tại Hà Nội giá rẻ uy tínSun Apr 16, 2023 4:36 pmmaychieumanchieu
Dịch vụ cho thuê máy chiếu loa mic tại Hà NộiFri Mar 24, 2023 3:03 pmmaychieumanchieu
Địa chỉ bán máy chiếu cũ giá rẻ tại Hà NộiMon Mar 20, 2023 5:43 pmmaychieumanchieu
Dịch vụ cho thuê máy chiếu tại Hà NộiSun Mar 12, 2023 3:43 pmmaychieumanchieu
Sửa chữa máy chiếu uy tín tại Hà NộiMon Feb 27, 2023 5:16 pmmaychieumanchieu
Máy chiếu cũ giá rẻ từ 2 triệu tại Hà NộiFri Feb 17, 2023 5:28 pmmaychieumanchieu
Cho thuê máy chiếu hội thảo tại Hà NộiWed Feb 15, 2023 11:06 ammaychieumanchieu
Sửa máy chiếu tại Cầu Giấy Sat Feb 04, 2023 5:06 pmmaychieumanchieu
Tạo thiệp giáng sinh gửi tặng bạn bèWed Nov 09, 2022 7:16 amisabellanguyen
CÔNG BỐ WEBSITE THANH NGUYÊN STOREWed Apr 06, 2022 10:21 pmThanh Nguyên
Thích Bài viết này
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 6 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 6 Khách viếng thăm :: 1 Bot

Không

View the whole list


Go down
Thanh Nguyên
Thanh Nguyên
Admin
Admin
Tổng số bài gửi : 527
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 31
Đến từ : Bà Rịa-Vũng Tàu
https://thanhnguyenstore.com/

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Empty Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database)

Tue Apr 02, 2013 7:48 pm
Trong web ASP.NET, giỏ hàng đóng vai trò chủ yếu và quan trọng đối với các website bán hàng trực tuyến. Hôm nay INTECH xin hướng dẫn các bạn tạo một trang giỏ hàng đơn giản, hi vọng sẽ giúp được các bạn thực hiện một website như ý mình mong muốn.

Các bạn tạo 1 file CSDL.mdb và lưu tại App_Data gồm các trường: Masp, tensp, dongia, hinh

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Ashamp21

và chuẩn bị một thư mục hình ảnh các sản phẩm:

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Ashamp22

Các bạn tạo một Website mới đặt tên cho nó là Giỏ Hàng (Hoặc Shopping-cart tuỳ theo ý thích).

Tại trang Default.aspx, các bạn thiết kế giao diện như sau:

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Ashamp18

Các bạn Imports 2 thư viện vào phần trên cùng của trang Default.aspx.vb:

Code:
Imports System.Data
Imports System.DBNull

Các bạn khởi tạo 1 tbgiohang bằng cách thêm vào bên dưới:

Code:
Partial Class _Default
    Inherits System.Web.UI.Page

đoạn code:

Code:
 Dim tbgiohang As New DataTable

Sau khi đã đặt tên cho Datalist là "luoihang", chúng ta xử lý sự kiện khi nhấn nút ibtmuahang bằng code sau:

Code:
Protected Sub luoihang_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles luoihang.ItemCommand
        If e.CommandName = "ibtmuahang" Then
            tbgiohang = CType(Session("GioHang"), DataTable)
            Dim intidsp, tong, flgia As Integer
            intidsp = Val(luoihang.DataKeys(e.Item.ItemIndex).ToString())
            Dim strtensp As String
            Dim intsoluong As Integer = 1
            Dim l1 As Label
            l1 = e.Item.FindControl("lbgia")
            flgia = Val(l1.Text)
            Dim lb As HyperLink
            lb = e.Item.FindControl("hpten")
            strtensp = lb.Text
            For Each row As DataRow In tbgiohang.Rows
                If (Val(row("masp")) = intidsp) Then
                    row("soluong") = Val(row("soluong")) + 1
                    row("tongtien") = Val(row("soluong")) * Val(row("gia"))
                    GoTo GioHang
                End If
            Next row
            tong = intsoluong * flgia
            tbgiohang.Rows.Add(intidsp, strtensp, flgia, intsoluong, tong)
GioHang:
            Session("GioHang") = tbgiohang
            Response.Write("<script>alert('Thêm vào giỏ hàng thành công')</script>")
            GridView1.DataSource = tbgiohang
            GridView1.DataBind()
        End If
    End Sub

* Đoạn trên add masp và số lượng sản phẩm vào 1 tbgiohang, nếu đã tồn tại sản phẩm thì tăng số lượng lên sau mỗi lần click mua sản phẩm đó.

Tại Page Load, chúng ta kiểm tra session("GioHang"):

Code:
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            If IsDBNull(Session("GioHang")) = True Then
                tbgiohang = Session("GioHang")
            Else
                tbgiohang.Rows.Clear()
                tbgiohang.Columns.Clear()
                tbgiohang.Columns.Add("masp", GetType(Integer))
                tbgiohang.Columns.Add("tensp", GetType(String))
                tbgiohang.Columns.Add("Gia", GetType(Integer))
                tbgiohang.Columns.Add("soluong", GetType(Integer))
                tbgiohang.Columns.Add("tongtien", GetType(Double))
                Session("GioHang") = tbgiohang
            End If
        End If
    End Sub

nếu session("GioHang") khác NULL chúng ta sẽ gán Session("GioHang") = tbgiohang.

Lưu Ý:
Khi tạo nút ibtmuahang, tại Command Name các bạn gõ tên của nó vào: ibtmuahang

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Ashamp19

Cuối cùng, biến Session("GioHang") các bạn khai báo trong file Global.asax:

Code:
Sub Session_Start(ByVal sender As Object, ByVal e As EventArgs)
        ' Code that runs when a new session is started
        Session.Timeout = 20
        Session("GioHang") = 0
    End Sub

Kết quả chúng ta được như sau:

Tạo Giỏ Hàng-ASP.NET (VB.NET + Access Database) Ashamp20

Chúc các bạn thành cồng, file đính kèm ở bên dưới:

Download Demo

Smile
Về Đầu Trang
Permissions in this forum:
Bạn không có quyền trả lời bài viết