001.Public Class frm_order
002.
003. Public Sub refresh_orders()
004. sql = "select order_bill, order_date, order_salesid, order_saleslevel, order_salesname, order_locations, order_list, order_unit, order_price, order_total, order_gift, order_giftunit, order_delivery, order_total2 from orders"
005. datagrid_order.DataSource = cmd_excuteDataTable()
006. change_datagrid_column()
007. End Sub
008.
009. Public Sub change_datagrid_column()
010. Dim column_text() As String = {"เลขที่บิล", "วันที่สั่ง", "รหัสตัวแทน", "ระดับตัวแทน", "ชื่อ - นามสกุล", "เขตการขาย", "รายการ", "จำนวน", "ราคา", "เป็นเงิน", "รายการแถม", "จำนวน", "ค่าจัดส่ง", "รวมทั้งสิ้น"}
011. For i As Integer = 0 To datagrid_order.ColumnCount - 1
012. datagrid_order.Columns(i).HeaderText = column_text(i)
013. Next
014. End Sub
015.
016. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
017. txt_add_salesid.Enabled = True
018. txt_add_saleslevel.Enabled = True
019. txt_add_salesname.Enabled = True
020. txt_add_locations.Enabled = True
021. txt_add_list.Enabled = True
022. txt_add_unit.Enabled = True
023. txt_add_price.Enabled = True
024. txt_add_total.Enabled = True
025. txt_add_gift.Enabled = True
026. txt_add_giftunit.Enabled = True
027. txt_add_delivery.Enabled = True
028. txt_add_total2.Enabled = True
029. txt_add_salesid.Select()
030. End Sub
031.
032. Private Sub frm_order_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
033. lbl_date.Text = TimeOfDay
034. refresh_orders()
035. End Sub
036.
037. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
038. lbl_date.Text = Date.Now
039. End Sub
040.
041.
042. Public Sub clear_form()
043.
044. txt_add_salesid.Text = ""
045. txt_add_saleslevel.Text = ""
046. txt_add_salesname.Text = ""
047. txt_add_locations.Text = ""
048. txt_add_list.Text = ""
049. txt_add_unit.Text = ""
050. txt_add_price.Text = ""
051. txt_add_total.Text = ""
052. txt_add_gift.Text = ""
053. txt_add_giftunit.Text = ""
054. txt_add_delivery.Text = ""
055. txt_add_total2.Text = ""
056.
057. End Sub
058.
059. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
060. If txt_add_salesid.Text = "" Or txt_add_saleslevel.Text = "" Or txt_add_salesname.Text = "" Or txt_add_locations.Text = "" Or txt_add_list.Text = "" Or txt_add_unit.Text = "" Or txt_add_price.Text = "" Or txt_add_total.Text = "" Or txt_add_gift.Text = "" Or txt_add_giftunit.Text = "" Or txt_add_delivery.Text = "" Or txt_add_total2.Text = "" Then
061. msg_error("กรุณากรอกข้อมูลให้ครบ")
062. Return
063.
064. If confirm("คุณยืนยันที่จะเพิ่มใบสั่งซื้อใช่หรือไม่ ?") = vbNo Then Return
065. End If
066.
067.
068. sql = "insert into orders (order_bill, order_salesid, order_saleslevel, order_salesname, order_locations, order_list, order_unit, order_price, order_total, order_gift, order_giftunit, order_delivery, order_total2 ) values(@bill,@id,@level,@name,@locations,@list,@unit,@price,@total,@gift,@giftunit,@delivery,@total2)"
069.
070. cmd = New SqlClient.SqlCommand(sql, cn)
071. cmd.Parameters.Clear()
072. cmd.Parameters.AddWithValue("bill", txt_add_salesid.Text)
073. cmd.Parameters.AddWithValue("date", datetime1.Value)
074. cmd.Parameters.AddWithValue("id", txt_add_salesid.Text)
075. cmd.Parameters.AddWithValue("level", txt_add_saleslevel.Text)
076. cmd.Parameters.AddWithValue("name", txt_add_salesname.Text)
077. cmd.Parameters.AddWithValue("locations", txt_add_locations.Text)
078. cmd.Parameters.AddWithValue("list", txt_add_list.Text)
079. cmd.Parameters.AddWithValue("unit", txt_add_unit.Text)
080. cmd.Parameters.AddWithValue("price", txt_add_price.Text)
081. cmd.Parameters.AddWithValue("total", txt_add_total.Text)
082. cmd.Parameters.AddWithValue("gift", txt_add_gift.Text)
083. cmd.Parameters.AddWithValue("giftunit", txt_add_giftunit.Text)
084. cmd.Parameters.AddWithValue("delivery", txt_add_delivery.Text)
085. cmd.Parameters.AddWithValue("total2", txt_add_total2.Text)
086.
087. If cmd.ExecuteNonQuery = 0 Then
088. msg_error("เพิ่มไม่สำเร็จ")
089. Else
090. msg_ok("เพิ่มสำเร็จ")
091. refresh_orders()
092. clear_form()
093. End If
094. End Sub
095.
096.
097.
098. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
099. If confirm("ต้องการยกเลิกใช่หรือไม่ ?") = vbNo Then
100. Else
101. txt_add_salesid.Text = ""
102. txt_add_saleslevel.Text = ""
103. txt_add_salesname.Text = ""
104. txt_add_locations.Text = ""
105. txt_add_list.Text = ""
106. txt_add_unit.Text = ""
107. txt_add_price.Text = ""
108. txt_add_total.Text = ""
109. txt_add_gift.Text = ""
110. txt_add_giftunit.Text = ""
111. txt_add_delivery.Text = ""
112. txt_add_total2.Text = ""
113. End If
114.
115. End Sub
116.End Class
