module1.bas

这是我们同学做的一个商品销售系统毕业设计

Attribute VB_Name = "Module1"
Option Explicit

Public Db As Database       '  DAO对象
Public RS As Recordset      '纪录集
Public RSUP As Recordset    '同步更新用记录集
Public sql As String        'SQL语句字符串
Public ZJ As Boolean        '控件是否可用状态控制变量
Public Denglu_name As String   '登陆用户名
Public Denglu_time As Date      '登陆时间
Public Denglu_exit As Date      '退出时间
Type User
    user_name As String
    user_pwd As String
End Type
'在日志文件中记录登陆时间和用户名
Public Sub RiZhi()
    Dim fos As New FileSystemObject
    Dim ts As TextStream
    Set ts = fos.OpenTextFile(App.Path + "\back\rizhi.txt", ForAppending, True)
    ts.WriteLine ("用户" & Denglu_name & "登陆时间" & Denglu_time)
End Sub

'在日志文件中记录退出时间和用户名
Public Sub RiZhi1()
    Dim fos As New FileSystemObject
    Dim ts As TextStream
    Set ts = fos.OpenTextFile(App.Path + "\back\rizhi.txt", ForAppending, True)
    ts.WriteLine ("用户" & Denglu_name & "退出时间" & Denglu_exit)
End Sub