syslogunit.~pas

来自「此软件是一个 日志服务器」· ~PAS 代码 · 共 77 行

unit syslogunit;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB,

  inifiles,SysLogDatamodUnit;

type TSysLog = class(Tobject)
    //一些可视化的公用变量
    private
      dbLink:TSysLog_datamod;
    protected
    public
      constructor create;
      destructor Destroy;override;
      function InsertRec(ip:string;host:string;Namepath:string;text:string):boolean;
      function QueryRec(query:string;var tDataset:TDataSet):boolean;
    end;


implementation

constructor TSysLog.create;
begin
  //日志对象的构造函数
  dblink := TSysLog_datamod.Create(nil);
  dblink.SysLog_dataConn.Connected := false ;
  dblink.SysLog_dataConn.Connected := true ;
end;

destructor TSysLog.Destroy;
begin
  dblink.SysLog_dataConn.Connected := false ;
  dblink.Free;
end;

function TSysLog.InsertRec(ip:string;host:string;Namepath:string;text:string):boolean;
var
  SqlCmd :String;
begin
  SqlCmd := '';
  SqlCmd := SqlCmd
          + 'Insert into SysLog (AccTime,HostIP,HostName,MegText) '
          + 'values ( getdate(),'''
                      + IP +''','''
                      + host + ''','''
                      + Namepath + ''','''
                      + text + ''')';
  //开始执行插入过程
  try
  if  dblink.SysLog_dataConn.Connected = false then
    dblink.SysLog_dataConn.Connected := true ;

  dblink.SysLog_adoq1.SQL.Clear;
  dblink.SysLog_adoq1.SQL.Add(SqlCmd);
  dblink.SysLog_adoq1.ExecSQL;

  except
    result := false;
    exit;
  end;

  result := false;
  exit;

end;

function TSysLog.QueryRec(query:string;var tDataset:TDataSet):boolean;
begin

  result := false ;
end;

end.