unit UVADGSickTollQuery;

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, RzBckgnd, ExtCtrls, RzPanel,
  UView, UControllerView, UPagesView, UAdapterDataPagesView, StdCtrls,
  RzLabel, Mask, RzEdit, RzButton, UMQDSickTollQuery, Factory, UVADGRmedicineReadOnly,
  UVADGRserviceReadOnly, MyTools, UQueryDataModel, UCloneDataModel, UPrimaryDataModel,
  RzTabs, cxCheckComboBox, cxDBLookupComboBox;

type
  TVADGSickTollQuery = class(TAdapterDataGridView)
    RzPanel3: TRzPanel;
    RzEdit1: TRzEdit;
    RzLabel1: TRzLabel;
    Splitter1: TSplitter;
    PagesView: TAdapterDataPagesView;
    RzBitBtn1: TRzBitBtn;
    NationID: TDataSource;
    NativePlaceID: TDataSource;
    PaymentMethodID: TDataSource;
    ProfessionID: TDataSource;
    TollStationID: TDataSource;
    WedlockID: TDataSource;
    GridDBTableViewSICKID: TcxGridDBColumn;
    GridDBTableViewISARREARAGE: TcxGridDBColumn;
    GridDBTableViewCODE: TcxGridDBColumn;
    GridDBTableViewBIRTHDAY: TcxGridDBColumn;
    GridDBTableViewSEX: TcxGridDBColumn;
    GridDBTableViewCNAME: TcxGridDBColumn;
    GridDBTableViewCREATED: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewISVALID: TcxGridDBColumn;
    GridDBTableViewST: TcxGridDBColumn;
    GridDBTableViewUPDATED: TcxGridDBColumn;
    GridDBTableViewPROFESSIONID: TcxGridDBColumn;
    GridDBTableViewWEDLOCKID: TcxGridDBColumn;
    GridDBTableViewNATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewNATIONID: TcxGridDBColumn;
    GridDBTableViewPAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewCREATEBY: TcxGridDBColumn;
    GridDBTableViewUPDATEBY: TcxGridDBColumn;
    GridDBTableViewTOLLSTATIONID: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    RecipeModel: TQueryDataModel;
    DoctorModel: TQueryDataModel;
    PaymentMethodIDModel: TCloneDataModel;
    NationIDModel: TCloneDataModel;
    NativePlaceIDModel: TCloneDataModel;
    ProfessionIDModel: TCloneDataModel;
    WedlockIDModel: TCloneDataModel;
    TollStationIDModel: TCloneDataModel;
    RMedicineView : TVADGRmedicineReadOnly;
    RServiceView : TVADGRserviceReadOnly;
  protected
    procedure InitModel; override;
    procedure InitView; override;
  public
    function GetCaption : String; override;
    procedure Append(Parameters: IParameters); override;
    procedure Save(Parameters: IParameters); override;
    procedure Delete(Parameters: IParameters); override;
    procedure Cancel(Parameters: IParameters); override;
  end;

implementation
uses
  UMADPaymentMethod, UMADWedlock, UMADNation,
  UMADNativePlace, UMADProfession, UMADTollStation, UDataView;
{$R *.dfm}

{ TVADGSickTollQuery }

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

procedure TVADGSickTollQuery.Cancel(Parameters: IParameters);
begin
//
end;

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

function TVADGSickTollQuery.GetCaption: String;
begin
  Result := '門診病人賬單查詢';
end;

procedure TVADGSickTollQuery.InitModel;
begin
  inherited;
  PaymentMethodIDModel := GetCloneDataModel(TPrimaryDataModel(PaymentMethodFactory.GetModel));
  PaymentMethodID.DataSet := PaymentMethodIDModel.GetDataSet;

  NationIDModel := GetCloneDataModel(TPrimaryDataModel(NationFactory.GetModel));
  NationID.DataSet := NationIDModel.GetDataSet;

  NativePlaceIDModel := GetCloneDataModel(TPrimaryDataModel(NativePlaceFactory.GetModel));
  NativePlaceID.DataSet := NativePlaceIDModel.GetDataSet;
  
  ProfessionIDModel := GetCloneDataModel(TPrimaryDataModel(ProfessionFactory.GetModel));
  ProfessionID.DataSet := ProfessionIDModel.GetDataSet;

  WedlockIDModel := GetCloneDataModel(TPrimaryDataModel(WedlockFactory.GetModel));
  WedlockID.DataSet := WedlockIDModel.GetDataSet;

  TollStationIDModel := GetCloneDataModel(TPrimaryDataModel(TollStationFactory.GetModel));
  TollStationID.DataSet := TollStationIDModel.GetDataSet;
end;

procedure TVADGSickTollQuery.InitView;
var
  Page: TRzTabSheet;
begin
  inherited;                                                             
  Page := PagesView.NewPage;
  RMedicineView := TVADGRmedicineReadOnly.Create(Page, RmedicineFactory);
  PagesView.BandView(Page,RMedicineView);

  Page := PagesView.NewPage;
  RServiceView := TVADGRserviceReadOnly.Create(Page, RServiceFactory);
  PagesView.BandView(Page,RServiceView);
end;

procedure TVADGSickTollQuery.Save(Parameters: IParameters);
begin
//
end;

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

procedure TVADGSickTollQuery.RzBitBtn1Click(Sender: TObject);
var
  SKey : IStringKey;
begin
  inherited;
  RzEdit1.Text := Trim(RzEdit1.Text);
  if RzEdit1.Text = '' then Exit;
  SKey := TStringKey.Create;
  SKey.SetKey(RzEdit1.Text);
  TQueryDataModel(GetDataModel).Query(IParameters(SKey));

  TQueryDataModel(RMedicineView.GetDataModel).Query(GetKey);
  TQueryDataModel(RServiceView.GetDataModel).Query(GetKey);
end;

end.