|
|
Viết bởi: srmylove 20-07-13, 10:44 AM Chuyên mục: Report - Bài trả lời (2) |
|
|
Viết bởi: maixuanthu 20-07-13, 12:31 AM Chuyên mục: Forms - Bài trả lời (5) |
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
|
|
Viết bởi: hoahd 20-07-13, 12:19 AM Chuyên mục: Query - Bài trả lời (11) |
.
|
|
Viết bởi: bangnguyencong 19-07-13, 11:42 PM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (12) |
|
|
Viết bởi: lovevirus1 19-07-13, 09:26 PM Chuyên mục: Query - Bài trả lời (4) |
| Chủ đề Mới nhất |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 631 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |