home *** CD-ROM | disk | FTP | other *** search
- unit UXlsDB;
-
- interface
- uses Classes;
- type
- TFlxDataSet=TComponent;
-
- IXlsDataSet=interface;
-
- IXlsField= interface
- ['{ACD0F8B5-596E-4C27-B383-8425BDB9051F}']
- function Value: variant;
- function DataSet: IXlsDataSet;
- function IsTDateTimeField: boolean;
- function IsTMemoField: boolean;
- function AsFloat: extended;
-
- function DisplayName: string;
- end;
-
- IXlsDataSet= interface
- ['{35524AD4-16B3-4CCC-A69D-90CFC892003B}']
- function GetFields(index: integer): IXlsField;
- function GetActive: boolean;
-
- procedure Open;
- procedure Close;
- property Active: boolean read GetActive;
-
- function RecordCount: integer;
- procedure First;
- procedure Next;
- procedure Last;
- function Eof: boolean;
-
- function DsName: string;
-
- function FieldByName(const Name: string): IXlsField;
- function FieldCount: integer;
- property Fields[index: integer]: IXlsField read GetFields;
- end;
-
- implementation
-
- end.
-