home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 January / Chip_2003-01_cd1.bin / zkuste / delphi / kolekce / d567 / FLEXCEL.ZIP / FlexCel / UXlsDB.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2002-09-26  |  1007 b   |  46 lines
  1. unit UXlsDB;
  2.  
  3. interface
  4. uses Classes;
  5. type
  6.   TFlxDataSet=TComponent;
  7.  
  8.   IXlsDataSet=interface;
  9.  
  10.   IXlsField= interface
  11.     ['{ACD0F8B5-596E-4C27-B383-8425BDB9051F}']
  12.     function Value: variant;
  13.     function DataSet: IXlsDataSet;
  14.     function IsTDateTimeField: boolean;
  15.     function IsTMemoField: boolean;
  16.     function AsFloat: extended;
  17.  
  18.     function DisplayName: string;
  19.   end;
  20.  
  21.   IXlsDataSet= interface
  22.     ['{35524AD4-16B3-4CCC-A69D-90CFC892003B}']
  23.     function GetFields(index: integer): IXlsField;
  24.     function GetActive: boolean;
  25.  
  26.     procedure Open;
  27.     procedure Close;
  28.     property Active: boolean read GetActive;
  29.  
  30.     function RecordCount: integer;
  31.     procedure First;
  32.     procedure Next;
  33.     procedure Last;
  34.     function Eof: boolean;
  35.  
  36.     function DsName: string;
  37.  
  38.     function FieldByName(const Name: string): IXlsField;
  39.     function FieldCount: integer;
  40.     property Fields[index: integer]: IXlsField read GetFields;
  41.   end;
  42.  
  43. implementation
  44.  
  45. end.
  46.