|
||
|
摘要：
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, XLSReadWriteII2, StdCtrls, XLSUtils2;type TForm1 = class(TForm) aXlsObj: TXLSReadWriteII2; Button1: TButton; aSaveDialog: TSaveDialog; procedure Button1Click(Sender: TObject); private { Priva 阅读全文
posted @ 2012-06-13 11:38 ╰★张志峰★╮ 阅读(1166) 评论(0) 推荐(0) 编辑
摘要：
unitMain;interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Grids, Tabs, Cell2,{$ifdef ver140} Variants,{$endif} XLSUtils2, XLSReadWriteII2;type TForm8 = class(TForm) Label1: TLabel; edFilename: TEdit; Button1: TButton; Button2: TButton; Button3: TButto 阅读全文
posted @ 2012-06-13 10:00 ╰★张志峰★╮ 阅读(1183) 评论(0) 推荐(0) 编辑
摘要：
unit XLSReadII2;{*************************************************************************************** XLSReadWriteII V2.00 ************** ************** Copyright(C) 1999,2004 Lars Arvidsson, Axolot Data ************** ************** email: components@axolot.com ************** URL: http://www.axo 阅读全文
posted @ 2012-06-13 09:47 ╰★张志峰★╮ 阅读(1268) 评论(0) 推荐(0) 编辑
摘要：
TXLSReadWriteII2 按行读取数据（写得复杂了点，实际项目中的，可以自己简化）procedure TformMain.LoadGeneralObject(_type, _col, _row: Integer; _filename: AnsiString);var xls: TXLSReadWriteII2; i: integer; dataRec: TDataRec; reportedRec: TReportedRec; RegistrationNO: AnsiString; StartstopTime: AnsiString; LastTime: AnsiString; Owne 阅读全文
posted @ 2012-06-13 09:06 ╰★张志峰★╮ 阅读(1928) 评论(0) 推荐(0) 编辑
摘要：
2011-08-04 9:50TXLSReadWriteII导出Excle (有点复杂，可以自己简化一下，直接从项目中抓取的)procedure TformSubReport.DataToExcel(_Item: Integer; _Obj: TObject); //导出Exclevar i, j, k: Integer; aVendorObj: TVendor; aEnterpriseObj: TEnterprise; aXlsObj: TXLSReadWriteII; aFileName: AnsiString; aCarRec: PCarRec; aOnLine: AnsiString; 阅读全文
posted @ 2012-06-13 09:04 ╰★张志峰★╮ 阅读(2585) 评论(0) 推荐(0) 编辑
摘要：
TXLSReadWriteII2版本导出Excel文件：procedure TForm1.N1Click(Sender: TObject);var i: Integer; aSaveDialog: TSaveDialog; aFileName, aStampTime: AnsiString; aXlsObj: TXLSReadWriteII2; p: PDataRec;begin aSaveDialog := TSaveDialog.Create(Self); try aSaveDialog.InitialDir := ExtractFilePath(ParamStr(0)); aSaveDi 阅读全文
posted @ 2012-06-13 09:02 ╰★张志峰★╮ 阅读(956) 评论(0) 推荐(1) 编辑 |
||