Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 108,130

HOME > .NET Framework > Forum > ขอโค้ดVB.net ที่เกี่ยวกับการคำนวณเงินค่าอาหารด้วยค่ะด่วนค่ะ



 

ขอโค้ดVB.net ที่เกี่ยวกับการคำนวณเงินค่าอาหารด้วยค่ะด่วนค่ะ

 



Topic : 032136

Guest




ต้องการโค้ดของ VB ค่ะที่ใช้ในการคำนวณค่าอาหาร



Tag : - - - -







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2009-09-24 13:24:57 By : ่สากห่ด View : 12588 Reply : 14
 

 

No. 1



โพสกระทู้ ( 74,054 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

มาแนวนี้ผมไม่รู้จะตอบยังไงจริง ๆ ครับ






Date : 2009-09-24 14:42:49 By : webmaster
 


 

No. 2

Guest


อึ้งกับคำถามนะคะ
Date : 2009-09-25 16:03:29 By : Eid
 

 

No. 3

Guest


frmSale

คือ ว่า เขียย โค๊ด อันนี้ไป ไม่ถูกเลย อ่ะค่ะ
ลบกวน ช่วย หน่อย นะค่ะ

พอ กดเพิ่ม รายการที่สั่ง ไปแล้ว ยอดเงิน ขึ้นเป็น พัน เลย ทั้ง ๆ ที่ สั่ง ไม่ถึง
แล้ว ส่วน ลดที่น่า จะได้ เฉพาะสมาชิก ก้อ ยัง ทำไม่ได้ เลย

ยัง ไง ช่วย อธิบาย ให้ ก็ได้ นะค่ะ

รบกวนด้วยค่ะ


ขอบคุณค่ะ
Date : 2010-01-27 19:07:00 By : ยัยใบบ้า
 


 

No. 4



โพสกระทู้ ( 394 )
บทความ ( 0 )



สถานะออฟไลน์


ที่บอกว่า

พอ กดเพิ่ม รายการที่สั่ง ไปแล้ว ยอดเงิน ขึ้นเป็น พัน เลย ทั้ง ๆ ที่ สั่ง ไม่ถึง

ผมว่าเอา Code ที่เขียนมาให้ดูดีกว่าครับ มาแบบนี้ไม่รู้ว่าคุณเขียนการคำนวนอย่างไร
Date : 2010-01-27 23:46:56 By : Nameless
 


 

No. 5



โพสกระทู้ ( 46 )
บทความ ( 0 )



สถานะออฟไลน์


ใช่ค่ะ เอา Code ที่เขียนมาด้วยดีกว่า จะได้ดูได้ตรงจุด
Date : 2010-01-28 03:41:37 By : Kwang196
 


 

No. 6

Guest


Code
[code][/code]Code (VB.NET)
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing.Printing

Public Class frmSale
    Dim Conn As New OleDbConnection(strConn)
    Dim connect As New OleDbConnection
    Dim da As New OleDbDataAdapter
    Dim ds As DataSet = New DataSet
    Dim dt As DataTable


    Dim tmpSumCommission As Double = 0
    Dim tmptxtMemId As String = ""

    Dim IsFind As Boolean = False
    Dim IsFindMember As Boolean = False
    Dim IsFindFood As Boolean = False
    Dim ToClose As Boolean = False
    Dim LastTransID As String = ""


    Private Sub frmSale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized

        AutoGeneratetakeid()
        'lbltakeid.Text = tmptakeid

        lsvFoodList.Columns.Add("รหัสอาหาร", 82, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("รายการอาหาร", 180, HorizontalAlignment.Left)
        lsvFoodList.Columns.Add("ราคา/หน่วย", 82, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("จำนวนที่สั่ง", 90, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("รวมเป็นเงิน", 100, HorizontalAlignment.Center)

        lsvFoodList.View = View.Details
        lsvFoodList.GridLines = True

        Conn = New OleDbConnection(strConn)
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        lbltotal.Text = "0"
        txtAmount.Text = "1"
        lblSalePrice.Text = "0"
        'lbltakeid.Focus()

        'AddHandler prDoc.PrintPage, New PrintPageEventHandler(AddressOf Me.StringToPrint_Print)
        'prDoc.DocumentName = "ใบเสร็จรับเงิน"
        'prDlg.Document = prDoc

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtMemId.Focus()
        txtMemId.Focus()

    End Sub
    Private Sub AutoGeneratetakeid()

    End Sub


    Private Sub btnShowMemberList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowMemberList.Click
        Dim fAllMember As New frmMemberList
        fAllMember.ShowDialog(Me)

        txtMemId.Text = rMem_Id
        txtMemName.Text = rMem_Name
        txtidcard.Text = rMemId_Card

        If rMem_Sex = "ชาย" Then
            OptMale.Checked = True
        ElseIf rMem_Sex = "หญิง" Then
            OptFemale.Checked = True
        End If

        txtMemAdd.Text = rMem_Add
        txtphone.Text = rMem_Phone

        txtMemId.Enabled = True
        chkNotMember.Checked = False

        rMem_Id = ""
        rMem_Name = ""
        rMemId_Card = ""
        rMem_Sex = "0"
        rMem_Add = ""
        rMem_Phone = ""
        rDateRegis = ""

        txtMemId.Focus()
    End Sub

    Private Sub chkNotMember_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkNotMember.CheckedChanged
        If chkNotMember.Checked = True Then

            ClearAllMemberData()
            AutoGenerateMemberID()

            txtMemId.Enabled = False
            'txtidcard.Enabled = False
            btnShowMemberList.Enabled = False

            txtMemName.Text = ""
            txtidcard.Text = ""
            txtMemAdd.Text = ""
            txtphone.Text = ""

            rMem_Id = ""
            rMem_Name = ""
            rMemId_Card = ""
            rMem_Sex = "0"
            rMem_Add = ""
            rMem_Phone = ""
            rIsMember = "1"

            txtMemName.Focus()
        ElseIf chkNotMember.Checked = False Then
            txtMemId.Text = ""
            txtMemId.Enabled = True
            txtMemId.Focus()
            txtMemName.Text = ""
            btnShowMemberList.Enabled = True

        End If

        ClearAllFoodData()
        lsvFoodList.Items.Clear()

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtFoodId.Focus()
    End Sub

    Private Sub AutoGenerateMemberID()
        Dim sqlTmp As String = ""
        Dim comTmp As OleDbCommand = New OleDbCommand
        Dim Tmp As OleDbDataReader
        Dim tmpMemberID As Integer = 0

        sqlTmp = "SELECT TOP 1 Mem_Id FROM Member ORDER BY Mem_Id DESC"

        Conn = New OleDbConnection(strConn)
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        Try
            With comTmp
                .CommandType = CommandType.Text
                .CommandText = sqlTmp
                .Connection = Conn
                Tmp = .ExecuteReader()

                Tmp.Read()

                tmpMemberID = CInt(CStr((Tmp.Item("Mem_Id"))))
                tmpMemberID = tmpMemberID + 1
                txtMemId.Text = tmpMemberID.ToString("0000")

            End With
        Catch
            tmptxtMemId = "0001"
        End Try

    End Sub

    Private Sub ClearAllMemberData()
        txtMemId.Text = ""
        txtMemName.Text = ""
        'cboMemberType.SelectedIndex = 0
        OptMale.Checked = True
        txtidcard.Text = ""
        txtphone.Text = ""
        txtMemAdd.Text = ""
    End Sub

    Private Sub ClearAllFoodData()
        txtFoodId.Text = ""
        lblTitle.Text = ""
        lblSalePrice.Text = ""
    End Sub

    Private Sub btnShowOrderList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowOrderList.Click
        If txtMemId.Text = "" Then
            MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtMemId.Focus()
            Exit Sub
        End If

        Dim fAllFood As New frmOrderFoodList
        fAllFood.ShowDialog(Me)

        txtFoodId.Text = rFood_Id
        lblTitle.Text = rFood_Name
        lblSalePrice.Text = rPrice

        'lblBookCost.Text = rBookCost.ToString()
        'lblBookInShop.Text = rBookInShop.ToString()

        rFood_Id = ""
        rFood_Name = ""
        rPrice = ""

        'Select Case rIsMember
        '    Case "0"
        '        lblSalePrice.Text = CStr(rNumberDateRent + rNumDateRentAdd)
        '    Case "1"
        '        lblNumberDateRent.Text = rNumberDateRent.ToString()
        'End Select

        'Try
        '    picCoverBook.Image = Image.FromFile(rPictureFileName)
        'Catch
        '    picCoverBook.Image = Nothing
        'End Try

        txtFoodId.Focus()
    End Sub

    Private Sub ClearAllData()
        txtFoodId.Text = ""
        lblTitle.Text = ""
        lblSalePrice.Text = ""

        'txtFoodNum.Text = "0"
        'lbltotal.Text = "1"

        'lblBookCost.Text = "0"
        'lblNumberDateRent.Text = "0"
        'lblBookInShop.Text = "0"

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lsvFoodList.Items.Clear()
        ClearAllFoodData()

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtFoodId.Focus()
    End Sub

    Private Sub txtMemId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMemId.KeyDown

        If txtMemId.Text <> "" Then
            If (e.KeyCode = Keys.Enter) Then
                Dim sqlMember As String = ""

                sqlMember = "SELECT Mem_id, Mem_Name, MemId_Card, Mem_Sex, Mem_Add, Mem_Phone"
                sqlMember &= " FROM Member"
                sqlMember &= " WHERE (Mem_id='" & txtMemId.Text & "')"

                With Conn
                    If .State = ConnectionState.Open Then .Close()
                    .ConnectionString = strConn
                    .Open()
                End With

                If IsFindMember = True Then
                    ds.Tables("Member").Clear()
                End If

                da = New OleDbDataAdapter(sqlMember, Conn)
                da.Fill(ds, "Member")

                If ds.Tables("Member").Rows.Count <> 0 Then
                    IsFind = True
                    txtMemId.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Id"))
                    txtMemName.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Name"))
                    txtMemAdd.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Add"))
                    txtidcard.Text = CStr(ds.Tables("Member").Rows(0).Item("MemId_Card"))
                    txtphone.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Phone"))


                    rIsMember = CStr(ds.Tables("Member").Rows(0).Item("IsMember"))

                    ClearAllMemberData()
                    lsvFoodList.Items.Clear()

                    txtFoodId.Focus()

                Else
                    IsFindMember = False
                    MessageBox.Show("รายชื่อสมาชิกที่คุณระบุ ไม่มี !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    rMem_Id = ""
                    rMem_Name = ""
                    rMemId_Card = ""
                    rMem_Sex = ""
                    rMem_Add = ""
                    rMem_Phone = ""
                    rDateRegis = "0"
                    rIsMember = "1"

                    txtMemId.Focus()
                    txtMemId.SelectAll()
                End If
            End If
        End If
    End Sub


    Private Sub txtFoodId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFoodId.KeyDown
        If txtFoodId.Text <> "" Then
            If (e.KeyCode = Keys.Enter) Then

                If txtFoodId.Text = "" Then
                    MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    txtFoodId.Focus()
                    Exit Sub
                End If

                Dim sqlFood As String = ""

                sqlFood = "SELECT Food_Id,Food_Name,price "
                sqlFood &= " FROM Food"
                sqlFood &= " WHERE (Food_Id='" & txtFoodId.Text & "')"

                If IsFindFood = True Then
                    ds.Tables("Food").Clear()
                End If

                da.SelectCommand.CommandText = sqlFood
                da.Fill(ds, "Food")

                Dim AllDateRent As Integer = 0
                If ds.Tables("Food").Rows.Count <> 0 Then
                    IsFindFood = True

                    txtFoodId.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Id"))
                    lblTitle.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Name"))
                    lblSalePrice.Text = CStr(ds.Tables("Food").Rows(0).Item("Price"))

                    'lbltotal.Text = CStr(ds.Tables("Food").Rows(0).Item("NumberDateRent"))

                    txtAmount.Focus()
                    txtAmount.SelectAll()
                Else
                    IsFindFood = False

                    'MessageBox.Show("ไม่พบรหัสอาหารตามที่คุณระบุ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    ClearAllFoodData()
                    txtFoodId.Focus()
                    txtFoodId.SelectAll()
                End If
            End If
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        If (txtFoodId.Text = "") Or (lblTitle.Text = "") Or (lblSalePrice.Text = "") Or (txtAmount.Text = "") Or (lbltotal.Text = "") Then
            txtFoodId.Focus()
            Exit Sub
        End If

        Dim i As Integer = 0
        Dim tmpFoodId As String = ""
        For i = 0 To lsvFoodList.Items.Count - 1
            tmpFoodId = lsvFoodList.Items(i).SubItems(0).Text

            If txtFoodId.Text = tmpFoodId Then
                MessageBox.Show("คุณเลือกรหัสอาหารซ้ำกัน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txtFoodId.Text = ""
                lblTitle.Text = ""
                lblSalePrice.Text = "0"
                txtAmount.Text = "1"
                lbltotal.Text = "0"

                txtFoodId.Focus()
                txtFoodId.SelectAll()
                Exit Sub
            End If
        Next

        Dim FoodTotal As Integer = 0
        Dim lvi As ListViewItem

        FoodTotal = CInt(lblSalePrice.Text) * CInt(txtAmount.Text)


        Dim anyData() As String
        anyData = New String() { _
            txtFoodId.Text, _
            lblTitle.Text, _
            lblSalePrice.Text, _
            txtAmount.Text, _
            lbltotal.Text, _
            FoodTotal.ToString("#,##0") _
        }

        lvi = New ListViewItem(anyData)
        lsvFoodList.Items.Add(lvi)

        CalculateRent()
        ClearAllBookData()

        txtFoodId.Focus()
    End Sub

    Private Sub lsvFoodList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsvFoodList.DoubleClick
        Dim i As Integer = 0
        For i = 0 To lsvFoodList.SelectedItems.Count - 1
            Dim lvi As ListViewItem
            lvi = lsvFoodList.SelectedItems(i)
            lsvFoodList.Items.Remove(lvi)
        Next

        CalculateRent()
    End Sub

    Sub ClearAllBookData()

    End Sub

    Sub CalculateRent()
        Dim i As Integer = 0
        Dim tmplblSalePrice As Integer = 0   'ราคา
        Dim tmptxtAmount As Integer = 0  'จำนวนที่ขาย
        Dim tmplbltotal As Integer = 0    'รวมเป็นเเงิน

        Dim tmpSum As Integer = 0
        Dim tmpDiscount As Integer = 0
        Dim tmpNetTotal As Integer = 0

        'If rIsMember = "1" Then
        '    rRentRateDiscount = 0
        'End If

        For i = 0 To lsvFoodList.Items.Count - 1

            tmplblSalePrice = CInt(lsvFoodList.Items(i).SubItems(2).Text)
            tmptxtAmount = CInt(lsvFoodList.Items(i).SubItems(3).Text)
            tmplbltotal = tmplbltotal + (tmplblSalePrice * tmptxtAmount)


            tmpSum = tmpSum + (tmptxtAmount * tmplblSalePrice * tmplbltotal)
            tmpDiscount = tmpDiscount + CInt((tmptxtAmount * tmplblSalePrice * tmplbltotal) * rRentRateDiscount)
            tmpNetTotal = tmpSum - tmpDiscount
        Next

        lblSumBeforeDiscount.Text = tmpSum.ToString("#,##0.00")
        lblDiscount.Text = tmpDiscount.ToString("#,##0.00")
        lblNet.Text = tmpNetTotal.ToString("#,##0.00")

        'Dim i As Integer = 0
        'Dim tmpNetTotal As Single = 0
        'For i = 0 To lsvFoodList.Items.Count - 1
        '    tmpNetTotal = tmpNetTotal + CSng(lsvFoodList.Items(i).SubItems(5).Text)
        'Next
        'lblNetTotal.Text = tmpNetTotal.ToString("#,##0.00")


    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        If txtMemId.Text = "" Then
            MessageBox.Show("กรุณาระบุรหัสลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtMemId.Focus()
            Exit Sub
        End If

        If chkNotMember.Checked = True Then
            If txtMemName.Text = "" Then
                MessageBox.Show("กรุณาระบุชื่อลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtMemName.Focus()
                Exit Sub
            End If
        End If

        If lsvFoodList.Items.Count = 0 Then
            MessageBox.Show("กรุณาป้อนรายการสั่งอาหารด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtFoodId.Focus()
            Exit Sub
        End If

        Dim sqlSave As String = ""
        Dim comSave As OleDbCommand = New OleDbCommand

        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

    End Sub

    Sub AutoGenerateTranID()

    End Sub


End Class



นี่ คือ โค๊ด ทั้ง หมด ที่ เขียน
เวลา เซป มัน เออ เล่ อ ด้วย

ส่วนตรง ส่วน ลด ต้องเป็น สมาชิก ถึง จะลด แต่ ถ้า ติกตรง เช็คบ็อก จะไม่ได้ ส่วน ลด * แล้ว ต้องเขียน เงื่อนไข ยังไง งง จริง ๆ ค่ะ

รบกวนดให้หน่อย นะค่ะ


ขอบคุณค่ะ
Date : 2010-01-28 08:54:32 By : ยัยใบบ้า
 


 

No. 7

Guest


แล้ว รหัส เลขที่ใบสั่ง มัน ก็ไม่รัน ออโต้ด้วย
จนปัญ ญา แล้ว ค่ะ
Date : 2010-01-28 08:56:48 By : ยัยใบบ้า
 


 

No. 8

Guest


Code (VB.NET)
Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Imports System.Drawing.Printing

Public Class frmSale
    Dim Conn As New OleDbConnection(strConn)
    Dim connect As New OleDbConnection
    Dim da As New OleDbDataAdapter
    Dim ds As DataSet = New DataSet
    Dim dt As DataTable


    Dim tmpSumCommission As Double = 0
    Dim tmptxtMemId As String = ""

    Dim IsFind As Boolean = False
    Dim IsFindMember As Boolean = False
    Dim IsFindFood As Boolean = False
    Dim ToClose As Boolean = False
    Dim LastTransID As String = ""


    Private Sub frmSale_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Me.WindowState = FormWindowState.Maximized

        AutoGeneratetakeid()
        'lbltakeid.Text = tmptakeid

        lsvFoodList.Columns.Add("รหัสอาหาร", 82, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("รายการอาหาร", 180, HorizontalAlignment.Left)
        lsvFoodList.Columns.Add("ราคา/หน่วย", 82, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("จำนวนที่สั่ง", 90, HorizontalAlignment.Center)
        lsvFoodList.Columns.Add("รวมเป็นเงิน", 100, HorizontalAlignment.Center)

        lsvFoodList.View = View.Details
        lsvFoodList.GridLines = True

        Conn = New OleDbConnection(strConn)
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        lbltotal.Text = "0"
        txtAmount.Text = "1"
        lblSalePrice.Text = "0"
        'lbltakeid.Focus()

        'AddHandler prDoc.PrintPage, New PrintPageEventHandler(AddressOf Me.StringToPrint_Print)
        'prDoc.DocumentName = "ใบเสร็จรับเงิน"
        'prDlg.Document = prDoc

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtMemId.Focus()
        txtMemId.Focus()

    End Sub
    Private Sub AutoGeneratetakeid()

    End Sub


    Private Sub btnShowMemberList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowMemberList.Click
        Dim fAllMember As New frmMemberList
        fAllMember.ShowDialog(Me)

        txtMemId.Text = rMem_Id
        txtMemName.Text = rMem_Name
        txtidcard.Text = rMemId_Card

        If rMem_Sex = "ชาย" Then
            OptMale.Checked = True
        ElseIf rMem_Sex = "หญิง" Then
            OptFemale.Checked = True
        End If

        txtMemAdd.Text = rMem_Add
        txtphone.Text = rMem_Phone

        txtMemId.Enabled = True
        chkNotMember.Checked = False

        rMem_Id = ""
        rMem_Name = ""
        rMemId_Card = ""
        rMem_Sex = "0"
        rMem_Add = ""
        rMem_Phone = ""
        rDateRegis = ""

        txtMemId.Focus()
    End Sub

    Private Sub chkNotMember_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkNotMember.CheckedChanged
        If chkNotMember.Checked = True Then

            ClearAllMemberData()
            AutoGenerateMemberID()

            txtMemId.Enabled = False
            'txtidcard.Enabled = False
            btnShowMemberList.Enabled = False

            txtMemName.Text = ""
            txtidcard.Text = ""
            txtMemAdd.Text = ""
            txtphone.Text = ""

            rMem_Id = ""
            rMem_Name = ""
            rMemId_Card = ""
            rMem_Sex = "0"
            rMem_Add = ""
            rMem_Phone = ""
            rIsMember = "1"

            txtMemName.Focus()
        ElseIf chkNotMember.Checked = False Then
            txtMemId.Text = ""
            txtMemId.Enabled = True
            txtMemId.Focus()
            txtMemName.Text = ""
            btnShowMemberList.Enabled = True

        End If

        ClearAllFoodData()
        lsvFoodList.Items.Clear()

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtFoodId.Focus()
    End Sub

    Private Sub AutoGenerateMemberID()
        Dim sqlTmp As String = ""
        Dim comTmp As OleDbCommand = New OleDbCommand
        Dim Tmp As OleDbDataReader
        Dim tmpMemberID As Integer = 0

        sqlTmp = "SELECT TOP 1 Mem_Id FROM Member ORDER BY Mem_Id DESC"

        Conn = New OleDbConnection(strConn)
        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

        Try
            With comTmp
                .CommandType = CommandType.Text
                .CommandText = sqlTmp
                .Connection = Conn
                Tmp = .ExecuteReader()

                Tmp.Read()

                tmpMemberID = CInt(CStr((Tmp.Item("Mem_Id"))))
                tmpMemberID = tmpMemberID + 1
                txtMemId.Text = tmpMemberID.ToString("0000")

            End With
        Catch
            tmptxtMemId = "0001"
        End Try

    End Sub

    Private Sub ClearAllMemberData()
        txtMemId.Text = ""
        txtMemName.Text = ""
        'cboMemberType.SelectedIndex = 0
        OptMale.Checked = True
        txtidcard.Text = ""
        txtphone.Text = ""
        txtMemAdd.Text = ""
    End Sub

    Private Sub ClearAllFoodData()
        txtFoodId.Text = ""
        lblTitle.Text = ""
        lblSalePrice.Text = ""
    End Sub

    Private Sub btnShowOrderList_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnShowOrderList.Click
        If txtMemId.Text = "" Then
            MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtMemId.Focus()
            Exit Sub
        End If

        Dim fAllFood As New frmOrderFoodList
        fAllFood.ShowDialog(Me)

        txtFoodId.Text = rFood_Id
        lblTitle.Text = rFood_Name
        lblSalePrice.Text = rPrice

        'lblBookCost.Text = rBookCost.ToString()
        'lblBookInShop.Text = rBookInShop.ToString()

        rFood_Id = ""
        rFood_Name = ""
        rPrice = ""

        'Select Case rIsMember
        '    Case "0"
        '        lblSalePrice.Text = CStr(rNumberDateRent + rNumDateRentAdd)
        '    Case "1"
        '        lblNumberDateRent.Text = rNumberDateRent.ToString()
        'End Select

        'Try
        '    picCoverBook.Image = Image.FromFile(rPictureFileName)
        'Catch
        '    picCoverBook.Image = Nothing
        'End Try

        txtFoodId.Focus()
    End Sub

    Private Sub ClearAllData()
        txtFoodId.Text = ""
        lblTitle.Text = ""
        lblSalePrice.Text = ""

        'txtFoodNum.Text = "0"
        'lbltotal.Text = "1"

        'lblBookCost.Text = "0"
        'lblNumberDateRent.Text = "0"
        'lblBookInShop.Text = "0"

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
    End Sub

    Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
        lsvFoodList.Items.Clear()
        ClearAllFoodData()

        lblSumBeforeDiscount.Text = "0"
        lblDiscount.Text = "0"
        lblNet.Text = "0"
        txtFoodId.Focus()
    End Sub

    Private Sub txtMemId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtMemId.KeyDown

        If txtMemId.Text <> "" Then
            If (e.KeyCode = Keys.Enter) Then
                Dim sqlMember As String = ""

                sqlMember = "SELECT Mem_id, Mem_Name, MemId_Card, Mem_Sex, Mem_Add, Mem_Phone"
                sqlMember &= " FROM Member"
                sqlMember &= " WHERE (Mem_id='" & txtMemId.Text & "')"

                With Conn
                    If .State = ConnectionState.Open Then .Close()
                    .ConnectionString = strConn
                    .Open()
                End With

                If IsFindMember = True Then
                    ds.Tables("Member").Clear()
                End If

                da = New OleDbDataAdapter(sqlMember, Conn)
                da.Fill(ds, "Member")

                If ds.Tables("Member").Rows.Count <> 0 Then
                    IsFind = True
                    txtMemId.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Id"))
                    txtMemName.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Name"))
                    txtMemAdd.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Add"))
                    txtidcard.Text = CStr(ds.Tables("Member").Rows(0).Item("MemId_Card"))
                    txtphone.Text = CStr(ds.Tables("Member").Rows(0).Item("Mem_Phone"))


                    rIsMember = CStr(ds.Tables("Member").Rows(0).Item("IsMember"))

                    ClearAllMemberData()
                    lsvFoodList.Items.Clear()

                    txtFoodId.Focus()

                Else
                    IsFindMember = False
                    MessageBox.Show("รายชื่อสมาชิกที่คุณระบุ ไม่มี !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                    rMem_Id = ""
                    rMem_Name = ""
                    rMemId_Card = ""
                    rMem_Sex = ""
                    rMem_Add = ""
                    rMem_Phone = ""
                    rDateRegis = "0"
                    rIsMember = "1"

                    txtMemId.Focus()
                    txtMemId.SelectAll()
                End If
            End If
        End If
    End Sub


    Private Sub txtFoodId_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles txtFoodId.KeyDown
        If txtFoodId.Text <> "" Then
            If (e.KeyCode = Keys.Enter) Then

                If txtFoodId.Text = "" Then
                    MessageBox.Show("กรุณาป้อนข้อมูลลูกค้าก่อน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    txtFoodId.Focus()
                    Exit Sub
                End If

                Dim sqlFood As String = ""

                sqlFood = "SELECT Food_Id,Food_Name,price "
                sqlFood &= " FROM Food"
                sqlFood &= " WHERE (Food_Id='" & txtFoodId.Text & "')"

                If IsFindFood = True Then
                    ds.Tables("Food").Clear()
                End If

                da.SelectCommand.CommandText = sqlFood
                da.Fill(ds, "Food")

                Dim AllDateRent As Integer = 0
                If ds.Tables("Food").Rows.Count <> 0 Then
                    IsFindFood = True

                    txtFoodId.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Id"))
                    lblTitle.Text = CStr(ds.Tables("Food").Rows(0).Item("Food_Name"))
                    lblSalePrice.Text = CStr(ds.Tables("Food").Rows(0).Item("Price"))

                    'lbltotal.Text = CStr(ds.Tables("Food").Rows(0).Item("NumberDateRent"))

                    txtAmount.Focus()
                    txtAmount.SelectAll()
                Else
                    IsFindFood = False

                    'MessageBox.Show("ไม่พบรหัสอาหารตามที่คุณระบุ  !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                    ClearAllFoodData()
                    txtFoodId.Focus()
                    txtFoodId.SelectAll()
                End If
            End If
        End If
    End Sub

    Private Sub btnAdd_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAdd.Click

        If (txtFoodId.Text = "") Or (lblTitle.Text = "") Or (lblSalePrice.Text = "") Or (txtAmount.Text = "") Or (lbltotal.Text = "") Then
            txtFoodId.Focus()
            Exit Sub
        End If

        Dim i As Integer = 0
        Dim tmpFoodId As String = ""
        For i = 0 To lsvFoodList.Items.Count - 1
            tmpFoodId = lsvFoodList.Items(i).SubItems(0).Text

            If txtFoodId.Text = tmpFoodId Then
                MessageBox.Show("คุณเลือกรหัสอาหารซ้ำกัน !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)

                txtFoodId.Text = ""
                lblTitle.Text = ""
                lblSalePrice.Text = "0"
                txtAmount.Text = "1"
                lbltotal.Text = "0"

                txtFoodId.Focus()
                txtFoodId.SelectAll()
                Exit Sub
            End If
        Next

        Dim FoodTotal As Integer = 0
        Dim lvi As ListViewItem

        FoodTotal = CInt(lblSalePrice.Text) * CInt(txtAmount.Text)


        Dim anyData() As String
        anyData = New String() { _
            txtFoodId.Text, _
            lblTitle.Text, _
            lblSalePrice.Text, _
            txtAmount.Text, _
            lbltotal.Text, _
            FoodTotal.ToString("#,##0") _
        }

        lvi = New ListViewItem(anyData)
        lsvFoodList.Items.Add(lvi)

        CalculateRent()
        ClearAllBookData()

        txtFoodId.Focus()
    End Sub

    Private Sub lsvFoodList_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lsvFoodList.DoubleClick
        Dim i As Integer = 0
        For i = 0 To lsvFoodList.SelectedItems.Count - 1
            Dim lvi As ListViewItem
            lvi = lsvFoodList.SelectedItems(i)
            lsvFoodList.Items.Remove(lvi)
        Next

        CalculateRent()
    End Sub

    Sub ClearAllBookData()

    End Sub

    Sub CalculateRent()
        Dim i As Integer = 0
        Dim tmplblSalePrice As Integer = 0   'ราคา
        Dim tmptxtAmount As Integer = 0  'จำนวนที่ขาย
        Dim tmplbltotal As Integer = 0    'รวมเป็นเเงิน

        Dim tmpSum As Integer = 0
        Dim tmpDiscount As Integer = 0
        Dim tmpNetTotal As Integer = 0

        'If rIsMember = "1" Then
        '    rRentRateDiscount = 0
        'End If

        For i = 0 To lsvFoodList.Items.Count - 1

            tmplblSalePrice = CInt(lsvFoodList.Items(i).SubItems(2).Text)
            tmptxtAmount = CInt(lsvFoodList.Items(i).SubItems(3).Text)
            [font=Verdana]tmplbltotal = tmplbltotal + (tmplblSalePrice * tmptxtAmount)[/font]
'มันเป็น For Loop คุนเอา ค่า tmplbltotal มารวม อีก ความจริงต้อง clear ออก
[font=Verdana]tmplbltotal = tmplblSalePrice * tmptxtAmount[/font]


            [font=Verdana]tmpSum = tmpSum + (tmptxtAmount * tmplblSalePrice * tmplbltotal)[/font]
'มันเป็น summary ของ tmplbltotal มิใช่หรือ
[font=Verdana]tmpSum = tmpSum + tmplbltotal[/font]
            tmpDiscount = tmpDiscount + CInt((tmptxtAmount * tmplblSalePrice * tmplbltotal) * rRentRateDiscount)
            tmpNetTotal = tmpSum - tmpDiscount
        Next

        lblSumBeforeDiscount.Text = tmpSum.ToString("#,##0.00")
        lblDiscount.Text = tmpDiscount.ToString("#,##0.00")
        lblNet.Text = tmpNetTotal.ToString("#,##0.00")

        'Dim i As Integer = 0
        'Dim tmpNetTotal As Single = 0
        'For i = 0 To lsvFoodList.Items.Count - 1
        '    tmpNetTotal = tmpNetTotal + CSng(lsvFoodList.Items(i).SubItems(5).Text)
        'Next
        'lblNetTotal.Text = tmpNetTotal.ToString("#,##0.00")


    End Sub

    Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click

        If txtMemId.Text = "" Then
            MessageBox.Show("กรุณาระบุรหัสลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtMemId.Focus()
            Exit Sub
        End If

        If chkNotMember.Checked = True Then
            If txtMemName.Text = "" Then
                MessageBox.Show("กรุณาระบุชื่อลูกค้าด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
                txtMemName.Focus()
                Exit Sub
            End If
        End If

        If lsvFoodList.Items.Count = 0 Then
            MessageBox.Show("กรุณาป้อนรายการสั่งอาหารด้วยค่ะ !!!", "ผลการตรวจสอบ", MessageBoxButtons.OK, MessageBoxIcon.Information)
            txtFoodId.Focus()
            Exit Sub
        End If

        Dim sqlSave As String = ""
        Dim comSave As OleDbCommand = New OleDbCommand

        With Conn
            If .State = ConnectionState.Open Then .Close()
            .ConnectionString = strConn
            .Open()
        End With

    End Sub

    Sub AutoGenerateTranID()

    End Sub


End Class


ผิดก็ขอ อภัย แต่ดูๆ แล้ว ผมว่าวิธีการคำนวนคุณ ดูงงๆ นะ ลองไล่ดูใหม่จ๊ะ
Date : 2010-01-28 09:47:46 By : numenoy
 


 

No. 9

Guest


ขอบคุณ นะค่ะ

เดี๋ยว จะ ลอง เขียน ดูใหม่ แต่ ถ้าไม่ได้ จะ มาสอบ ถามใหม่นะค่ะ
Date : 2010-01-28 18:36:17 By : ยัยใบบ้า
 


 

No. 10

Guest


ก็ลองทำ แล้ว นะ ค่ะ มันก้อไม่หาย

eer

แถม ตรงรวมเงินก่อน เพิ่มรายการ มัน ก้อไม่รวมให้ด้วย

งง ไปหมด แล้ว ค่ะ
Date : 2010-01-28 18:58:48 By : ยัยใบบ้า
 


 

No. 11

Guest


ty

รบกวน อีก รอบนะค่ะ

ขอบคุณค่ะ
Date : 2010-01-28 22:59:08 By : ยัยใบบ้า
 


 

No. 12

Guest


อยาได้โปรแกรมคิดเงินร้านเน็ต ช่วยหน่อยน่ะค่ะ
Date : 2010-09-17 11:12:19 By : มล
 


 

No. 13

Guest


โค้ดพิมใบเสร็จอยู่ตรงไหนอะคับ ผมอยากเห็น ผมทำโปรเจคอยู่พอดีแบบนี้รุย ง่า 0..0 แต่ของผมเป็นขายสินค้า แล้วจะทำให้จำนวนที่เรากรอกมาไปลบกับยอดคงเหลือของสินค้าทั้งหมด จะเขียนยังงัยอะคับ ผม มึน =.=
Date : 2010-09-18 18:03:15 By : Tomy_VB
 


 

No. 14



โพสกระทู้ ( 280 )
บทความ ( 0 )



สถานะออฟไลน์


ิอยากได้โค้ด การบันทึกรูปภาพจาก Picturebox ลงฐานข้อมูล SQL server 2008 (VB)[b][/b] #ขอบคุณคะะ
Date : 2017-09-29 23:32:19 By : สามหมอ
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ขอโค้ดVB.net ที่เกี่ยวกับการคำนวณเงินค่าอาหารด้วยค่ะด่วนค่ะ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: Voake, Comcube, รับทำเว็บไซต์ รับเขียนโปรแกรม , รับทำบัญชี , โรงงานผลิตครีม

Load balance : Server 05
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2020 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 , 08-9968-0655 อัตราราคา คลิกที่นี่