采购部的员工

风水师　发表于：2010-02-07 12:41:30 　

Private Sub Form_Load()
    Dim strUserID As String
    '获得当前登录的操作员
    strUserID = Forms!usysfrmLogin!txtUserName
    If strUserID = "000001" Then    '如果是管理员，就显示全部
       Me.RecordSource = "SELECT qryCgsq.* FROM qryCgsq"
    Else    '如果不是管理员，就只显示操作员自已录入的
        Me.RecordSource = "SELECT tblCgsq.* FROM tblCgsq WHERE tblCgsq.czyid='" & strUserID & "'"
    End If

    If qry_Cgbm.bmid = "采购部" Then '此种写法,估计是错的.
      MsgBox "该员工属于采购部"

[forms]![frmCgsq_child_Add]![frmchild]!cgfk.enabled=false

[forms]![frmCgsq_child_Add]![frmchild]!gys.enabled=false

[forms]![frmCgsq_child_Add]![frmchild]!cgsl.enabled=false

[forms]![frmCgsq_child_Add]![frmchild]!dhfk.enabled=false
[forms]![frmCgsq_child_Add]![frmchild]!dhsl.enabled=false

[forms]![frmCgsq_child_Add]![frmchild]!dhrq.enabled=false

End If

End Sub

如果一个登陆的员工,不属于采购部的话,就让cgfk(采购反馈),gys(供应商),cgsl(采购数量),dhfk(到货反馈),dhsl(倒货数量),dhrq(到货日期)这几个字段变成灰色.

qry_Cgbm的内容如下:

SELECT tblCode_yg.Id, tblCode_yg.bmid FROM tblCode_yg WHERE (((tblCode_yg.bmid)="采购部"));

我本来想照下列格式编写,但是如果我不在的话,或者采购部换了员工,新增了员工,我岂不是又要自己动手,我希望能够一步到位,让程序自动判断它是不是采购部员工

    If strUserID = "000001" Then    '如果是管理员，就显示全部
       Me.RecordSource = "SELECT qryCgsq.* FROM qryCgsq"
    Else    '如果不是管理员，就只显示操作员自已录入的
        Me.RecordSource = "SELECT tblCgsq.* FROM tblCgsq WHERE tblCgsq.czyid='" & strUserID & "'"
    End If