Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Kết quả 1 đến 7 của 7

Chủ đề: Tạo form login

  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    0

    Tạo form login

    Tôi có làm 1 chương trình và tạo 1 form login để đăng nhập vào CSDL nhưng khổ nỗi nó không mã hóa được password thành các ký tự '****" và nó hiện ra luôn những từ mình gõ vào. Ai biết cách mã hóa password thì chỉ cho tôi với. Hoặc có source login cho tôi với. Xin cảm ơn!

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Tạo form login




    Trích dẫn Gửi bởi haocaocu
    Tôi có làm 1 chương trình và tạo 1 form login để đăng nhập vào CSDL nhưng khổ nỗi nó không mã hóa được password thành các ký tự '****" và nó hiện ra luôn những từ mình gõ vào. Ai biết cách mã hóa password thì chỉ cho tôi với. Hoặc có source login cho tôi với. Xin cảm ơn!
    Bạn định cái property Input Mask của textbox gõ password là: Password. Thế thôi.

  3. #3
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Tạo form login




    Trích dẫn Gửi bởi haocaocu
    Tôi có làm 1 chương trình và tạo 1 form login để đăng nhập vào CSDL nhưng khổ nỗi nó không mã hóa được password thành các ký tự '****" và nó hiện ra luôn những từ mình gõ vào. Ai biết cách mã hóa password thì chỉ cho tôi với. Hoặc có source login cho tôi với. Xin cảm ơn!
    Bạn cho hỏi luôn, hướng dẫn chi tiết cho mình tạo màn hình login có user và password nhé!

  4. #4
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Tạo form login

    nếu chỉ đơn giản là login vào thôi thì bạn có thể vào thuộc tính form_close mà làm!
    Giả sử đặt tên Textbox là txtpassword và username thì bạn chỉ cần dùng hàm if trong VBA để lập trình thôi! if txtuser="123" and txtpassword="abc" then <thực hiện các lệnh tiếp theo>
    Nhưng làm cách này thì chỉ có thể đăng nhập bằng 1 username và password thôi!Muốn thay đổi phải vào Soure code của chương trình thì hơi mệt!
    Bạn có thể tạo một table chứa thông tin là các user và pass! dùng hàm Dlookup để dò tìm pass và user trong table!nếu có sẽ cho login vào hệ thông!Chúc bạn thành công

  5. #5
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: Tạo form login

    Bạn tạo 1 table dangnhap sau đó cho source nay vào
    Private Sub cmdDangnhap_Click()
    If IsNull(Me.txtTendangnhap) Or Me.txtTendangnhap = "" Then
    MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
    Me.txtTendangnhap.SetFocus
    Exit Sub
    End If

    'Check to see if data is entered into the password box
    If IsNull(Me.txtMatkhau) Or Me.txtMatkhau = "" Then
    MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
    Me.txtMatkhau.SetFocus
    Exit Sub
    End If

    If Me.txtMatkhau.Value = DLookup("MatKhau", "tblDanhsach", "[Tendangnhap]='" & Me.txtTendangnhap.Value & "'") Then

    DoCmd.Close acForm, "frmDangnhap", acSaveNo
    DoCmd.OpenForm "frmMain"

    Else
    MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
    Me.txtMatkhau.SetFocus
    End If
    End Sub
    Private Sub txtMatkhau_LostFocus()
    cmdDangnhap.SetFocus
    End Sub
    Nhân tiện đây cũng cảm ơn anh phatnq2002 đã giúp e. E có gửi qua mail cho anh hỏi về vấn đề lấy dữ liệu báo cáo mong a giúp đỡ sớm. E xin cảm ơn!

  6. #6
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: Tạo form login




    Trích dẫn Gửi bởi haocaocu
    Bạn tạo 1 table dangnhap sau đó cho source nay vào
    Private Sub cmdDangnhap_Click()
    If IsNull(Me.txtTendangnhap) Or Me.txtTendangnhap = "" Then
    MsgBox "You must enter a User Name.", vbOKOnly, "Required Data"
    Me.txtTendangnhap.SetFocus
    Exit Sub
    End If

    'Check to see if data is entered into the password box
    If IsNull(Me.txtMatkhau) Or Me.txtMatkhau = "" Then
    MsgBox "You must enter a Password.", vbOKOnly, "Required Data"
    Me.txtMatkhau.SetFocus
    Exit Sub
    End If

    If Me.txtMatkhau.Value = DLookup("MatKhau", "tblDanhsach", "[Tendangnhap]='" & Me.txtTendangnhap.Value & "'") Then

    DoCmd.Close acForm, "frmDangnhap", acSaveNo
    DoCmd.OpenForm "frmMain"

    Else
    MsgBox "Password Invalid. Please Try Again", vbOKOnly, "Invalid Entry!"
    Me.txtMatkhau.SetFocus
    End If
    End Sub
    Private Sub txtMatkhau_LostFocus()
    cmdDangnhap.SetFocus
    End Sub
    Nhân tiện đây cũng cảm ơn anh phatnq2002 đã giúp e. E có gửi qua mail cho anh hỏi về vấn đề lấy dữ liệu báo cáo mong a giúp đỡ sớm. E xin cảm ơn!
    Trước hết cảm ơn bạn. Tôi mới bập bẹ nên còn chưa biết nhiều. Bạn chỉ dẫn cụ thể cách làm được không?

    - Bảng này có tên là gì? gồm các trường nào ? tên trường là gì?
    - Form đăng nhập có tên là frmDangnhap. 2 cái texBox Use và pas đó có thuộc tính là gì? Có phải gắn với bảng trên không?
    - Đoạn mã trên đưa vào module thì có phải gọi từ Macro Autoexec không?

    Cảm ơn các bạn trước.

    ---------- Post added at 11:40 ---------- Previous post was at 09:44 ----------




    Trích dẫn Gửi bởi viho79
    Trước hết cảm ơn bạn. Tôi mới bập bẹ nên còn chưa biết nhiều. Bạn chỉ dẫn cụ thể cách làm được không?

    - Bảng này có tên là gì? gồm các trường nào ? tên trường là gì?
    - Form đăng nhập có tên là frmDangnhap. 2 cái texBox Use và pas đó có thuộc tính là gì? Có phải gắn với bảng trên không?
    - Đoạn mã trên đưa vào module thì có phải gọi từ Macro Autoexec không?

    Cảm ơn các bạn trước.
    OK. Tôi đã làm được rồi. Cảm ơn bạn rất nhiều. Chúc bạn luôn mạnh khoẻ.

  7. #7
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Tạo form login

    sao mình làm form đăng nhập đúng như mọi người viết mà không được nhj, nó không chạy đã đành lại không báo lỗi cho mà sửa chứ, nhờ cả nhà giúp với!!!

 

 

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •