?? uvadgmanufacturer.pas
字號:
unit UVADGManufacturer;
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, Factory, cxDBLookupComboBox;
type
TVADGManufacturer = class(TAdapterDataGridView)
GridDBTableViewMANUFACTURERID: TcxGridDBColumn;
GridDBTableViewCAPTION: TcxGridDBColumn;
GridDBTableViewADDRESS: TcxGridDBColumn;
GridDBTableViewAREAID: TcxGridDBColumn;
AreaID: TDataSource;
private
AreaIDModel: TCloneDataModel;
protected
procedure InitModel; override;
public
function GetCaption: string; override;
end;
implementation
uses
UPrimaryDataModel, UMADManufacturer, UMADArea;
{$R *.dfm}
{ TVADGManufacturer }
function TVADGManufacturer.GetCaption: string;
begin
Result := '生產(chǎn)商信息';
end;
procedure TVADGManufacturer.InitModel;
begin
inherited;
AreaIDModel := GetCloneDataModel(TPrimaryDataModel(AreaFactory.GetModel));
AreaID.DataSet := AreaIDModel.GetDataSet;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -