Tạo Form đăng nhập

[sinhvienpy89]

Em thấy trên diễn đàn có :
2. Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub

Câu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhé
Thân chào !
Nhưng làm theo thì không được.Đầu tiên mình làm 2 Textbox và đặt tên Như bạn tuyenduyet đã nêu ở trên.
Tạo nút Command button là cmdDN.Rồi mình copy đoạn mã trên dáng vào sự kiện On click như bạn ở trên trình bày.
Nhưng khi đánh vào thì TxtDN thì vẫn đánh bình thường nhưng khi qua txtMatKhau thì đánh vào không hiện ra ký tự che dấu như ***,mà hiện số bình thường(nói chung là đánh sao là hiện dậy không có mã hoá).
Khi chạy thì bị lỗi, Run time error 13,với tên lỗi là Type mismatch.[you] có cách nào khắc phục vấn đề trên không?

 

[nmhi]

Ðề: Tạo Form đăng nhập

nmhi cũng chưa có cách nào ngọc chung àh,bạn nào biết thì giúp luôn đi

 

[tienduyet]

Ðề: Tạo Form đăng nhập

Em thấy trên diễn đàn có :
2. Bạn tạo 1form (form này bảy đầu tiên khi khởi động chương trình) có: txtTenDN, txtMatKhau, cmdDN
Tại nút cmdDN (ở chuẩn On Click) viết code như sau:
Private Sub cmdDN_Click()
If Not IsNull(txtTenDN) = "duyet" And Not IsNull(txtMatKhau) = "111111" Then
MsgBox "Chao ban " & txtTenDN, vbInformation, "Hello !"
DoCmd.Close
Else
MsgBox "Bye bye ...", vbExclamation, "Bye..."
DoCmd.Quit
End If
End Sub

Câu lệnh Docmd.Close bạn hãy thay câu lệnh cho phù hợp với mình nhé
Thân chào !


Nhưng làm theo thì không được.Đầu tiên mình làm 2 Textbox và đặt tên Như bạn tuyenduyet đã nêu ở trên.
Tạo nút Command button là cmdDN.Rồi mình copy đoạn mã trên dáng vào sự kiện On click như bạn ở trên trình bày.
Nhưng khi đánh vào thì TxtDN thì vẫn đánh bình thường nhưng khi qua txtMatKhau thì đánh vào không hiện ra ký tự che dấu như ***,mà hiện số bình thường(nói chung là đánh sao là hiện dậy không có mã hoá).
Khi chạy thì bị lỗi, Run time error 13,với tên lỗi là Type mismatch.[you] có cách nào khắc phục vấn đề trên không?

Bạn down cái này về xem nhé. http://www.4shared.com/file/141625748/151caae1/Form_dang_nhap.html

Để biến ký tự hiểu được thành **** thì tại Input Mask bạn gó Password

 

[haocaocu]

Ðề: Tạo Form đăng nhập

Bạn tạo form đăng nhập có 2 textbox là txtTendangnhap và txtMatkhau và 2 nút lệnh cmdDangnhap và cmdThoat. Trong table bạn tạo 1 table tblDanhsach có các field MaNSD,MaNhom,Tendangnhap,matkhau.Bạn có thể phát triển thêm đăng ký user vào table này. Trong sự kiện click của cmdDangnhap bạn gõ code sau :

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
Private Sub cmdThoat_Click()
DoCmd.Close
End Sub

Chúc thành công.Good bye

 

[quoctoanvip]

Ðề: Tạo Form đăng nhập

ai bjt hack wap . nho hack kai wap ; tuoiteen9x.waplux.com gjum e . kai wap lua dao . hjxhjx

 

[tungphanbboy]

Ðề: Tạo Form đăng nhập

sao mình làm cái form đăng nhập đúng như thế mà sao vẫn không được nhj??? nhờ ae jup với...

 

[http2]

Ðề: Tạo Form đăng nhập

không biết bạn đã tạo được form đăng nhập chưa nếu chưa bạn làm theo cách này .
đầu tiên bạn tạo 1 tb có tên là :
T_DangNhap -> TenDN : khóa chính
->MatKhau : input mask :để password
xong bạn tạo 1 form tên là F_login
trong đó chứa tb T_DangNhap
rồi bạn tạo thêm 1 cái combox tên là :IDtenDN , 1 cái text box tên là IDMatKhau vẩn để input mask là password
một nút button thuột tín name là cmdInput ,caption là đăng nhập.
một nút button thuột tín name là cmdQuit , caption la thoát.
rồi sau đó bạn vào combox tên IDtenDN đi tới thuộc tín Row Source chọn select table T_DangNhap rồi kéo cái TenDN xuống rồi đóng lại bạn sẽ được thế nào

Row Source ........... SELECT T_DangNhap.TenDN FROM T_DangNhap;

tiếp tục bạn kéo xuống thuộc tín after update .... vào điền code này vào .

Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[TenDN] = '" & Me![IDtenDN] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Tiếp theo bạn viết code cho button CmdInput thế này :

Dim Msg As Variant
Dim varPassword As String

If IsNull(Me.IDtenDN) Or Me.IDtenDN = "" Then
msg = msgbox "Nội dung", vbCritical,"thongbao"
me.IDtenDN.setfocus
exit sub
end if
If IsNull(Me.txtpass) Or Me.txtpass = "" Then
msg = msgbox "Nội dung", vbCritical,"thongbao"
if msg = vbok then
me.IDMatKhau.setfocus
end if
end if

If IDTenDN = TenDN then
If IDMatKhau = MatKhau then
mainformOpen
docmd.Close acForm, "F_DangNhap"
else if
msg = msgbox "Nội dung", vbCritical,"thongbao"
if msg = vbok then
me.IDMatKhau.setfocus
end if
end if
end if

tiếp theo đến button cmdQuit code như sau :

DoCmd.cmdQuit acQuitSaveAll

vậy là bi giờ bạn đã có một form đăng nhập --> chú ý : mainformOpen là form sau khi bạn đăng nhập vào sẽ mở ra .

chúc bạn vui vẻ . học tập tốt .

 

[Khiconnb]

Ðề: Tạo Form đăng nhập

upppppppppppppppp cho đủ 5 bài mà sao mãi ko đc đủ nhỉ

Bạn đang làm cái j thế