uiexcelagent.pas

抽象三层访问数据库示例

{*******************************************************}
{       软件名称: --通用--                              }
{       单元名称: uIExcelAgent.pas                      }
{       中文名称: Excel访问代理接口                     }
{       单元描述:                                       }
{       创    建: SamonHua                              }
{       创建日期: 2007-12-19                            }
{       修    改: 参见VSS记录                           }
{       版权所有 (C)2002-2007 深圳壹平台信息技术有限公司}
{*******************************************************}
unit uIExcelAgent;

interface

uses
  Windows, Classes, SysUtils, Variants;

type
  IExcelAgent = interface(IInterface)
    ['{CF5546F7-AEB7-4F37-94D3-D54C497BC544}']
    //Excel文件名读写方法
    function GetFileName: string;
    procedure SetFileName(Value: string);
    //读入和保存文件
    procedure ReadFile;
    procedure WriteFile;
    procedure WriteToStream(Stream: TStream);
    //Sheet相关
    //激活Sheet，所有的读写操作都是针对当前的Sheet
    function ActivateSheet(SheetIndex: integer): boolean;
    function GetSheetCount: Integer;
    function GetActiveSheetIndex: integer;
    function GetActiveSheetName: string;
    function AddSheet(SheetName: string): Integer;
    function InsertSheet(SheetName: string; SheetIndex: Integer = -1): Integer;
    procedure DeleteSheet(SheetIndex: Integer = -1);
    //单元格读方法
    function GetCellValue(Col, Row: integer): Variant; 
    function GetCellStringValue(Col, Row: integer; Default: string = ''): string;
    function GetCellIntegerValue(Col, Row: integer; Default: Integer = 0): Integer;
    function GetCellFloatValue(Col, Row: integer; Default: Double = 0): Double;
    function GetCellDateTimeValue(Col, Row: integer): TDateTime; 
    function GetCellBooleanValue(Col, Row: integer; Default: Boolean = False): Boolean;
    //单元格写方法
    procedure SetCellValue(Col, Row: integer; Value: Variant);
    procedure SetCellStringValue(Col, Row: integer; Value: string);
    procedure SetCellIntegerValue(Col, Row: integer; Value: integer);
    procedure SetCellFloatValue(Col, Row: integer; Value: Double);
    procedure SetCellDateTimeValue(Col, Row: integer; Value: TDateTime);
    procedure SetCellBooleanValue(Col, Row: integer; Value: Boolean);
    //合并/拆分单元格
    procedure MergedCells(Col1, Row1, Col2, Row2: integer);
    procedure DeleteMergedCell(Col1, Row1, Col2, Row2: integer);
    procedure DeleteMergedCellByCell(Col, Row: integer);
    //获取包含指定单元格的坐标
    function GetMergedCell(Col, Row: integer; var Col1, Row1, Col2, Row2: integer): boolean;
  end;

implementation

{ TExcelAgentHelper }

end.