uvadgsicktollquery.pas

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

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;
    SickTypeID: TDataSource;
    SectionOfficeID: TDataSource;
    DoctorID: TDataSource;
    BedID: TDataSource;
    GridDBTableViewI_INPATIENTID: TcxGridDBColumn;
    GridDBTableViewI_LINKMANPHONE: TcxGridDBColumn;
    GridDBTableViewI_LINKMANADDRESS: TcxGridDBColumn;
    GridDBTableViewI_LINKMANNAME: TcxGridDBColumn;
    GridDBTableViewI_RPRPOSTCODE: TcxGridDBColumn;
    GridDBTableViewI_RPRADDRESS: TcxGridDBColumn;
    GridDBTableViewI_WORKDEPTPOSTCODE: TcxGridDBColumn;
    GridDBTableViewI_IDCARDCODE: TcxGridDBColumn;
    GridDBTableViewI_PHONE: TcxGridDBColumn;
    GridDBTableViewI_WORKDEPATCAPTION: TcxGridDBColumn;
    GridDBTableViewI_CREATED: TcxGridDBColumn;
    GridDBTableViewI_UPDATED: TcxGridDBColumn;
    GridDBTableViewI_MEMO: TcxGridDBColumn;
    GridDBTableViewI_PREPAY: TcxGridDBColumn;
    GridDBTableViewI_BLANCE: TcxGridDBColumn;
    GridDBTableViewI_FOODID: TcxGridDBColumn;
    GridDBTableViewI_SICKNESSLEVELID: TcxGridDBColumn;
    GridDBTableViewI_BEDID: TcxGridDBColumn;
    GridDBTableViewI_SICKTYPEID: TcxGridDBColumn;
    GridDBTableViewI_COUNTRYID: TcxGridDBColumn;
    GridDBTableViewI_BLOODTYPEID: TcxGridDBColumn;
    GridDBTableViewI_PERSONRELATIONID: TcxGridDBColumn;
    GridDBTableViewI_SICKID: TcxGridDBColumn;
    GridDBTableViewI_RECKONINGID: TcxGridDBColumn;
    GridDBTableViewI_SECTIONOFFICEID: TcxGridDBColumn;
    GridDBTableViewI_INDATE: TcxGridDBColumn;
    GridDBTableViewI_OUTDATE: TcxGridDBColumn;
    GridDBTableViewI_DOCTORID: TcxGridDBColumn;
    GridDBTableViewS_SICKID: TcxGridDBColumn;
    GridDBTableViewS_ISARREARAGE: TcxGridDBColumn;
    GridDBTableViewS_CODE: TcxGridDBColumn;
    GridDBTableViewS_BIRTHDAY: TcxGridDBColumn;
    GridDBTableViewS_SEX: TcxGridDBColumn;
    GridDBTableViewS_CNAME: TcxGridDBColumn;
    GridDBTableViewS_CREATED: TcxGridDBColumn;
    GridDBTableViewS_ISACTIVE: TcxGridDBColumn;
    GridDBTableViewS_ISVALID: TcxGridDBColumn;
    GridDBTableViewS_ST: TcxGridDBColumn;
    GridDBTableViewS_UPDATED: TcxGridDBColumn;
    GridDBTableViewS_PROFESSIONID: TcxGridDBColumn;
    GridDBTableViewS_WEDLOCKID: TcxGridDBColumn;
    GridDBTableViewS_NATIVEPLACEID: TcxGridDBColumn;
    GridDBTableViewS_NATIONID: TcxGridDBColumn;
    GridDBTableViewS_PAYMENTMETHODID: TcxGridDBColumn;
    GridDBTableViewS_CREATEBY: TcxGridDBColumn;
    GridDBTableViewS_UPDATEBY: TcxGridDBColumn;
    GridDBTableViewS_TOLLSTATIONID: TcxGridDBColumn;
    procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
      ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
      AShift: TShiftState; var AHandled: Boolean);
    procedure RzBitBtn1Click(Sender: TObject);
  private
    DoctorIDModel: TCloneDataModel;
    SectionOfficeIDModel: TCloneDataModel;
    BedIDModel: TCloneDataModel;
    SickTypeIDModel: 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, UDataView, UMADDoctorStation, UMADBed, UMADSectionOffice,
  UMadSickType;
{$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;
  DoctorIDModel := GetCloneDataModel(TPrimaryDataModel(DoctorStationFactory.GetModel));
  DoctorID.DataSet := DoctorIDModel.GetDataSet;

  SectionOfficeIDModel := GetCloneDataModel(TPrimaryDataModel(SectionOfficeFactory.GetModel));
  SectionOfficeID.DataSet := SectionOfficeIDModel.GetDataSet;

  BedIDModel := GetCloneDataModel(TPrimaryDataModel(BedFactory.GetModel));
  BedID.DataSet := BedIDModel.GetDataSet;
  
  SickTypeIDModel := GetCloneDataModel(TPrimaryDataModel(SickTypeFactory.GetModel));
  SickTypeID.DataSet := SickTypeIDModel.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.