[VB.NET] แจกโค้ดฟรีการเก็บข้อมูลลูกค้า กับความสัมพันธ์ของตารางข้อมูลแบบ One To One

thongkorn

ต้องบอกกล่าวก่อนว่าแอดมินไม่เคยนำวิธีการคิดแบบ Normalization มาใช้ในการอธิบาย แต่จะใช้ความสัมพันธ์ของตารางข้อมูลมาประกอบการพิจารณาการออกแบบเท่านั้น โดยแอดมินจะใช้แค่ 2 แบบ คือ One To One และ One To Many ...

ความสัมพันธ์ของตารางข้อมูลแบบ One To One ... เกิดจากการที่มีข้อมูลซ้ำๆขึ้นมาในตารางข้อมูล ตอนขณะที่ยังเป็นข้อมูลดิบอยู่ ดังนั้นเราต้องแยกฟิลด์ข้อมูลที่ซ้ำๆกันออกไปอยู่อีกตาราง เช่น บุคคล (หรือลูกค้า) อาศัยอยู่ในจังหวัดขอนแก่นได้หลายคน (แล้วจังหวัดอื่นๆอีกล่ะ) นักศึกษาเรียนสาขาดนตรีอยู่หลายคน (แล้วสาขาอื่นๆอีกล่ะ) ทั้งนี้ทั้งนั้นเมื่อมองย้อนกลับมาจะสังเกตได้ว่า บุคคล 1 คน จะอยู่ในจังหวัดใดจังหวัดหนึ่งตามบัตรประชาชนเท่านั้น (หรืออยู่อาศัยสักที่ใดที่หนึ่ง) และ นักศึกษา 1 คน สามารถเข้าศึกษาในสาขาใดสาขาหนึ่งเท่านั้น (เฉพาะสถานศึกษานั้นๆ) ความสัมพันธ์แบบนี้เราถึงได้เรียกว่า หนึ่งต่อหนึ่ง หรือ One To One ... (อ่านรายละเอียดเพิ่มเติม VB6+Access โปรแกรมระบบฐานข้อมูลครุภัณฑ์ ภาคตารางข้อมูล)

กระบวนการคิดในการออกแบบความสัมพันธ์ตารางข้อมูลแบบ One To One ...



- จะมี หลัก (Column) เราเรียกว่า ฟิลด์ข้อมูล (Field) ซึ่งแต่ละฟิลด์ที่ได้มานั้น ก็มาจากความต้องการในการจัดเก็บข้อมูลในแต่ละโปรเจค โดยนำเอา Field มาเป็นตัวหลักในการออกแบบตารางข้อมูล ทั้งการกำหนดชื่อฟิลด์ และชนิดของข้อมูล
- จะมี แถว (Row) เรียกว่า รายการ (Record) ซึ่งรวบรวมข้อมูลต่างมาจากฟิลด์ข้อมูล


- จากนั้นให้ป้อนข้อมูลดิบ (Raw Data) โดยให้มองว่านี่คือ ตารางหลัก (Master Table) จากนั้นมาพิจารณาว่า ฟิลด์ใดมีข้อมูลซ้ำๆกัน ให้จับฟิลด์นั้นแยกออกไปอยู่อีกตาราง เรียกว่า ตารางย่อย (Detail Table) แล้วเชื่อมความสัมพันธ์มันกลับเข้ามายังตารางหลัก ด้วยการใช้ตัวเลขจำนวนเต็ม


- ในตารางหลักจะมีกุญแจรอง Foreign Key หรือ FK เพื่อใช้ในการเชื่อมความสัมพันธ์ฟิลด์ข้อมูลเข้าไปหาตารางย่อยอื่นๆได้ ค่านี้ต้องเป็นตัวเลขเท่านั้น (หรือใครอยากจะใช้แบบอื่นก็ทำได้) ... นี่คือความสัมพันธ์แบบ One To One



- ในตารางหลัก (Master Table) จะมี Primary Key หรือ PK หรือ กุญแจหลัก เพื่อใช้ในการอ้างถึงข้อมูลที่ต้องการ โดยค่านี้ควรจะเป็นตัวเลขแบบจำนวนเต็ม (Number) เพื่อให้ง่าย สะดวก รวดเร็ว แม่นยำ ต่อการสร้าง ค่านี้จะต้องไม่เกิดค่าที่ซ้ำกัน และไม่สามารถเปลี่ยนค่าได้

- ในตารางหลัก (Master Table) จะมี ID หรือ IDentifier เพื่อระบุรหัสประจำตัวของคน หรือสิ่งของ เช่น รหัสลูกค้า (อาจจะยึดตามบัตรประชาชน หรือเลขที่ผู้เสียภาษี) รหัสนักศึกษา หรือรหัสสินค้า เป็นต้น ซึ่งค่า ID จะไม่สามารถมีค่าที่ซ้ำกันได้ แต่สามารถเปลี่ยนแปลงค่าได้ (อาจจะมาจากการคีย์ข้อมูลผิด หรือต้องการเปลี่ยนแปลงในภายหลัง) ซึ่งค่าที่เปลี่ยนไปนั้นต้องไม่ไปซ้ำกับค่าอื่นๆที่มีอยู่แล้ว ยกเว้นค่าเดิมของตัวมันเอง


- ในตารางย่อย (Detail Table) จะต้องมี Primary Key เพื่อเชื่อมความสัมพันธ์กลับไปยังตารางหลัก แต่ไม่จำเป็นต้องมี IDentifier เช่น รหัสจังหวัด รหัสหน่วยนับ หรือรหัสประเภทสินค้า


การทำ Query MS Access ...


การกำหนด Maximum Length หรือความยาวสูงสุดในการป้อนค่าลง TextBox Control ตามจำนวนจากการออกแบบตารางข้อมูล ...

มาดูโค้ดในส่วนสำคัญของรายการลูกค้า (frmCustomerMain.vb) ... ส่วนของการแสดงผล และทำการค้นหา

1.     Private Sub SearchData(Optional ByVal blnSearch As Boolean = False)
   
2.         ' ดักค่าว่างกรณีที่ต้องการให้ค้นหา (blnSearch = True)
   
3.         If blnSearch And Trim(txtSearch.Text) = "" Then Exit Sub
   
4. 
   
5.         '/ เคลียร์ค่าใน DataSet ... นั่นก็คือ ลบรายการออกจาก DataGridView
   
6.         DAS1.Clear()
   
7. 
   
8.         strSQL = _
   
9.             " SELECT tblCustomer.CustomerPK, tblCustomer.CustomerID, tblCustomer.CustomerName, " & _
   
10.             " tblCustomer.PostCode, tblCustomer.Telephone, " & _
    
11.             " tblCustomer.eMail, tblCustomer.LineID, tblCustomer.Facebook, tblProvince.ProvinceName " & _
    
12.             " FROM tblCustomer INNER JOIN tblProvince ON tblCustomer.ProvinceFK = tblProvince.ProvincePK "
    
13. 
    
14.         '/ การทำ Query เพื่อเลือกเฉพาะ Field ที่ต้องการค้นหามาเท่านั้น และแสดงผลฟิลด์หลัก
    
15.         '/ เนื่องจากมันเป็นการ Bound Data Control ดังนั้นเราจึงต้องซ่อนหลักบางตัวเอาไว้ แต่การค้นหาก็ยังทำได้เหมือนเดิม
    
16.         If blnSearch Then
    
17.             strSQL = strSQL & _
    
18.                 " WHERE " & _
    
19.                 " [CustomerID] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
20.                 " [CustomerName] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
21.                 " [ProvinceName] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
22.                 " [PostCode] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
23.                 " [Telephone] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
24.                 " [eMail] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
25.                 " [LineID] " & " Like '%" & Trim(txtSearch.Text) & "%'" & " OR " & _
    
26.                 " [Facebook] " & " Like '%" & Trim(txtSearch.Text) & "%'" & _
    
27.                 " ORDER BY CustomerPK "
    
28.         Else
    
29.             strSQL = strSQL & " ORDER BY CustomerPK "
    
30.         End If
    
31. 
    
32.         '/ ยัดใส่ตารางที่มาจากการทำ Query ให้กับ DataAdapter
    
33.         DAP1 = New OleDb.OleDbDataAdapter(strSQL, Conn)
    
34.         DAP1.Fill(DAS1, "Customer")
    
35.         ' / --------------------------------------------------------------------------------
    
36.         ' / B O U N D --- D A T A --- C O N T R O L
    
37.         ' / เหมาะสำหรับการค้นหาข้อมูล เพื่อนำมาแสดงผล
    
38.         ' / Bind Data into DataGridView
    
39.         dgvData.DataSource = DAS1.Tables("Customer")
    
40.         ' / --------------------------------------------------------------------------------
    
41. 
    
42.         ' ตั้งค่าคุณสมบัติ DataGridView (จริงๆแยกออกไปเป็นโปรแกรมย่อยน่าจะดีกว่าครับ)
    
43.         With dgvData
    
44.             .RowHeadersVisible = False
    
45.             .AllowUserToAddRows = False
    
46.             .AllowUserToDeleteRows = False
    
47.             .AllowUserToResizeRows = False
    
48.             .MultiSelect = False
    
49.             .SelectionMode = DataGridViewSelectionMode.FullRowSelect
    
50.             .ReadOnly = True
    
51.             '// Data rows
    
52.             .Font = New Font("Tahoma", 10)
    
53.             .RowTemplate.MinimumHeight = 27
    
54.             .RowTemplate.Height = 27
    
55.             '// Column Header
    
56.             .ColumnHeadersHeight = 30
    
57.             .ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.DisableResizing
    
58.             '// Autosize Column
    
59.             .AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.Fill
    
60.             '// Even-Odd Color
    
61.             .AlternatingRowsDefaultCellStyle.BackColor = Color.Honeydew
    
62.             ' ปรับรูปแบบ Header
    
63.             With .ColumnHeadersDefaultCellStyle
    
64.                 .BackColor = Color.Navy
    
65.                 .ForeColor = Color.White
    
66.                 .Font = New Font(dgvData.Font, FontStyle.Bold)
    
67.             End With
    
68.             ' หลัก 0 ซึ่งผมจะนำไปซ่อนเอาไว้ไม่ให้ผู้ใช้เห็น และปกติจะเป็นค่า Primary Key
    
69.             .Columns("CustomerPK").Visible = False
    
70.             .Columns("CustomerID").HeaderText = "รหัสลูกค้า"
    
71.             .Columns("CustomerName").HeaderText = "ชื่อลูกค้า"
    
72.             .Columns("Telephone").HeaderText = "เบอร์โทรศัพท์"
    
73.             .Columns("ProvinceName").HeaderText = "จังหวัด"
    
74.             '/ พวกที่ซ่อนหลักไว้ แต่ยังนำมาเป็นคีย์เวิร์ดเพื่อค้นหาได้
    
75.             .Columns("PostCode").Visible = False
    
76.             .Columns("eMail").Visible = False
    
77.             .Columns("LineID").Visible = False
    
78.             .Columns("Facebook").Visible = False
    
79.         End With
    
80.         lblRecordCount.Text = "[จำนวน : " & dgvData.RowCount & " รายการ.]"
    
81.         txtSearch.Text = ""
    
82.         dgvData.Focus()
    
83.     End Sub
    
84. 
    
85.     Private Sub txtSearch_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtSearch.KeyPress
    
86.         If Trim(txtSearch.Text) = "" Or Len(Trim(txtSearch.Text)) = 0 Then Exit Sub
    
87.         If e.KeyChar = Chr(13) Then '// Press Enter
    
88.             '// No beep.
    
89.             e.Handled = True
    
90.             '/ ดักจับตัวอักขระอันไม่พึงปรารถนาสำหรับฐานข้อมูล เช่น ', * หรือ %
    
91.             txtSearch.Text = Trim(txtSearch.Text).Replace("*", "").Replace("'", "").Replace("%", "")
    
92.             '/ SearchData(True) หมายความว่า เป็นการค้นหาข้อมูล ดังนั้นจึงต้องใช้ True
    
93.             Call SearchData(True)
    
94.         End If
    
95.     End Sub

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดในส่วนสำคัญของรายละเอียดลูกค้า (frmCustomerDetail.vb) ... ส่วนของการแสดงผลข้อมูล

1.     ' / --------------------------------------------------------------------------------
   
2.     Private Sub frmCustomerDetail_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
   
3.         Me.CenterToScreen()
   
4.         Me.KeyPreview = True    '/ สามารถใช้ KeyDown การกดปุ่มฟังค์ชั่นต่างๆบนฟอร์มได้ เช่น F8, F10
   
5.         ' / เคลียร์หน้าจอในการแสดงผล
   
6.         Call SetupScreen()
   
7. 
   
8.         ' / รับค่า Public มาใส่ในตัวแปรแบบ Local แทน (เผื่อมีการเรียกใช้งานของฟอร์มอื่น)
   
9.         NewData = blnNewData
   
10.         ' / โหลดรายชื่อจังหวัดเข้ามา (หรือตารางย่อยอื่นๆ)
    
11.         Call LoadProvince()
    
12.         ' /
    
13.         ' / การเพิ่มข้อมูล NewData = True
    
14.         If NewData Then
    
15.             '/ ------------------------------------------------------------------
    
16.             '/ กำหนด Tag เป็นค่าว่าง เพื่อนำไปเปรียบเทียบกับ Text ตอนก่อนบันทึกข้อมูล
    
17.             txtCustomerID.Tag = ""
    
18.             chkAutoID.Enabled = True
    
19.             chkAutoID.Checked = True
    
20.             '/ ------------------------------------------------------------------
    
21.             '/ NewData = False คือการแก้ไขข้อมูล
    
22.         Else
    
23.             '/ ------------------------------------------------------------------
    
24.             ' / อ่านค่า Primary Key จากการเลือกในตารางกริด โดยอ้างถึงจากฟอร์มที่เรียกมันมา คือ frmCustomerMain
    
25.             ' / โดยเราเอาข้อมูลหลักแรก (Index = 0) จาก DataGridView ที่เราซ่อนหลัก PK เอาไว้มาใช้งาน
    
26.             PK = frmCustomerMain.dgvData.Item(0, frmCustomerMain.dgvData.CurrentRow.Index).Value
    
27.             ' / นำข้อมูลมาแสดงผล
    
28.             Call RecordToScreen()
    
29.             chkAutoID.Enabled = False
    
30.             chkAutoID.Checked = False
    
31.             '/ ------------------------------------------------------------------
    
32.         End If
    
33.     End Sub

คัดลอกไปที่คลิปบอร์ด

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / โปรแกรมย่อยในการนำข้อมูลจาก DataBase มาแสดงผล
   
3.     ' / --------------------------------------------------------------------------------
   
4.     Sub RecordToScreen()
   
5.         strSQL = _
   
6.             " SELECT tblCustomer.*, tblProvince.ProvinceName " & _
   
7.             " FROM tblCustomer INNER JOIN tblProvince ON tblCustomer.ProvinceFK = tblProvince.ProvincePK " & _
   
8.             " WHERE CustomerPK = " & PK & _
   
9.             " ORDER BY CustomerPK "
   
10.         Try
    
11.             If Conn.State = ConnectionState.Closed Then Conn.Open()
    
12.             DAP1 = New OleDb.OleDbDataAdapter(strSQL, Conn)
    
13.             Dim DT As New DataTable
    
14.             DAP1.Fill(DT)
    
15.             txtCustomerID.Text = DT(0).Item("CustomerID").ToString()
    
16.             '/ ------------------------------------------------------------------
    
17.             '/ VERY IMPORTANT - ใจกลางความรู้สึกดีดี 5555+
    
18.             '/ นำค่าเดิมจาก CustomerID.Text ไปเก็บไว้ที่ CustomerID.Tag
    
19.             '/ โดยเราจะทำการเปรียบเทียบ 2 ค่าในเหตุการณ์ btnSave_Click
    
20.             txtCustomerID.Tag = txtCustomerID.Text
    
21.             '/ ------------------------------------------------------------------
    
22.             With DT(0)
    
23.                 txtCustomerName.Text = .Item("CustomerName").ToString()
    
24.                 txtAddress.Text = .Item("Address").ToString
    
25.                 txtAmphur.Text = .Item("Amphur").ToString
    
26.                 txtPostCode.Text = .Item("PostCode").ToString
    
27.                 txtTelephone.Text = .Item("Telephone").ToString
    
28.                 txtFacsimile.Text = .Item("Facsimile").ToString
    
29.                 txtContactPerson.Text = .Item("ContactPerson").ToString
    
30.                 txtEmail.Text = .Item("Email").ToString
    
31.                 txtLineID.Text = .Item("LineID").ToString
    
32.                 txtFacebook.Text = .Item("Facebook").ToString
    
33.                 '/ คือเอาค่าชื่อจังหวัดในตารางข้อมูล มาเปรียบเทียบกับค่าที่มีอยู่ใน ComboBox (ส่วนของ DisplayMember)
    
34.                 cmbProvince.Text = .Item("ProvinceName").ToString
    
35.             End With
    
36.             DAP1.Dispose()
    
37.             txtCustomerID.Focus()
    
38.         Catch ex As Exception
    
39.             MsgBox(ex.ToString())
    
40.         End Try
    
41.     End Sub

คัดลอกไปที่คลิปบอร์ด

มาดูโค้ดในส่วนสำคัญของรายละเอียดลูกค้า (frmCustomerDetail.vb) ... ส่วนของการบันทึกข้อมูล

1.     ' / --------------------------------------------------------------------------------
   
2.     ' / โปรแกรมย่อยในการบันทึกข้อมูล
   
3.     ' / --------------------------------------------------------------------------------
   
4.     Sub SaveData()
   
5.         Try
   
6. 
   
7.             '/ ------------------------------------------------------------------
   
8.             '/ กรณีเพิ่มข้อมูลใหม่ NewData = True ต้องทำการ INSERT เข้าไปใหม่ก่อน
   
9.             If NewData Then
   
10.                 '/ ------------------------------------------------------------------
    
11.                 '/ ต้องหาค่า Primary Key ใหม่อีกรอบ (เพื่อความมั่นใจ)
    
12.                 '/ และตอนนี้ไม่ว่าจะเป็นการเพิ่มหรือแก้ไข ค่า PK จะเหมือนกันแล้ว
    
13.                 strSQL = " SELECT MAX(tblCustomer.CustomerPK) AS MaxPK FROM tblCustomer "
    
14.                 PK = SetupNewData(strSQL)
    
15.                 '/ ------------------------------------------------------------------
    
16.                 Using Cmd As New OleDb.OleDbCommand
    
17.                     With Cmd
    
18.                         .Connection = Conn
    
19.                         .CommandType = CommandType.Text
    
20.                         '/ ------------------------------------------------------------------
    
21.                         '/ เลือกเฉพาะฟิลด์ที่สำคัญในการ INSERT มาก่อน ที่เหลือค่อย UPDATE ตามหลัง
    
22.                         '/ เพื่อลดพารามิเตอร์ในการใช้งานทั้งการเพิ่ม และแก้ไขข้อมูลให้ใช้งานร่วมกันได้
    
23.                         Cmd.CommandText = _
    
24.                             " INSERT INTO tblCustomer (CustomerID, DateAdded, CustomerPK) VALUES (@CID, @DateAdded, @CPK)"
    
25.                         With .Parameters
    
26.                             .Add("@CID", OleDbType.VarChar).Value = txtCustomerID.Text
    
27.                             .Add("@DateAdded", OleDbType.Date).Value = Now()
    
28.                             '/ ------------------------------------------------------------------
    
29.                             .Add("@CPK", OleDbType.Integer).Value = PK
    
30.                             '/ ------------------------------------------------------------------
    
31.                         End With
    
32.                         '/ Insert new record.
    
33.                         .ExecuteNonQuery()
    
34.                         .Parameters.Clear()
    
35.                         '/ ------------------------------------------------------------------
    
36.                     End With
    
37.                 End Using
    
38.             End If
    
39. 
    
40.             '/ ------------------------------------------------------------------
    
41.             '/ เริ่มต้นทำการ UPDATE โดยใช้ได้ทั้งการเพิ่มและแก้ไขข้อมูล
    
42.             '/ เหตุที่ผมเลือก Command Method มาใช้งาน
    
43.             '/ เพราะตอนใช้งานจริงๆต้องมีการตรวจสอบข้อมูลก่อนการบันทึกเสมอ
    
44.             '/ ซึ่งจะทำให้ง่ายในการดักค่าการตรวจสอบต่างๆครับผม
    
45.             '/ ------------------------------------------------------------------
    
46.             Using Cmd As New OleDb.OleDbCommand()
    
47.                 With Cmd
    
48.                     .Connection = Conn
    
49.                     .CommandType = CommandType.Text
    
50.                     .CommandText = _
    
51.                         " UPDATE tblCustomer SET " & _
    
52.                         " CustomerID=?, CustomerName=?, Address=?, Amphur=?, ProvinceFK=?, " & _
    
53.                         " PostCode=?, Telephone=?, Facsimile=?, ContactPerson=?, EMail=?, LineID=?, Facebook=?, " & _
    
54.                         " DateModified=? " & _
    
55.                         " WHERE CustomerPK=? "
    
56.                     With .Parameters
    
57.                         .AddWithValue("@CID", txtCustomerID.Text.Trim)
    
58.                         .AddWithValue("@CName", txtCustomerName.Text.Trim)
    
59.                         .AddWithValue("@Address", txtAddress.Text.Trim)
    
60.                         .AddWithValue("@Amphur", txtAmphur.Text.Trim)
    
61.                         '/ ------------------------------------------------------------------
    
62.                         ' / กรณีของ ComboBox ให้เอาค่า MemberValue มาใช้งาน (อันนี้ใน VB6 จะไม่มี)
    
63.                         .AddWithValue("@ProvinceFK", cmbProvince.SelectedValue)
    
64.                         '/ ------------------------------------------------------------------
    
65.                         .AddWithValue("@PostCode", txtPostCode.Text.Trim)
    
66.                         .AddWithValue("@Telephone", txtTelephone.Text.Trim)
    
67.                         .AddWithValue("@Facsimile", txtFacsimile.Text.Trim)
    
68.                         .AddWithValue("@ContactPerson", txtContactPerson.Text.Trim)
    
69.                         .AddWithValue("@EMail", txtEmail.Text.Trim)
    
70.                         .AddWithValue("@LineID", txtLineID.Text.Trim)
    
71.                         .AddWithValue("@Facebook", txtFacebook.Text.Trim)
    
72.                         .AddWithValue("@DateModified", FormatDateTime(Now(), DateFormat.GeneralDate))
    
73.                         '/ ------------------------------------------------------------------
    
74.                         .AddWithValue("@CPK", PK)
    
75.                         '/ ------------------------------------------------------------------
    
76.                     End With
    
77.                     '/ UPDATE
    
78.                     .ExecuteNonQuery()
    
79.                     .Parameters.Clear()
    
80.                 End With
    
81.             End Using
    
82.             MessageBox.Show("บันทึกข้อมูลเรียบร้อย.", "รายงานสถานะ", MessageBoxButtons.OK, MessageBoxIcon.Information)
    
83.             '/ ------------------------------------------------------------------
    
84.             ' ไม่ใช่ข้อมูลใหม่อีกต่อไป
    
85.             NewData = False
    
86.             '/ ส่งค่ากลับไปว่ามีการเปลี่ยนแปลงข้อมูล เพื่อสั่งให้รีเฟรชการแสดงผลใหม่ (จริงๆไม่จำเป็น)
    
87.             FormUpDate = True
    
88.             '/ ------------------------------------------------------------------
    
89.             '/ หากไม่ปิดหน้าจอนี้ต้องกำหนดค่า CustomerID.Tag ใหม่
    
90.             txtCustomerID.Tag = txtCustomerID.Text
    
91.             '/ ปิดหน้าจอนี้
    
92.             Me.Close()
    
93.             '/ ------------------------------------------------------------------
    
94.         Catch ex As Exception
    
95.             MessageBox.Show(ex.Message)
    
96.         End Try
    
97.     End Sub

คัดลอกไปที่คลิปบอร์ด

ดาวน์โหลดโค้ดต้นฉบับแบบเต็ม VB.NET (2010) ได้ที่นี่ ...

diawemotion

มีประโบชน์มากเลยครับ