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

yzt88000

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

eric_chan_sms

期待教学文件上传[em02]

王维a780

挺不错

mfkjatflf

能上传一个样本吗？

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了

petrelai

怎么没人回应呢!

petrelai

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

baije

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

cxhgc

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

chengyi

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