µÍ¹¹Õé¨Ðà¢éÒÊÙè¡ÒÃÍ͡ẺáÅÐâ¤é´â»Ãá¡ÃÁã¹ Visual Basic 6.0 áÅéǤÃѺ
¨Ò¡ÀÒ¤ 2 ·Õè¼èÒ¹¹Ñé¹ àÃÒä´éÃÙéÇÔ¸Õ¡ÒÃàª×èÍÁµè͵ÒÃÒ§¢éÍÁÙÅ 2 µÒÃÒ§ à¢éÒËҡѹà»ç¹·ÕèàÃÕºÃéÍÂáÅéǤÃѺ ÊÓËÃѺã¹ÀÒ¤¹Õé¨Ðá¹Ð¹ÓãËé·èÒ¹·Ñé§ËÅÒ ä´éÃÙé¨Ñ¡¡Ñº¡ÒÃÍ͡Ẻ áÅÐ ¾Ñ²¹Òâ»Ãá¡ÃÁ´éÇ MS Visual Basic 6.0 ã¹ÃٻẺ¢Í§ Run-Time (µéͧÊÑè§ãËéâ»Ãá¡ÃÁ·Ó§Ò¹¡è͹ àÃÒ¨Ö§¨ÐàËç¹¼ÅÅѾ¸ì¢Í§¡Ò÷ӧҹ) ·ÕèÍÒ¨¨ÐᵡµèÒ§¨Ò¡Ë¹Ñ§Ê×Í·ÑèÇæä» ·ÕèªÍºá¹Ð¹Óé·èÒ¹·Ñé§ËÅÒ ãËéä»àÃÕ¹ÃÙé ËÃ×Í ¾Ñ²¹Òâ»Ãá¡ÃÁã¹ÃٻẺ¢Í§ Data Control à»ç¹ËÅÑ¡¤ÃѺ¾Õè¹éͧ
áµèÁÔãªèÇèÒ Data Control ËÃ×Í Design Time ËÃ×Í ÇÔ¸Õ¡Òü١µÔ´¤Í¹â·ÃÅ (Bound Control) ¨ÐäÁè´Õ¹èФÃѺ ¢éÍ´ÕÁѹ¡çÁմѧ¹Õé ¤×Í
¢éÍ´Õ
- ·Ó§Ò¹ä´éàÃçÇ¡ÇèÒÇÔ¸Õ¡ÒÃẺ Run-Time
- àËÁÒÐÊÓËÃѺâ»Ãá¡ÃÁ¢¹Ò´àÅç¡æ·ÕèäÁèÊÅѺ«Ñº«é͹ÁÒ¡¹Ñ¡
- àËÁÒÐÊÓËÃѺ¤¹·Õèà¢Õ¹â»Ãá¡ÃÁ¢Öé¹ÁÒàͧ áÅéǹÓä»ãªé§Ò¹àͧ ... ËØËØËØ
áµèº·¤ÇÒÁ¹Õé (áÅЧҹµèÒ§æ¢Í§¼Á´éÇÂ) ¨ÐµéͧÍ͡Ẻ áÅÐ à¢Õ¹â¤é´¡Ñ¹ã¹áºº¢Í§ Run-Time áÅÐ ¨ÐäÁè¼Ù¡¤Í¹â·ÃÅã´æ àÍÒäÇé¡Ñº¿ÔÅ´ì¢Í§µÒÃÒ§¢éÍÁÙÅàÅ ¤ÃѺ¼Á ÍéÒÇ ... µÍ¹¹Õé¡çà»Ô´â»Ãá¡ÃÁ Visual Basic 6.0 ¡Ñ¹¢Öé¹ÁÒ¤ÃѺ¾Õè¹éͧ àÁ×è;ÃéÍÁáÅéÇ Íѹ´Ñºáá¡çµéͧàÃÕ¡ãªé§Ò¹ References - ÍéÒ§ÍÔ§ «Öè§àÃÒÁÕ¤ÇÒÁ¨Óà»ç¹ µéͧÍéÒ§ÍÔ§¡ÒÃãªé§Ò¹°Ò¹¢éÍÁÙżèÒ¹·Ò§ MDAC ´Ñ§ÀÒ¾´éÒ¹ÅèÒ§¹Õé
µèÍ仡çàÅ×Í¡ Microsoft ActiveX Data Objects 2.8 Library ËÃ×Í àÍÒ Version ·ÕèÁѹÊÙ§ÊØ´¹Ñè¹áËÅФÃѺ ...
 ÊÓËÃѺ MS Windows XP Áѹ¨ÐµÔ´ ActiveX (Version 2.8) µÑǹÕéÁÒãËéÍÂÙèáÅéÇ
Êèǹ Windows ÃØè¹·ÕèµèÓ¡ÇèÒ¹Õ餧µéͧ Download MDAC ÁÒµÔ´µÑé§àͧ
·Õè·èÒ¹àË繨ҡÀÒ¾ÇèÒÁÕ·Ñé§ Version 2.5, 2.6 ËÃ×Í 2.7 ¤×ÍẺÇèÒ ... ¼ÁµÔ´µÑé§ MDAC à¢éÒä»à¾ÔèÁàͧ¹èФÃѺ ¡çà¾ÃÒЧҹâ»Ãá¡ÃÁ¢Í§¼Á·Õè¾Ñ²¹Ò¢Öé¹ÁÒ¹Ñé¹ ÁÕ·Ñ駧ҹà¡èÒæ áÅÐÂѧµéͧ¹Óä»ãªé§Ò¹¡Ð Windows ËÅÒÂÃØ蹤ÃѺ äÁèÇèÒ¨Ðà»ç¹ 95, 98 ËÃ×Í Win ME »ÃÐà´ÕëÂÇ·èÒ¹¨Ð§§ÇèÒ·ÓäÁã¹à¤Ã×èͧ¢Í§·èÒ¹ÁѹäÁèÁÕ ... ÍÔÍÔÍÔ
ÊÓËÃѺã¹Êèǹ¢Í§ Components ¹Ñé¹¼Á¨Ðãªé Çѵ¶Ø ËÃ×Í Object ËÃ×Í Control Ẻ¾×é¹°Ò¹ ¹èФÃѺ áÅÐ äÁè¨Óà»ç¹µéͧàÃÕ¡ãªé§Ò¹ Microsoft ADO Data Control (OLEDB) à¢éÒÁÒàŤÃѺ ... ºÍ¡áÅéÇÇèÒÇÔ¸Õ¹Õéà»ç¹¡ÒÃÍ͡Ẻ¢Í§ Run-Time «Öè§Áѹ¨Ðá»Å¡áµ¡µèҧ仨ҡ·Õè·èÒ¹ä´éàËç¹æ¡Ñ¹ÁÒ«èÐÍÍ¡ºèÍÂæ¹Ñè¹ÅèФÃѺ ... ¾Õè¹éͧ
¢Ñ鹵͹µèÍä» ... ¡ç¤×Í¡ÒÃÇÒ§Çѵ¶Ø (Object) ËÃ×Í Control à¢éÒÊÙ躹¿ÍÃìÁÅèФÃѺ
«Ö觨лÃСͺ仴éÇÂ
- Label ¨Ó¹Ç¹ 7 µÑÇ (¡Ó˹´ãËéãªé¤èÒ Index ä´é¤ÃѺ àªè¹ lblCustomer(0)=ÃËÑÊÅÙ¡¤éÒ ËÃ×Í lblCustomer(1)=ª×èÍÅÙ¡¤éÒ à»ç¹µé¹)
- TextBox ¨Ó¹Ç¹ 6 µÑÇ áµèäÁèµéͧ¡Ó˹´ãËéãªé Index ¹èФÃѺ à¾ÃÒФس¨Ð¨´¨Óª×èÍä´éÂÒ¡ ÂÔè§ËÒ¡ÁÕ TextBox ËÅÒÂÊÔºµÑÇ
- ComboBox ¨Ó¹Ç¹ 1 µÑÇ à¾×èÍãªé¡ÑºÃÒª×èͨѧËÇÑ´ (Province)
- CommandButton ¨Ó¹Ç¹ 1 µÑÇ (¡è͹) à¾×èÍãªé»Ô´â»Ãá¡ÃÁ
- Êèǹ MS Flex Grid Control à¾×èÍãªé㹡Òà List ÃÒª×èÍÅÙ¡¤éÒÍÍ¡ÁÒ¹Ñé¹ àÃҨйÓÁÒ¡ÅèÒǶ֧ã¹ÀÒ¤µèÍä» ... ÊÓËÃѺÀÒ¤¹Õé¢Í¢éÒÁ仡è͹¹èФÃѺ¼Á
Properties ËÃ×Í ¤Ø³ÊÁºÑµÔ·ÕèÊÓ¤ÑÊÓËÃѺ TextBox áµèÅеÑÇ Áմѧ¹Õé¤×Í (Design Time)
ÃËÑÊÅÙ¡¤éÒ
- Name: txtCustomerID
- Text: txtCustomerID
- Locked: True
ª×èÍ
- Name: txtFirstname
- Text: txtFirstname
- MaxLength: 40 (ãËéÍéÒ§ÍÔ§¤ÇÒÁÂÒǨҡµÒÃÒ§¢éÍÁÙÅ)
¹ÒÁÊ¡ØÅ
- Name: txtLastname
- Text: txtLastname
- MaxLength: 40 (ãËéÍéÒ§ÍÔ§¤ÇÒÁÂÒǨҡµÒÃÒ§¢éÍÁÙÅ)
·ÕèÍÂÙè
- Name: txtAddress
- Text: txtAddress
- MaxLength: 150 (ãËéÍéÒ§ÍÔ§¤ÇÒÁÂÒǨҡµÒÃÒ§¢éÍÁÙÅ)
ÍÓàÀÍ
- Name: txtAmphur
- Text: txtAmphur
- MaxLength: 50 (ãËéÍéÒ§ÍÔ§¤ÇÒÁÂÒǨҡµÒÃÒ§¢éÍÁÙÅ)
ÃËÑÊä»ÃɳÕÂì
- Name: txtPostCode
- Text: txtPostCode
- MaxLength: 5 (ãËéÍéÒ§ÍÔ§¤ÇÒÁÂÒǨҡµÒÃÒ§¢éÍÁÙÅ)
ÅͧÊѧࡵ´éǹèФÃѺÇèÒ ¤Ø³ÊÁºÑµÔ¢Í§ Text .... ·ÕèµéͧãÊèŧ仴éǹÑé¹ ¡çà¾×èͪèÇÂãËéàÃÒä´éÃÙéÇèÒäÍéà¨éҤ͹â·ÃŵÑǹÕéà¹ÕéÂÐ ÁѹÁÕª×èÍÇèÒÍÐäúéÒ§ à¾ÃÒÐÂÔè§ÁÕ TextBox ÁÒ¡à·èÒäà áÅÐÍÕ¡ÍÂèÒ§ ËÒ¡àÃÒµéͧÂé͹¡ÅѺÁÒá¡é䢧ҹÍÕ¡Ãͺ ËÅѧ¨Ò¡àÇÅÒ¼èÒ¹ä»ÊÑ¡à´×͹¹Ö§´Ù«Ô ¨ÐäÁ觧áÂèàËÃͤÃѺ ... ¾Õè¹éͧ Íѹ¹Õé¡ç¤§µéͧ½Ö¡ãËéà»ç¹¹ÔÊÑ´éÇÂáÅéǡѹ äÁèãªèä»·ÓµÒÁ˹ѧÊ×Í·Õèà¢ÒºÍ¡ÁÒ¡¹Ñ¡ àªè¹ »ÃÐàÀ··ÓẺ Index ´Ñ§¹Õé¤×Í Name(0), Name(1), ... 仨¹¶Ö§ Name(30) áÅéǨÐä»ÃÙéä´éä§ÇèÒ Name(17) ¹ÕèÁѹ¤×Í ????? àÎéÍ ... á¤è¤Ô´¡çÁѹáÅéǤÃѺ¾Õè¹éͧ
Properties ËÃ×Í ¤Ø³ÊÁºÑµÔ·ÕèÊÓ¤ÑÊÓËÃѺ ComboBox Áմѧ¹Õé¤×Í
áÊ´§ÃÒª×èͨѧËÇÑ´
- Name: cmbProvince
- Text: cmbProvince à˵ؼÅàËÁ×͹¡Ñº TextBox
- Style: 2 - Drop Down List
Íѹ¹Õé¨Ðà»ç¹¡Òúѧ¤ÑºãËé ComboBox áÊ´§¼Åã¹âËÁ´ÍèÒ¹ä´éÍÂèÒ§à´ÕÂÇ (Read only) äÁèµéͧ¡ÒÃãËé¼Ùéãªé¤ÕÂìÍÐäÃà¢éÒä»ä´é áµèã¹â»Ãá¡ÃÁ·Õè¼Áãªé§Ò¹¨ÃÔ§æ¹Ñé¹ ¨ÐäÁèä´éÍ͡Ẻàªè¹¹ÕéËÃÍ¡¤ÃѺ áÅéÇàÃÒ¤èÍÂÁÒÇèҡѹµèÍä»ã¹ÀÒ¤µèÍæ令ÃѺ¼Á ... áµèÊÓËÃѺ¼Ùé·Õèà¢éÒÁÒàÃÕ¹¡Ñº¼Á¹Ñé¹ ¼Á¡ç¨ÐºÍ¡à»ç¹á¹Ç·Ò§à¾×èÍãËéà¢Òä»ÊÃéÒ§à»ç¹ ¿Ñ§¤ìªÑè¹ ã¹¡ÒõÃǨÊͺà¾ÔèÁàµÔÁàÍÒàͧ¹èФÃѺ
¡è͹·Õè·èÒ¹¨Ðâ¤é´¤ÓÊÑ觵èÒ§æà¢éÒ仹Ñé¹ã¹¿ÍÃìÁ¹Ñé¹ ¼Á¢Íá·Ã¡¢Ñ鹵͹ÊÓ¤ÑÍÕ¡»ÃСÒÃ˹Öè§ ¹Ñ蹤×Í ¡ÒûÃСÒȵÑÇá»Ã ·Õèµéͧãªé§Ò¹ºèÍÂæ ÃÇÁ件֧â»Ãá¡ÃÁÂèÍÂẺ Public àÍÒäÇéã¹ Module ´éÇ¡Òá´àÁÒÊì¢ÇÒ㹪èͧ Project áÅÐ Add --> Module à¾ÔèÁàµÔÁà¢éÒÁÒ¡è͹¹èФÃѺ ´Ñ§ÀÒ¾·ÕèÍÂÙè´éÒ¹ÅèÒ§¹Õé
 àÁ×èÍ Save ä¿ÅìàÃÒ¨Ðä´éà»ç¹¹ÒÁÊ¡ØÅ BAS ¤ÃѺ
Option Explicit
Global ConnMyDB As New ADODB.Connection ' ÊÃéÒ§ Connection à¾×èÍàª×èÍÁµèÍà¢éҡѺä¿Åì°Ò¹¢éÍÁÙÅ MS Access
Global RS As New ADODB.Recordset ' ÊÃéÒ§¡ÒÃàª×èÍÁµèÍà¢éҡѺµÒÃÒ§ (µÑÑÇËÅÑ¡)
Global DS As New ADODB.Recordset ' ÊÃéÒ§¡ÒÃàª×èÍÁµèÍà¢éҡѺµÒÃÒ§ (µÑÑÇÃͧ)
Global Statement As String ' ÊÓËÃѺ¡ÒûÃСÒÈ SQL Statement
'
Global blnNewData As Boolean ' ÊÓËÃѺãËéÃÙéÇèÒ¿ÍÃìÁ¹Ñé¹ÊÃéÒ§¢éÍÁÙÅ¢Öé¹ãËÁè ËÃ×Í à»ç¹¡ÒÃá¡éä¢
'
Public Sub OpenDataBase() ' â»Ãá¡ÃÁÂèÍÂãªéà»Ô´ä¿Åì°Ò¹¢éÍÁÙÅ
On Error GoTo Err_Handler
Dim DB_File As String
DB_File = App.Path
' µÃǨÊͺµÓá˹觢ͧä¿Åì¢éÍÁÙÅ
If Right$(DB_File, 1) <> "\" Then DB_File = DB_File & "\"
DB_File = DB_File & "MyDB.MDB"
' ÊÃéÒ§ Connection
Set ConnMyDB = New ADODB.Connection
ConnMyDB.ConnectionString = _
"Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & DB_File & ";" & _
"Persist Security Info=False"
ConnMyDB.Open ' à»Ô´ä¿Åì¢éÍÁÙÅàÃÕºÃéÍÂ
Exit Sub
Err_Handler:
MsgBox "Error : " & Err.Number & " " & Err.Description ' ¤Í´ѡ¢éͼԴ¾ÅÒ´ - Trap Error
End
End Sub
Public Sub CloseDataBase() ' â»Ãá¡ÃÁÂèÍÂãªé»Ô´ä¿Åì°Ò¹¢éÍÁÙÅ
If ConnMyDB.State = adStateOpen Then '
ConnMyDB.Close
Set ConnMyDB = Nothing
End If
End Sub |
´Ñ§¹Ñé¹àÁ×èÍ Save ä¿Åì (¹ÒÁÊ¡ØÅ BAS) àÃÕºÃéÍÂáÅéÇ áÅÐäÁèÇèҤس¨ÐÊÃéÒ§§Ò¹â»Ãਤ¢Öé¹ÁÒãËÁè ¡çÊÒÁÒö´Ö§ä¿ÅìµÑǹÕéä»ãªé§Ò¹ä´éàÊÁÍ â´ÂäÁè¨Óà»ç¹µéͧÁÒ¹Ñè§àÊÕÂàÇÅҤѴÅÍ¡â¤é´ä»àŤÃѺ ... ¹Õè¤×Íà˵ؼÅ
àÃÔèÁµé¹¡ÒÃâ¤é´â»Ãá¡ÃÁŧÊÙè¿ÍÃìÁáÊ´§¼Å
àÍÒÅèФÃѺ ... ¡çÂé͹¡ÅѺÁÒ¾Ô¨ÒóҨҡ¿ÍÃìÁà´ÔÁ·ÕèàÃÒä´éÊÃéÒ§¢Öé¹àÍÒäÇéáÅéÇ Concept ËÅÑ¡¢Í§á¹Ç·Ò§áºº Run-Time ¹Ñé¹ ¼Á¨ÐÁÕ â»Ãá¡ÃÁÂèÍ µÑÇËÅÑ¡æÍÂÙè´Ñ§µèÍ仹Õé¤×Í
- SetupScreen à¾×èÍ Clear ˹éÒ¨Í ¡ÅèÒǧèÒÂæ ¤×Í ÅéÒ§¾Ç¡ TextBox ãËéÁѹà»ç¹ªèͧÇèÒ§à»ÅèÒ¹Ñè¹áËÅФÃѺ à¾×è;ÃéÍÁ¨ÐÃѺ¢éÍÁÙÅà¢éÒÁÒ äÁèÇèÒ¨Ðà»ç¹¡ÒÃà¾ÔèÁ ËÃ×Í ¡ÒÃá¡é䢢éÍÁÙÅ¡çµÒÁ
- RecordToScreen à¾×è͹ӢéÍÁÙÅà´ÔÁÁÒáÊ´§¼Å áÅÐÍÒ¨ÁÕ¡ÒÃá¡é䢢éÍÁÙŵèÍä»
- áÊ´§¢éÍÁÙŨҡµÒÃÒ§ÂèÍ (Detail) à¢éÒã¹ ComboBox ã¹µÑÇÍÂèÒ§¹Õé¡ç¤×Í DisplayProvince à¾×èÍáÊ´§ÃÒª×èͨѧËÇÑ´
Sub SetupScreen() ' Clear ˹éÒ¨Í
txtCustomerID.Text = "" ' ÃËÑÊÅÙ¡¤éÒ
txtFirstname.Text = "" ' ª×èÍÅÙ¡¤éÒ
txtLastname.Text = "" ' ¹ÒÁÊ¡ØÅ
txtAddress.Text = "" ' ·ÕèÍÂÙè
txtAmphur.Text = "" ' ÍÓàÀÍ
cmbProvince.Clear ' ¨Ñ§ËÇÑ´
txtPostCode.Text = "" ' ÃËÑÊä»ÃɳÕÂì
End Sub
Sub RecordToScreen() ' ¹Ó¢éÍÁÙÅÁÒáÊ´§¼Å
Set RS = New Recordset
' SQL Statement µÑǹÕé¹ÕèáËÅФÃѺ ·ÕèàÃҵѴÁÒ¨Ò¡ MS Access
Statement = "SELECT tblCustomer.*, tblProvince.ProvinceName " & _
" FROM tblCustomer INNER JOIN tblProvince ON tblCustomer.ProvinceID = tblProvince.ProvinceID " & _
" WHERE [CustomerID] = 2 " ' ÊÁÁصÔÇèÒµéͧ¡ÒÃãËéáÊ´§¼Å¢éÍÁÙŢͧ CustomerID ÁÕ¤èÒ = 2
RS.Open Statement, ConnMyDB, adOpenForwardOnly, , adCmdText ' 㹡ÒÃáÊ´§¼Å¹Ñé¹ãËé·Ó¡ÒÃÍèÒ¹ (Read Only) 仢éҧ˹éÒÍÂèÒ§à´ÕÂÇ (Forward) à¾×èͪèÇÂàÃ觡ÒÃáÊ´§¼Åà·èÒ¹Ñé¹àͧ
txtCustomerID.Text = "" & RS("CustomerID")
txtFirstname.Text = "" & Trim(RS("Firstname"))
txtLastname.Text = "" & Trim(RS("Lastname"))
txtAddress.Text = "" & Trim(RS("Address"))
txtAmphur.Text = "" & Trim(RS("Amphur"))
cmbProvince.Text = RS("ProvinceName") ' àÃÒ¨ÐàÍÒª×èͨѧËÇÑ´ÁÒáÊ´§¼Å¤ÃѺ
txtAmphur.Text = "" & Trim(RS("Amphur"))
txtPostCode.Text = "" & Trim(RS("PostCode"))
' »Ô´¡ÒÃàª×èÍÁµè͵ÒÃÒ§äÇé¡è͹¹èÐ
RS.Close
Set RS = Nothing
End Sub
Sub DisplayProvince() ' ¹Ó¢éÍÁÙÅÃÒª×èͨѧËÇÑ´à¢éÒÁÒã¹ ComboBox
Dim Add$
Set DS = New ADODB.Recordset ' ¼ÁàÅ×Í¡ãªéµÑÇá»ÃµÑÇÊÓÃͧÁÒãªé§Ò¹¤ÃѺ ... á¹è¹Í¹¤ÃѺ »éͧ¡Ñ¹¤ÇÒÁ¼Ô´¾ÅÒ´ËÒ¡µÑÇá»ÃµÑÇËÅÑ¡Âѧ¤§à»Ô´¡ÒÃãªé§Ò¹ÍÂÙè
Statement = "SELECT * FROM tblProvince ORDER BY ProvinceID"
Set DS = ConnMyDB.Execute(Statement, , adCmdText)
cmbProvince.Clear
Do Until DS.EOF '
Add$ = "" & Trim(DS("ProvinceName")) ' ·Õè·Óàªè¹¹Õé¡çà¾ÃÒлéͧ¡Ñ¹¢éͼԴ¾ÅÒ´¨Ò¡µÒÃÒ§¢éÍÁÙÅ tblProvince 㹿ÔÅ´ì ProvinceName ËÒ¡ÁѹÁÕ¤èÒà»ç¹ Null
cmbProvince.AddItem Add$ ' à»ç¹ Method ¢Í§¡ÒùӢéÍÁÙÅà¢éÒä»ã¹ ComboBox â´ÂÍÔ¹à´ç¡«ìµÑÇáá¨ÐÁÕ¤èÒà»ç¹ 0 (ãËéÂé͹¡ÅѺ仴ٵÒÃÒ§¢éÍÁÙŢͧ tblProvince)
DS.MoveNext ' ·Óä»àÃ×èÍÂ樹¡ÇèÒ¨ÐËÁ´
Loop
' »Ô´¡ÒÃàª×èÍÁµè͵ÒÃÒ§äÇé¡è͹¹èÐ
DS.Close
Set DS = Nothing
End Sub
' ·Õ¹Õé¡çÁÒ·´Êͺ¡Ò÷ӧҹ à¾×èÍ´Ù«ÔÇèÒ¼ÅÁѹ¨ÐÍÍ¡ÁÒà»ç¹ÍÂèÒ§ääÃѺ¾Õè¹éͧ
Private Sub Form_Load() ' ·´Êͺ㹿ÍÃìÁËÅÑ¡¹ÕèáËÅФÃѺ
OpenDataBase ' ÊÃéÒ§¡ÒÃàª×èÍÁµèÍä¿Åì¢éÍÁÙÅ·ÕèàÃÒ¡Ó˹´àÍÒäÇéã¹ Module
Call SetupScreen ' Clear ¡ÒÃáÊ´§¼ÅãËéáÊ´§¢éͤÇÒÁÇèÒ§à»ÅèÒ
Call DisplayProvince ' âËÅ´ÃÒª×èͨѧËÇÑ´à¢éÒä»ã¹ ComboBox
Call RecordToScreen ' ãËéáÊ´§¼Å¢éÍÁÙÅÍÍ¡ÁÒ
End Sub |
 SetupScreen
 DisplayProvince
 RecordToScreen
 ÀÒ¾¨Ò¡¡ÒÃàª×èÍÁ⧵ÒÃÒ§¢éÍÁÙÅ
 ËÃ×Í ÅͧãËé CustomerID ÁÕ¤èÒà·èҡѺ 8
Åͧ´Ù¹èФÃѺËÒ¡ÇèÒàÃÒÁÕ ComboBox ÍÂÙè㹿ÍÃìÁÊÑ¡ 10 µÑÇ ¹Ñè¹áÊ´§ÇèÒ àÃÒµéͧÁÕâ»Ãá¡ÃÁÂèÍ ·Õè¤ÅéÒ¡Ѻ DisplayProvince ÍÂÙèÍÕ¡¹ÑºÊÔºµÑǵÒÁä»´éÇ â¤é´Áѹ¤§¨Ð¾ÔÅÖ¡¹èÒ´Ù¹èÒªÁ¨Ñ§ ... àÃÒ¨Ðá¡é䢴éÇ¡ÒÃãªéà»ç¹ "¿Ñ§¤ìªÑè¹" á·¹¤ÃѺ áÅÐ ¤Ø³µéͧ¡Ó˹´ã¹µÒÃÒ§¢éÍÁÙÅãËéÁѹÁÕâ¤Ã§ÊÃéÒ§·Õè¤ÅéÒ¡ѹæ´éÇ à¾×èͤÇÒÁ§èÒ áÅÐ Êдǡ àÍéÒ ... áËÁ ¡çÅͧ¹Ó令Դà»ç¹¡ÒúéÒ¹´ÙÁÑ觫ԤÃѺ ... ¾Õè¹éͧ
ËÁÒÂà˵Ø: ã¹â»Ãá¡ÃÁÂèÍ DisplayProvince ¹ÕéÁѹà¡Ô´¡ÒÃàÃÕ§¢éÍÁÙŪ×èͨѧËÇÑ´¨Ò¡¹éÍÂä»ËÒÁÒ¡ÁÒàÃÕºÃéÍÂáÅéÇ áÅéÇ㹡óշÕè¢éÍÁÙÅÁѹäÁè¨Ñ´àÃÕ§µÒÁµÑÇÍÑ¡ÉÃÅèÐ àÃÒ¨ÐÁÕÇÔ¸Õ¡ÒÃ㹡ÒÃá¡é»ÑËÒ¹Õéä´éÍÂèÒ§äà ??????
µÍº: ÍÂèÒ¾Öè§ä»¤Ô´ÁÒ¡àŤÃѺ à¾ÃÒк·¤ÇÒÁ¹Õéà¾Õ§à¾×èÍá¤èµéͧ¡ÒÃãËé¤Ø³æä´éàËç¹á¹Ç·Ò§ã¹¡ÒùӢéÍÁÙÅÍÍ¡ÁÒáÊ´§¼Å´éÇÂÇÔ¸Õ¡Òà Run-Time à·èÒ¹Ñé¹àͧ¤ÃѺ¼Á ÁѹÂѧäÁèä´éã¡Åéà¤Õ§¡Ñº§Ò¹¨ÃÔ§æ·ÕèÊÒÁÒö¹ÓÍÍ¡ÁÒ¢ÒÂä´éàŤÃѺ ... ¾Õè¹éͧ ... ¡çÅͧµÔ´µÒÁ¡Ñ¹µèÍä»àÃ×èÍÂæáÅéǡѹ
| 
