umyinfo.pas

关于利用DELPHI来进行企业级方案解决的著作的附书源码

unit uMyInfo;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, HTTPProd,  DBTables, DB,
  CompProd, PagItems, SiteProd, WebComp, MidItems, WebForm, WebAdapt,ADODB, DBAdapt;

type
  TMyInfo = class(TWebPageModule)
    appBasicInfo: TAdapterPageProducer;
    LayoutGroup1: TLayoutGroup;
    adfBInfo: TAdapterForm;
    AdapterFieldGroup1: TAdapterFieldGroup;
    AdpDetail: TAdapter;
    AdapterImageField1: TAdapterImageField;
    adfPhoto: TAdapterForm;
    AdapterFieldGroup3: TAdapterFieldGroup;
    FldAdapterImageField12: TAdapterDisplayField;
    adfEdu: TAdapterForm;
    AdapterGrid1: TAdapterGrid;
    ColEDUDEGREE: TAdapterDisplayColumn;
    ColDEGREE: TAdapterDisplayColumn;
    ColEDUSYSTEM: TAdapterDisplayColumn;
    ColMAJOR: TAdapterDisplayColumn;
    ColGRDTIME: TAdapterDisplayColumn;
    ColGRDSCHOOL: TAdapterDisplayColumn;
    adfACHI: TAdapterForm;
    adfRES: TAdapterForm;
    AdapterForm6: TAdapterForm;
    AdapterGrid2: TAdapterGrid;
    ColACHIEVEMENT: TAdapterDisplayColumn;
    ColTIMEBEGIN: TAdapterDisplayColumn;
    ColTIMEEND: TAdapterDisplayColumn;
    ColDETAIL: TAdapterDisplayColumn;
    AdapterGrid3: TAdapterGrid;
    ColTIMEBEGIN2: TAdapterDisplayColumn;
    ColTIMEEND2: TAdapterDisplayColumn;
    ColUNIT: TAdapterDisplayColumn;
    ColDEP: TAdapterDisplayColumn;
    ColJOB: TAdapterDisplayColumn;
    ColRANK: TAdapterDisplayColumn;
    ColPOST: TAdapterDisplayColumn;
    ColTYPEOFWORK: TAdapterDisplayColumn;
    adfUpLoad: TAdapterFileField;
    adaUpload: TAdapterAction;
    FldEMPID: TAdapterDisplayField;
    FldNAME: TAdapterDisplayField;
    FldOLDNAME: TAdapterDisplayField;
    FldSEX: TAdapterDisplayField;
    FldBIRTHDAY: TAdapterDisplayField;
    FldIDNO: TAdapterDisplayField;
    FldNATIVEPLACE: TAdapterDisplayField;
    FldAGEWORK: TAdapterDisplayField;
    FldTIMEJOIN: TAdapterDisplayField;
    FldHOMEADDS: TAdapterDisplayField;
    FldTEL: TAdapterDisplayField;
    FldDEP: TAdapterDisplayField;
    FldMARRIAGE: TAdapterDisplayField;
    FldSTATUS: TAdapterDisplayField;
    FldNATION: TAdapterDisplayField;
    FldTECHPOST: TAdapterDisplayField;
    FldEDUCATION: TAdapterDisplayField;
    FldADMJOB: TAdapterDisplayField;
    FldTYPEOFEMP: TAdapterDisplayField;
    FldHEALTH: TAdapterDisplayField;
    FldRANK: TAdapterDisplayField;
    FldSTATEOFEMP: TAdapterDisplayField;
    procedure AdapterImageField1GetParams(Sender: TObject;
      Params: TStrings);
    procedure AdapterImageField1GetImage(Sender: TObject; Params: TStrings;
      var MimeType: String; var Image: TStream; var Owned: Boolean);
    procedure appBasicInfoBeforeGetContent(Sender: TObject);
  private
    FPhotoFile: string;
    FEmpID:String;
  public
    { Public declarations }
  end;

  function MyInfo: TMyInfo;

implementation

{$R *.dfm}  {*.html}

uses WebReq, WebCntxt, WebFact, Variants,wdmDB, home;

function MyInfo: TMyInfo;
begin
  Result := TMyInfo(WebContext.FindModuleClass(TMyInfo));
end;

procedure TMyInfo.AdapterImageField1GetParams(Sender: TObject;
  Params: TStrings);
var
  BS: TADOBlobStream;
begin
  FPhotoFile:=ExtractFilePath(GetModuleName(HInstance))+ 'images\1.jpg';
  try
    WDM.adqPhoto.Close;
    WDM.adqPhoto.Parameters[0].Value:=FEmpID;
    WDM.adqPhoto.Open;
    if  WDM.adqPhoto.RecordCount>0 then
      TBlobField(WDM.adqPhoto.FieldByName('photo')).SaveToFile(FPhotoFile)
    else
    begin
      FPhotoFile:=ExtractFilePath(GetModuleName(HInstance))
        + 'images\0.jpg' ;
      with wdm.adqPhoto do
      begin
        if not (State in [dsInsert, dsEdit]) then Insert;
        FieldByName('EmpId').asstring:=FEmpID;
        TBlobField(FieldByName('photo')).LoadFromFile(FPhotoFile);
        post;
        close;
      end;
    end;
  except
    raise EAdapterException.Create('出错。')
  end;
  Params.Add('photoname='+FPhotoFile);
end;

procedure TMyInfo.AdapterImageField1GetImage(Sender: TObject;
  Params: TStrings; var MimeType: String; var Image: TStream;
  var Owned: Boolean);
begin
  FPhotoFile:=Params.Values['photoname'];
  try
    Image:=TFileStream.Create(FPhotoFile,fmOpenRead);
  except
    raise EAdapterException.Create('调用图像出错。');
  end;
end;

procedure TMyInfo.appBasicInfoBeforeGetContent(Sender: TObject);
  var LocateParams:TLocateParams;
begin
  FEmpID:=hrhome.Session.Values['Empid'];
  LocateParams:=wdm.dsaBasicInfo.LocateParamsList.Add;
  LocateParams.AddParam('empid',FEmpID);
  LocateParams.AdapterName:=wdm.dsaBasicInfo.Name;
  wdm.dsaBasicInfo.Locate;
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TMyInfo, TWebPageInfo.Create([wpPublished, wpLoginRequired], '.html', '', '我的档案'), crOnDemand, caCache));
end.