最简单的登录&日志例子[下载]

Trynew · 发表于 2002-11-22 23:59:00

最简单的登录&日志例子：
文件下载

要点：把下拉列表的第二列列宽设为0。

sdlhlsd · 发表于 2002-11-23 16:50:00

有创意

stefanie · 发表于 2002-11-23 22:57:00

谢谢！
Thank you!
Merci.
ありがとうございます。

哈瘌子 · 发表于 2002-11-24 06:16:00

学习

china-girl · 发表于 2002-11-25 00:43:00

“要点：把下拉列表的第二列列宽设为0。”
什么意思？请教！

Trynew · 发表于 2002-11-25 05:50:00

你不设为零，人家不就看到密码啦？！

china-girl · 发表于 2002-11-25 20:16:00

“下拉列表”在哪里？
不好意思，我是新手！

china-girl · 发表于 2002-11-25 20:22:00

是不是只要密码与用户名一致，不一定非得是123或ABC，就可以运行，？

china-girl · 发表于 2002-11-25 20:29:00

Option Compare Database

Private Sub Form_Unload(Cancel As Integer)
If Me.Visible = False Then
      Me.UsrName = Me.组合0
      Me.LogType = "Login"
      Me.Time = Now()
End If
End Sub

Private Sub 命令4_Click()
If Me.文本2 <> Me.组合0.Column(1) Then
      MsgBox "密码错误！", vbCritical
Else
      DoCmd.GoToRecord , , acNewRec
      Me.UsrName = Me.组合0
      Me.LogType = "Login"
      Me.Time = Now()
      DoCmd.GoToRecord , , acNewRec
      Me.Visible = False
      DoCmd.OpenForm "Main"
End If
End Sub

Private Sub 命令5_Click()
DoCmd.Close
End Sub

不好意思！请问：“Form_unload”是什么意思？好象没有unload这个窗口？
我是菜菜鸟

china-girl · 发表于 2002-11-25 20:52:00

Cancel As Integer
是什么意思？

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训群2 (792054000)
Access经典源码培训群 (77130759)
Access源码技巧群 (138920637)
access vba (307776555)

主题相关群

地区相关群[您还没设置居住地]

[模块/函数] 最简单的登录&日志例子[下载]

群介绍
主题无相 (随机显示版	同地区群块其他地区)