[VB6] แสดงผลรหัสไปรษณีย์ประเทศไทย ด้วย ComboBox

thongkorn

โปรเจคนี้จะเป็นการแสดงผลแบบเรียงลำดับ คือ เลือกจังหวัดก่อน จากนั้นก็จะแสดงผลอำเภอ เมื่อเลือกอำเภอก็จะแสดงผลรายชื่อตำบลออกมา จนท้ายที่สุดก็เป็นรหัสไปรษณีย์ โดยกระบวนการขั้นตอนต่างๆ จะเป็นไปในลักษณะ Event/Driven อย่างชัดเจน เช่น เกิดเหตุการณ์ (Event) โดยการเลือกชื่อจังหวัดจาก ComboBox จากนั้นสั่งให้ไปทำอะไร (Driven) ก็คือการทำ Query ข้อมูลอำเภอที่อยู่ในจังหวัดนั้นๆออกมา ... หลักการในการทำ Query ที่สำคัญคือ DISTINCT เป็นการคัดกรองข้อมูลที่ซ้ำกันให้เหลือเพียง 1 เดียว ...


ตัวอย่างการใช้งาน DISTINCT เพื่อทำการกรองข้อมูลที่ซ้ำกัน ให้เหลือเพียงค่าเดียว

มาดูโค้ดกันเถอะ ...

1. ' / --------------------------------------------------------------------------------
   
2. ' / Developer : Mr.Surapon Yodsanga (Thongkorn Tubtimkrob)
   
3. ' / eMail : thongkorn@hotmail.com
   
4. ' / URL: http://www.g2gnet.com (Khon Kaen - Thailand)
   
5. ' / Facebook: https://www.facebook.com/g2gnet (For Thailand)
   
6. ' / Facebook: https://www.facebook.com/commonindy (Worldwide)
   
7. ' / Purpose:  Information PostCode data in Thailand.
   
8. ' / Microsoft Visual Basic 6.0 (SP1) + FarPoint Spread 8.0
   
9. ' /
   
10. ' / This is open source code under @CopyLeft by Thongkorn Tubtimkrob.
    
11. ' / You can modify and/or distribute without to inform the developer.
    
12. ' / --------------------------------------------------------------------------------
    
13. Option Explicit
    
14. 
    
15. '// Public variable which can see in this only project.
    
16. Dim ConnDB As New ADODB.Connection
    
17. Dim RS As New ADODB.Recordset
    
18. Dim Statement As String
    
19. 
    
20. Public Sub OpenDataBase()
    
21. On Error GoTo Err_Handler
    
22. Dim DB_File As String
    
23.     DB_File = App.Path
    
24.     If Right$(DB_File, 1) <> "" Then DB_File = DB_File & ""
    
25.     DB_File = DB_File & "PostCode2555.MDB"
    
26.     ' เชื่อมต่อไฟล์ข้อมูล - Open Connection
    
27.     Set ConnDB = New ADODB.Connection
    
28.     ConnDB.ConnectionString = _
    
29.         " Provider=Microsoft.Jet.OLEDB.4.0;" & _
    
30.         " Data Source=" & DB_File & ";" & _
    
31.         " Persist Security Info=False"
    
32.     ConnDB.Open
    
33.     Exit Sub
    
34. 
    
35. Err_Handler:
    
36.     MsgBox "Error : " & Err.Number & " " & Err.Description
    
37.     End
    
38. End Sub
    
39. 
    
40. Private Sub Form_Load()
    
41.     Me.Move (Screen.Width - Width) \ 2, (Screen.Height - Height) \ 2
    
42.     ' เคลียร์หน้าจอ
    
43.     cmbProvince.Clear
    
44.     cmbAmphur.Clear
    
45.     cmbTumbon.Clear
    
46.     lblPostCode.Caption = ""
    
47.     txtRemark.Text = ""
    
48.    
    
49.     ' เชื่อมต่อฐานข้อมูล
    
50.     Call OpenDataBase
    
51.     ' โหลดรายชื่อจังหวัดเข้า ComboBox
    
52.     Call LoadProvince
    
53. End Sub
    
54. 
    
55. ' / -----------------------------------------------------------------------------------------------------------
    
56. ' Load รายการจังหวัดเข้ามาจากตาราง PostCode
    
57. ' / -----------------------------------------------------------------------------------------------------------
    
58. Sub LoadProvince()
    
59.     Set RS = New ADODB.Recordset
    
60.     ' DISTINCT คือ หากชื่อรายการมันซ้ำ ต้องตัดให้เหลือเพียงรายการเดียว
    
61.     Statement = _
    
62.             "SELECT DISTINCT PostCode.Province " & _
    
63.             " From PostCode ORDER BY PostCode.Province "
    
64.     Set RS = ConnDB.Execute(Statement, , adCmdText)
    
65.     Do Until RS.EOF
    
66.         cmbProvince.AddItem "" & RS("Province")
    
67.         RS.MoveNext
    
68.     Loop
    
69.     RS.Close:    Set RS = Nothing
    
70. End Sub
    
71. 
    
72. ' / -----------------------------------------------------------------------------------------------------------
    
73. ' เลือกรายชื่อจังหวัด แล้วต้องเอาข้อมูลรายชื่ออำเภอมาแสดงผลใน ComboBox
    
74. ' / -----------------------------------------------------------------------------------------------------------
    
75. Private Sub cmbProvince_Click()
    
76.     cmbAmphur.Clear
    
77.     cmbTumbon.Clear
    
78.     lblPostCode.Caption = ""
    
79.     txtRemark.Text = ""
    
80.    
    
81.     Set RS = New ADODB.Recordset
    
82.     Statement = _
    
83.             "SELECT DISTINCT PostCode.Amphur, PostCode.Province " & _
    
84.             " From PostCode  " & _
    
85.             " WHERE " & _
    
86.             " Province = " & "'" & cmbProvince.Text & "'" & _
    
87.             " ORDER BY PostCode.Amphur "
    
88.     Set RS = ConnDB.Execute(Statement, , adCmdText)
    
89.     Do Until RS.EOF
    
90.         cmbAmphur.AddItem "" & RS("Amphur")
    
91.         RS.MoveNext
    
92.     Loop
    
93.     RS.Close:    Set RS = Nothing
    
94. End Sub
    
95. 
    
96. ' / -----------------------------------------------------------------------------------------------------------
    
97. ' เลือกอำเภอ แล้วจะต้องนำเอาข้อมูลรายชื่อตำบลเข้ามาไว้ใน ComboBox
    
98. ' / -----------------------------------------------------------------------------------------------------------
    
99. Private Sub cmbAmphur_Click()
    
100.     cmbTumbon.Clear
     
101.     lblPostCode.Caption = ""
     
102.     txtRemark.Text = ""
     
103.    
     
104.     Set RS = New ADODB.Recordset
     
105.     ' เงื่อนไขทดสอบ ใช้ชื่อจังหวัด และ อำเภอด้วย
     
106.     ' DISTINCT คือ หากชื่อรายการมันซ้ำ ต้องตัดให้เหลือเพียงรายการเดียว
     
107.     Statement = _
     
108.             "SELECT DISTINCT PostCode.Amphur, PostCode.Province, PostCode.Tumbon " & _
     
109.             " From PostCode  " & _
     
110.             " WHERE " & _
     
111.             " Province = " & "'" & cmbProvince.Text & "'" & _
     
112.             " AND " & _
     
113.             " Amphur = " & "'" & cmbAmphur & "'" & _
     
114.             " ORDER BY PostCode.Tumbon "
     
115.     Set RS = ConnDB.Execute(Statement, , adCmdText)
     
116.     Do Until RS.EOF
     
117.         cmbTumbon.AddItem "" & RS("Tumbon")
     
118.         RS.MoveNext
     
119.     Loop
     
120.     RS.Close:    Set RS = Nothing
     
121. End Sub
     
122. 
     
123. ' / -----------------------------------------------------------------------------------------------------------
     
124. ' เลือกตำบล แล้วจะแสดงรหัสไปรษณีย์
     
125. ' / -----------------------------------------------------------------------------------------------------------
     
126. Private Sub cmbTumbon_Click()
     
127.     lblPostCode.Caption = ""
     
128.     txtRemark.Text = ""
     
129.    
     
130.     Statement = _
     
131.             "SELECT PostCode.Province, PostCode.Amphur, PostCode.Tumbon, " & _
     
132.             " PostCode.PostCode, PostCode.Remark " & _
     
133.             " From PostCode  " & _
     
134.             " WHERE " & _
     
135.             " Province = " & "'" & cmbProvince.Text & "'" & _
     
136.             " AND " & _
     
137.             " Amphur = " & "'" & cmbAmphur & "'" & _
     
138.             " AND " & _
     
139.             " Tumbon = " & "'" & cmbTumbon & "'" & _
     
140.             " ORDER BY PostCode.Tumbon "
     
141.     Set RS = ConnDB.Execute(Statement, , adCmdText)
     
142.     lblPostCode.Caption = "" & RS("PostCode")
     
143.     txtRemark.Text = "" & RS("Remark")
     
144.     RS.Close:   Set RS = Nothing
     
145. End Sub
     
146. 
     
147. Public Sub CloseDataBase()
     
148.     If ConnDB.State = adStateOpen Then
     
149.         ConnDB.Close
     
150.         Set ConnDB = Nothing
     
151.     End If
     
152. End Sub
     
153. 
     
154. Private Sub Form_Unload(Cancel As Integer)
     
155.     Call CloseDataBase
     
156.     Set frmMain = Nothing
     
157.     End
     
158. End Sub

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

ดาวน์โหลดโค้ดต้นฉบับ VB6 และฐานข้อมูลรหัสไปรษณีย์ได้ที่นี่

ooddog

อาจารย์ครับ VB.net มีวิธีการอย่างไรครับ

admin

ooddog ตอบกลับเมื่อ 2021-6-30 10:24
อาจารย์ครับ VB.net มีวิธีการอย่างไรครับ

http://www.g2gsoft.com/webboard/ ... wthread&tid=159