张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi 操作Excel几种控件的用法

Delphi Excel导入 的通用程序 2.

摘要：Delphi Excel导入 的通用程序 .分类： delphi 2012-09-24 18:20 257人阅读 评论(0) 收藏 举报 exceldelphiinteger数据库c步骤:1 连excel(自己知道其格式,最好是没个字段在数据一一对应)2 读excel数据,填入到数据库我这里有个函数,实现把excel表格中数据导入数据库,在一条数据导入前判断数据库中是否有该数据,如果有,就不再导入该数据(避免重复),你可以参考下procedure TForm_qyxxcx.BitBtn2Click(Sender: TObject);VAR I,J:INTEGER; col,row:intege 阅读全文

posted @ 2013-05-24 13:54 ╰★张志峰★╮ 阅读(5300) 评论(0) 推荐(0)

Delphi Excel导入 的通用程序 .

摘要：Delphi Excel导入 的通用程序 .分类： delphi 2012-09-24 18:19 127人阅读 评论(0) 收藏 举报 exceldelphiintegerprocedure TForm1.btnClick(Sender: TObject);begin OpenDialog1.Title := '请选择正确的excel文件'; OpenDialog1.Filter := 'Excel(*.xls)|*.xls'; if OpenDialog1.Execute then edit1.Text := OpenDialog1.FileName;end 阅读全文

posted @ 2013-05-24 13:52 ╰★张志峰★╮ 阅读(2901) 评论(0) 推荐(0)

Delphi TXLSReadWriteII 公式计算

摘要：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 ╰★张志峰★╮ 阅读(1190) 评论(0) 推荐(0)

Delphi TXLSReadWriteII2 带的demo中 edit的例子

摘要：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 ╰★张志峰★╮ 阅读(1204) 评论(0) 推荐(0)

Delphi unit XLSReadII2;

摘要：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 ╰★张志峰★╮ 阅读(1337) 评论(0) 推荐(0)

Delphi TXLSReadWriteII2 读取数据

摘要：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 ╰★张志峰★╮ 阅读(1961) 评论(0) 推荐(0)

Delphi TXLSReadWriteII导出Excel

摘要：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 ╰★张志峰★╮ 阅读(2639) 评论(0) 推荐(0)

Delphi TXLSReadWriteII2 导出Excel

摘要：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 ╰★张志峰★╮ 阅读(976) 评论(0) 推荐(1)