| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 778 人关注过本帖
标题:VB6登录日志窗体求助
只看楼主 加入收藏
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
结帖率:80%
收藏
已结贴  问题点数:10 回复次数:2 
VB6登录日志窗体求助
致:走过路过的坛内网友

本菜
前不久下载了一个VB6来学习

在学习过程中
建立了:一个工程(工程1)

在:工程1 中
包含:一个窗体(Form3)--------------用户登录窗体  
包含:一个MDI窗体(MDIForm1)--------菜单栏MDI专用窗体(非专业表达)

在数据库ACCESS中-------(ACCESS数据库名称:数据库)
用了一张表单(ACCESS--表名称:记录用户登录退出时间)
来记录
用户登录和退出时间
(备注:登录时间,本菜已经做好)
就差-------退出时间不知道该如何做

在:菜单栏MDI专用窗体(MDIForm1)中
建了了一个:退出菜单,代码如下
Private Sub C1_Click()
 End
End Sub

现在
本菜的求助结果是:
1、点击菜单:退出   
   并将
   Windows 系统当前时间
   写入到ACCESS表单中

2、点击关闭窗口(也就是:红色的X)
   也能
   
   Windows 系统当前时间
   写入到ACCESS表单中

为减轻热心网友的工作量
附上
将时间数据写入表单的部份代码
以便
热心网友
在此基础上修改
敬请各位网友指点一二
谢谢!!!

Sub BBB()
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq As String

Cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
             "\数据库.mdb;Jet OLEDB:Database Password=" & 123

Sq = "SELECT * FROM 记录用户登录退出时间 "
Rst.Open Sq, Cnn, adOpenKeyset, adLockPessimistic
With Rst
.AddNew
.Fields("进入系统时间") = Now()
.Fields("退出系统时间") = Now()
.Fields("用户姓名") = Combo1.Text
.Update
End With

Rst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
End Sub
搜索更多相关主题的帖子: 日志 窗体 登录 
2010-09-14 12:18
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:10 
在这个响应过程中写 退出 时间.
另外,如果你系统提供 用户重登陆,或退出 功能的话,也需要在相应的地方写 记录退出时间.

Private Sub MDIForm_Unload(Cancel As Integer)
'当 程序退出,并且没其它任何窗口阻止时,本响应过程是最后一个响应过程了.


End Sub

-------------------------
另外还有一个 响应过程
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
这个响应过程是当程序退出,第一个响应过程.

授人于鱼,不如授人于渔
早已停用QQ了
2010-09-14 12:34
mmmyyylll321
Rank: 1
等 级:新手上路
帖 子:28
专家分:0
注 册:2010-9-5
收藏
得分:0 
以下是引用风吹过b在2010-9-14 12:34:32的发言:

在这个响应过程中写 退出 时间.
另外,如果你系统提供 用户重登陆,或退出 功能的话,也需要在相应的地方写 记录退出时间.

Private Sub MDIForm_Unload(Cancel As Integer)
'当 程序退出,并且没其它任何窗口阻止时,本响应过程是最后一个响应过程了.


End Sub

-------------------------
另外还有一个 响应过程
Private Sub MDIForm_QueryUnload(Cancel As Integer, UnloadMode As Integer)
这个响应过程是当程序退出,第一个响应过程.
多谢指教!!!
2010-09-14 14:41
快速回复:VB6登录日志窗体求助
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015786 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved