登入后输入数据的同时如何自动记录登入者的身份

yzt88000

请教：1）利用安全机制设立用户和密码，登入后输入数据的同时如何自动记录登入者的身份。也就是以后可以知道哪一条数据是谁输入的。
        2）利用窗体设立用户和密码，登入后输入数据的同时如何自动记录登入者的身份。也就是以后可以知道哪一条数据是谁输入的。

懒UFO

Private Sub txtName_LostFocus()

'判断有没有这个用户
’****************
If txtName <> "" Or txtName <> Null Then
    strNaID = txtName
    'strtxtName = txtName
    varNA = DLookup("[NameID]", "NAPAZ", "[NameID]=" & "'" & strNaID & "'")
    If varNA <> "" Then
       bletxtName = False
       strTxtNameID = varNA
      
    Else
        MsgBox "没有这个用户！或者还没有得到系统管理员的确认！请重新输入您的用户名，或者向系统管理员联系。", 0, "提示信息:"
        Me.txtName.SetFocus
        txtName.Text = ""
        'strtxtName = ""
        bletxtName = True
        strTxtNameID = ""
        strTxtPass = ""
        
    End If
Else
    MsgBox "没有这个用户！或者还没有得到系统管理员的确认！请重新输入您的用户名，或者向系统管理员联系。", 0, "提示信息:"
    'strtxtName = ""
    bletxtName = True
    strTxtNameID = ""
    strTxtPass = ""
    Me.SetFocus
End If
End Sub
以上是利用窗体设立用户名称（密码代码相同）。当然不一定用判断用户名。
然后在Private Sub Form_BeforeUpdate(Cancel As Integer)与END SUB 之间键入
me.name=strtxtnameid
"name"是你表中的记录修改数据字段的名称。

[此贴子已经被作者于2003-7-2 22:06:00编辑过]

sea.er

不知是否方便把做好的文件上传

chengyi

登入后用户名存在一个社么变量中？登陆窗口一关闭变量中的数据就没了。

cxhgc

强烈建议做一个样本传上来,给我们这些菜鸟学习用!!!

baije

2种:设置一个模块,用public 声明一个公用函数tblusetname.
在登陆窗体中设此tblusername=登陆名.
在数据处理时调用此函数.

petrelai

说了这么多,可不可传个例子上来!

petrelai

怎么没人回应呢!

jsan

设置模块：switchboard  内变量  
Public YHM As String
Public YHN As String

在登陆窗体内登陆按钮设置如下：
Me.Refresh
    If IsNull(Me.用户名) Then
        Beep
        MsgBox "请选择用户名，用户名不能为空。", vbCritical, "RFMS SOFTWARE - 登录"
        Me.用户名.SetFocus
        Exit Sub
    End If
    YHM = Me.用户名
    YHN = Me.密码
    If Me.密码 = DLookup("[密码]", "密码表", "[用户名]='" & YHM & "'") Then
      
             DoCmd.Close acForm, "登录", acSaveNo
             Forms!Switchboard.文本100 = YHM
             Forms!Switchboard.文本101 = YHN
             Forms!Switchboard.Visible = True
               DoCmd.Maximize
          Else
        MsgBox "你输入了错误的名称或者密码，请重新输入。", vbInformation + vbOKOnly, "RFMS SOFTWARE - 登录"
        Me.密码 = ""
        Me.密码.SetFocus


注意Forms!Switchboard.文本100 = YHM语句表示把用户名赋值到控制面板switchboard的
“文本100”的文本框内

以后就可以在所有窗体上引用YHM了

mfkjatflf

能上传一个样本吗？