PRODUK.ASPX

<%@ Page Language="VB" MasterPageFile="~/HalamanMaster.master" AutoEventWireup="false" CodeFile="Produk.aspx.vb" Inherits="_Produk" title="Halaman Produk Bamboomedia" %>

<asp:Content ID="Content1" runat="server" ContentPlaceHolderID="ContentPlaceHolder1">
    <table cellpadding="0" cellspacing="0" width="100%">
        <tr>
            <td align="left" style="font-size: 10pt; width: 100%; font-family: Tahoma; height: 16px;
                background-color: gainsboro" valign="top">
                Daftar
                Produk</td>
        </tr>
        <tr>
            <td align="left" style="font-size: 10pt; width: 100%; font-family: Tahoma; height: 16px"
                valign="top">
                <asp:SqlDataSource ID="SqlDataSource1" runat="server" ConnectionString="<%$ ConnectionStrings:ShoppingCartConnectionString %>"
                    SelectCommand="SELECT [KodeBarang], [NamaBarang], [Harga], [Keterangan], [FileGambar] FROM [TBLBarang] " ProviderName="System.Data.SqlClient">
                </asp:SqlDataSource>
                <asp:Repeater ID="Repeater1" runat="server" DataSourceID="SqlDataSource1">
               
               
               
               
                <HeaderTemplate>
                <table cellpadding="0" cellspacing="0" width="100%">
                </HeaderTemplate>
               
                <ItemTemplate>
                    <tr>
                        <td align="left" style="width: 10%" valign="top">
                            <asp:Image ID="imgGambar" runat="server" ImageUrl='<%# "~/Image_Produk/" & Eval("FileGambar") %>' /></td>
                        <td align="left" style="width: 1px" valign="top">
                        </td>
                        <td align="left" style="width: 89%" valign="top">
                            <asp:Label ID="KodeBarang" runat="server" Text='<%# Eval("KodeBarang") %>'></asp:Label><br />
                            <asp:Label ID="NamaBarang" runat="server" Text='<%# Eval("NamaBarang") %>'></asp:Label><br />
                            <asp:Label ID="Harga" runat="server" Text='<%# Eval("Harga", "{0:n}") %>'></asp:Label><br />
                            <asp:TextBox ID="Jumlah" Text="1" runat="server" Width="25px"></asp:TextBox>
                            <asp:Button ID="butBeli" runat="server" CommandName="Beli" Text="Beli" PostBackUrl="~/Kasir.aspx?from=produk"/></td>
                    </tr>
                    <tr>
                        <td align="left" colspan="3" valign="top">
                            <asp:Label ID="Keterangan" runat="server" Text='<%# Eval("Keterangan") %>'></asp:Label></td>
                    </tr>
                    <tr>
                        <td align="left" style="width: 10%" valign="top">&nbsp
                        </td>
                        <td align="left" style="width: 1px" valign="top">
                        </td>
                        <td align="left" style="width: 89%" valign="top">
                        </td>
                    </tr>
                   
                </ItemTemplate>
               
                <FooterTemplate>
                </table>
                </FooterTemplate>
               
               
                </asp:Repeater>
               
            </td>
        </tr>
        <tr>
            <td align="left" style="font-size: 10pt; width: 100%; font-family: Tahoma; height: 16px"
                valign="top">
            </td>
        </tr>
    </table>
    </asp:Content>


PRODUK.ASPX.NET



Partial Class _Produk
    Inherits System.Web.UI.Page
    ' Difinisi variabel untuk Barang yang dipilih '
    Private kodeBarang As String = ""
    Private namaBarang As String = ""
    Private jumlahBarang As Integer = 0
    Private hargaBarang As Double = 0

    Public Function dataList() As ArrayList
        ' Barang yang dipilih disimpan dalam Array List
        Dim itemPilihan As ArrayList = New ArrayList
        itemPilihan.Add(kodeBarang)
        itemPilihan.Add(namaBarang)
        itemPilihan.Add(jumlahBarang)
        itemPilihan.Add(hargaBarang)
        dataList = itemPilihan
    End Function

    Protected Sub Repeater1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs) Handles Repeater1.ItemCommand
        ' Barang yang dipilih disimpan dalam variabel
        kodeBarang = CType(Repeater1.Items(e.Item.ItemIndex).FindControl("KodeBarang"), Label).Text
        namaBarang = CType(Repeater1.Items(e.Item.ItemIndex).FindControl("NamaBarang"), Label).Text
        jumlahBarang = CInt(CType(Repeater1.Items(e.Item.ItemIndex).FindControl("Jumlah"), TextBox).Text)
        hargaBarang = CType(Repeater1.Items(e.Item.ItemIndex).FindControl("Harga"), Label).Text

    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Inisialisasi variabel
        jumlahBarang = 0
        kodeBarang = ""
        namaBarang = ""
        hargaBarang = 0

    End Sub
End Class