?? uvadgdepartmentlist.pas
字號:
unit UVADGDepartmentList;
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, UView, UControllerView, UPagesView, UAdapterDataPagesView,
RzTabS, UQueryDataModel, MyTools, Factory, UVAGDepartMentStockOut;
type
TVADGDepartmentList = class(TAdapterDataGridView)
GridDBTableViewDEPARTMENTID: TcxGridDBColumn;
GridDBTableViewCAPTION: TcxGridDBColumn;
Splitter1: TSplitter;
PagesView: TAdapterDataPagesView;
procedure GridDBTableViewCellClick(Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
private
DepartMentStockOutView : TVADGDepartMentStockOut;
protected
procedure InitView; override;
public
function GetCaption: string; override;
procedure Append(Parameters: IParameters); override;
procedure Delete(Parameters: IParameters); override;
procedure Save(Parameters: IParameters); override;
end;
implementation
uses UMADDepartment;
{$R *.dfm}
{ TVADGDepartmentList }
procedure TVADGDepartmentList.Append(Parameters: IParameters);
begin
//
end;
procedure TVADGDepartmentList.Delete(Parameters: IParameters);
begin
//
end;
function TVADGDepartmentList.GetCaption: String;
begin
Result := '部門列表';
end;
procedure TVADGDepartmentList.InitView;
var
Page: TRzTabSheet;
Key: IKey;
begin
inherited;
Page := PagesView.NewPage;
DepartMentStockOutView := TVADGDepartMentStockOut.Create(Page, DepartMentStockOutFactory);
PagesView.BandView(Page,DepartMentStockOutView);
Key := GetDataModel.GetKey;
TQueryDataModel(DepartMentStockOutView.GetDataModel).Query(Key);
end;
procedure TVADGDepartmentList.Save(Parameters: IParameters);
begin
DepartMentStockOutView.Save(Parameters);
end;
procedure TVADGDepartmentList.GridDBTableViewCellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
TQueryDataModel(DepartMentStockOutView.GetDataModel).Query(GetKey);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -