dxdbcommon.pas

来自「Well known and usefull component for del」· PAS 代码 · 共 51 行

unit DXDBCommon;

interface

///////////////////////////////////////////////////////////////////////////////
// Component: TDXDBCommon
//    Author: G.E. Ozz Nixon Jr. ([e-mail])
// ============================================================================
// This was started in 2000 as a goal of having internal configuration files to
// our demonstrations. As of 2002, we have decided to go ahead and release this.
// Limitations: It does not have all of the D6 field types, but has everything
// you should probably need for your memory database.
///////////////////////////////////////////////////////////////////////////////

Uses
   DB;

const
  DXTabBookmarkSize=8;
  DXDatabaseSignature='DXDSv2'; // if you change this, it will not read old databases!
  DXIntSize=Sizeof(Integer);
  DXBoolSize=SizeOf(Boolean);

  SNoRecord='No Records';
  SDataSetEditMode='DataSet is not in edit or insert mode';
  SBookmarkNotFound='Bookmark ''%s'' not found';
  SDataSetOpen='Cannot perform this operation on an open dataset';
  SNoFields='No Fields, you must create storeddefs or call AddField';
  SNotValidSource='Stream does not appear to be a DXDataSet stream';

type
  PInteger=^Integer;
  PSmallInt=^SmallInt;
  PFloat=^Extended;
  PReal=^Real;
  PDateTime=^TDateTime;
  PCurrency=^Currency;
  PBoolean=^Boolean;

  PRecInfo=^TDXBookmarkInfo;
  TDXBookmarkInfo=record
    Bookmark:Integer;
    BookmarkFlag:TBookmarkFlag;
    UpdateStatus:TUpdateStatus;
  end;

implementation

end.