开发工具:
文件大小: 22kb
下载次数: 0
上传时间: 2010-04-06
详细说明： 使用方便，功能强大。 type FileCheckResult = (fcrNotExistend,fcrNotXSLFile,fcrValidXSL); //文件不存在,不是XSL文件,合法的XSL文件 TOLEExcel = class(TComponent) private FExcelCreated: Boolean; FVisible: Boolean; FExcel: Variant; //Excel程序对象 FWorkBook: Variant; //Excel工作簿对象 FWorkSheet: Variant; //Excel工作簿 工作表对象 FCellFont: TFont; //单元格字体对象 FTitleFont: TFont; // FFontChanged: Boolean; FIgnoreFont: Boolean; FFileName: TFileName; //********************************************自己添加***************** ************// FCreateFromFile:Boolean; //指示是否打开已有文件 FExcelCaption:string; //用程序打开Excel的窗体标 //*********************************来自U_Report*****************************// FRCPrePage:Integer; //每页显示的记录数 FMax:Integer; //最大的数组个数 procedure SetExcelCellFont(var Cell: Variant); procedure SetExcelTitleFont(var Cell: Variant); procedure GetTableColumnName(const Table: TTable; var Cell: Variant); procedure GetQueryColumnName(const Query: TQuery; var Cell: Variant); procedure GetFixedCols(const StringGrid: TStringGrid; var Cell: Variant); procedure GetFixedRows(const StringGrid: TStringGrid; var Cell: Variant); procedure GetStringGridBody(const StringGrid: TStringGrid; var Cell: Variant); protected procedure SetCellFont(NewFont: TFont); procedure SetTitleFont(NewFont: TFont); procedure SetVisible(DoShow: Boolean); function GetCell( ARow,ACol: Integer): string; procedure SetCell(ACol, ARow: Integer; const Value: string); function GetDateCell(ACol, ARow: Integer): TDateTime; procedure SetDateCell(ACol, ARow: Integer; const Value: TDateTime); //*********************************************自己添加************************************// procedure SetCaption(ACaption:string);//设置打开文件后,Excel主程序的窗体标题 function GetCapiton:string;//返回打开文件后,Excel主程序的窗体标题 public constructor Create(AOwner: TComponent); override; destructor Destroy; override; procedure CreateExcelInstance; property Cell[ACol, ARow: Integer]: string read GetCell write SetCell; property DateCell[ACol, ARow: Integer]: TDateTime read GetDateCell write SetDateCell; function IsCreated: Boolean; procedure TableToExcel(const Table: TTable); procedure QueryToExcel(const Query: TQuery); procedure StringGridToExcel(const StringGrid: TStringGrid); procedure SaveToExcel(const FileName: string); //*********************************来自U_Report*****************************// function GetRepRange(x,y:integer):String;//将(x,y)坐标形式改为Excel区域(A1:B1)形式 procedure CellMerge(x1,y1,x2,y2:integer);//合并指定单元格 procedure SetRepLine(x1,x2,y1,y2:Integer); //加边框线 procedure CellWrite(RepData:String;x,y:Integer);//单元格写数据 procedure CellFormat(x1,y1,x2,y2:integer);//指定单元格格式 procedure CellGS(x1,y1,x2,y2,f:integer);//灵活单元格格式 procedure CreatRepSheet(SheetName:String;PageSize,PageLay:Integer);//给当前工作表重命名、进行页面设置 procedure SetAddMess(H_Mess1,H_Mess2,H_Mess3,F_Mess1,F_Mess2,F_Mess3:String);//设置附加信息 procedure SetRepBody(x,ch:Integer;cw:Double;cf:String);//设置整体各列数据格式 procedure CreatTitle(TitleName:String;y:Integer);//设置标题 procedure CreatSubHead(SubTitle:Array of String); //设置常规子表头 procedure SubHeadFormat(y,r:Integer);//设置子表头格式 procedure DTSubHeadGS(x,y,r:Integer);//设置动态子表头格式 procedure WriteData(RepData:String;x,y:Integer;flag:Integer=0); //写入数据 procedure RepPageBreak(x,y,r:Integer);//分页、复制表头 procedure RepSaveAs(FileName:String); //保存为*.xls文 procedure RepPrivew;//预览 //*********************************************自己添加************************************// function FileCheck:FileCheckResult;//检查文件 function GetRowCount:Integer; published property TitleFont: TFont read FTitleFont write SetTitleFont; property CellFont: TFont read FCellFont write SetCellFont; property Visible: Boolean read FVisible write SetVisible; property IgnoreFont: Boolean read FIgnoreFont write FIgnoreFont; property FileName: TFileName read FFileName write FFileName; //*********************************来自U_Report*****************************// property RCPrePage:Integer read FRCPrePage write FRCPrePage; property MaxAC:Integer read FMax write FMax; //*********************************************自己添加************************************// property CreateFromFile:Boolean read FCreateFromFile write FCreateFromFile; property Caption:string read GetCapiton write SetCaption; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
