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