?? uvadgdepartmentback.pas
字號:
unit UVADGDepartmentBack;
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
TVADGDepartmentBack = 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}
procedure TVADGDepartmentBack.Append(Parameters: IParameters);
begin
//
end;
procedure TVADGDepartmentBack.Delete(Parameters: IParameters);
begin
//
end;
function TVADGDepartmentBack.GetCaption: string;
begin
Result := '部門退藥';
end;
procedure TVADGDepartmentBack.GridDBTableViewCellClick(
Sender: TcxCustomGridTableView;
ACellViewInfo: TcxGridTableDataCellViewInfo; AButton: TMouseButton;
AShift: TShiftState; var AHandled: Boolean);
begin
inherited;
TQueryDataModel(DepartMentStockOutView.GetDataModel).Query(GetKey);
end;
procedure TVADGDepartmentBack.InitView;
var
Page: TRzTabSheet;
Key: IKey;
begin
inherited;
Page := PagesView.NewPage;
DepartMentStockOutView := TVADGDepartMentStockOut.Create(Page, DepartMentStockOutBackFactory);
PagesView.BandView(Page,DepartMentStockOutView);
Key := GetDataModel.GetKey;
TQueryDataModel(DepartMentStockOutView.GetDataModel).Query(Key);
end;
procedure TVADGDepartmentBack.Save(Parameters: IParameters);
begin
DepartMentStockOutView.Save(Parameters);
end;
end.
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -