?? uvmadgmaterial.pas
字號(hào):
unit UVMADGMaterial;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UMasterAdapterDataGridView, 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, UCloneDataModel, UPrimaryDataModel, Factory,
cxDBLookupComboBox;
type
TVMADGMaterial = class(TMasterAdapterDataGridView)
DoseID: TDataSource;
MaterialCatalogID: TDataSource;
UnitsID: TDataSource;
GridDBTableViewMATERIALID: TcxGridDBColumn;
GridDBTableViewCODE: TcxGridDBColumn;
GridDBTableViewALIAS: TcxGridDBColumn;
GridDBTableViewMEMO: TcxGridDBColumn;
GridDBTableViewMODEL: TcxGridDBColumn;
GridDBTableViewPINYIN: TcxGridDBColumn;
GridDBTableViewCAPTION: TcxGridDBColumn;
GridDBTableViewDOSEID: TcxGridDBColumn;
GridDBTableViewUNITSID: TcxGridDBColumn;
GridDBTableViewMATERIALCATALOGID: TcxGridDBColumn;
private
MaterialCatalogIDModel: TCloneDataModel;
DoseIDModel: TCloneDataModel;
UnitsIDModel: TCloneDataModel;
protected
procedure InitModel; override;
public
function GetCaption: string; override;
function GetDetailView: TView; override;
end;
implementation
uses
UMADMaterial, UVADIMaterial, UMADUnits, UMADDose, UMADMaterialCatalog;
{$R *.dfm}
{ TVMADGMaterial }
function TVMADGMaterial.GetCaption: string;
begin
Result := '醫(yī)用物質(zhì)信息';
end;
function TVMADGMaterial.GetDetailView: TView;
var
View : TVADIMaterial;
begin
View := TVADIMaterial.Create(Self, MaterialFactory);
View.SetModel(GetModel);
Result := View;
end;
procedure TVMADGMaterial.InitModel;
begin
inherited;
MaterialCatalogIDModel := TCloneDataModel.Create(Self);
TPrimaryDataModel(MaterialCatalogFactory.GetModel).Clone(MaterialCatalogIDModel);
MaterialCatalogID.DataSet := MaterialCatalogIDModel.GetDataSet;
DoseIDModel := TCloneDataModel.Create(Self);
TPrimaryDataModel(DoseFactory.GetModel).Clone(DoseIDModel);
DoseID.DataSet := DoseIDModel.GetDataSet;
UnitsIDModel := TCloneDataModel.Create(Self);
TPrimaryDataModel(UnitsFactory.GetModel).Clone(UnitsIDModel);
UnitsID.DataSet := UnitsIDModel.GetDataSet;
end;
end.
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -