01.
Public
Function
CheckPrivilege(
ByVal
sysid
As
String
)
As
Boolean
02.
Thipmanee_Media_Network_Customer_Management_System.MDIMain.Reconnect()
03.
Dim
strPrivilege
As
String
=
String
.Format(
"SELECT tblprivilege.*,tblsystem.* FROM tblprivilege,tblsystem WHERE tblprivilege.SystemID = tblsystem.SystemID AND tblprivilege.EmployeeID = '{0}' AND tblprivilege.SystemID = '{1}' LIMIT 1"
, Thipmanee_Media_Network_Customer_Management_System.MDIMain.strEmpID, sysid)
04.
MyAd.SelectCommand.CommandText = strPrivilege
05.
MyAd.Fill(DS,
"tblprivilege"
)
06.
07.
If
Not
Convert.ToBoolean(DS.Tables(
"tblprivilege"
).Rows(0)(
"IsUsing"
))
Then
08.
Me
.Close()
09.
10.
MessageBox.Show(
"คุณไม่มีสิทธิการเข้าใช้งานในส่วนนี้"
,
"สิทธิการเข้าถึง"
, MessageBoxButtons.OK, MessageBoxIcon.Warning)
11.
End
If
12.
13.
If
Convert.ToBoolean(DS.Tables(
"tblprivilege"
).Rows(0)(
"IsAdd"
))
Then
14.
BindingNavigatorAddNewItem.Enabled =
True
15.
Else
16.
BindingNavigatorAddNewItem.Enabled =
False
17.
End
If
18.
19.
If
Convert.ToBoolean(DS.Tables(
"tblprivilege"
).Rows(0)(
"IsDel"
))
Then
20.
BindingNavigatorDeleteItem.Enabled =
True
21.
Else
22.
BindingNavigatorDeleteItem.Enabled =
False
23.
End
If
24.
25.
If
Convert.ToBoolean(DS.Tables(
"tblprivilege"
).Rows(0)(
"IsEdit"
))
Then
26.
TSBSave.Enabled =
True
27.
Else
28.
TSBSave.Enabled =
False
29.
End
If
30.
31.
DS.Tables(
"tblprivilege"
).Clear()
32.
33.
Return
True
34.
End
Function