ACC2000: ÇÔ¸Õ¡Ò÷ÕèÊÃéÒ§ÃËÑʼèÒ¹»éͧ¡Ñ¹¿ÍÃìÁËÃ×ÍÃÒ§ҹ

Microsoft Access ÁդسÅѡɳСÒÃÃÑ¡ÉÒ¤ÇÒÁ»ÅÍ´ÀÑ·ÕèÁÕÍÂÙèÊͧÊÓËÃѺ¡Òûéͧ¡Ñ¹°Ò¹¢éÍÁÙŢͧ¤Ø³:

• ºÑ­ªÕ¼Ùéãªé/¡ÅØèÁáÅÐÊÔ·¸Ôì
• ÃËÑʼèÒ¹°Ò¹¢éÍÁÙÅ

º·¤ÇÒÁ¹ÕéáÊ´§ÇèҤسÂѧÊÒÁÒö¡Ó˹´áµèÅÐÃËÑʼèÒ¹ ÊÓËÃѺáµèÅпÍÃìÁ áÅÐÃÒ§ҹáµèÅÐã¹°Ò¹¢éÍÁÙŢͧ¤Ø³

¢éͤÇÃÃÐÇѧ: ¶éҤس·ÓµÒÁ¢Ñ鹵͹㹵ÑÇÍÂèÒ§¹Õé ¤Ø³»ÃѺà»ÅÕè¹°Ò¹¢éÍÁÙŵÑÇÍÂèÒ§ Northwind.mdb ¤Ø³ÍÒ¨µéͧ¡ÒÃÊÓÃͧ¢éÍÁÙÅá¿éÁ Northwind.mdb áÅзӵÒÁ¢Ñ鹵͹àËÅèÒ¹Õ麹ÊÓà¹Ò¢Í§°Ò¹¢éÍÁÙÅ

ËÁÒÂà˵Ø:: µÑÇÍÂèÒ§ÃËÑÊ㹺·¤ÇÒÁ¹ÕéãªéÇѵ¶Ø¡ÒÃà¢éÒ¶Ö§¢éÍÁÙŢͧ Microsoft à¾×èÍãËéâ¤é´¹Õé·Ó§Ò¹ÍÂèÒ§àËÁÒÐÊÁ ¤Ø³µéͧÍéÒ§ÍÔ§äźÃÒÃÕÇѵ¶Ø Microsoft DAO 3.6 àÁ×è͵éͧ¡Ò÷Óàªè¹¹Ñé¹ ¤ÅÔ¡ÍéÒ§ÍÔ§:㹡ÒÃà¤Ã×èͧÁ×ÍàÁ¹Ùã¹ã¹ Visual Basic Editor áÅеÃǨÊͺãËéá¹èã¨ÇèÒ¡ÒáÒÃäźÃÒÃÕÇѵ¶Ø Microsoft DAO 3.6ÁÕàÅ×Í¡¡Åèͧ¡Òà¤Ã×èͧËÁÒÂ

¡ÒÃãªéÃËÑÊàÁ×è͵éͧ¡ÒÃÃËÑʼèÒ¹»éͧ¡Ñ¹¿ÍÃìÁà»ç¹

â´ÂãªéÃËÑÊ ¤Ø³ÊÒÁÒö¾ÃéÍÁ·ìÊÓËÃѺÃËÑʼèÒ¹àÁ×èͼÙéãªéà»Ô´¿ÍÃìÁËÃ×ÍÃÒ§ҹ ¶éÒÁÕ»é͹ÃËÑʼèÒ¹·Õè¶Ù¡µéͧ Ẻ¿ÍÃìÁËÃ×ÍÃÒ§ҹ¶Ù¡à»Ô´

µÑÇÍÂèÒ§µèÍ仹ÕéáÊ´§ÇÔ¸Õ¡Ò÷Õè¤Ø³ÊÒÁÒöÃËÑʼèÒ¹»éͧ¡Ñ¹áºº¿ÍÃìÁãºÊÑè§ã¹°Ò¹¢éÍÁÙŵÑÇÍÂèÒ§ Northwind.mdb:

1. àÃÔèÁ¡Ò÷ӧҹ¡ÒÃà¢éÒ¶Ö§áÅéÇ à»Ô´°Ò¹¢éÍÁÙŵÑÇÍÂèÒ§ Northwind.mdb
2. ¡´ ALT + F11 à¾×èÍàÃÔèÁµÑÇá¡éä¢ Microsoft Visual Basic
3. 㹡ÒÃá·Ã¡àÁ¹Ù ¤ÅÔ¡âÁ´ÙÅ.
4. ã¹á¼è¹§Ò¹âÁ´ÙÅ ¾ÔÁ¾ì¢Ñ鹵͹µèÍ仹Õé:

   Public MyPassword
   Public Function KeyCode(Password As String) As Long
      ' This function will produce a unique key for the
      ' string that is passed in as the Password.
      Dim I As Integer
      Dim Hold As Long
   
      For I = 1 To Len(Password)
         Select Case (Asc(Left(Password, 1)) * I) Mod 4
         Case Is = 0
            Hold = Hold + (Asc(Mid(Password, I, 1)) * I)
         Case Is = 1
            Hold = Hold - (Asc(Mid(Password, I, 1)) * I)
         Case Is = 2
            Hold = Hold + (Asc(Mid(Password, I, 1)) * _
               (I - Asc(Mid(Password, I, 1))))
         Case Is = 3
            Hold = Hold - (Asc(Mid(Password, I, 1)) * _
               (I + Len(Password)))
      End Select
      Next I
      KeyCode = Hold
   End Function
   					

5. ¡´ ALT + F11 à¾×èÍ¡ÅѺä»Âѧ¡ÒÃà¢éÒ¶Ö§
6. ã¹Ë¹éÒµèÒ§°Ò¹¢éÍÁÙÅ ÀÒÂãµéÇѵ¶Ø¤ÅÔ¡µÒÃÒ§áÅéÇ ¤ÅÔ¡ãËÁè.
7. 㹡ÒÃÊÃéÒ§µÒÃÒ§¡ÅèͧâµéµÍº ¤ÅÔ¡Êͧ¤ÃÑé§ÁØÁÁͧÍ͡Ẻ.
8. ÊÃéÒ§µÒÃÒ§ãËÁèà»ç¹´Ñ§¹Õé:

      Table: tblPassword
      ---------------------------
      Field Name: ObjectName
         Data Type: Text
         Field Size: 50
      Field Name: KeyCode
         Data Type: Text
         Field Size: 25
         Input Mask: Password
   
      Table Properties: tblPassword
      -----------------------------
         PrimaryKey: ObjectName
   					

9. à»Ô´µÒÃÒ§ tblPassword áÅШҡ¹Ñé¹ »é͹¢éÍÁÙŵèÍ仹Õé:

        ObjectName: Orders
          KeyCode: 2818
   					

10. ÊÃéÒ§¿ÍÃìÁãËÁèã¹ÁØÁÁͧÍ͡Ẻ áÅкѹ·Ö¡¿ÍÃìÁà»ç¹ frmPassword
11. à¾ÔèÁ¡Åèͧ¢éͤÇÒÁ·Õèà´ÕÂÇà¾×èÍ frmPassword ·ÕèàÃÕ¡ÇèÒ Text0 áÅлØèÁ¤ÓÊÑ觷ÕèàÃÕ¡ÇèÒ CheckPassword
12. µÑ駤èÒ¹ÕéÃٻẺ¡Òûé͹¢éÍÁÙŤسÊÁºÑµÔ¢Í§ Text0 ä» "PASSWORD" (ź ´éÇÂãÊèà¤Ã×èͧËÁÒÂÍÑ­»ÃСÒÈ)
13. à¾ÔèÁÃËÑʵèÍ仹Õéã¹à˵ءÒóì OnClick ¢Í§»ØèÁ CheckPassword áÅШҡ¹Ñé¹ ãËéºÑ¹·Ö¡áºº¿ÍÃìÁ:

    If IsNull(Forms!frmPassword!Text0.Value) Then
                     MsgBox "You cannot enter a blank Password. Try again."
                     Me!Text0.SetFocus
                Else
                     MyPassword = Me!Text0.Value
                     DoCmd.Close acForm, "frmPassword"
                End If 
    					

14. à»Ô´áºº¿ÍÃìÁãºÊÑè§ã¹ÁØÁÁͧÍ͡Ẻ
15. ¶éÒÁͧäÁèàËç¹á¼è¹¤Ø³ÊÁºÑµÔ ¤ÅÔ¡¤Ø³ÊÁºÑµÔ㹡ÒÃÁØÁÁͧàÁ¹Ù
16. ¾ÔÁ¾ì¡Ãкǹ§Ò¹à˵ءÒóìµèÍ仹Õéã¹âÁ´ÙÅÊÓËÃѺ¡ÒÃonopen¤Ø³ÊÁºÑµÔ¢Í§¿ÍÃìÁ:

    Private Sub Form_Open(Cancel as Integer)
       Dim Hold As Variant
       Dim tmpKey As Long
       Dim I As Integer
       Dim rs As DAO.Recordset
       Dim db As DAO.Database
    
       On Error GoTo Error_Handler
       ' Prompt the user for the Password.
       DoCmd.OpenForm "frmPassword", acNormal, , , , acDialog
                Hold = MyPassword
    ' Open the table that contains the password.
       Set db = CurrentDb
       Set rs = db.OpenRecordset("tblPassword", dbOpenTable)
       rs.Index = "PrimaryKey"
       rs.Seek "=", Me.Name
       If rs.NoMatch Then
          MsgBox "Sorry cannot find password information. Try Again"
          Cancel = -1
       Else
          ' Test to see if the key generated matches the key in
          ' the table; if there is not a match, stop the form
          ' from opening.
          If Not (rs![keycode] = KeyCode(Cstr(Hold))) Then
             MsgBox "Sorry you entered the wrong password." & _
                "Try again.", vbOKOnly, "Incorrect Password"
             Cancel = -1
          End If
       End If
       rs.Close
       db.Close
       Exit Sub
    
    Error_Handler:
       MsgBox Err.Description, vbOKOnly, "Error #" & Err.Number
       Exit Sub
    End Sub
    					

17. »Ô´ áÅШҡ¹Ñé¹ ãËéºÑ¹·Ö¡áºº¿ÍÃìÁãºÊÑè§
18. à»Ô´áºº¿ÍÃìÁãºÊÑè§ áÅоÔÁ¾ìÃËÑʼèÒ¹:àÁ×èͤسä´éÃѺ¡ÒþÃéÍÁ·ìÊÓËÃѺÃËÑʼèÒ¹
    
    ¢ÍãËéÊѧࡵÇèÒ ãºÊÑè§ã¹áºº¿ÍÃìÁà»Ô´¢Öé¹ KeyCode ·ÕèÊÃéÒ§¢Öé¹´éÇÂÃËÑʼèÒ¹:µÃ§¡Ñº KeyCode ã¹µÒÃÒ§ tblPassword áÅТÖé¹ÍÂÙè¡ÑºµÑǾÔÁ¾ì¢Í§µÑÇÍÑ¡ÉÃã¹ÃËÑʼèÒ¹·ÕèãÊè
19. »Ô´áÅéÇ à»Ô´áºº¿ÍÃìÁãºÊÑè§ áÅоÔÁ¾ìÃËÑʼèÒ¹:àÁ×èͤسä´éÃѺ¡ÒþÃéÍÁ·ìÊÓËÃѺÃËÑʼèÒ¹
    
    ¢ÍãËéÊѧࡵÇèÒ ¤Ø³ä´éÃѺ¢éͤÇÒÁ:
    sorry ¤Ø³ãÊèÃËÑʼèÒ¹äÁè¶Ù¡µéͧ ÅͧÍÕ¡¤ÃÑé§
    Ẻ¿ÍÃìÁãºÊÑè§äÁè¶Ù¡à»Ô´ä´éà¹×èͧ¨Ò¡¡Ãкǹ¡ÒÃÃËÑʼèÒ¹¤×Í case-sensitive
20. à¾×è͵ÃǨÊͺ KeyCode ·ÕèÊÍ´¤Åéͧ¡Ñ¹à»ç¹ÊÓËÃѺʵÃÔ§·Õè੾ÒÐ ¾ÔÁ¾ìµèÍ仹Õéã¹Ë¹éÒµèÒ§ Immediate áÅéÇ¡´ enter:

    ?KeyCode("TestString")
    						

    µÑÇÍÂèÒ§¡è͹˹éÒ¹ÕéÊ觡ÅѺ 5864
21. àÁ×è͵éͧ¡Òëè͹µÒÃÒ§ tblPassword ã¹Ë¹éÒµèÒ§°Ò¹¢éÍÁÙÅ ¤ÅÔ¡¢ÇÒµÒÃÒ§ tblPassword áÅШҡ¹Ñé¹ ¤ÅÔ¡¤Ø³ÊÁºÑµÔ. ã¹Ë¹éÒµèÒ§¤Ø³ÊÁºÑµÔ ¤ÅÔ¡à¾×èÍàÅ×Í¡¹Ñ鹫è͹¡Åèͧ¡Òà¤Ã×èͧËÁÒ áÅШҡ¹Ñé¹ ¤ÅÔ¡µ¡Å§.