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

Tạo code cho form đăng nhập

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Tạo code cho form đăng nhập
• Tạo code cho form đăng nhập

• Tạo code cho form đăng nhập

  feeling > 14-05-17, 08:37 AM

  Chào cả nhà!
  Em đang tạo 1 ví dụ form đăng nhập. Từ tối qua đến giờ em cứ loay hoay mãi không làm xong. Em đưa lên đây và nhờ mọi người chỉ cho em chỗ sai:
  Em đã viết:
  

  Mã PHP:

  Private Sub cmdOk_Click()
    If IsNull(Me.txtTENDANGNHAP) Then
       Me.txtTENDANGNHAP.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=2"), vbCritical + vbOKOnly, App
   ElseIf IsNull(Me.txtMATKHAU) Then
       Me.txtMATKHAU.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=3"), vbCritical + vbOKOnly, App
   ElseIf Me.txtTENDANGNHAP = Me.TENDANGNHAP And Me.txtMATKHAU = Me.txtMATKHAU_KT Then
       If Me.txtQuyen = "admin" Then
           DoCmd.OpenForm "frm1", acNormal
       Else
           DoCmd.OpenForm "frm2", acNormal
       End If
   Else
       Me.txtMATKHAU.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=6"), vbInformation + vbOKOnly, App
   End If
End Sub 


  File đính kèm: http://www.mediafire.com/file/tdfiuxyp9j...ngNhap.rar
  Cám ơn mọi người nhiều!

• RE: Tạo code cho form đăng nhập

  nhannt4 > 14-05-17, 10:50 AM

  (14-05-17, 08:37 AM)feeling Đã viết: Chào cả nhà!
  Em đang tạo 1 ví dụ form đăng nhập. Từ tối qua đến giờ em cứ loay hoay mãi không làm xong. Em đưa lên đây và nhờ mọi người chỉ cho em chỗ sai:
  Em đã viết:
  

  Mã PHP:

  Private Sub cmdOk_Click()
   If IsNull(Me.txtTENDANGNHAP) Then
       Me.txtTENDANGNHAP.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=2"), vbCritical + vbOKOnly, App
   ElseIf IsNull(Me.txtMATKHAU) Then
       Me.txtMATKHAU.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=3"), vbCritical + vbOKOnly, App
   ElseIf Me.txtTENDANGNHAP = Me.TENDANGNHAP And Me.txtMATKHAU = Me.txtMATKHAU_KT Then
       If Me.txtQuyen = "admin" Then
           DoCmd.OpenForm "frm1", acNormal
       Else
           DoCmd.OpenForm "frm2", acNormal
       End If
   Else
       Me.txtMATKHAU.SetFocus
       msgBoxOK DLookup("NoiDung", "tblTHONGBAO", "ID=6"), vbInformation + vbOKOnly, App
   End If
End Sub 


  File đính kèm: http://www.mediafire.com/file/tdfiuxyp9j...ngNhap.rar
  Cám ơn mọi người nhiều!

  
  Bạn chỉnh sửa lại như sau ở dòng code: 
  
  ElseIf Me.txtTENDANGNHAP = Me.TENDANGNHAP And Me.txtMATKHAU = Me.txtMATKHAU_KT Then
  
  Bạn sửa thành:
  
  ElseIf Me.txtMATKHAU = Me.txtMATKHAU_KT Then
  
  Chúc vui.

• RE: Tạo code cho form đăng nhập

  William > 31-05-17, 02:45 PM

  Bạn cho mình hỏi sao mình có thêm 2 unbound phía trên Tendangnhap (txtQUyen va txtMATKHAU_KT)

• RE: Tạo code cho form đăng nhập

  William > 31-05-17, 03:36 PM

  Mình cũng làm không login vô được nữa, nhờ các bạn giúp mình  với http://www.mediafire.com/file/01d635c11s...ogin.accdb

• RE: Tạo code cho form đăng nhập

  toancvp > 31-05-17, 04:22 PM

  Mình ko chắc chắn nhưng tạm góp ý cho bạn như thế này:
  1, Bạn muốn test thử như mà:
             DoCmd.OpenForm "Main_test", acNormal
             Chưa thấy bạn tạo form "Main_test"
  2, If Me.txtpass = Me.Password     Me.txtpass thì có trên Form, nhưng ko thấy đối tượng    Me.Password   trên Form
      Tương tự với Me.Quyen không thấy trên Form.
  
  bạn thử chỉnh lại những phần đó xem sao.
  
  Đây là đoạn Code trong 1 file của mình:
  
  Private Sub cmdLogin_Click()
  
  If  (Me.CboAcc  & "")= "" Or DCount("[Acount]", "Tbl_0_Login", "[Acount]= '" & Me.CboAcc & "'") = 0 Then
  b = MsgBox("User khong ton tai !", vbOKOnly, "THONG BAO")
  Me.CboAcc.SetFocus
  Exit Sub
  End If
  
  If ((Me.txtPass & "") = "") Or (Me.txtPass & "" <> (Me.xPass & "")) Then
  c = MsgBox("Password khong dung !", vbOKOnly, "THONG BAO")
  Me.txtPass.SetFocus
  Exit Sub
  End If
  
  Me.Visible = False
  DoCmd.OpenForm "frm_0_Main"
  End Sub
  
  ====
  Trong đó:
  Form là Unbound
  CboAcc và txtPass là Unbound, dùng để nhập dữ liệu và so sánh
  txtMaNV ; txtTenNV ; xPass cũng là Unboud để chế độ Invisible = false, Enabled = false; width - height - top - left = 0 hết (để ẩn giấu nó đi)
  
  Form hoạt động như sau: Combo box CboAcc liên kết đến table danh sách User (gồm User, Pass, MaNhanVien)
  Sau khi CboAcc update thì:
  
  Private Sub CboAcc_AfterUpdate()
  
  Me.txtMaNV = Me.CboAcc.Column(2)
  Me.xPass = Me.CboAcc.Column(1)
  Me.txtTenNV = DLookup("[TenNhanVien]", "Tbl_0_DanhSachNhanVien", "[MaNhanVien] = '" & Me.txtMaNV & "'")
  End Sub
  
  ===
  
  Khi click nút Login, nó sẽ so sánh các giá trị trên với nhau và đồng ý đăng nhập hay là không.

• RE: Tạo code cho form đăng nhập

  William > 31-05-17, 07:26 PM

  (31-05-17, 04:22 PM)toancvp Đã viết: Mình ko chắc chắn nhưng tạm góp ý cho bạn như thế này:
  1, Bạn muốn test thử như mà:
             DoCmd.OpenForm "Main_test", acNormal
             Chưa thấy bạn tạo form "Main_test"
  2, If Me.txtpass = Me.Password     Me.txtpass thì có trên Form, nhưng ko thấy đối tượng    Me.Password   trên Form
      Tương tự với Me.Quyen không thấy trên Form.
  
  bạn thử chỉnh lại những phần đó xem sao.
  
  Đây là đoạn Code trong 1 file của mình:
  
  Private Sub cmdLogin_Click()
  
  If  (Me.CboAcc  & "")= "" Or DCount("[Acount]", "Tbl_0_Login", "[Acount]= '" & Me.CboAcc & "'") = 0 Then
  b = MsgBox("User khong ton tai !", vbOKOnly, "THONG BAO")
  Me.CboAcc.SetFocus
  Exit Sub
  End If
  
  If ((Me.txtPass & "") = "") Or (Me.txtPass & "" <> (Me.xPass & "")) Then
  c = MsgBox("Password khong dung !", vbOKOnly, "THONG BAO")
  Me.txtPass.SetFocus
  Exit Sub
  End If
  
  Me.Visible = False
  DoCmd.OpenForm "frm_0_Main"
  End Sub
  
  ====
  Trong đó:
  Form là Unbound
  CboAcc và txtPass là Unbound, dùng để nhập dữ liệu và so sánh
  txtMaNV ; txtTenNV ; xPass cũng là Unboud để chế độ Invisible = false, Enabled = false; width - height - top - left = 0 hết (để ẩn giấu nó đi)
  
  Form hoạt động như sau: Combo box CboAcc liên kết đến table danh sách User (gồm User, Pass, MaNhanVien)
  Sau khi CboAcc update thì:
  
  Private Sub CboAcc_AfterUpdate()
  
  Me.txtMaNV = Me.CboAcc.Column(2)
  Me.xPass = Me.CboAcc.Column(1)
  Me.txtTenNV = DLookup("[TenNhanVien]", "Tbl_0_DanhSachNhanVien", "[MaNhanVien] = '" & Me.txtMaNV & "'")
  End Sub
  
  ===
  
  Khi click nút Login, nó sẽ so sánh các giá trị trên với nhau và đồng ý đăng nhập hay là không.

  
  Cám ơn bạn đã góp ý, cái này maình tách ra 1 file riêng để nhờ các bạn sửa lỗi dùm mình thôi. mình cũng quên mất copy main_test form vô. còn Me.Password thì nó là thuộc tính trong cái table đăng nhập đó bạn .
  Để mình làm theo cách bạn thử, cám ơn bạn.
  
  Form là Unbound
  CboAcc và txtPass là Unbound, dùng để nhập dữ liệu và so sánh
  txtMaNV ; txtTenNV ; xPass cũng là Unboud để chế độ Invisible = false, Enabled = false; width - height - top - left = 0 hết (để ẩn giấu nó đi)
  
  Mà bạn ơi cái CboAcc và txtPass là cái khung d9ein62 tên đăng nhâp và mật khẩu phải không? Còn txtxMaNV; txtxTenNV; xPass là unbound là gì vậy bạn? . cám ơn bạn.

• RE: Tạo code cho form đăng nhập

  toancvp > 01-06-17, 12:35 AM

  CboAcc là combo box, lấy nguồn từ bảng Tbl_User mà ra, chức năng của nó là sau khi người dùng chọn CboAcc thì sẽ gán các giá trị về toàn bộ thông tin của User đó vào txtMaNV, xPass.
  
  Cái xPass này là pass đúng của User đó, nhưng bị ẩn đi, chức năng của nó là so sánh với ô txtPass mà người dùng đã nhập vào, nếu đúng thì cho đăng nhập, không đúng thì báo lỗi.
  
  Form này ko cần thiết để là Form Bound bởi vì nó ko có chức năng thêm, sửa, xóa record. Chức năng của nó chỉ là so sánh nên mình chỉ cần tham chiếu dữ liệu mình cần để so sánh, và điều này sẽ ko gây ảnh hưởng đến dữ liệu trong Table.
• Bài trước Bài tiếp