wdmdb.pas

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

unit wdmDB;

interface

uses
  Windows, Messages, SysUtils, Classes, HTTPApp, WebModu, DBTables, DB,
  WebAdapt, WebComp, DBAdapt, Provider, DBClient, ADODB;

type
  TWDM = class(TWebDataModule)
    dsaBasicInfo: TDataSetAdapter;
    svlNation: TStringsValuesList;
    svlSex: TStringsValuesList;
    dsaUserGrp: TDataSetAdapter;
    dsaEndUser: TDataSetAdapter;
    dvlUserGrp: TDataSetValuesList;
    AdaptEMPID2: TDataSetAdapterField;
    AdaptPASSWORD: TDataSetAdapterField;
    AdaptGROUPID: TDataSetAdapterField;
    dvlUserID: TDataSetValuesList;
    svlEducation: TStringsValuesList;
    ADOConnection1: TADOConnection;
    adtBasicInfo: TADOTable;
    adtUserGrp: TADOTable;
    adtEndUser: TADOTable;
    AdaptEMPID: TDataSetAdapterField;
    AdaptNAME: TDataSetAdapterField;
    AdaptOLDNAME: TDataSetAdapterField;
    AdaptSEX: TDataSetAdapterField;
    AdaptBIRTHDAY: TDataSetAdapterField;
    AdaptIDNO: TDataSetAdapterField;
    AdaptNATIVEPLACE: TDataSetAdapterField;
    AdaptAGEWORK: TDataSetAdapterField;
    AdaptTIMEJOIN: TDataSetAdapterField;
    AdaptHOMEADDS: TDataSetAdapterField;
    AdaptTEL: TDataSetAdapterField;
    AdaptDEP: TDataSetAdapterField;
    AdaptMARRIAGE: TDataSetAdapterField;
    AdaptSTATUS: TDataSetAdapterField;
    AdaptNATION: TDataSetAdapterField;
    AdaptTECHPOST: TDataSetAdapterField;
    AdaptEDUCATION: TDataSetAdapterField;
    AdaptADMJOB: TDataSetAdapterField;
    AdaptTYPEOFEMP: TDataSetAdapterField;
    AdaptHEALTH: TDataSetAdapterField;
    AdaptRANK: TDataSetAdapterField;
    AdaptTAGMANAGE: TDataSetAdapterField;
    AdaptSTATEOFEMP: TDataSetAdapterField;
    adqTmp: TADOQuery;
    adqBasicInfo: TADOQuery;
    svTypeOfEmp: TStringsValuesList;
    svStatus: TStringsValuesList;
    svStateofEmp: TStringsValuesList;
    svTechPost: TStringsValuesList;
    adqPhoto: TADOQuery;
    dsaPhoto: TDataSetAdapter;
    AdaptEMPID3: TDataSetAdapterField;
    AdaptPHOTO: TDataSetAdapterField;
    svMarriage: TStringsValuesList;
    adtBasicInfoEMPID: TStringField;
    adtBasicInfoNAME: TStringField;
    adtBasicInfoOLDNAME: TStringField;
    adtBasicInfoSEX: TStringField;
    adtBasicInfoBIRTHDAY: TDateTimeField;
    adtBasicInfoIDNO: TStringField;
    adtBasicInfoNATIVEPLACE: TStringField;
    adtBasicInfoAGEWORK: TStringField;
    adtBasicInfoTIMEJOIN: TDateTimeField;
    adtBasicInfoHOMEADDS: TStringField;
    adtBasicInfoTEL: TStringField;
    adtBasicInfoDEP: TStringField;
    adtBasicInfoMARRIAGE: TStringField;
    adtBasicInfoSTATUS: TStringField;
    adtBasicInfoNATION: TStringField;
    adtBasicInfoTECHPOST: TStringField;
    adtBasicInfoEDUCATION: TStringField;
    adtBasicInfoADMJOB: TStringField;
    adtBasicInfoTYPEOFEMP: TStringField;
    adtBasicInfoHEALTH: TStringField;
    adtBasicInfoRANK: TStringField;
    adtBasicInfoTAGMANAGE: TStringField;
    adtBasicInfoSTATEOFEMP: TStringField;
    adtEdu: TADOTable;
    dsBI: TDataSource;
    dsaEdu: TDataSetAdapter;
    AdaptEMPID4: TDataSetAdapterField;
    AdaptEDUDEGREE: TDataSetAdapterField;
    AdaptDEGREE: TDataSetAdapterField;
    AdaptEDUSYSTEM: TDataSetAdapterField;
    AdaptMAJOR: TDataSetAdapterField;
    AdaptGRDTIME: TDataSetAdapterField;
    AdaptGRDSCHOOL: TDataSetAdapterField;
    adtACHI: TADOTable;
    ddsaACHI: TDataSetAdapter;
    dsaRES: TDataSetAdapter;
    dsaCON: TDataSetAdapter;
    adtCON: TADOTable;
    adtRES: TADOTable;
    AdaptACHIEVEMENT: TDataSetAdapterField;
    AdaptTIMEBEGIN: TDataSetAdapterField;
    AdaptTIMEEND: TDataSetAdapterField;
    AdaptDETAIL: TDataSetAdapterField;
    AdaptEMPID5: TDataSetAdapterField;
    AdaptTIMEBEGIN2: TDataSetAdapterField;
    AdaptTIMEEND2: TDataSetAdapterField;
    AdaptUNIT: TDataSetAdapterField;
    AdaptDEP2: TDataSetAdapterField;
    AdaptJOB: TDataSetAdapterField;
    AdaptRANK2: TDataSetAdapterField;
    AdaptPOST: TDataSetAdapterField;
    AdaptTYPEOFWORK: TDataSetAdapterField;
    AdaptEMPID6: TDataSetAdapterField;
    AdaptID: TDataSetAdapterField;
    AdaptTERM: TDataSetAdapterField;
    AdaptTIMEBEGIN3: TDataSetAdapterField;
    AdaptSIGNTIME: TDataSetAdapterField;
    AdaptVERIFIEDDEP: TDataSetAdapterField;
    AdaptVERIFIEDTIME: TDataSetAdapterField;
    AdaptTIMEEND3: TDataSetAdapterField;
    AdaptENDCAUSE: TDataSetAdapterField;
    AdaptENDCONFIRMUNIT: TDataSetAdapterField;
    AdaptENDCONFIRMTIME: TDataSetAdapterField;
    AdaptEMPID7: TDataSetAdapterField;
    adtBBS: TADOTable;
    adtBBSRPL: TADOTable;
    dsaBBS: TDataSetAdapter;
    AdaptBBSID: TDataSetAdapterField;
    AdaptpubTime: TDataSetAdapterField;
    AdaptName2: TDataSetAdapterField;
    AdaptTitle: TDataSetAdapterField;
    AdaptContent: TDataSetAdapterMemoField;
    Adaptabout: TDataSetAdapterField;
    dsaBBSRPL: TDataSetAdapter;
    AdaptBBSID2: TDataSetAdapterField;
    AdaptpubTime2: TDataSetAdapterField;
    AdaptName3: TDataSetAdapterField;
    AdaptContent2: TDataSetAdapterMemoField;
    dsBBS: TDataSource;
    AdaptRPLCount: TDataSetAdapterField;
    Adaptid2: TDataSetAdapterField;
    Adaptid3: TDataSetAdapterField;
    Adaptid4: TDataSetAdapterField;
    Adaptid5: TDataSetAdapterField;
    adtBasicInfoid: TLargeintField;
    Adaptid6: TDataSetAdapterField;
    adtDep: TADOTable;
    dsaDep: TDataSetAdapter;
    dvlDep: TDataSetValuesList;
    AdaptDEPID: TDataSetAdapterField;
    AdaptDEPNAME: TDataSetAdapterField;
    AdaptDEPLEADER: TDataSetAdapterField;
    AdaptDEPTEL: TDataSetAdapterField;
    AdaptDEPNOTE: TDataSetAdapterField;
    AdaptGROUPID2: TDataSetAdapterField;
    AdaptGROUPTYPE: TDataSetAdapterField;
    AdaptNOTE: TDataSetAdapterField;
    svlBBS: TStringsValuesList;
    dsaBasicInfo2: TDataSetAdapter;
    DataSetAdapterField1: TDataSetAdapterField;
    DataSetAdapterField2: TDataSetAdapterField;
    DataSetAdapterField3: TDataSetAdapterField;
    DataSetAdapterField4: TDataSetAdapterField;
    DataSetAdapterField5: TDataSetAdapterField;
    DataSetAdapterField6: TDataSetAdapterField;
    DataSetAdapterField7: TDataSetAdapterField;
    DataSetAdapterField8: TDataSetAdapterField;
    DataSetAdapterField9: TDataSetAdapterField;
    DataSetAdapterField10: TDataSetAdapterField;
    DataSetAdapterField11: TDataSetAdapterField;
    DataSetAdapterField12: TDataSetAdapterField;
    DataSetAdapterField13: TDataSetAdapterField;
    DataSetAdapterField14: TDataSetAdapterField;
    DataSetAdapterField15: TDataSetAdapterField;
    DataSetAdapterField16: TDataSetAdapterField;
    DataSetAdapterField17: TDataSetAdapterField;
    DataSetAdapterField18: TDataSetAdapterField;
    DataSetAdapterField19: TDataSetAdapterField;
    DataSetAdapterField20: TDataSetAdapterField;
    DataSetAdapterField21: TDataSetAdapterField;
    DataSetAdapterField22: TDataSetAdapterField;
    DataSetAdapterField23: TDataSetAdapterField;
    DataSetAdapterField24: TDataSetAdapterField;
    procedure AdaptTitleUpdateValue(Sender: TObject; Field: TField;
      Value: Variant);
    procedure AdaptContent2UpdateValue(Sender: TObject; Field: TField;
      Value: Variant);
  private
  
  public
  end;

  function WDM: TWDM;

implementation

{$R *.dfm} 

uses WebReq, WebCntxt, WebFact, Variants, home;

function WDM: TWDM;
begin
  Result := TWDM(WebContext.FindModuleClass(TWDM));
end;

procedure TWDM.AdaptTitleUpdateValue(Sender: TObject; Field: TField;
  Value: Variant);
begin
  if  wdm.dsaBBS.Mode in [amInsert] then
  begin
    wdm.dsaBBS.DataSet.FieldByName(Field.FieldName).AsString:=Value;
    wdm.dsaBBS.DataSet.FieldByName('pubtime').AsDateTime:=now;
    wdm.dsaBBS.DataSet.FieldByName('name').asstring:=
    hrhome.Session.Values['Name'];
  end;
end;

procedure TWDM.AdaptContent2UpdateValue(Sender: TObject; Field: TField;
  Value: Variant);
begin
  wdm.dsaBBSRPL.DataSet.FieldByName(Field.FieldName).AsString:=Value;
  wdm.dsaBBSRPL.DataSet.FieldByName('pubtime').AsDateTime:=now;
  wdm.dsaBBSRPL.DataSet.FieldByName('name').asstring:=
      hrhome.Session.Values['Name'];
  wdm.dsaBBSRPL.DataSet.FieldByName('BBSID').AsInteger:=
      wdm.dsaBBS.DataSet.FieldByName('BBSID').AsInteger;
  if  not (wdm.dsaBBS.Mode in [amEdit]) then wdm.dsaBBS.DataSet.Edit;
  wdm.dsaBBS.DataSet.FieldByName('rplCount').AsInteger:=
      wdm.dsaBBS.DataSet.FieldByName('rplCount').AsInteger+1;
  wdm.dsaBBS.DataSet.Post;
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebDataModuleFactory.Create(TWDM, crOnDemand, caCache));

end.