?? uvadgsoomaterialdetail.pas
字號(hào):
unit UVADGSOOMaterialDetail;
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, UCloneDataModel, UPrimaryDataModel, Factory, cxDBLookupComboBox,
cxCheckBox;
type
TVADGSOOMaterialDetail = class(TAdapterDataGridView)
MaterialStockID: TDataSource;
StockoutorderID: TDataSource;
GridDBTableViewSOOMATERIALDETAILID: TcxGridDBColumn;
GridDBTableViewPRICE: TcxGridDBColumn;
GridDBTableViewAMOUNT: TcxGridDBColumn;
GridDBTableViewTOTAL: TcxGridDBColumn;
GridDBTableViewSTOCKOUTORDERID: TcxGridDBColumn;
GridDBTableViewMATERIALSTOCKID: TcxGridDBColumn;
GridDBTableViewISAPPROVE: TcxGridDBColumn;
private
MaterialStockIDModel: TCloneDataModel;
StockoutorderIDModel: TCloneDataModel;
protected
procedure InitModel; override;
public
function GetCaption: string; override;
end;
implementation
uses UMADSOOMaterialDetail, UMADStockoutorder, UMADMaterialStock;
{$R *.dfm}
{ TVADGSOOMaterialDetail }
function TVADGSOOMaterialDetail.GetCaption: string;
begin
Result := '醫(yī)用材料出庫(kù)明細(xì)單';
end;
procedure TVADGSOOMaterialDetail.InitModel;
begin
inherited;
MaterialStockIDModel := TCloneDataModel.Create(Self);
TPrimaryDataModel(MaterialStockFactory.GetModel).Clone(MaterialStockIDModel);
MaterialStockID.DataSet := MaterialStockIDModel.GetDataSet;
StockoutorderIDModel := TCloneDataModel.Create(Self);
TPrimaryDataModel(StockoutorderFactory.GetModel).Clone(StockoutorderIDModel);
StockoutorderID.DataSet := StockoutorderIDModel.GetDataSet;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -