?? udataitemsview.pas
字號:
unit UDataItemsView;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, UDataView, dxPSCore, RzCommon, jpeg, RzBckgnd, ExtCtrls, RzPanel,
DB, Ora,
MyView, MySystem, MyTools, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg, dxBkgnd,
dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns, dxPSEdgePatterns;
type
TDataItemsView = class(TDataView, IDataItems, IDataExchange)
{---------------------------------------- IDataItems ----------------------------------------}
public
function GetCount: Word; virtual;
function GetItems: IDataItemList; virtual;
public
{---------------------------------------- IDataExchange ----------------------------------------}
procedure SaveToFile; virtual;
end;
implementation
{$R *.dfm}
{ TDataItemsView }
function TDataItemsView.GetCount: Word;
begin
if DataSource.DataSet.Active then
Result := DataSource.DataSet.RecordCount
else
Result := 0;
end;
function TDataItemsView.GetItems: IDataItemList;
begin
end;
procedure TDataItemsView.SaveToFile;
begin
end;
end.
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -