syslog.vb

电子合同管理系统C#

Imports System.Data.SqlClient

Public Class SysLog
    Public Sub New()
       
    End Sub

    '=============================================================
    ' 函 数 名：AddLog
    ' 功能描述：添加合同日志
    ' 输入参数：Member：MemberInfo对象，存放用户信息
    '           Description：操作描述
    '           IPAddress：操作的IP地址
    '           State：操作状态
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Public Sub AddLog(ByVal Member As MemberInfo, ByVal Description As String, ByVal IPAddress As String, ByVal State As String)
        Dim sqlstr As String = "insert into ContractLog (MemberId,MemberName,DepartmentId,LogTime,Description,IPAddress,State) "
        sqlstr += " values ('" + Member.MemberId + "','" + Member.MemberName + "'," + Member.DepartmentId.ToString + ",'" + Now.ToString + "','" + Description + "','" + IPAddress + "','" + State + "')"
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
    End Sub
    '=============================================================
    ' 函 数 名：DelectLog
    ' 功能描述：删除单条日志
    ' 输入参数：LogId：日志ID
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub DelectLog(ByVal LogId As Integer)
        Dim sqlstr As String = "delete from ContractLog where ContractLogId= " + LogId.ToString
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
    End Sub
    '=============================================================
    ' 函 数 名：DelectLogs
    ' 功能描述：删除所有日志
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Public Sub DelectLogs()
        Dim sqlstr As String = "delete from ContractLog "
        Dim obj As DBController = New DBController()
        obj.ExecNonSql(sqlstr)
        obj.Close()
    End Sub

End Class