module1.bas

来自「工会管理系统源代码」· BAS 代码 · 共 34 行

Attribute VB_Name = "Module1"
Public UserName As String '记住登录用户
Public Identify As Integer '记录用户类型
'该函数用来将操作内容写入日志表中
Public Function LogPlug(ByVal txtObject As String, txtAction As String)
    Dim Sc As String
    Sc = "driver={Microsoft Access Driver (*.mdb)};dbq=" & App.Path & "\tradeunion.mdb"
    Set cn = New ADODB.Connection
    cn.Open Sc
        Dim OneQuerySql As String
        OneQuerySql = "select* from 日志表"
        Dim AdoRsTradeMem As New ADODB.Recordset
        If AdoRsTradeMem.State = adStateOpen Then
            AdoRsTradeMem.Close
        End If
    AdoRsTradeMem.Open OneQuerySql, cn, adOpenKeyset, adLockOptimistic
    AdoRsTradeMem.AddNew
    AdoRsTradeMem.Fields(0) = Format(Now, "YY-MM-DD hh:mm:ss")
    AdoRsTradeMem.Fields(1) = UserName
    AdoRsTradeMem.Fields(2) = txtObject
    AdoRsTradeMem.Fields(3) = txtAction
    AdoRsTradeMem.Update
    AdoRsTradeMem.Close
End Function

'该函数用来检查文本框输入的内容是否为空，后面的程序经常要使用所以定义在此
Public Function Testtxt(txt As String) As Boolean
    If Trim(txt) = "" Then
        Testtxt = False
    Else
        Testtxt = True
    End If
End Function