Office中国论坛/Access中国论坛

标题: 登入后输入数据的同时如何自动记录登入者的身份 [打印本页]

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

作者: 懒UFO 时间: 2003-7-3 06:02
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 时间: 2003-7-20 01:22
不知是否方便把做好的文件上传

作者: chengyi 时间: 2003-9-8 16:33
登入后用户名存在一个社么变量中？登陆窗口一关闭变量中的数据就没了。

作者: cxhgc 时间: 2003-11-16 02:34
强烈建议做一个样本传上来,给我们这些菜鸟学习用!!!

作者: baije 时间: 2003-11-16 04:16
2种:设置一个模块,用public 声明一个公用函数tblusetname.
在登陆窗体中设此tblusername=登陆名.
在数据处理时调用此函数.

作者: petrelai 时间: 2003-12-22 23:56
说了这么多,可不可传个例子上来!

作者: petrelai 时间: 2003-12-23 18:20
怎么没人回应呢!

作者: jsan 时间: 2004-3-4 01:19
设置模块：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 时间: 2004-9-5 01:42
能上传一个样本吗？

作者: 王维a780 时间: 2006-3-31 02:03
挺不错

作者: eric_chan_sms 时间: 2006-4-1 22:37
期待教学文件上传[em02]

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)