?? syslogunit.pas
字號:
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,MsgText) '
+ 'values ( getdate(),'''
+ IP +''','''
+ host + ''','''
+ 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 := true ;
exit;
end;
function TSysLog.QueryRec(query:string;var tDataset:TDataSet):boolean;
begin
result := false ;
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -