登录日志窗体求助

Question

本帖最后由 bcrun 于 2010-09-15 10:54:46 编辑

Answer 1

Sub BBB(sValue as string)
Dim Cnn As New ADODB.Connection
Dim Rst As New ADODB.Recordset
Dim Sq  As StringCnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
  "\数据库.mdb;Jet OLEDB:Database Password=" & 123Sq = "SELECT * FROM 记录用户登录退出时间 "
Rst.Open Sq, Cnn, adOpenStatic, adLockOptimistic, adCmdTextWith Rst
.AddNew
if sValue=1 then
    .Fields("进入系统时间") = Now()
elseif sValue=2 then
    .Fields("退出系统时间") = Now()
end if
.Fields("用户姓名") = Combo1.Text
.Update
End WithRst.Close
Cnn.Close
Set Rst = Nothing
Set Cnn = Nothing
End Sub

Answer 2

本帖最后由 bcrun 于 2010-09-15 10:55:41 编辑

  

Answer 3

首先
感谢网友关注可能本菜要求表达---不到位
导致网友的误解可菜的意思是：单击按钮 而 触发事件
如：单击 ---退出菜单
    或者单击 ---关闭---按钮（也就是：红色的X）触发代码
将-----
Windows 系统当前时间
写入到
已存在的
ACCESS表单数据中（表名称：记录用户登录退出时间）本菜
贴出不正确的代码
是为了
方便
网友修改时
复制需要的部份能否再指点
指点如：代码应该怎样写？？？？
    写好后
    将代码添加到如何？？？？谢谢！！！
    

Answer 4

可菜的意思是：单击按钮 而 触发事件
如：单击 ---退出菜单
  或者单击 ---关闭---按钮（也就是：红色的X）在按钮的Click事件里直接调用菜单的名字可以达到点菜单的功能

Answer 5

顶二楼
Private Sub MDIForm_Unload(Cancel As Integer)
  '你在这里将系统时间写到数据库中就行了  
End Sub点击退出按纽，只要在里面写上Unload Me就行了。

Answer 6

谢谢关注！！！
还是
本人
表述不到位Click事件
调出菜单
本菜已经搞懂！！！这样来表述：退出VB6时----将时间数据保存到ACCESS表单中！！！

Answer 7

Private Sub C1_Click()
   call BBB(2)
   unload me
End Sub

Answer 8

本帖最后由 bcrun 于 2010-09-15 11:05:03 编辑