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.



 
Trang ChínhPortalTìm kiếmĐăng kýĐăng Nhập
Mua thẻ Điện thoại, thẻ Game
Latest topics
» Địa chỉ công ty bán màn chiếu, phụ kiện máy chiếu giá rẻ
Sun Oct 28, 2018 11:20 am by maychieumanchieu

» Dịch vụ cho thuê máy chiếu giá rẻ chất lượng uy tín
Sun Oct 14, 2018 2:20 pm by maychieumanchieu

» Bán màn chiếu, phụ kiện lắp đặt máy chiếu uy tín chuyên nghiệp
Tue Oct 02, 2018 4:23 pm by maychieumanchieu

» Địa chỉ cho thuê máy chiếu màn chiếu loa âm thanh giá rẻ tại Hà Nội
Fri Sep 14, 2018 3:04 pm by maychieumanchieu

» Trung tâm Sửa máy chiếu, thay bóng đèn máy chiếu chính hãng giá rẻ
Fri Aug 31, 2018 3:45 pm by maychieumanchieu

» Bán màn chiếu 3 chân, treo tường, phụ kiện máy chiếu giá rẻ
Sat Aug 25, 2018 2:41 pm by maychieumanchieu

» Công ty bán màn chiếu máy chiếu chất lượng tốt giá rẻ
Mon Aug 20, 2018 2:16 pm by maychieumanchieu

» Sửa máy chiếu uy tín chuyên nghiệp tại Hà Nội
Mon Aug 13, 2018 3:51 pm by maychieumanchieu

» Mua máy chiếu cũ, máy chiếu hỏng giá cao 0912 652 259
Thu Jun 07, 2018 2:06 pm by maychieumanchieu

» Hướng dẫn lắp màn chiếu, phông màn máy chiếu, bán màn chiếu
Sat May 19, 2018 5:54 pm by thueamthanh

» Dịch vụ cho thuê âm thanh, loa đài uy tín chuyên nghiệp chất lượng
Sun Apr 22, 2018 5:57 pm by maychieumanchieu

» Địa chỉ công ty cho thuê máy chiếu giá rẻ uy tín tại Hà Nội
Tue Apr 17, 2018 9:53 am by thueamthanh

»  Bán phụ kiện máy chiếu, màn chiếu giá rẻ chất lượng tốt 024 3918 5666
Wed Apr 11, 2018 6:24 pm by maychieumanchieu

» Công ty bán màn chiếu giá rẻ lắp đặt tận nơi, phụ kiện máy chiếu chính hãng
Fri Apr 06, 2018 10:11 am by maychieumanchieu

» Trung tâm sửa máy chiếu uy tín chuyên nghiệp, thay bóng đèn máy chiếu các hãng
Thu Apr 05, 2018 2:46 pm by maychieumanchieu

» Báo giá sửa chữa máy chiếu, thay bóng đèn, linh kiện máy chiếu 024 3918 5666
Tue Mar 20, 2018 3:17 pm by maychieumanchieu

» Tạo thiệp giáng sinh gửi tặng bạn bè
Mon Dec 19, 2016 8:50 pm by hohoangnhat1108

» Bàn chải du lịch
Thu Jan 07, 2016 4:21 am by zxc1234

» Màn chiếu giá rẻ tại Siêu thị máy chiếu MINH PHÁT
Mon Jan 04, 2016 1:55 pm by maychieumanchieu

» Tư vấn mua máy chiếu Projector trọn bộ lớp học giảng dạy
Tue Jul 14, 2015 11:09 am by maychieumanchieu

» Địa chỉ sửa chữa máy chiếu Projector uy tín lấy ngay
Thu Jul 09, 2015 11:43 am by maychieumanchieu

» Cửa hàng mua bán máy chiếu cũ, máy chiếu thanh lý giá cao
Sat Jul 04, 2015 2:09 pm by maychieumanchieu

» [Đột Kích 2] Ngày Vàng cuối tuần cùng báu vật lạ
Fri May 29, 2015 11:41 pm by maisao

» MU EX 501 ra mắt máy chủ mới EX501 - Chính thức Open lúc 10h 30/05/2015
Wed May 27, 2015 8:19 pm by Dolce

» MU Mới ra MUPHOXUA.COM - Server QUYỀN LỰC Season 2 - Alpha 28/5, Open 1/6
Wed May 27, 2015 3:39 pm by fury

» [Đột Kích 2] Ngày điều kiện cần để rước AK-47 vĩnh viễn về nhà
Tue May 26, 2015 12:39 pm by maisao

» [Đột kích 2.0] Bạn có đủ đô để đối mặt
Mon May 25, 2015 11:42 pm by maisao

» Đột Kích phá vỡ qui tắc 8 đấu 8 với chế độ chơi mới cực ‘cân não’
Mon May 25, 2015 8:55 pm by maisao

» Tuần lễ Thử thách Special Event - CF 2.0
Mon May 25, 2015 4:10 pm by maisao

» Trân Sunny - Mang nắng tới HalloStar
Sun May 24, 2015 4:45 pm by maisao

Calendar
Admin

Admin

Thích Bài viết này
Most Viewed Topics
Plant vs Zombies Crack và Hack
Sửa Lỗi Không Like, Comment...facebook
Khắc phục "The command prompt has been disabled by your administrator"
List bài hát Karaoke hay được nhiều người yêu thích
HP Probook 4430s trọn Bộ Driver
Struct-Quản Lí Sinh Viên.
Kết Nối CSDL và Winform trong VB.NET 2008
Phần Mềm Lịch Công Giáo 1/2013
Hướng Dẫn Cài Đặt Tubor C++ trên Win7 32bit
Facebook: Trang Trí Profile bằng ứng dụng Social Extras
Intech facebook welcome
Keywords
Lượt Truy Cập
Bộ Đếm
Thống Kê
Hiện có 0 người đang truy cập Diễn Đàn, gồm: 0 Thành viên, 0 Thành viên ẩn danh và 0 Khách viếng thăm :: 1 Bot

Không

Số người truy cập cùng lúc nhiều nhất là 61 người, vào ngày Sat Aug 26, 2017 8:58 pm

Share | .
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Thanh Nguyên
Admin
Admin
avatar

Tổng số bài gửi : 526
Được Cảm Ơn : 59
Join date : 11/10/2012
Age : 25
Đến từ : Bà Rịa-Vũng Tàu

Bài gửiTiêu đề: 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


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


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:


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


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:


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

Download Demo

Smile

_________________
Cộng Đồng It Vũng Tàu
Kinh Nghiệm-Học Hỏi-Chia Sẻ

[You must be registered and logged in to see this link.]
Về Đầu Trang Go down
http://www.jndev.cf
 

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

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
 :: Ngôn Ngữ Lập trình :: ASP.NET-