datamoduleunit.pas

人力资源的信息。其他人不需帐号就可自由下载此源码

unit DatamoduleUnit;

interface

uses
  {$IFDEF Linux}QForms, {$ELSE}Forms, {$ENDIF}
  SysUtils, Classes, DB, ADODB, BetterADODataSet;

type
  TdmHR = class(TDataModule)
    badoCorp: TBetterADODataSet;
    badoCorpNo: TIntegerField;
    badoCorpChnInfo: TMemoField;
    badoCorpChnName: TWideStringField;
    badoCorpComments: TMemoField;
    badoCorpCorpID: TAutoIncField;
    badoCorpEngInfo: TMemoField;
    badoCorpEngName: TWideStringField;
    badoCorpFax: TWideStringField;
    badoCorpPhone: TWideStringField;
    adocHR: TADOConnection;
    dsCorp: TDataSource;
    adocEdit: TADOCommand;
    badoHuman: TBetterADODataSet;
    dsHuman: TDataSource;
    badoSex: TBetterADODataSet;
    badoCountry: TBetterADODataSet;
    badoEduLevel: TBetterADODataSet;
    badoEngLevel: TBetterADODataSet;
    badoTech: TBetterADODataSet;
    badoTechLevel: TBetterADODataSet;
    badoHumanTech: TBetterADODataSet;
    badoOperator: TBetterADODataSet;
    badoQuery: TBetterADODataSet;
  private
  public
  end;

// Procs
  function dmHR: TdmHR;

implementation
{$R *.dfm}

uses
  IWInit,
  ServerController{, DatamoduleUnit};

// Since we are threaded we cannot use global variables to store form / datamodule references
// so we store them in WebApplication.Data and we could reference that each time, but by creating
// a function like this our other code looks "normal" almost as if its referencing a global.
// This function is not necessary but it makes the code in the main form which references this
// datamodule a lot neater.
// Without this function ever time we would reference this datamodule we would use:
//   TDataModule1(WebApplication.Data).Datamodule.<method / component>
// By creating this procedure it becomes:
//   TDataModule1.<method / component>
// Which is just like normal Delphi code.
function dmHR: TdmHR;
begin
  Result := TUserSession(RWebApplication.Data).DataModule1;
end;

end.