Nightlife

เมื่อวันที่ 31 May 2011,

ได้รู้เรื่องครอบครัวและช่วยแบกภาระอันหนักอึ้ง
วันนั้น...ได้ให้สัญญาโดยที่ไม่มีใครรู้เอาไว้


แต่ไม่กี่เดือนถัดมา...

ความหนักอึ้งนั้นมันเป็นเล็กน้อย
เมื่อฉัน...ต้องสูญเสียครั้งยิ่งใหญ่ครั้งแรกในชีวิตนี้

วันที่ 11 August 2011..........

ตอนเกือบ 8 โมงเช้า เป็นข่าวที่ไม่อยากจะได้ยินมันเลยในชีวิต
หลังจากที่นั่งเฝ้าและรอปาฏิหาริย์มาทั้งคืน
ปาฏิหาริย์นั้นมีจริงเสมอ แต่ไม่ใช่กับทุกคน

และแล้วคุณพ่อ ก็จากพวกเราไปโดยที่ไม่ได้เอ่ยลากันสักคำ
ไม่มีใครคิดว่าการเข้าโรงพยาบาลครั้งแรก
จะเป็นครั้งสุดท้ายที่เราจะได้อยู่ด้วยกัน

คืนนั้น...ที่ข้างเตียงหนูบอกให้คุณพ่อไม่ต้องเป็นห่วง
หนูดูแลทุกอย่าง ทั้งงาน และครอบครัวได้
พวกเราอยู่กันได้ น้ำตาของหนูไม่อาจไหลไปมากกว่านั้น
เพราะคุณแม่กับน้องร้องหนักจนรู้สึกว่า...
ถ้าหนูควบคุมความเสียใจไม่ได้ จะดูแลครอบครัวได้ยังไง

...แต่ว่า หนูรักคุณพ่อมากนะคะ
หนูรู้ว่าคุณพ่อพยายามที่จะกลับมา
แต่ด้วยสภาพร่างกายที่อ่อนแอ...
มันคงไม่ง่ายนักที่จะได้รับปาฏิหาริย์

ถึงคุณพ่อจะไม่ตอบสนองอะไรกลับมา แต่อย่างหนึ่งที่รู้คือ...คุณพ่อรับรู้ในสิ่งที่พวกเราตั้งใจ

คุณพ่อ...เป็นส่วนสำคัญในการหล่อหลอมชีวิตของหนู
คุณพ่อ...เป็นที่ปรึกษาในทุกๆ เรื่อง
คุณพ่อ...เป็นต้นตอของมันสมอง และการเรียนรู้ของหนู
คุณพ่อ...เป็นครูที่สำคัญที่สุด และอีกหลายๆ อย่าง

หนูขอโทษค่ะ... ที่ทำอะไรตามใจตัวเองและไม่ถูกใจคุณพ่อไปบ้าง
แต่สิ่งที่หนูทำทั้งหมดคือ...บทพิสูจน์ตัวเอง ซึ่งหนูรู้ว่าคุณพ่อก็รู้ดี...
แม้จะคัดค้าน แต่ก็เฝ้ามอง และคอยแนะนำ
หนูขอบคุณมากจริงๆ ค่ะ...

แต่สิ่งที่ทำลงไป แม้มันจะยากลำบากแก่การเข้าใจสำหรับเราในบางครั้ง
แต่มันคือประสบการณ์ชีวิตที่ก้าวไป หนูไม่เคยเสียใจเลย
และนั่นคือ...สิ่งที่คุณพ่อพยายามมาตลอดใช่มั้ยคะ?

เกือบ 30 ปีที่ผ่านมา คุณพ่อตั้งใจที่จะสร้างหนูให้เป็นแบบนั้นใช่มั้ยคะ?
...เป็นผู้หญิงคนหนึ่งที่สามารถดูแลตัวเองได้ ดูแลครอบครัวได้
ทำทุกอย่างได้เองโดยไม่ต้องพี่งพาใคร และเป็นหลักให้กับครอบครัวได้
อาจจะเป็นผู้หญิงแข็งกระด้างไปบ้าง แต่มันก็เหมาะกับหนูแล้วใช่หรือเปล่า...

...หนูภูมิใจมากที่สุด ที่ตอนนี้หนูกำลังเป็นแบบนั้นค่ะ
ไม่เคยละทิ้งความฝัน มีความหวัง และสามารถทำในส่วนที่เป็นความจริงได้ด้วย

แต่หนูเสียใจอยู่แค่เรื่องเดียวเท่านั้น...
คุณพ่อขา...หนูขอโทษนะคะ ที่เรียนจบช้าเพราะความดื้อรั้น
ทำให้ไม่มีคุณพ่ออยู่ในงานรับปริญญาของหนู
หนูขอโทษ ... หนูขอโทษ  ... หนูขอโทษ  T^T
หนูยอมรับความสูญเสีย ผิดหวัง เสียใจได้ แต่เรื่องนี้หนูแก้ไขอะไรไม่ได้เลย
อาจเป็นสิ่งที่รู้สึกเสียใจอย่างไม่อาจมีสิ่งใดทดแทนหรือแก้ไขได้อีกแล้ว

...คำสอนทุกคำ  ยังคงอยู่ในจิตใจของหนูเสมอ
...ความรักของคุณพ่อ  ยังคงติดตัวไปตลอดกาล
...ทุกสิ่งทุกอย่างที่มอบให้  หนูจะรักษาไว้และดำเนินไปอย่างรอบคอบ

...สิ่งเดิยวที่ต้องการ
   หนูแค่ขอความเชื่อใจ 
   คุณพ่อช่วยเชื่อใจหนู และมองลงมาจากที่ไกลๆ
   ไม่ว่ายังไง หนูจะทำให้คุณพ่อเห็นว่าหนูทำได้ 
   ไม่ว่าใครจะว่ายังไง หนูจะปกป้องศักดิ์ศรีของคุณพ่อเอง
   ไม่ว่าอะไรจะเกิดขึ้น หนูจะแข็งแกร่งและเข้มแข็ง
  
เชื่อใจหนู อย่างที่หนูขอ และจะเห็นว่า...แค่ความเชื่อใจ
ก็เพียงพอแล้ว

สัญญาอีกครั้ง หนูจะทำให้ดีที่สุดมากกว่าที่เคยทำ
ทุกอย่างหนูต้องการแค่...ความเชื่อใจ

หนูรักคุณพ่อมากๆ เลย หลับให้สบายนะคะ
คุณพ่อเหนื่อยและพักผ่อนน้อยมามากแล้ว
หวังว่า...การหลับอันเป็นนิรันดร์นี้ จะเป็นการพักผ่อนที่ยาวนาน
และเปี่ยมสุข



Ps.. เวลาไม่มีคุณพ่อหนูเหงามากเลย เวลาคิดและอยากได้คำแนะนำดีๆ ที่แตกต่างออกไปก็ไม่มีอีกแล้ว


จาก...
         ลูกสาวคนโต
         ที่จะทำหน้าที่เหมือนลูกชายคนโต เพื่อดูแลคุณแม่ น้อง และคนในครอบครัวอย่างดีที่สุดค่ะ

 

 

 

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

 

        Dim id As String = TxtProductID.Text

        Dim Name As String = txtProductName.Text

        Dim Model As String = txtModel.Text

        Dim color As String = TxtColor.Text

        Dim i As Integer

        Dim unit As String = txtAmount.Text

        Dim price As Integer = txtPrice.Text

       

        Dim size As String = txtsize2.Text

        Dim Dis2 As String

        Dim net As Decimal = txtNet.Text

        Dim Discount2 As Decimal = txtDiscount2.Text

        Dim totalresult As Decimal = txtTotalResult.Text

        Dim PId = CStr(lsvSale.Items(i).SubItems(0).Text)

        Dim PName = CStr(lsvSale.Items(i).SubItems(1).Text)

        Dim Pcolor = CStr(lsvSale.Items(i).SubItems(3).Text)

        Dim Psize = CStr(lsvSale.Items(i).SubItems(2).Text)

        Dim Sprice = CDec(lsvSale.Items(i).SubItems(4).Text)

        Dim Amount = CInt(lsvSale.Items(i).SubItems(5).Text)

        Dim STotal = CDec(lsvSale.Items(i).SubItems(6).Text)

 

 

        Dim sqlSD As String = ""

        Dim DateChange As String = CStr(txtDate.Text)

 

        theDate = Date.Today.ToShortDateString

        txtDate.Text = theDate

        Dim cmdData As OleDb.OleDbCommand

    

 

        Dis2 = CStr((Val(txtDiscount2.Text)).ToString)

 

        If lsvSale.Items.Count = 0 Then

            MessageBox.Show("ไม่ปรากฏรายการขายใด ๆ ให้บันทึกลงฐานข้อมูล", "การแจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)

            btnSave.Enabled = False

            Exit Sub

        End If

 

        With conn

            If .State = ConnectionState.Open Then .Close()

            .ConnectionString = strconn

            .Open()  'เชื่อมต่อ

        End With

        Try

            If lsvSale.Items.Count <> 0 Then

                If MessageBox.Show("คุณต้องการบันทึกรายการขาย ใช่หรือไม่ ?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = Windows.Forms.DialogResult.Yes Then

 

 

                    '------ตารางขาย บันทึก------------------------------------------------------------

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

                        Dim strSDT As String = ""

                        strSDT = "INSERT INTO Sale ([No],[Date], Totalresult, Discount, Net)"

                        strSDT &= "VALUES ('" & CStr(txtNo.Text) & "',"

                        strSDT &= "'" & (txtDate.Text) & "',"

                        strSDT &= "'" & CDec(totalresult.ToString("C")) & "',"

                        strSDT &= "'" & CDec(Discount2.ToString("C")) & "',"

                        strSDT &= "'" & CDec(net.ToString("C")) & "') "

                      

 

                        cmdData = New OleDb.OleDbCommand(strSDT, conn)

 

                        MessageBox.Show("ยืนยัน", "แจ้งเตือน", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

                        With cmdData

                            .CommandType = CommandType.Text

                            .CommandText = strSDT

                            .Connection = conn

                            .ExecuteNonQuery()

                        End With

 

 

 

                        '------ตารางรายละเอียดการขายสินค้า บันทึกลงฐานข้อมูล-------------------------------------

                        Try

                       

                            strSDT = "INSERT INTO SaleDetail"

                            strSDT &= "([No], ProductID, ProductName, Color, [Size], Price, Amount, Total)"

                            strSDT &= "VALUES (?, ?, ?, ?, ?, ?, ?, ?)"

                            cmdData = New OleDbCommand(strSDT, conn)

                            With cmdData

                                .Parameters.AddWithValue("", txtDate.Text) 'ชื่อ Type เป็น Text

                                .Parameters.Add("", OleDbType.WChar).Value = CStr(lsvSale.Items(i).SubItems(0).Text

                                .Parameters.Add("", OleDbType.WChar).Value = lsvSale.Items(i).SubItems(1).Text

                                .Parameters.Add("", OleDbType.WChar).Value = lsvSale.Items(i).SubItems(3).Text

                                .Parameters.Add("", OleDbType.WChar).Value = lsvSale.Items(i).SubItems(2).Text

                                .Parameters.Add("", OleDbType.Decimal).Value = CDec(lsvSale.Items(i).SubItems(4).Text.ToString("C")) 

                                .Parameters.Add("", OleDbType.SmallInt).Value = CInt(lsvSale.Items(i).SubItems(5).Text)

                                .Parameters.Add("", OleDbType.Decimal).Value = CDec(lsvSale.Items(i).SubItems(6).Text.ToString("C"))

 

                                .ExecuteNonQuery()

 

                            End With

 

                            conn.Close()

 

                        Catch ex As Exception

                            MsgBox(ex.Message)

                        End Try

                      

 

 

 

 

                   

                        '********************

 

                        ' cmdData = New OleDb.OleDbCommand(strSDT, conn)

 

                   

                        da.Fill(ds, "SaleDetail")

 

                        MessageBox.Show("บันทึกรายการขาย เรียบร้อยแล้ว !", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

 

 

 

                        ' ------- การตัดสต๊อคสินค้า -------------------------------

 

                        Dim tmpStock As Integer

                        Dim tmpSale As Integer

                        Try

                                                   

                            Dim cmdA As New OleDbCommand("SELECT ProductID,Amount FROM Product WHERE (ProductID ='" & lsvSale.Items(i).SubItems(0).Text & "')", conn)

                            da = New OleDbDataAdapter(sqlSD, conn)

                            ' Dim dr As OleDbDataReader

                            da.Fill(ds, "SaleDetail")

                            ds.Tables("SaleDetail").Clear()

                            tmpStock = CInt(ds.Tables("Product").Rows(0).Item("Amount"))

                            tmpSale = CInt(ds.Tables("SaleDeail").Rows(0).Item("Amount"))

                            strSDT = "UPDATE Product"

                            strSDT &= " SET Amount='" & (tmpStock - tmpSale) & "'"

                            strSDT &= " WHERE (ProductID ='" & (lsvSale.Items(i).SubItems(0).Text) & "')"

 

                            With cmdData

                                .CommandText = strSDT

                                .ExecuteNonQuery()

                            End With

                        Catch

                            MessageBox.Show(Err.Description)

                        End Try

                    Next

                        End If

 

 

 

                End If

                MessageBox.Show("บันทึกรายการขาย เรียบร้อยแล้ว !", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)

 

 

        Catch

            MessageBox.Show(Err.Description)

        End Try

        'ds.Tables("Product").Clear()

 

     

 

 

        '------------------------------------------

 

        RunNoID()

 

        lsvSale.Items.Clear()

        ClearAllSale()

    End Sub