datamoduleunit.pas

用delphi+intraweb写的简单报表系统（activeform使用技术）

unit DataModuleUnit;

interface

uses
{$IFDEF Linux}QForms, {$ELSE}Forms, {$ENDIF}IWInit, FateConsts, IniFiles,
  IWApplication, SysUtils, Classes, ADODB, DB;

type
  TDYDM = class(TDataModule)
    DYConn: TADOConnection;
    aqLogin: TADOQuery;
    aqShare: TADOQuery;
    aqExec: TADOQuery;
    aqTemp: TADOQuery;
    aqTmp: TADOQuery;
    procedure DataModuleCreate(Sender: TObject);
    procedure DataModuleDestroy(Sender: TObject);
  private
  public
    function ConnectCityDB: Boolean;
    function ReadDbLinks: TDB;
    function ConnectDBStr: string;
    //检查会员实名与输入的姓和名是否一致
    function CheckClientName(ptruename, pfirstname, plastname: string): Boolean;
  end;


function FDM: TDYDM;
function AccessDataString: string;

implementation

{$R *.dfm}

uses adofuncs, GlobalUnit, UserSessionUnit, GlobalVar;
{ TFateDM }

function FDM: TDYDM;
begin
  Result := TIWUserSession(WebApplication.Data).myDM;
end;

procedure TDYDM.DataModuleCreate(Sender: TObject);
var
  S: string;
begin
  Logs := TStringList.Create;

  AppDir := WebApplication.ApplicationPath;
  AddLog(Logs, AppDir, AppDir);
end;

procedure TDYDM.DataModuleDestroy(Sender: TObject);
begin
  Logs.Free;
end;

function TDYDM.CheckClientName(ptruename, pfirstname, plastname: string): Boolean;
var
  S1, S2: string;
begin
  S1 := trim(ptruename);
  S2 := trim(pfirstname) + trim(plastname);

  Result := (S1 = S2);
end;

function TDYDM.ConnectCityDB: Boolean;
begin
  Result := False;
  LDB := ReadDbLinks;
  connstr := GetConnStr(LDB.name, LDB.Server, LDB.Pass, LDB.User);

  if ConnectADO(DYConn, connstr) <> 1 then
  begin
    WebApplication.Terminate('数据连接参数有错误，请联系管理员解决...');
    exit;
  end;
  Result := True;
end;

FUNCTION AccessDataString:string;
CONST
  sConnStr='Provider=Microsoft.Jet.OLEDB.4.0; Data Source=%s';
BEGIN
  Result:=Format(sConnStr, [AppDir+'Data\system.mdb']);
END;

function TDYDM.ReadDbLinks: TDB;
var FINI: TIniFile;
begin
  fini:=TIniFile.Create(AppDir+'dblink.ini');
  try
    Result.Server:=FINI.ReadString('db', 'server', '');
    Result.User:=FINI.ReadString('db', 'user', 'sa');
    Result.Pass:=FINI.ReadString('db', 'pass', '');
    Result.name:='master';
  finally
    FINI.Free;
  end;
end;

function TDYDM.ConnectDBStr: string;
var ADB: TDB;
begin
  adb:=ReadDbLinks;
  Result:=GetConnStr(adb.name, adb.Server, ADB.Pass, ADB.User)
end;

end.