จุ๊บุ จุ๊บุ จี๊ด ^^

แร้วเทอล่ะชื่อไร คับ

ทักทายนะคับ


มั่มๆอารายด้วยโน๊ะ

ดีคับ
ทักทายคับอยู่ไหนเอ่ย

happy..new year..ย้อนหลัง..น๊า

มีความสุข..มั่ก ก มาก ก..น๊ะ
โชคดีตลอดปี..จ้า

Option Explicit On
Option Strict On
Imports System.Data
Imports System.Data.OleDb
Public Class frmcategory
Dim conn As New OleDbConnection(Strconn)
Dim da As OleDbDataAdapter
Dim ds As New DataSet
WithEvents CM As CurrencyManager

Private Sub frmcategory_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
With conn

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

End With
Dim sqlcategory As String
sqlcategory = "Select * from Category order by categoryID"
da = New OleDbDataAdapter(sqlcategory, conn)
da.Fill(ds, "Category")

txtcateid.DataBindings.Add("text", ds.Tables("category"), "categoryid")
txtcatename.DataBindings.Add("text", ds.Tables("category"), "categoryname")



If ds.Tables("Category").Rows.Count <> 0 Then
With dgvcategory
.ReadOnly = True
.DataSource = ds.Tables("Category")

End With

Call Lockcontrol()

Else
dgvcategory.DataSource = Nothing
cmdedit.Enabled = False
cmdel.Enabled = False
cmdsave.Enabled = False
End If
CM = CType(Me.BindingContext(ds.Tables("Category")), CurrencyManager)

End Sub

Private Sub Lockcontrol()
txtcateid.Enabled = False
txtcatename.Enabled = False
cmdadd.Enabled = True
cmdedit.Enabled = True
cmdsave.Enabled = False
cmdel.Enabled = True
End Sub


Private Sub Unlockcontrol()
txtcateid.Enabled = True
txtcatename.Enabled = True
cmdadd.Enabled = False
cmdedit.Enabled = False
cmdsave.Enabled = True
cmdel.Enabled = False
End Sub





Private Sub cmdadd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdadd.Click
CM.AddNew()
Call Unlockcontrol()
txtcateid.Focus()
End Sub

Private Sub cmdsave_Click1(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdsave.Click

If (txtcateid.Text = "") Then
MessageBox.Show("กรุณากรอกรหัสประเภทเครื่องใช้ไฟฟ้า", " แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtcateid.Focus()
Exit Sub
End If


If (txtcatename.Text = "") Then
MessageBox.Show("กรุณากรอกชื่อประเภทเครื่องใช้ไฟฟ้า", "แจ้งเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtcatename.Focus()
Exit Sub
End If
Try
Dim cb As New OleDbCommandBuilder(da)
CM.EndCurrentEdit()
da.Update(ds, "Category")

Catch
MessageBox.Show("คุณป้อนรหัสประเภทซ้ำ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
txtcateid.Focus()
txtcateid.SelectAll()
Exit Sub
End Try

dgvcategory.DataSource = ds.Tables("Category")
MessageBox.Show("บันทึกข้อมูลประเภทเครื่องใช้ไฟฟ้าเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Call Lockcontrol()



End Sub

Private Sub cmdedit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdedit.Click

If ds.Tables("Category").Rows.Count = 0 Then
MessageBox.Show("ไม่ปรากฎข้อมูลให้แก้ไข", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Call Lockcontrol()
Exit Sub
End If
CM.CancelCurrentEdit()
Call Unlockcontrol()

End Sub

Private Sub cmdel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmdel.Click

If ds.Tables("Category").Rows.Count = 0 Then
MessageBox.Show("ไม่สามารถลบได้ เนื่องจากไม่พบข้อมูลใดๆ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Call Lockcontrol()
Exit Sub
End If


If MessageBox.Show("คุณต้องการลบเรคคอร์ดนี้ใช่ไหม?", " ยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
CM.RemoveAt(CM.Position)

Dim cb As New OleDbCommandBuilder(da)
CM.EndCurrentEdit()
da.Update(ds, "category")
MessageBox.Show("ลบประเภทเครื่องใช้ไฟฟ้านี้ ออกจากฐานข้อมูลเรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Call Lockcontrol()

End Sub
End Class

หวัดดีปีใหม่นะจ๊ะ


ขอให้สวยๆๆนะจ๊ะ

ฝันดีจ้ะ...จุ๊ฟฟฟ

ทักทายตอนดึกนะคับ ฝาดีน้า *-*

นอนได้แล้วมั้งงงง

ฝันหวานเพื่อน

ฝันหวายเช่นกานน๊ะค๊าบ ^^

หวาดดี

ยินดีที่ด้ายรุ้จักน่ะ

ว่างๆก้มาเม้นหั้ยบ้างล่ะ

ฝันดีนร้า...บาย

นะ......................เม้นให้นะ........เม้นให้นะ.....เม้นให้นะ
.เม้นให้นะ........................เม้นให้นะ.....เม้นให้นะ........เม้นให้นะ
เม้นให้นะ.........................เม้นให้นะ...เม้นให้นะ...........เม้นให้นะ
.เม้นให้นะ.........................เม้นให้นะ....................เม้นให้นะ
..เม้นให้นะ.........................เม้นให้นะ..................เม้นให้นะ
...เม้นให้นะ...............................................เม้นให้นะ
…...เม้นให้นะ.............................................เม้นให้นะ
.........เม้นให้นะ...................................เม้นให้นะ
............เม้นให้นะ...........................เม้นให้นะ
................เม้นให้นะ....................เม้นให้นะ
..................เม้นให้นะ.............เม้นให้นะ
......................เม้นให้นะ.........เม้นให้นะ
.......................เม้นให้นะ…...เม้นให้นะ
............................เม้นให้นะ
........เม้นให้นะ.........เม้นให้นะ
.....เม้นให้นะ...............เม้นให้นะ
...เม้นให้นะ....................เม้นให้นะ..............เม้นให้นะ......
..เม้นให้นะ......................เม้นให้นะ........เม้นให้นะ.....เม้นให้นะ
.เม้นให้นะ........................เม้นให้นะ.....เม้นให้นะ........เม้นให้นะ
เม้นให้นะ.........................เม้นให้นะ...เม้นให้นะ...........เม้นให้นะ
.เม้นให้นะ.........................เม้นให้นะ....................เม้นให้นะ
..เม้นให้นะ.........................เม้นให้นะ..................เม้นให้นะ
...เม้นให้นะ...............................................เม้นให้นะ
…...เม้นให้นะ.............................................เม้นให้นะ
.........เม้นให้นะ...................................เม้นให้นะ
............เม้นให้นะ...........................เม้นให้นะ
................เม้นให้นะ....................เม้นให้นะ
..................เม้นให้นะ.............เม้นให้นะ
......................เม้นให้นะ.........เม้นให้นะ
.......................เม้นให้นะ…...เม้นให้นะ
............................เม้นให้นะ
........เม้นให้นะ.........เม้นให้นะ
.....เม้นให้นะ...............เม้นให้นะ
...เม้นให้นะ....................เม้นให้นะ..............เม้นให้นะ......
..เม้นให้นะ......................เม้นให้นะ........เม้นให้นะ.....เม้นให้นะ
.เม้นให้นะ........................เม้นให้นะ.....เม้นให้นะ........เม้นให้นะ
เม้นให้นะ.........................เม้นให้นะ...เม้นให้นะ...........เม้นให้นะ
.เม้นให้นะ.........................เม้นให้นะ....................เม้นให้นะ
..เม้นให้นะ.........................เม้นให้นะ..................เม้นให้นะ
...เม้นให้นะ...............................................เม้นให้นะ
…...เม้นให้นะ.............................................เม้นให้นะ
.........เม้นให้นะ...................................เม้นให้นะ
............เม้นให้นะ...........................เม้นให้นะ
................เม้นให้นะ....................เม้นให้นะ
..................เม้นให้นะ.............เม้นให้นะ
......................เม้นให้นะ.........เม้นให้นะ
.......................เม้นให้นะ…...เม้นให้นะ
............................
______*เม้น*เม้น*________*เม้น*เม้น*_______
_____*เม้น*___*เม้น*____*เม้น*___*เม้น*____
___*เม้น*______*เม้น*_*เม้น*_______*เม้น*__
__*เม้น*__________*เม้น*__________*เม้น*__
__*เม้น*________________________ *เม้น*____
___*เม้น*________I MISS U_______*เม้น*_____
____*เม้น*____________________*เม้น*______
______*เม้น*________________*เม้น*________
________*เม้น*____________*เม้น*__________
__________*เม้น*________*เม้น*____________
_____*เม้น*___*เม้น*____*เม้น*__*เม้น*_____
___*เม้น*______*เม้น*_*เม้น*_____*เม้น*____
__*เม้น*__________*เม้น*_________*เม้น*____
__*เม้น*________________________*เม้น*____
___*เม้น*_______~ ^____^~______ *เม้น*_____
____*เม้น*____________________*เม้น*______
______*เม้น*_________________*เม้น*_______
________*เม้น*_____________*เม้น*_________
__________*เม้น*________ *เม้น*___________
____*เม้น*___*เม้น*____*เม้น*___*เม้น*_____
___*เม้น*______*เม้น*_*เม้น*______*เม้น*___
__*เม้น*__________*เม้น*_________*เม้น*___
__*เม้น*________________________*เม้น*___
___*เม้น*______________________*เม้น*____
____*เม้น*___ TAKE CARE ____ *เม้น*_____
______*เม้น*_______^-^______ *เม้น*_______
________*เม้น*____________ _*เม้น*_________
__________*เม้น*_________*เม้น*___________
____________*เม้น*____*เม้น*_____________
______________*เม้น*_*เม้น*_______________
_________________*เม้น*____

สวัสดีปีใหม่
มีความสุขมากๆนครับ

ขอลาที ปีเก่า แสนเศร้าโศก
ความอับโชค ที่มา กับราศี
อีกโพยภัย ไข้ทำ ประจำมี
ในชีวี จงสลาย มลายพลัน

สวัสดี ปีใหม่ ขอให้สุข
หมดสิ้นทุกข์ กายจิต มิผิดผัน
อายุมั่น ขวัญยืน สี่หมื่นวัน
มีผิวพรรณ ผ่องนวล เย้ายวนชม

ปรารถนา เงินทอง กองท่วมฟ้า
ทำการค้า ร่ำรวย ไปสวยสม
มียศศักดิ์ รักใคร ใคร่ภิรมย์
ขอให้กลม เกลียวกัน และมั่นคง

ถ้าผู้ใด ใจว่าง เรื่องทางรัก
ให้พบพักตร์ กันที อย่ามีหลง
หากอกหัก หนักไป ครวญใคร่ปลง
ขอท่านจง โชคดี ทั้งปีเทอญ