umadvrecipetoday.pas

来自「一整套的源代码」· PAS 代码 · 共 75 行

unit UMADVRecipeToday;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataModel, Provider, OraProvider, MemDS, DBAccess, Ora,
  OraSmart, DB, DBClient, UModel, MyFactory, MyTools;

type
  TMADVRecipeToday = class(TAdapterDataModel)
    DataSetRECIPE_RECIPEID: TFloatField;
    DataSetRECIPE_CREATED: TDateTimeField;
    DataSetRECIPE_ISACTIVE: TIntegerField;
    DataSetRECIPE_ISVALID: TIntegerField;
    DataSetRECIPE_ISPRINTED: TIntegerField;
    DataSetRECIPE_ST: TIntegerField;
    DataSetRECIPE_UPDATED: TDateTimeField;
    DataSetRECIPE_DOCTORID: TFloatField;
    DataSetRECIPE_RECKONINGID: TFloatField;
    DataSetRECIPE_CREATEBY: TFloatField;
    DataSetRECIPE_UPDATEBY: TFloatField;
    DataSetRECIPE_SICKID: TFloatField;
    DataSetSICK_SICKID: TFloatField;
    DataSetSICK_ISARREARAGE: TIntegerField;
    DataSetSICK_CODE: TStringField;
    DataSetSICK_BIRTHDAY: TDateTimeField;
    DataSetSICK_SEX: TIntegerField;
    DataSetSICK_CNAME: TStringField;
    DataSetSICK_CREATED: TDateTimeField;
    DataSetSICK_ISACTIVE: TIntegerField;
    DataSetSICK_ISVALID: TIntegerField;
    DataSetSICK_ST: TIntegerField;
    DataSetSICK_UPDATED: TDateTimeField;
    DataSetSICK_PROFESSIONID: TFloatField;
    DataSetSICK_WEDLOCKID: TFloatField;
    DataSetSICK_NATIVEPLACEID: TFloatField;
    DataSetSICK_NATIONID: TFloatField;
    DataSetSICK_PAYMENTMETHODID: TFloatField;
    DataSetSICK_CREATEBY: TFloatField;
    DataSetSICK_UPDATEBY: TFloatField;
    DataSetSICK_TOLLSTATIONID: TFloatField;
  private
    { Private declarations }
  public
    function GetKey : IKey; override;
  end;

  TVRecipeTodayFactory = class(TModelFactory)
    function NewModel: TModel; override;
  end;

implementation

uses UDataModel, UMPDatabase;

{$R *.dfm}

{ TVRecipeTodayFactory }

function TVRecipeTodayFactory.NewModel: TModel;
begin
  Result := TMADVRecipeToday.Create(GetOwner);
end;

{ TMADVRecipeToday }

function TMADVRecipeToday.GetKey: IKey;
begin
  Result := NewKey('SICK_SICKID');
end;

end.