10-05-2011, 01:14
|
|
|
חבר מתאריך: 14.11.10
הודעות: 66
|
|
טופס LOGIN פשוט
להלן דוגמא לטופס כניסה פשוט באקסס . 3 פקדים תיבת טקסט 1 ששמה txtUser עו אחת ששמה txtPass
כפתור ששמו cmdLogin
הפקודה שמאחורי הכפתור (באירוע לחיצה on click event )
[LEFT]
קוד:
Private Sub cmdLogin_Click()
Dim sql As String, rst As DAO.Recordset
sql = "SELECT Count(lngEmpID) AS User"
sql = sql & " FROM tblEmployees"
sql = sql & " WHERE strEmpName='" & txtUser.Value & "' AND strEmpPassword='" & txtPass.Value & "';"
Set rst = CurrentDb.OpenRecordset(sql)
If (rst(0)) Then
DoCmd.Close acForm, Me.Name, acSaveNo
DoCmd.OpenForm "Form Name"
Else
DoCmd.OpenForm Me.Name, acNormal, , , , acDialog
End If
End Sub
אני חייב לציין שבטופס הפשוט הנ"ל אין טיפול במספר נסיונות הפריצה , ולא בתווים זדוניים לפריצה (חפש SQL- INJECT )
משמש רק לבדיקת אימות מול טבלה בשם : tblEmployees ושדות בשם lngEmpID = auto int
strEmpName = string , string = strEmpPassword
בהצלחה
|