uquery.pas

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

unit uQuery;

interface

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

type
  TQueryPage = class(TWebPageModule)
    appQuery: 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;
    LayoutGroup2: TLayoutGroup;
    acc: TAdapterCommandColumn;
    CmdDeleteRow: TAdapterActionButton;
    CmdEditRow: TAdapterActionButton;
    CmdNewRow: TAdapterActionButton;
    dsaQuery: TDataSetAdapter;
    AdapterCommandGroup1: TAdapterCommandGroup;
    CmdPrevPage: TAdapterActionButton;
    CmdGotoPage: TAdapterActionButton;
    CmdNextPage: TAdapterActionButton;
    adpQryName: TAdapter;
    adaQry: TAdapterAction;
    LayoutGroup3: TLayoutGroup;
    AdapterFieldGroup1: TAdapterFieldGroup;
    AdapterCommandGroup2: TAdapterCommandGroup;
    CmdadaQry: TAdapterActionButton;
    adfName: TAdapterField;
    AdapterErrorList1: TAdapterErrorList;
    procedure adaQryExecute(Sender: TObject; Params: TStrings);
    procedure adfNameGetValue(Sender: TObject; var Value: Variant);
    procedure WebPageModuleActivate(Sender: TObject);
    procedure adpQryNameBeforeExecuteAction(Sender, Action: TObject;
      Params: TStrings; var Handled: Boolean);
  private
    FName:string;
  public
    { Public declarations }
  end;

  function QueryPage: TQueryPage;

implementation

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

uses WebReq, WebCntxt, WebFact, Variants, wdmDB;

function QueryPage: TQueryPage;
begin
  Result := TQueryPage(WebContext.FindModuleClass(TQueryPage));
end;

procedure TQueryPage.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 TQueryPage.adfNameGetValue(Sender: TObject; var Value: Variant);
begin
  Value:=FName;
end;

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

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

initialization
  if WebRequestHandler <> nil then
    WebRequestHandler.AddWebModuleFactory(TWebPageModuleFactory.Create(TQueryPage, TWebPageInfo.Create([wpPublished, wpLoginRequired], '.html', '', '综合查询'), crOnDemand, caCache));

end.