?? umasteradapterdatagridview.pas
字號:
unit UMasterAdapterDataGridView;
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,
MyView, UView, UDataItemView, MyTools;
type
TMasterAdapterDataGridView = class(TAdapterDataGridView, IMasterDetail)
procedure GridDBTableViewDblClick(Sender: TObject);
protected
function GetDetailView: TView; virtual; abstract;
public
{---------------------------------------- IMasterDetail ----------------------------------------}
procedure ShowDetailView; virtual;
public
procedure Append(Parameters: IParameters); override;
end;
implementation
uses
UModel, UDialogDataItemView;
{$R *.dfm}
{ TMasterAdapterDataGridView }
procedure TMasterAdapterDataGridView.ShowDetailView;
var
Dialog: TDialogDataItemView;
View: TDataItemView;
begin
if not GetDataModel.GetDataSet.Active or GetDataModel.GetDataSet.IsEmpty then Exit;
View := TDataItemView(GetDetailView);
Dialog := TDialogDataItemView.Create(Owner, View);
Dialog.ShowModal;
Dialog.Free;
end;
procedure TMasterAdapterDataGridView.GridDBTableViewDblClick(Sender: TObject);
begin
inherited;
ShowDetailView;
end;
procedure TMasterAdapterDataGridView.Append(Parameters: IParameters);
begin
inherited;
ShowDetailView;
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -