syslogdatamodunit.~pas

此软件是一个 日志服务器

unit SysLogDatamodUnit;

interface

uses
  Windows,SysUtils, Classes, DB, ADODB,

  inifiles, Provider;

type
  TSysLog_datamod = class(TDataModule)
    SysLog_dataConn: TADOConnection;
    SysLog_adoq1: TADOQuery;
    SysLog_dsp1: TDataSetProvider;
    SysLog_adoq2: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
  private
    { Private declarations }
    cfg_server :string;
    cfg_database :string;
    cfg_username :string;
    cfg_pwd :string;
  public
    { Public declarations }
  end;

var
  SysLog_datamod: TSysLog_datamod;

implementation

{$R *.dfm}

procedure TSysLog_datamod.DataModuleCreate(Sender: TObject);
var
  cfgini :TINIFile;
begin
  cfgini := TIniFile.Create('.\cfg\server.ini');
  cfg_server := cfgini.ReadString('DataBaseCfg','cfg_server','127.0.0.1');
  cfg_database := cfgini.ReadString('DataBaseCfg','cfg_database','SysLog_info');
  cfg_username := cfgini.ReadString('DataBaseCfg','cfg_username','sa');
  cfg_pwd := cfgini.ReadString('DataBaseCfg','cfg_pwd','127.0.0.1');

  SysLog_dataconn.ConnectionString :=
      'Provider=SQLOLEDB.1;Persist Security Info=True;'
      + 'Data Source='+cfg_server+';'
      + 'Initial Catalog='+ cfg_database+';'
      + 'User ID='+ cfg_username +';'
      + 'Password='+ cfg_pwd +';'
  ;

  SysLog_dataconn.LoginPrompt := false ;
  SysLog_dataconn.Connected := true ;

end;

end.