Imports System
Imports System.Data ' ระบุ Namespace สำหรับการใช้งานฐานข้อมูล
Imports System.Data.OleDb ' ระบุ Namespace สำหรับการใช้งาน Oledb
Imports System.Data.Common
Imports System.Data.DataTable
Imports System.IO
Public Class Frm_M1101
Dim OleDbConnection1 As New OleDbConnection ' ประกาศตัวแปรสำหรับจัดเก็บการเชื่อมต่อฐานข้อมูล
Dim da As OleDbDataAdapter = Nothing ' ประกาศตัวแปรสำหรับจัดเก็บ DataAdapter
Dim ds As New DataSet ' ประกาศตัวแปรสำหรับจัดเก็บ DataSet
Dim dt As DataTable = Nothing ' ประกาศตัวแปรสำหรับจัดเก็บ DataTable
Dim da1 As OleDbDataAdapter = Nothing ' ประกาศตัวแปรสำหรับจัดเก็บ DataAdapter
Dim ds1 As New DataSet ' ประกาศตัวแปรสำหรับจัดเก็บ DataSet
Dim dt1 As DataTable = Nothing ' ประกาศตัวแปรสำหรับจัดเก็บ DataTable
Dim tempshowrecord As Integer
Private Sub Frm_M1101_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbConnection1.ConnectionString = strConn
OleDbConnection1.Open()
Showrecord()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim cmd As OleDbCommand = Nothing
Dim sqlSave As String = ""
Dim sqlUpdate As String = ""
Dim j As Integer
Dim sqlif As String = "SELECT EVENT_ID FROM TB_EVENTJOBSALE WHERE EVENT_ID LIKE '" & Txt_Postid.Text & "' "
da1 = New OleDbDataAdapter(sqlif, OleDbConnection1)
da1.Fill(ds1, "dsif")
dt1 = ds1.Tables("dsif")
j = Val(dt1.Rows.Count)
ds1.Tables("dsif").Clear()
dt1 = ds1.Tables("dsif")
If Txt_Postid.Text = "" Then
MessageBox.Show("กรุณากรอกข้อมูล", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Txt_Postid.Focus()
Exit Sub
ElseIf Txt_Postname.Text = "" Then
MessageBox.Show("กรุณากรอกข้อมูล", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Txt_Postname.Focus()
Exit Sub
End If
Try
Catch ex As Exception
End Try
Try
sqlSave = "INSERT INTO TB_EVENTJOBSALE(EVENT_ID,EVENT_NAME) VALUES( '" & Txt_Postid.Text & "','" & Txt_Postname.Text & "')"
sqlUpdate = "UPDATE TB_EVENTJOBSALE SET EVENT_ID='" & Txt_Postid.Text & "',EVENT_NAME= '" & Txt_Postname.Text & "' WHERE EVENT_ID = '" & Txt_Postid.Text & "'"
If j = 0 Then
tempshowrecord = Val(Txt_Postid.Text.ToString)
cmd = New OleDbCommand(sqlSave, OleDbConnection1)
cmd.ExecuteNonQuery()
If MessageBox.Show("ทำการบันทึกรหัส" & Txt_Postid.Text & " ชื่อ " & Txt_Postname.Text & " ", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
Exit Sub
End If
Else
tempshowrecord = Val(Txt_Postid.Text.ToString)
cmd = New OleDbCommand(sqlUpdate, OleDbConnection1)
cmd.ExecuteNonQuery()
If MessageBox.Show("ทำการแก้ไขรหัส" & Txt_Postid.Text & " ชื่อ " & Txt_Postname.Text & " ", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.No Then
Exit Sub
End If
End If
Catch ex As Exception ' กรณีประมวลผลในช่วงของ Try แล้วมีข้อผิดพลาด จะมีการกระโดด(jump) ลงมาที่บรรทัดนี้เลย เพื่อแสดงข้อผิดพลาดของโปรแกรม
MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally
cleargrid()
Showrecord()
End Try
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim cmd As OleDbCommand = Nothing
Dim sqlDelete As String = ""
sqlDelete = "DELETE FROM TB_EVENTJOBSALE WHERE EVENT_ID = '" & Txt_Postid.Text & "'"
If Txt_Postid.Text = "" Then
MessageBox.Show("กรุณาคลิกเลือกข้อมูลที่ต้องการ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Txt_Postid.Focus()
Exit Sub
ElseIf Txt_Postname.Text = "" Then
MessageBox.Show("กรุณาคลิกเลือกข้อมูลที่ต้องการ", "คำเตือน", MessageBoxButtons.OK, MessageBoxIcon.Information)
Txt_Postname.Focus()
Exit Sub
End If
Try
cmd = New OleDbCommand(sqlDelete, OleDbConnection1)
cmd.ExecuteNonQuery()
Catch ex As Exception
MessageBox.Show(ex.Message, "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
Finally
cleargrid()
ClereAllData()
Showrecord()
End Try
End Sub
Private Sub Showrecord()
Dim sqlselect As String
sqlselect = " select EVENT_ID,EVENT_name FROM TB_EVENTJOBSALE order by EVENT_ID ASC "
da1 = New OleDbDataAdapter(sqlselect, OleDbConnection1)
da1.Fill(ds1, "dataset2")
dt1 = ds1.Tables("dataset2")
Dgv1.DataSource = dt1
Dgv1.Columns(0).HeaderText = "รหัสของขั้นตอนการทำงาน"
Dgv1.Columns(0).Width = 180
Dgv1.Columns(1).HeaderText = "ชื่อขั้นตอนการทำงาน"
Dgv1.Columns(1).Width = 180
End Sub
Private Sub cleargrid()
ds1.Tables("dataset2").Clear()
dt1 = ds1.Tables("dataset2")
Dgv1.DataSource = dt1
End Sub
Private Sub Dgv1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles Dgv1.CellClick
Txt_Postid.Text = Dgv1.CurrentRow.Cells(0).Value
Txt_Postname.Text = Dgv1.CurrentRow.Cells(1).Value
End Sub
Private Sub ClereAllData()
Txt_Postid.Text = ""
Txt_Postname.Text = ""
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
ClereAllData()
End Sub
End Class