Chủ đề: Tạo form login
-
02-24-2009, 05:33 PM #1
Junior Member
- 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!
View more random threads:
- Sử dụng chức năng phân quyền truy cập của access
- Chuyên đề ứng dụng : Thiết kế chương trình Sổ Quỹ Tiền Mặt(Phần 2 - Query và Report)
- Làm thế nào để lấy dữ liệu phát sinh cuối cùng trong Table!
- Lập trình VBA trên Access - hình như ít người để ý
- Mọi người giúp mình với, chết toi roài
- Xin các bác giúp đỡ về phần In ạ
- Về các bài hướng dẫn tạo một phần mềm quản lý bán hàng bằng Access
- Kế toán tiền gửi trong một Ngân hàng
- Hai khúc mắc trong VBA
- Giúp mình sort tren listbox vớii
-
02-24-2009, 05:48 PM #2
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo form login
Gửi bởi haocaocu
-
02-27-2009, 12:01 AM #3
Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Tạo form login
Gửi bởi haocaocu
-
03-01-2009, 01:23 AM #4
Junior Member
- 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
-
03-02-2009, 03:34 AM #5
Junior Member
- 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!
-
09-04-2012, 06:40 AM #6
Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Tạo form login
Gửi bởi haocaocu
- 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 ----------
Gửi bởi viho79
-
06-07-2013, 07:18 AM #7
Junior Member
- 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!!!
Việc thủ dâm giúp giải tỏa nhu cầu sinh lý cho những người độc thân, xa người yêu/vợ hoặc những bạn có nhu cầu sinh lý quá cao mà bạn tình không thỏa mãn được hết. Ngoài sử dụng tay để thủ dâm, ngày...
Bạn trai dùng cốc thủ dâm có mang lại ích lợi gì hay không?