uqrypageb2.pas

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

unit uQryPageB2;

interface

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

type
  TQryPageB2 = class(TWebPageModule)
    AdapterPageProducer: TAdapterPageProducer;
    AdapterForm1: TAdapterForm;
    LayoutGroup1: TLayoutGroup;
    AdapterGrid1: TAdapterGrid;
    ColEMPID: TAdapterDisplayColumn;
    ColNAME: TAdapterDisplayColumn;
    ColSEX: TAdapterDisplayColumn;
    ColBIRTHDAY: TAdapterDisplayColumn;
    ColTIMEJOIN: TAdapterDisplayColumn;
    ColTEL: TAdapterDisplayColumn;
    ColDEP: TAdapterDisplayColumn;
    ColMARRIAGE: TAdapterDisplayColumn;
    ColEDUCATION: TAdapterDisplayColumn;
    ColADMJOB: TAdapterDisplayColumn;
    ColTYPEOFEMP: TAdapterDisplayColumn;
    AdapterCommandGroup1: TAdapterCommandGroup;
    CmdPrevPage: TAdapterActionButton;
    CmdGotoPage: TAdapterActionButton;
    CmdNextPage: TAdapterActionButton;
    AdapterCommandColumn1: TAdapterCommandColumn;
    CmdDeleteRow: TAdapterActionButton;
    CmdEditRow: TAdapterActionButton;
    CmdNewRow: TAdapterActionButton;
    adpQryName: TAdapter;
    adaQry: TAdapterAction;
    adfName: TAdapterField;
    AdapterForm2: TAdapterForm;
    LayoutGroup2: TLayoutGroup;
    AdapterFieldGroup1: TAdapterFieldGroup;
    AdapterCommandGroup2: TAdapterCommandGroup;
    CmdadaQry: TAdapterActionButton;
    procedure adaQryExecute(Sender: TObject; Params: TStrings);
    procedure adpQryNameBeforeExecuteAction(Sender, Action: TObject;
      Params: TStrings; var Handled: Boolean);
    procedure adfNameGetValue(Sender: TObject; var Value: Variant);
    procedure WebPageModuleActivate(Sender: TObject);
  private
    FName:string;
    FPage:string;
  public
    { Public declarations }
  end;

  function QryPageB2: TQryPageB2;

implementation

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

uses WebReq, WebCntxt, WebFact, Variants, wdmDB;

function QryPageB2: TQryPageB2;
begin
  Result := TQryPageB2(WebContext.FindModuleClass(TQryPageB2));
end;

procedure TQryPageB2.adaQryExecute(Sender: TObject; Params: TStrings);
var LocateParams:TLocateParams;
begin
  LocateParams:=wdm.dsaBasicInfo.LocateParamsList.Add;
  LocateParams.AddParam('Name',FName);
  LocateParams.AdapterName:=wdm.dsaBasicInfo.Name;
  if not   wdm.dsaBasicInfo.Locate then
    adpQryName.Errors.AddError('找不到'+FName+'的资料！');
end;

procedure TQryPageB2.adpQryNameBeforeExecuteAction(Sender, Action: TObject;
  Params: TStrings; var Handled: Boolean);
begin
  if Assigned(adfName.ActionValue)  then
      FName:=adfName.ActionValue.Values[0];
end;

procedure TQryPageB2.adfNameGetValue(Sender: TObject; var Value: Variant);
begin
  Value:=FName;
end;

procedure TQryPageB2.WebPageModuleActivate(Sender: TObject);
begin
  FName:='';
end;

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TQryPageB2, TWebPageInfo.Create([wpPublished, wpLoginRequired], '.html', '', '人员管理','','B2'), crOnDemand, caCache));

end.