项目事件
LoadUserSetting
For Each t As
Table In Tables '显示所有表和列
t.Visible = True
t.AllowEdit = True
For Each c As Col In t.Cols
c.Visible = True
c.AllowEdit = True
Next
Next
Tables("授权表").Visible
= (User.Type <> UserTypeEnum.User )
If User.Type <> UserTypeEnum.User Then
Return
End If
For Each dr As
DataRow In DataTables("授权表").Select("用户名 = '" &
User.Name & "'" )
If dr.IsNull("列名") Then
For Each t As Table In Tables
If t.DataTable.Name = dr("表名")
Then
t.Visible = Not dr("不可见")
t.AllowEdit = Not dr("不可编辑")
End If
Next
Else
For Each t As Table In Tables
If t.DataTable.Name = dr("表名")
Then
For Each c As Col In t.Cols
If c.Name = dr("列名")
Then
c.Visible = Not
dr("不可见")
c.AllowEdit = Not
dr("不可编辑")
End If
Next
End If
Next
End If
Next
If User.Name
<> "开发者" Then
RibbonTabs("Table").Visible =
False
RibbonTabs("Project").Visible =
False
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled
= False
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled
= False
Else
RibbonTabs("Table").Visible =
True
RibbonTabs("Project").Visible =
True
RibbonTabs("Other").Groups("Execute").Items("SQLExecute").Enabled
= True
RibbonTabs("Other").Groups("Execute").Items("Command").Enabled
= True
End If
计划管理
表事件
检测项目_AfterLoadTableSetting
If e.Table.name =
"构件清单.检测项目" Then
e.Table.Cols("月份").visible =False
e.Table.Cols("车间").visible =False
e.Table.Cols("班组").visible =False
e.Table.Cols("工程名称").visible
=False
e.Table.Cols("子项名称").visible
=False
e.Table.Cols("构件编号").visible
=False
End If
窗口表事件
窗口与控件事件
自定义函数
全局代码
Default
菜单事件
加好友 
发短信
Post By：2016/9/7 11:19:00 [只看该作者]
