RamezanBeik
دوشنبه 18 مرداد 1389, 13:50 عصر
سلام به تمام دوستان عزیز.
من توی برنامه جاری که در حال نوشتن هستم باید محدودیت ایجاد کنم.این محدودیت به صورت عدم دسترسی به گزینه ای منو می باشد.این محدودیت ها به صورت ذخیره شدن 0و 1 در جدولی است.من کدشو نوشتم ولی به صورت کامل کار نمی کنه یعنی با تمام گزینه ها را فعال یا غیر فعال مکنه من کد رو می زارم شما یه نگاهی بندازید راهنمای کنید.
با تشکر رمضان بیک
---------------------------------------------------------------------------------------------------
من با برنامه نویس.........برنامه نویس می شم!!!:لبخندساده:
--------------------------------------------------------------------------------------------------
Private Sub Setpermition()
Dim per1 As Integer
Dim per2 As Integer
Dim per3 As Integer
Dim UserName As String
Set CN = Nothing
Set Rs = Nothing
ConnStr = "Provider=SQLOLEDB.1;Data Source=213-603100767;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ikoco_Bank"
CN.Open ConnStr
Rs.Open "Select *from permition", CN, adOpenStatic, adLockOptimistic
Rs.MoveFirst
UserName = Rs.Fields!UserName
Do While Rs.EOF = False
If UserName = Main_Menu.StatusBar1.Panels(5).Text Then
per1 = Rs.Fields!mainopr
per2 = Rs.Fields!Manger
per3 = Rs.Fields!chart
If per1 = 1 Then
Main_Menu.Main_opr.Enabled = True
End If
If per2 = 1 Then
Main_Menu.Manger.Enabled = True
End If
If per3 = 1 Then
Main_Menu.chart.Enabled = True
End If
Exit Sub
Else
Rs.MoveNext
End If
Loop
Set Rs = Nothing
Set CN = Nothing
End Sub
من توی برنامه جاری که در حال نوشتن هستم باید محدودیت ایجاد کنم.این محدودیت به صورت عدم دسترسی به گزینه ای منو می باشد.این محدودیت ها به صورت ذخیره شدن 0و 1 در جدولی است.من کدشو نوشتم ولی به صورت کامل کار نمی کنه یعنی با تمام گزینه ها را فعال یا غیر فعال مکنه من کد رو می زارم شما یه نگاهی بندازید راهنمای کنید.
با تشکر رمضان بیک
---------------------------------------------------------------------------------------------------
من با برنامه نویس.........برنامه نویس می شم!!!:لبخندساده:
--------------------------------------------------------------------------------------------------
Private Sub Setpermition()
Dim per1 As Integer
Dim per2 As Integer
Dim per3 As Integer
Dim UserName As String
Set CN = Nothing
Set Rs = Nothing
ConnStr = "Provider=SQLOLEDB.1;Data Source=213-603100767;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=Ikoco_Bank"
CN.Open ConnStr
Rs.Open "Select *from permition", CN, adOpenStatic, adLockOptimistic
Rs.MoveFirst
UserName = Rs.Fields!UserName
Do While Rs.EOF = False
If UserName = Main_Menu.StatusBar1.Panels(5).Text Then
per1 = Rs.Fields!mainopr
per2 = Rs.Fields!Manger
per3 = Rs.Fields!chart
If per1 = 1 Then
Main_Menu.Main_opr.Enabled = True
End If
If per2 = 1 Then
Main_Menu.Manger.Enabled = True
End If
If per3 = 1 Then
Main_Menu.chart.Enabled = True
End If
Exit Sub
Else
Rs.MoveNext
End If
Loop
Set Rs = Nothing
Set CN = Nothing
End Sub