• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

form đăng nhập!!

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • [Lỗi] form đăng nhập!!
• form đăng nhập!!

• form đăng nhập!!

  maixuanthu > 20-07-13, 12:31 AM

  Em muốn tạo 1 cái form đăng nhập nhưng không hiểu sao khi em nhập đúng tên đăng nhập không cần biết là password có đúng hay không thì vẫn cho vào hệ thống. Mọi người xem giúp em với!! Em cảm ơn mọi người rất nhiều. Đây là code của em ạ:
  

  Mã PHP:

  Private Sub cmddn_Click()
If Me.guest_login.Value = True Then
DoCmd.SetWarnings False
DoCmd.RunSQL "UPDATE user SET online=0 WHERE online=-1"
DoCmd.SetWarnings True
MsgBox "Chao ban. @Ban dang dang nhap voi tai khoan khach", vbInformation, "Thong bao"
DoCmd.Close
DoCmd.OpenForm "mainform"
Else
If IsNull(Me.username.Value) Then
MsgBox "Ban chua nhap ten truy cap", vbInformation, "Thong bao"
Me.username.SetFocus
ElseIf IsNull(Me.password.Value) Then
MsgBox "Ban chua nhap mat khau", vbInformation, "Thong bao"
Me.password.SetFocus
Else
        If DCount("*", "user", "username='" & Me.username.Value & "'") > 0 Then
                If Me.password.Value <> DLookup("password", "user", "username='" & Me.username.Value & "'") Then
                Me.password.SetFocus
                If saipass = 0 Then
                MsgBox "Ban da dang nhap sai " & chophepsai & " lan lien tiep, chuong trinh tu dong thoat", vbInformation, "Thong bao"
                DoCmd.Quit
                Else
                MsgBox "Mat khau khong chinh xac, vui long kiem tra lai" & Chr(13) & "Sau " & saipass & " lan sai chuong trinh tu dong thoat", vbInformation, "Thong bao"
                saipass = saipass - 1
                End If
                ElseIf DLookup("enabled", "user", "username='" & Me.username.Value & "'") = 0 Then
                MsgBox "Tai khoan nay hien dang bi cam truy cap. " & Chr(13) & "@ Vui long lien he voi Administrator de duoc mo lai tai khoan", vbInformation, "Thong bao"
                Else
                DoCmd.SetWarnings False
                DoCmd.RunSQL "UPDATE user SET online=0 WHERE username <> '" & Me.username.Value & "' AND online =-1 "
                DoCmd.RunSQL "UPDATE user SET online=-1 WHERE username='" & Me.username.Value & "'"
                DoCmd.SetWarnings True
                MsgBox "Chao " & DLookup("username", "user", "username='" & Me.username.Value & "'") & " .@ Chuc ban mot ngay tot lanh", vbInformation, "Chao mung"
                DoCmd.Close
                DoCmd.OpenForm "mainform"
                End If
        Else
        Me.username.SetFocus
                 If saipass = 0 Then
                MsgBox "Ban da dang nhap sai " & chophepsai & " lan lien tiep, chuong trinh tu dong thoat", vbInformation, "Thong bao"
                DoCmd.Quit
                Else
                MsgBox "Ten truy cap khong chinh xac, vui long kiem tra lai" & Chr(13) & "Sau " & saipass & " lan sai chuong trinh tu dong thoat", vbInformation, "Thong bao"
                saipass = saipass - 1
                End If
End If
End If
End If
End Sub 


• RE: form đăng nhập!!

  cpucloi > 20-07-13, 08:35 AM

  Hơ, thế này không cho mở là sao, có liên quan gì đến pass đâu.
  
  If Me.guest_login.Value = True Then
  DoCmd.SetWarnings False
  DoCmd.RunSQL "UPDATE user SET online=0 WHERE online=-1"
  DoCmd.SetWarnings True
  MsgBox "Chao ban. @Ban dang dang nhap voi tai khoan khach", vbInformation, "Thong bao"
  DoCmd.Close
  DoCmd.OpenForm "mainform"
  
  
  Bạn kiểm tra lại xem nhé.

• RE: form đăng nhập!!

  paulsteigel > 20-07-13, 01:19 PM

  Mã PHP:

  If Me.Password.Value <> DLookup("password", "user", "username='" & Me.UserName.Value & "'") Then 


  Đây là dòng cực kỳ nguy hiểm trong thiết kế truy nhập!
  Bạn cần để dòng kiểm tra là nếu mật khẩu bằng kết quả khảo sát thì cho đi, còn khác hoặc bất kỳ gì khác thì cấm.
  Tránh để cấu trúc như trong file của bạn.
  Thêm vào nữa, làm thế này thì người ta qua mặt thủ tục này quá dễ bằng SQL Injection.
  Chẳng hạn trong ô Username, bạn gõ ' OR '1'='1
  Thử xem hiệu ứng nhé!

• RE: form đăng nhập!!

  maixuanthu > 20-07-13, 07:06 PM

  Vậy anh chị có cách nào giúp em không? Em không hiểu cho lắm.

• RE: form đăng nhập!!

  tt1212 > 20-07-13, 08:10 PM

  Mình chua xemkyx nhung mình mình biết bệnh này là do bạn viết code sai o cho kiểm tra lệnh if đóng if,

• RE: form đăng nhập!!

  maixuanthu > 20-07-13, 11:54 PM

  Em muốn tạo 1 cái form đăng nhập chỉ cho admin đăng nhập hoặc đăng nhập bằng tài khoản khách chứ không có thêm bất cứ tài khoản nào. Và bắt lỗi đăng nhập là nếu đánh sai tên đăng nhập hoặc mật khẩu 5 lần thì chương trình sẽ tự động thoát. Đây là link của em, mong moi người giúp đỡ. Em cảm ơn rất nhiều!
  http://www.mediafire.com/download/6gnknf...nhvien.rar
• Bài trước Bài tiếp