专家坐堂-Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  代码运行异常  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=111171)

--  作者：有点蓝
--  发布时间：2017/12/16 17:24:00
--

Dim r As Row = Tables("账户管理").Current
If r IsNot Nothing
e.Form.Controls("姓名").Text = "登录账号: [" & r("用户账号") & "]"
e.Form.Controls("日期").Text = "登录日期: " & Date.Today()

For Each c As Col In Tables("账户管理").Cols
If e.Form.Controls.contains(c.Name) Then
e.Form.Controls(c.Name).Enabled = r(c.Name)
End If
Next
End If

[此贴子已经被作者于2017/12/16 17:24:17编辑过]

--  作者：cbt
--  发布时间：2017/12/16 22:26:00
--
Dim r As Row = Tables("账户管理").Current
If r Is Nothing Then Return

e.Form.Controls("姓名").Text = "登录账号: [" & r("用户账号") & "]"
e.Form.Controls("日期").Text = "登录日期: " & Date.Today()

If Tables("账户管理").Current("工序记录表") = True Then
    e.Form.Controls("工序记录表").Enabled = True
Else
    e.Form.Controls("工序记录表").Enabled = False
End If
If Tables("账户管理").Current("清洗包装报工") = True Then
    e.Form.Controls("清洗包装报工").Enabled = True
Else
    e.Form.Controls("清洗包装报工").Enabled = False
End If
If Tables("账户管理").Current("设备异常申请") = True Then
    e.Form.Controls("设备维修记录").Enabled = True
Else
    e.Form.Controls("设备维修记录").Enabled = False
End If
If Tables("账户管理").Current("系统设置") = True Then
    e.Form.Controls("系统设置").Enabled = True
Else
    e.Form.Controls("系统设置").Enabled = False
End If
If Tables("账户管理").Current("工艺路线维护") = True Then
    e.Form.Controls("工艺路线维护").Enabled = True
Else
    e.Form.Controls("工艺路线维护").Enabled = False
End If
If Tables("账户管理").Current("员工信息管理") = True Then
    e.Form.Controls("员工信息维护").Enabled = True
Else
    e.Form.Controls("员工信息维护").Enabled = False
End If
If Tables("账户管理").Current("BOM基础数据") = True Then
    e.Form.Controls("BOM数据维护").Enabled = True
Else
    e.Form.Controls("BOM数据维护").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序维护") = True Then
    e.Form.Controls("毛坯工序维护").Enabled = True
Else
    e.Form.Controls("毛坯工序维护").Enabled = False
End If
If Tables("账户管理").Current("设备数据维护") = True Then
    e.Form.Controls("设备数据维护").Enabled = True
Else
    e.Form.Controls("设备数据维护").Enabled = False
End If
If Tables("账户管理").Current("人员开机明细") = True Then
    e.Form.Controls("人员开机维护").Enabled = True
Else
    e.Form.Controls("人员开机维护").Enabled = False
End If
If Tables("账户管理").Current("异常类型维护") = True Then
    e.Form.Controls("异常类型管理").Enabled = True
Else
    e.Form.Controls("异常类型管理").Enabled = False
End If
If Tables("账户管理").Current("生产排产维护") = True Then
    e.Form.Controls("生产排产维护").Enabled = True
Else
    e.Form.Controls("生产排产维护").Enabled = False
End If
If Tables("账户管理").Current("生产排产查询") = True Then
    e.Form.Controls("生产排产查询").Enabled = True
Else
    e.Form.Controls("生产排产查询").Enabled = False
End If
If Tables("账户管理").Current("设备数据查询") = True Then
    e.Form.Controls("设备使用查询").Enabled = True
Else
    e.Form.Controls("设备使用查询").Enabled = False
End If
If Tables("账户管理").Current("条码数据查询") = True Then
    e.Form.Controls("条码数据查询").Enabled = True
Else
    e.Form.Controls("条码数据查询").Enabled = False
End If
If Tables("账户管理").Current("工艺路线查询") = True Then
    e.Form.Controls("工艺路线").Enabled = True
Else
    e.Form.Controls("工艺路线").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序查询") = True Then
    e.Form.Controls("漏工序查询").Enabled = True
Else
    e.Form.Controls("漏工序查询").Enabled = False
End If
If Tables("账户管理").Current("生产报工查询") = True Then
    e.Form.Controls("报工查询").Enabled = True
Else
    e.Form.Controls("报工查询").Enabled = False
End If
[此贴子已经被作者于2017/12/16 22:26:30编辑过]

--  作者：有点甜
--  发布时间：2017/12/17 20:42:00
--
Dim r As Row = Tables("账户管理").Current
If r Is Nothing Then Return
e.Form.Controls("姓名").Text = "登录账号: [" & Tables("账户管理").Current("用户账号") & "]"
e.Form.Controls("日期").Text = "登录日期: " & Date.Today()
If Tables("账户管理").Current("工序记录表") = True Then
    e.Form.Controls("工序记录表").Enabled = True
Else
    e.Form.Controls("工序记录表").Enabled = False
End If
If Tables("账户管理").Current("清洗包装报工") = True Then
    e.Form.Controls("清洗包装报工").Enabled = True
Else
    e.Form.Controls("清洗包装报工").Enabled = False
End If
If Tables("账户管理").Current("设备异常申请") = True Then
    e.Form.Controls("设备维修记录").Enabled = True
Else
    e.Form.Controls("设备维修记录").Enabled = False
End If
If Tables("账户管理").Current("系统设置") = True Then
    e.Form.Controls("系统设置").Enabled = True
Else
    e.Form.Controls("系统设置").Enabled = False
End If
If Tables("账户管理").Current("工艺路线维护") = True Then
    e.Form.Controls("工艺路线维护").Enabled = True
Else
    e.Form.Controls("工艺路线维护").Enabled = False
End If
If Tables("账户管理").Current("员工信息管理") = True Then
    e.Form.Controls("员工信息维护").Enabled = True
Else
    e.Form.Controls("员工信息维护").Enabled = False
End If
If Tables("账户管理").Current("BOM基础数据") = True Then
    e.Form.Controls("BOM数据维护").Enabled = True
Else
    e.Form.Controls("BOM数据维护").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序维护") = True Then
    e.Form.Controls("毛坯工序维护").Enabled = True
Else
    e.Form.Controls("毛坯工序维护").Enabled = False
End If
If Tables("账户管理").Current("设备数据维护") = True Then
    e.Form.Controls("设备数据维护").Enabled = True
Else
    e.Form.Controls("设备数据维护").Enabled = False
End If
If Tables("账户管理").Current("人员开机明细") = True Then
    e.Form.Controls("人员开机维护").Enabled = True
Else
    e.Form.Controls("人员开机维护").Enabled = False
End If
If Tables("账户管理").Current("异常类型维护") = True Then
    e.Form.Controls("异常类型管理").Enabled = True
Else
    e.Form.Controls("异常类型管理").Enabled = False
End If
If Tables("账户管理").Current("生产排产维护") = True Then
    e.Form.Controls("生产排产维护").Enabled = True
Else
    e.Form.Controls("生产排产维护").Enabled = False
End If
If Tables("账户管理").Current("生产排产查询") = True Then
    e.Form.Controls("生产排产查询").Enabled = True
Else
    e.Form.Controls("生产排产查询").Enabled = False
End If
If Tables("账户管理").Current("设备数据查询") = True Then
    \'e.Form.Controls("设备使用查询").Enabled = True
Else
    \'e.Form.Controls("设备使用查询").Enabled = False
End If
If Tables("账户管理").Current("条码数据查询") = True Then
    e.Form.Controls("条码数据查询").Enabled = True
Else
    e.Form.Controls("条码数据查询").Enabled = False
End If
If Tables("账户管理").Current("工艺路线查询") = True Then
    e.Form.Controls("工艺路线").Enabled = True
Else
    e.Form.Controls("工艺路线").Enabled = False
End If
If Tables("账户管理").Current("毛坯工序查询") = True Then
    e.Form.Controls("漏工序查询").Enabled = True
Else
    e.Form.Controls("漏工序查询").Enabled = False
End If
If Tables("账户管理").Current("生产报工查询") = True Then
    e.Form.Controls("报工查询").Enabled = True
Else
    e.Form.Controls("报工查询").Enabled = False
End If