â»Ãá¡ÃÁ PowerPoint ¡Ñº¡ÒÃàª×èÍÁµèÍÃкº°Ò¹¢éÍÁÙÅ Access - ¡Ò÷ÓÃкº Login

àÃ×èͧ·Õèà¡ÕèÂÇ¢éͧ
¡ÒùÓâ»Ãá¡ÃÁ PowerPoint ÁÒ·Óà»ç¹ CAI
¡ÒùÓâ»Ãá¡ÃÁ PowerPoint ¡Ñº CAI - µÍ¹¡ÒÃÊÃéÒ§º·àÃÕ¹Ẻ䴹ÒÁÔ¤
â»Ãá¡ÃÁ PowerPoint ¡Ñº ¤ÍÁ¾ÔÇàµÍÃìªèÇÂÊ͹ µÍ¹¡ÒÃÅÒ¡ÇÒ§Çѵ¶Ø (Drag & Drop)
¢Ñ鹵͹¢Í§¡ÒÃà»Ô´àÊÕ§-ËÂØ´àÊÕ§ ã¹áµèÅÐ Scene ãËé¡Ñºâ»Ãá¡ÃÁ SwishMax
¡Òúѹ·Ö¡àÊÕ§»ÃСͺ¡ÒüÅÔµÊ×èÍ¡ÒÃàÃÕ¹¡ÒÃÊ͹ ´éÇÂâ»Ãá¡ÃÁ Acoustica MP3 Audio Mixer
¡Ò÷ӢéÍÊͺẺàµÔÁ¤Ó´éÇ Swishmax
ã¤ÃÇèÒ·Ó¢éÍÊͺ¼èÒ¹ Flash Áѹà»ç¹àÃ×èͧÂÒ¡Êì
¡Ò÷ӻØèÁ ËÃ×Í àÁ¹Ù Ẻ§èÒÂæ (¶Ö§§èÒÂÁÒ¡) ´éÇÂâ»Ãá¡ÃÁ SwishMax (Flash Video)
ÊÃéÒ§àÁ¹Ùã¹ÃٻẺ Flash â´Âãªéâ»Ãá¡ÃÁ SwishMax ÍÂèÒ§§èÒÂ
¡ÒÃãªé§Ò¹ SwishMax ¡Ñº¡Ò÷ÓÀÒ¾à¤Å×è͹äËÇ ... ¾×é¹°Ò¹ÊØ´æ ¨¹á·ºäÁèÍÂÒ¡àª×èÍ
Visual Basic 6.0 ¡Ñº¡ÒþѲ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹
àÃÕ¹ÃÙé SwishMax (ËÃ×Í Flash) à¾×èÍÃѺÊ觢éÍÁÙÅä»ÁҡѺ MS Visual Basic 6.0 ÀÒ¤ 1
àÃÕ¹ÃÙé SwishMax (ËÃ×Í Flash) à¾×èÍÃѺÊ觢éÍÁÙÅä»ÁҡѺ MS Visual Basic 6.0 ÀÒ¤ 2
¡ÒÃãªé§Ò¹ Drag & Drop ã¹ VB 6 à¾×è;Ѳ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹ (ÀÒ¤ 1)
¡ÒÃãªé§Ò¹ Drag & Drop ã¹ VB 6 à¾×è;Ѳ¹ÒÊ×èÍ¡ÒÃàÃÕ¹ ¡ÒÃÊ͹ (ÀÒ¤ 2)
â»Ãá¡ÃÁÊØèÁµÑÇàÅ¢¨Ó¹Ç¹àµçÁẺäÁèãËé«éӡѹàÅ - Random Number
¡ÒûÃÐÂØ¡µìãªé§Ò¹ MS Visual Basic 6.0 ¡Ñº¡ÒþѲ¹ÒÊ×èÍ¡ÒÃàÃÕ¹¡ÒÃÊ͹ (¤³ÔµÈÒʵÃìà¾×èÍ˹ٹéÍÂ)

' ¡Ó˹´ãËéµéͧ»ÃСÒȵÑÇá»Ã áÅÐ ª¹Ô´µÑÇá»Ã¡è͹ãªé§Ò¹àÊÁÍ
Option Explicit

' Global à»ç¹¡ÒûÃСÒȵÑÇá»Ã·ÕèÁͧàËç¹ä´é·Ñé§ËÁ´ã¹áµèÅÐâ»Ãਤ

' µÑÇá»Ãàª×èÍÁµèÍä¿Åì°Ò¹¢éÍÁÙÅ MS Access
Global ConnDB As New ADODB.Connection

' ãªé RecordSet à¾×è͵Դµè͡ѺµÒÃÒ§¢éÍÁÙÅ (Table)
Global RS As New ADODB.Recordset

' ¡ÒÃÊÃéÒ§ Query ËÃ×Í SQL Statement à¾×è͵Դµè͡ѺµÒÃÒ§¢éÍÁÙÅ
Global Statement As String

' ËÒ¡à¢éÒÊÙèÃкºä´é¡ç¨Ðà¡çºª×èͼÙéãªé§Ò¹àÍÒäÇé (ËÃ×ÍÍ×è¹æ)
' ÍÒ·Ô àªè¹ Çѹ àÇÅÒà¢éÒÊÙèÃкº µÑÇá»Ãà¡çº¤Ðá¹¹·ÓẺ·´Êͺ ÍÐäûÃÐÁÒ³¹ÕéáËÅФÃѺ
Global CompleteName As String

' ######################################################
' ¡ÒÃàª×èÍÁµèÍä¿Åì°Ò¹¢éÍÁÙÅ MS Access
' ######################################################
Sub OpenDataBase()
On Error GoTo ErrorHandler
Dim DB_File As String
    ' ËÒµÓáË¹è§ Path »Ñ¨¨ØºÑ¹¢Í§ä¿Åì PowerPoint
    ' àªè¹ C:\CAI\PowerPointDB
    DB_File = Application.ActivePresentation.Path
    If Right$(DB_File, 1) <> "\" Then DB_File = DB_File & "\"

    ' áÅéǵÒÁ´éǪ×èÍä¿Åì°Ò¹¢éÍÁÙÅ MS Access
    ' àªè¹ C:\CAI\PowerPointDB\UserLog.MDB
    DB_File = DB_File & "UserLog.MDB"

    ' àª×èÍÁµèÍä¿Åì°Ò¹¢éÍÁÙÅ MS Access
    Set ConnDB = New ADODB.Connection
    ConnDB.ConnectionString = _
        "Provider=Microsoft.Jet.OLEDB.4.0;" & _
        "Data Source=" & DB_File & ";" & _
        "Persist Security Info=False"
    ConnDB.Open
    Exit Sub
    
ErrorHandler:
    ' ¡Òôѡ Error ·ÕèÍÒ¨¨Ðà¡Ô´¢Öé¹ã¹¡ÒÃàª×èÍÁµèÍä¿Åì¢éÍÁÙÅ
    MsgBox "Error : " & Err.Number & " " & Err.Description
    End
End Sub

' ######################################################
' »Ô´¡ÒÃàª×èÍÁµèÍä¿Åì°Ò¹¢éÍÁÙÅ MS Access
' ######################################################
Sub CloseDataBase()
    ' µÃǨÊͺÇèÒÁÕ¡ÒÃàª×èÍÁ⧠- Connect ¢éÍÁÙÅËÃ×ÍäÁè
    If ConnDB.State = adStateOpen Then
        ConnDB.Close
        Set ConnDB = Nothing
    End If
End Sub

' ¡Ó˹´ãËéµéͧ»ÃСÒȵÑÇá»Ã áÅÐ ª¹Ô´µÑÇá»Ã¡è͹ãªé§Ò¹àÊÁÍ
Option Explicit

' ######################################################
' à¢éÒÊÙè˹éÒ¨Í Slide 㹡Òûé͹¢éÍÁÙÅ¡ÒÃà¢éÒÊÙèÃкº
' ######################################################
Private Sub cmdOpen_Click()
    
    ' à»Ô´¡ÒÃàª×èÍÁµè͡Ѻä¿Åì°Ò¹¢éÍÁÙÅ MS Access
    Call OpenDataBase
    
    ' à¤ÅÕÂÃì¢éÍÁÙÅà´ÔÁ
    Slide2.txtUserID.Text = ""
    Slide2.txtPassword.Text = ""
    
    ' àÃÕ¡˹éÒ Slide ¢Í§¡Òà Login ¢Öé¹ÁÒáÊ´§¼Å
    ActivePresentation.SlideShowWindow.View.GotoSlide (2)
       
End Sub

' ######################################################
' ¨º¡Ò÷ӧҹ »Ô´ PowerPoint
' ######################################################
Private Sub cmdExit_Click()
    ' ÍéÒ§ÍÔ§ª×èÍä¿Åì PowerPoint
    With Application.Presentations("PowerPoint-Login.ppt")
        ' ÊÑ觺ѹ·Ö¡ (Save) ¡è͹ÍÍ¡
        .Saved = True
        .Close
    End With
End Sub

Option Explicit

' ######################################################
' àÃÔèÁµé¹¡Ãкǹ¡ÒõÃǨÊͺÃÒª×èͼÙéãªé áÅÐ ÃËÑʼèÒ¹
' â´Â¨ÐàÃÔèÁ¡Òäé¹ËÒÃÒª×èÍ User à¢éÒÁÒ¡è͹ áÅéǤè͵ÃǨÊͺÃËÑʼèÒ¹·ÕËÅѧ
' à¾ÃÒкҧ¤ÃÑé§ÍÒ¨¨ÐÁÕ¡ÒÃà¢éÒÃËÑÊ (Encrypt) ÃËÑʼèÒ¹àÍÒäÇéÍÕ¡ªÑé¹Ë¹Öè§
' ######################################################
Private Sub cmdOK_Click()

' µÑÇá»Ãà¡çº¤èÒÃËÑʼèÒ¹¨Ò¡µÒÃÒ§¢éÍÁÙÅ
Dim strPass As String

    ' µÃǨÊͺ¤èÒÇèÒ§ËÃ×ÍäÁè ... ËÒ¡ãªèãËé¡ÅѺ任é͹ª×èͼÙéãªé ËÃ×Í ÃËÑʼèÒ¹ãËÁè
    If Trim(txtUserID.Text) = "" Or Len(Trim(txtUserID.Text)) = 0 Then
        MsgBox "¡Ãسһé͹ª×èͼÙéãªéãËéàÃÕºÃéÍ¡è͹´éÇÂ.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
        ' ÍÍ¡¨Ò¡â»Ãá¡ÃÁÂèÍÂä»àÅÂ
        Exit Sub
    ElseIf Trim(txtPassword.Text) = "" Or Len(Trim(txtPassword.Text)) = 0 Then
        MsgBox "¡Ãسһé͹ÃËÑʼèÒ¹ãËéàÃÕºÃéÍ¡è͹´éÇÂ.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
        ' ÍÍ¡¨Ò¡â»Ãá¡ÃÁÂèÍÂä»àÅÂ
        Exit Sub
    End If
    
    ' àÃÔèÁµÃǨÊͺª×èͼÙéãªé§Ò¹¡è͹ÇèÒÁÕã¹ÃкºËÃ×ÍäÁè
    ' ¡ÒáÓ˹´ Set RS = New Recordset ËÁÒ¶֧¡ÒûԴ RecordSet à´ÔÁŧ (¡Ã³Õà»Ô´¤éÒ§äÇé)
    Set RS = New Recordset
    Statement = "SELECT * FROM tblUser WHERE UserID = " & "'" & Trim(txtUserID) & "'"
    RS.CursorLocation = adUseClient
    RS.Open Statement, ConnDB, adOpenForwardOnly, adLockReadOnly, adCmdText
    
    ' ¡ÒÃãªé RecordCount ä´é àÃÒµéͧµÑ駡ÒÃÍèҹẺ RS.CursorLocation = adUseClient
    If RS.RecordCount > 0 Then
        
        strPass = "" & RS("Password")
        
    ' äÁ辺¢éÍÁÙÅãËé¡ÅѺä»á¡éä¢ãËÁè
    Else
        MsgBox "ª×èͼÙéãªé§Ò¹äÁè¶Ù¡µéͧ ¡ÃسÒÅͧãËÁèÍÕ¡¤ÃÑé§.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
        RS.Close:   Set RS = Nothing
        Exit Sub
    End If
    
    ' àÁ×èͪ×èͼÙéãªé¶Ù¡µéͧáÅéÇ ¡ç仵ÃǨÊͺÃËÑʼèÒ¹ã¹ÅӴѺµèÍä»
    ' µÃǨÊͺÃËÑʼèÒ¹¢Í§¼Ùéãªé§Ò¹¡è͹Çèҵç¡Ñ¹¡Ñºã¹ÃкºËÃ×ÍäÁè â´Â»ÃѺµÑÇÍÑ¡¢ÃзءµÑÇãËéà»ç¹µÑÇàÅç¡ (LCase)
    If LCase(txtPassword.Text) <> LCase(strPass) Then
        MsgBox "ÃËÑʼèÒ¹äÁè¶Ù¡µéͧ ¡ÃسÒÅͧãËÁèÍÕ¡¤ÃÑé§.", vbOKOnly + vbExclamation, "ÃÒ§ҹʶҹÐ"
        RS.Close:   Set RS = Nothing
        Exit Sub
    End If
        
    
    ' á¨é§¡ÒÃà¢éÒÊÙèÃкº
    MsgBox "ÂÔ¹´Õµé͹ÃѺ¤Ø³ " & RS("CompleteName") & " à¢éÒÊÙèÃкº.", _
                vbOKOnly + vbInformation, "à¢éÒÊÙèÃкºàÃÕºÃéÍÂ"
    
    ' ¡ÒÃà¡çº¤èÒµÑÇá»Ã ÅѡɳйÕé ¤×Í ¡ÒÃà¡çº¢éÍÁÙżÙéãªéàÍÒäÇéáÊ´§¼Åä´é·Ø¡æ Slide ¤ÃѺ
    ' ã¹·Ò§»¯ÔºÑµÔ¨ÃÔ§ àÃÒÍÒ¨¨Ðµéͧà¡çº¤èÒÍ×è¹æ·Õè¨Óà»ç¹àÍÒäÇé´éÇ àªè¹ Çѹ àÇÅÒ·Õè Login à¢éÒÁÒ
    CompleteName = "" & RS("CompleteName")
    
    ' á¨é§ª×èÍä»·Õè˹éÒ Slide ¶Ñ´ä»
    Slide3.lblWelcome.Caption = "ÂÔ¹´Õµé͹ÃѺ¤Ø³ " & CompleteName & " à¢éÒÊÙ躷àÃÕ¹"
    
    ' µÑ´¡ÒÃàª×èÍÁµè͵ÒÃÒ§¢éÍÁÙÅ (Table) áµèÂѧäÁèä´é»Ô´ä¿Åì°Ò¹¢éÍÁÙŹèФÃѺ
    RS.Close:   Set RS = Nothing
    
    
    ' ä»Ë¹éÒ Slide µèÍä»
    ActivePresentation.SlideShowWindow.View.GotoSlide (3)
    
End Sub
' ######################################################
' ¨º¡Ò÷ӧҹ »Ô´ PowerPoint
' ######################################################
Private Sub cmdExit_Click()
    
    ' à¾×èͤÇÒÁ»ÅÍ´ÀÑ¢ͧä¿Åì¢éÍÁÙÅ µéͧ»Ô´¡ÒÃàª×èÍÁµèÍ°Ò¹¢éÍÁÙÅ¡è͹´éÇÂ
    Call CloseDataBase
    
    ' à¤ÅÕÂÃì¢éÍÁÙÅà´ÔÁ¡è͹»Ô´ä¿Åì
    Slide2.txtUserID.Text = ""
    Slide2.txtPassword.Text = ""
    
    ' ÍéÒ§ÍÔ§ª×èÍä¿Åì
    With Application.Presentations("PowerPoint-Login.ppt")
        ' ÊÑ觺ѹ·Ö¡ (Save) ¡è͹ÍÍ¡
        .Saved = True
        .Close
    End With

End Sub