Friend Shared Function Fn_AnaMenu_YetkileriGenel() As IQueryable
Dim yetkicntx As New nm_yetkiler.DataClassesYetkilerbyUsernameDataContext(My.Settings.dbURETIM25ConnectionString)
Dim yetkiler = From y In yetkicntx.TBLYETKILERs Join m In yetkicntx.TBLMODUL_EKRANLARs On y.Form_Adı Equals m.Form_Adı
Where y.User_Name = usr
Select y.Yetki, FormAdı = y.Form_Adı, y.YID, FormBaşlık = m.Form_Başlık, m.Tipi, m.Grup, m.Modül
Return yetkiler
End Function
Yorumlar
Yorum Gönder