Applicati
If User.Name = "Operator" Then
RibbonTabs("Common").Visible = False
RibbonTabs("Table").Visible = False
RibbonTabs("Project").Visible = False
RibbonTabs("Print").Groups("Word").Visible = False
RibbonTabs("Print").Groups("Excel").Visible = False
RibbonTabs("Print").Groups("Advanced").Visible = False
RibbonTabs("Cars").Groups("系统操作").Items("显隐表头").Visible = False
RibbonTabs("Other").Visible = False
End If
TableCaptionVisible = False
For Each t As Table In Tables
If t.name Like "*.*" Then
t.visible = False
End If
Next
Forms("首页").open
MainTable = Tables("注意事项")
Tables("注意事项").openview("1")
Tables("注意事项").sort = "排序用,结束日期"
'
DataTables("记录总表").SysStyles("EmptyArea").BackColor = Color.White
DataTables("记录明细表").SysStyles("EmptyArea").BackColor = Color.White
DataTables("基本资料").SysStyles("EmptyArea").BackColor = Color.White
Vars("CNUM") = Tables("车辆基本信息").Value(0, 0)
DataTables("注意事项").DataCols("结束日期").RaiseDataColChanged()
Dim dr1 As DataRow = DataTables("注意事项").Find("提示 = 2 " )
If dr1 IsNot Nothing Then
Tables("注意事项").filter = "提示 = 2"
MessageBox.Show("有任务即将到期!", "提示", MessageBoxButtons.OK, MessageBoxIcon.Information)
End If
Dim dr2 As DataRow = DataTables("注意事项").Find("提示 = 3 And 完成 = False")
If dr2 IsNot Nothing Then
Tables("注意事项").filter = "提示 = 3 And 完成 = False"
MessageBox.Show("有任务已经过期!", "警告", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
Tables("注意事项").filter = ""
Tables("注意事项").sort = "排序用,结束日期"