uvadgvrecipetoday.pas

Software Requirements1. Delphi 6 SP22. Oracle 8i R33. Raize 3.0.94. ExpressQuantumGrid 4.505. Expres

unit UVADGVRecipeToday;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, UAdapterDataGridView, cxStyles, cxCustomData, cxGraphics,
  cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl,
  dxPSEngn, dxPrnPg, dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider,
  dxPSFillPatterns, dxPSEdgePatterns, dxPSCore, RzCommon, cxGridLevel,
  cxClasses, cxControls, cxGridCustomView, cxGridCustomTableView,
  cxGridTableView, cxGridDBTableView, cxGrid, jpeg, RzBckgnd, ExtCtrls,
  RzPanel, UView, UControllerView, UPagesView, UAdapterDataPagesView, MyTools,
  UQueryDataModel, UVMADGRecipe, UVADGVRMedicine, Factory, RzTabs;

type
  TVADGVRecipeToday = class(TAdapterDataGridView)
    GridDBTableViewRECIPE_RECIPEID: TcxGridDBColumn;
    GridDBTableViewRECIPE_CREATED: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISVALID: TcxGridDBColumn;
    GridDBTableViewRECIPE_ISPRINTED: TcxGridDBColumn;
    GridDBTableViewRECIPE_ST: TcxGridDBColumn;
    GridDBTableViewRECIPE_UPDATED: TcxGridDBColumn;
    GridDBTableViewRECIPE_DOCTORID: TcxGridDBColumn;
    GridDBTableViewRECIPE_RECKONINGID: TcxGridDBColumn;
    GridDBTableViewRECIPE_CREATEBY: TcxGridDBColumn;
    GridDBTableViewRECIPE_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewRECIPE_SICKID: TcxGridDBColumn;
    GridDBTableViewSICK_SICKID: TcxGridDBColumn;
    GridDBTableViewSICK_ISARREARAGE: TcxGridDBColumn;
    GridDBTableViewSICK_CODE: TcxGridDBColumn;
    GridDBTableViewSICK_BIRTHDAY: TcxGridDBColumn;
    GridDBTableViewSICK_SEX: TcxGridDBColumn;
    GridDBTableViewSICK_CNAME: TcxGridDBColumn;
    GridDBTableViewSICK_CREATED: TcxGridDBColumn;
    GridDBTableViewSICK_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewSICK_ISVALID: TcxGridDBColumn;
    GridDBTableViewSICK_ST: TcxGridDBColumn;
    GridDBTableViewSICK_UPDATED: TcxGridDBColumn;
    GridDBTableViewSICK_PROFESSIONID: TcxGridDBColumn;
    GridDBTableViewSICK_WEDLOCKID: TcxGridDBColumn;
    GridDBTableViewSICK_NATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewSICK_NATIONID: TcxGridDBColumn;
    GridDBTableViewSICK_PAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewSICK_CREATEBY: TcxGridDBColumn;
    GridDBTableViewSICK_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewSICK_TOLLSTATIONID: TcxGridDBColumn;
    Splitter1: TSplitter;
    RzPanel3: TRzPanel;
    PagesViewRecipe: TAdapterDataPagesView;
    Splitter2: TSplitter;
    PagesViewRMedicine: TAdapterDataPagesView;
    Timer: TTimer;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure TimerTimer(Sender: TObject);
  private
    RecipeView : TVMADGRecipe;
    VRMedicineView : TVADGVRMedicine;
  protected
    procedure InitView; override;
  public
    function GetCaption: string; override;
    procedure Append(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
  end;

implementation

uses UMADVRecipeToday;

{$R *.dfm}

{ TVADGVRecipeToday }

procedure TVADGVRecipeToday.Append(Parameters: IParameters);
begin
//
end;

procedure TVADGVRecipeToday.Delete(Parameters: IParameters);
begin
//
end;

function TVADGVRecipeToday.GetCaption: string;
begin
  Result := '门诊发药';
end;

procedure TVADGVRecipeToday.InitView;
var
  Page: TRzTabSheet;
  Key: IKey;
begin
  inherited;
  Page := PagesViewRecipe.NewPage;
  RecipeView := TVMADGRecipe.Create(Page, RecipeFactory);
  PagesViewRecipe.BandView(Page,RecipeView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(RecipeView.GetDataModel).Query(Key);

  Page := PagesViewRMedicine.NewPage;
  VRMedicineView := TVADGVRMedicine.Create(Page, VRmedicineFactory);
  PagesViewRMedicine.BandView(Page,VRMedicineView);
  Key := GetDataModel.GetKey;
  TQueryDataModel(VRMedicineView.GetDataModel).Query(Key);
end;

procedure TVADGVRecipeToday.Save(Parameters: IParameters);
begin
  RecipeView.Save(Parameters);
  GetDataModel.GetDataSet.Refresh;
  TQueryDataModel(RecipeView.GetDataModel).Query(GetKey);
  TQueryDataModel(VRMedicineView.GetDataModel).Query(GetKey);
end;

procedure TVADGVRecipeToday.GridDBTableViewCellClick(
  Sender: TcxCustomGridTableView;
  ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
  AShift: TShiftState; var AHandled: Boolean);
begin
  inherited;
  TQueryDataModel(RecipeView.GetDataModel).Query(GetKey);
  TQueryDataModel(VRMedicineView.GetDataModel).Query(GetKey);
end;

procedure TVADGVRecipeToday.TimerTimer(Sender: TObject);
begin
  inherited;
  GetDataModel.GetDataSet.Refresh;
end;

end.