uvadgrmedicinereadonly.pas

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

unit UVADGRmedicineReadOnly;

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,
  UMADRmedicine, UCloneDataModel, cxDBLookupComboBox, cxCurrencyEdit;

type
  TVADGRmedicineReadOnly = class(TAdapterDataGridView)
    UnitsID: TDataSource;
    GridDBTableViewRMEDICINEID: TcxGridDBColumn;
    GridDBTableViewISACTIVE: TcxGridDBColumn;
    GridDBTableViewPRICE: TcxGridDBColumn;
    GridDBTableViewTOTAL: TcxGridDBColumn;
    GridDBTableViewAMOUNT: TcxGridDBColumn;
    GridDBTableViewRECKONINGID: TcxGridDBColumn;
    GridDBTableViewPSTOCKMEDICINEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CODE: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEMO: TcxGridDBColumn;
    GridDBTableViewMEDICINE_ALAIS: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MODEL: TcxGridDBColumn;
    GridDBTableViewMEDICINE_CAPTION: TcxGridDBColumn;
    GridDBTableViewMEDICINE_DOSEID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_UNITSID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_USEMETHODID: TcxGridDBColumn;
    GridDBTableViewMEDICINE_MEDICINECATALOGID: TcxGridDBColumn;
  private
    UnitsIDModel: TCloneDataModel;
  protected
    procedure InitModel; override;
  public
    function GetCaption: string; override;
  end;

implementation
uses
  Factory, UPrimaryDataModel, UMADMedicine, UMADUnits;
{$R *.dfm}

{ TVADGRmedicineReadOnly }

function TVADGRmedicineReadOnly.GetCaption: string;
begin
  Result := '物资账单查询';
end;

procedure TVADGRmedicineReadOnly.InitModel;
begin
  inherited;
  UnitsIDModel := GetCloneDataModel(TPrimaryDataModel(UnitsFactory.GetModel));
  UnitsID.DataSet := UnitsIDModel.GetDataSet;
end;

end.