001.Option Explicit On
002.Option Strict On
003.Imports System.Data
004.Imports MySql.Data.MySqlClient
005.
006.Public Class member
007. Dim MySQLConn As MySqlConnection
008. Dim da As MySqlDataAdapter
009. Dim ds As DataSet
010. Dim tb As DataTable
011. Dim StrSQL As String
012.
013.
014. Private Sub member_Load(sender As Object, e As EventArgs) Handles MyBase.Load
015. Try
016. MySQLConn = New MySqlConnection
017. MySQLConn.ConnectionString = "Server=localhost; Database=bookrental; Uid=JN; Pwd=12345;charset=utf8"
018. MySQLConn.Open()
019. If MySQLConn.State = ConnectionState.Open Then
020. MySQLConn.Open()
021. Call ShowData()
022. Else
023. MsgBox("Error")
024. End If
025. Catch ex As Exception
026. End Try
027. Call ShowData()
028. End Sub
029.
030. Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
031. If e.RowIndex = -1 Then Exit Sub
032. With DataGridView1
033. txtIDMem.Text = .Rows.Item(e.RowIndex).Cells(0).Value.ToString()
034. cboTitle.Text = .Rows.Item(e.RowIndex).Cells(1).Value.ToString()
035. txtName.Text = .Rows.Item(e.RowIndex).Cells(2).Value.ToString()
036. txtLName.Text = .Rows.Item(e.RowIndex).Cells(3).Value.ToString()
037. txtIDCard.Text = .Rows.Item(e.RowIndex).Cells(4).Value.ToString()
038. txtAddress.Text = .Rows.Item(e.RowIndex).Cells(5).Value.ToString()
039. txtPNumber.Text = .Rows.Item(e.RowIndex).Cells(6).Value.ToString()
040. txtEMail.Text = .Rows.Item(e.RowIndex).Cells(7).Value.ToString()
041.
042. End With
043. End Sub
044.
045. Public Sub formatGrid()
046. With DataGridView1
047. .Columns(0).HeaderText = "รหัสสมาชิก"
048. .Columns(1).HeaderText = "คำนำหน้าชื่อ"
049. .Columns(2).HeaderText = "ชื่อ"
050. .Columns(3).HeaderText = "นามสกุล"
051. .Columns(4).HeaderText = "รหัสประชาชน"
052. .Columns(5).HeaderText = "ที่อยู่สมาชิก"
053. .Columns(6).HeaderText = "เบอร์โทรสมาชิก"
054. .Columns(7).HeaderText = "E-Mail"
055.
056. .Columns(0).Width = 130
057. .Columns(1).Width = 100
058. .Columns(2).Width = 100
059. .Columns(3).Width = 80
060. .Columns(4).Width = 122
061. .Columns(5).Width = 100
062. .Columns(6).Width = 100
063. .Columns(7).Width = 80
064. End With
065. End Sub
066.
067. Sub clearData()
068. txtIDMem.Clear()
069. cboTitle.Text = "คำนำหน้าชื่อ:"
070. txtName.Clear()
071. txtLName.Clear()
072. txtIDCard.Clear()
073. txtAddress.Clear()
074. txtPNumber.Clear()
075. txtEMail.Clear()
076.
077. End Sub
078.
079. Sub ShowData()
080. ds = New DataSet
081. StrSQL = "SELECT m.Mem_ID,m.Mem_Title,m.Mem_FName,m.Mem_LName,m.Mem_IDCard,m.Mem_Address,t.Mem_Phone,m.Mem_Mail FROM member m INNER JOIN talephone_member t ON m.Mem_IDCard=t.Mem_IDCard"
082. da = New MySqlDataAdapter(StrSQL, MySQLConn)
083. da.Fill(ds, "member")
084. DataGridView1.DataSource = ds.Tables("member")
085. Call formatGrid()
086.
087. End Sub
088.
089. Private Sub btnAdd_Click(sender As Object, e As EventArgs) Handles btnAdd.Click
090. If MessageBox.Show("คุณต้องการเพิ่มข้อมูลนี้ใช่หรือไม่ ?", "ยืนยันการเพิ่มข้อมูลรายการเมนูอาหาร", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
091. ds = New DataSet
092. StrSQL = "INSERT INTO member(Mem_ID,Mem_Title,Mem_FName,Mem_LName,Mem_IDCard,Mem_Address,Mem_Mail) " & " VALUES ('" & txtIDMem.Text.Trim() & "', '" & cboTitle.Text.Trim() & "', '" & txtName.Text.Trim() & "', '" & txtLName.Text.Trim() & "' , '" & txtIDCard.Text.Trim() & "', '" & txtAddress.Text.Trim() & "' , '" & txtEMail.Text.Trim() & "')" & "INSERT INTO talephone_member(Mem_Phone) VALUES ('" & txtPNumber.Text.Trim() & "')"
093. da = New MySqlDataAdapter(StrSQL, MySQLConn)
094. da.Fill(ds, "member")
095. MessageBox.Show("เพิ่มข้อมูลเรียบร้อย", "เสร็จสิ้น", MessageBoxButtons.OK, MessageBoxIcon.Information)
096. Call ShowData()
097. Call clearData()
098. End If
099. End Sub
100.End Class
Load balance : Server 01
