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

phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • phân quyền chọn lớp và nhập thông tin theo tên đăng nhập
• phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

• phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  honglv157 > 27-10-15, 09:53 AM

  
  
  
  
  User đăng nhập bằng tài khoản của mình vào chương trình, tại form nhập thông tin học viên chỉ có thể nhìn và chọn các lớp do mình quản lý (theo phân công trong bảng DMLOPHOC) thì có cách nào không ah?Đây là file và code phân quyền 
  Option Compare Database
  
  Option Explicit
  
  Private Sub cmdLogin_Click()
  If IsNull(Me.txtuser) Or Me.txtuser = "" Then
      MsgBox "Khong co nhan vat dang nhap cu the, de nghi nhap user!", vbCritical
      Me.txtuser.SetFocus
  Else
      
      Select Case Me.txtpass
          Case Me.txtuser.Column(1)
              MsgBox "DANG NHAP THANH CONG"
              Me.Visible = True
                DoCmd.Close
          Case Is <> Me.txtuser.Column(1)
              MsgBox "Mat khau hoac ten dang nhap khong dung"
          Case Else
              MsgBox "ban khong co quyen truy cap"
    End Select
    End If
  End Sub
  
  Private Sub txtuser_AfterUpdate()
      Quyen.Value = DLookup("[Quyen]", "tadmin", "[user] = txtuser.Value")
        CommandBars("thucdon").Controls(1).Visible = True
        CommandBars("thucdon").Controls(2).Visible = True
        CommandBars("thucdon").Controls(3).Visible = True
        CommandBars("thucdon").Controls(4).Visible = True
      Select Case Quyen.Value
      Case 0
       CommandBars("thucdon").Controls(1).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = True
       CommandBars("thucdon").Controls(2).Controls(1).Controls(2).Visible = True
        CommandBars("thucdon").Controls(2).Controls(2).Controls(1).Visible = True
       CommandBars("thucdon").Controls(2).Controls(2).Controls(2).Visible = True
          CommandBars("thucdon").Controls(2).Controls(2).Controls(3).Visible = True
           CommandBars("thucdon").Controls(2).Controls(3).Controls(1).Visible = True
       CommandBars("thucdon").Controls(2).Controls(3).Controls(2).Visible = True
          CommandBars("thucdon").Controls(2).Controls(3).Controls(3).Visible = True
          
          CommandBars("thucdon").Controls(3).Controls(1).Controls(1).Visible = True
        CommandBars("thucdon").Controls(3).Controls(1).Controls(2).Visible = True
         CommandBars("thucdon").Controls(3).Controls(1).Controls(3).Visible = True
           CommandBars("thucdon").Controls(3).Controls(1).Controls(4).Visible = True
           CommandBars("thucdon").Controls(3).Controls(1).Controls(5).Visible = True
           CommandBars("thucdon").Controls(3).Controls(1).Controls(6).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
      CommandBars("thucdon").Controls(4).Visible = True
       Case 1
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = True
      CommandBars("thucdon").Controls(2).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
       CommandBars("thucdon").Controls(4).Visible = True
        CommandBars("thucdon").Controls(4).Visible = False
        Case 2
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Visible = True
        CommandBars("thucdon").Controls(2).Controls(3).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
       CommandBars("thucdon").Controls(4).Visible = True
        CommandBars("thucdon").Controls(4).Visible = False
       Case 3
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = True
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(1).Controls(2).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(2).Controls(2).Visible = False
          CommandBars("thucdon").Controls(2).Controls(2).Controls(3).Visible = False
           CommandBars("thucdon").Controls(2).Controls(3).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(3).Controls(2).Visible = False
          CommandBars("thucdon").Controls(2).Controls(3).Controls(3).Visible = False
          
          CommandBars("thucdon").Controls(3).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(3).Controls(1).Controls(2).Visible = False
         CommandBars("thucdon").Controls(3).Controls(1).Controls(3).Visible = False
           CommandBars("thucdon").Controls(3).Controls(1).Controls(4).Visible = False
           CommandBars("thucdon").Controls(3).Controls(1).Controls(5).Visible = True
           CommandBars("thucdon").Controls(3).Controls(1).Controls(6).Visible = False
      CommandBars("thucdon").Controls(3).Visible = True
      CommandBars("thucdon").Controls(4).Visible = False
        Case 4
     CommandBars("thucdon").Controls(1).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = False
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(1).Controls(2).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(2).Controls(2).Visible = False
          CommandBars("thucdon").Controls(2).Controls(2).Controls(3).Visible = False
           CommandBars("thucdon").Controls(2).Controls(3).Controls(1).Visible = False
       CommandBars("thucdon").Controls(2).Controls(3).Controls(2).Visible = False
          CommandBars("thucdon").Controls(2).Controls(3).Controls(3).Visible = False
          
          CommandBars("thucdon").Controls(3).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(3).Controls(1).Controls(2).Visible = False
         CommandBars("thucdon").Controls(3).Controls(1).Controls(3).Visible = False
           CommandBars("thucdon").Controls(3).Controls(1).Controls(4).Visible = False
           CommandBars("thucdon").Controls(3).Controls(1).Controls(5).Visible = False
           CommandBars("thucdon").Controls(3).Controls(1).Controls(6).Visible = False
      CommandBars("thucdon").Controls(3).Visible = False
      CommandBars("thucdon").Controls(4).Visible = False
       Case 5
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Visible = True
        CommandBars("thucdon").Controls(2).Controls(3).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
       CommandBars("thucdon").Controls(4).Visible = True
        CommandBars("thucdon").Controls(4).Visible = False
         Case 6
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Visible = True
        CommandBars("thucdon").Controls(2).Controls(3).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
       CommandBars("thucdon").Controls(4).Visible = True
        CommandBars("thucdon").Controls(4).Visible = False
         Case 7
      CommandBars("thucdon").Controls(1).Controls(1).Visible = False
      CommandBars("thucdon").Controls(1).Controls(2).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(2).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
      CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
      CommandBars("thucdon").Controls(2).Controls(1).Controls(1).Visible = False
        CommandBars("thucdon").Controls(2).Controls(2).Visible = True
        CommandBars("thucdon").Controls(2).Controls(3).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
       CommandBars("thucdon").Controls(4).Visible = True
        CommandBars("thucdon").Controls(4).Visible = False
      End Select
  End Sub
  
  File: http://www.mediafire.com/download/yy3k1c...on+1.0.mdb
  Nhờ các anh giúp đỡ vấn đề trên!Em cảm ơn

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  honglv157 > 27-10-15, 05:13 PM

  Hic!CÁc anh chị giúp em với ah!

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  cpucloi > 27-10-15, 09:22 PM

  Hjx, nhìn code mờ hết cả mắt, down file về xem đã ....

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  tranthanhan1962 > 27-10-15, 10:52 PM

  Hi mình cũng thấy ngộp thiệt. Nhưng càng chi tiết thì càng hay. Các user không lấn sân của nhau.
  Cách đơn giản nhất là các table gắn thêm field quyền user: ví dụ field [quyen]. Field quyền lớp nào sẽ có giá trị quyền của người quản lý lớp đó. 
  Tạo SQL lọc quyền làm record source cho form. Khi open form các lớp sẽ được lọc theo quyen
  Ví dụ form nhappdggv thay vì có record source là "DGGV" chuyển thành "SELECT DGGV.* FROM DGGV WHERE (((DGGV.quyen)=[Forms]![frmLogan]![QUYEN]));"
   Chúc bạn thành công

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  honglv157 > 28-10-15, 11:32 AM

  Em để field Quyen ở bảng DMLOPHOC, table DMLOPHOC và table DGGV có field chung là MALOP.Vậy em viết câu lệnh cho record source của form nhappdggv như thế nào được anh ơi!Nhờ anh hướng dẫn giúp em !Em cảm ơn

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  tranthanhan1962 > 29-10-15, 12:35 AM

  Thứ nhất để xử lý được việc này bạn không thể close form frmLogan. Vì nếu close form frmLogan bạn không thể so sánh tham chiếu được được điều kiện [Forms]![frmLogan]![QUYEN]) trong SQL của record source.
  Đổi lệnh trong 
  

  Mã:

  Private Sub cmdLogin_Click()
   ...
          DoCmd.Close
   ...
End Sub

  
  thành
  

  Mã PHP:

  Private Sub cmdLogin_Click()
   ...
          Me.Visible = False
   ...
End Sub 


  
  Chỉ ẩn form chứ không close
  Thứ hai field [quyen] điều có mặt trên cả table DMLOPHOC và các form đánh giá, đồng thời được xác định trước ở table DMLOPHOC. Khi nhập dữ liệu cho các form đánh giá thì xử lý 2 việc:
  1/ Control source của MALOP: "SELECT DMLOPHOC.MALOP FROM DMLOPHOC WHERE (((DMLOPHOC.Quyen)=[Forms]![frmLogan]![QUYEN]));
  Để ẩn MALOP nằm ngoài quyền của user đăng nhập
  có thể dùng hàm Dlookup hoặc phương thức xác định giá trị column của combobox để cập nhật field [quyen] cho các form đánh giá
  2/ Xử lý thêm điều kiện cho record source như đã nói ở phần trên

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  honglv157 > 29-10-15, 10:35 AM

  1/ Control source của MALOP: "SELECT DMLOPHOC.MALOP FROM DMLOPHOC WHERE (((DMLOPHOC.Quyen)=[Forms]![frmLogan]![QUYEN]));Để ẩn MALOP nằm ngoài quyền của user 
  
  
  
  Em cảm ơn anh đã gợi ý! Nhưng vì một cán bộ quản lý có thể quản lý nhiều lớp, do đó em muốn họ chọn mã lớp trong danh sách các lớp họ được quản lý để nhập thông tin đánh giá. Vì thế em vẫn để hiện ô mã lớp để chọn.Anh xem lại control source em với a! em không chọn được mã lớp 
  
  Ví dụ: Lê việt hồng quản lý 02 lớp thì khi click vào ô mã lớp sẽ chỉ nhìn thấy và chọn 1 trong 2 lớp đó, không thể nhìn thấy các lớp khác.
  Mong anh xem lại giúp em !Thanks a nhìu nhìu :
  Đây là file em đã làm theo hướng dẫn của a: 
  http://www.mediafire.com/download/yy3k1c...on+1.0.mdb

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  tranthanhan1962 > 29-10-15, 07:13 PM

  Khi bạn xử lý SQL của Control source của MALOP: "SELECT DMLOPHOC.MALOP FROM DMLOPHOC WHERE (((DMLOPHOC.Quyen)=[Forms]![frmLogan]![QUYEN]));" thì MALOP nào có Quyen giống như QUYEN trên form frmLogan sẽ hiện ra hết trên combobox. Nên nhớ là khi phần mềm là việc thì form frmLogan luôn luôn xuất hiện trước các form khác. Còn khi thiết kế nếu thay đổi form frmLogan thì phải tắt hết các form đánh giá rồi mở lại thì nó mới khởi tạo lại danh sách. Có thể dùng lệnh requery combobox để là việc cho nhanh như khi đưa ra sử dụng thì nhớ xóa bỏ.

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  honglv157 > 29-10-15, 11:00 PM

  a có thể làm demo phân quyền from fpdggv cho e được ko a?e vẫn ko thể nào phân quyền malop theo quyền của frmlogan như a Ân hướng dẫn được a

• RE: phân quyền chọn lớp và nhập thông tin theo tên đăng nhập

  tranthanhan1962 > 30-10-15, 10:58 AM

  Của bạn đây
• Bài trước Bài tiếp