|
||
|
摘要：
ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。ActiveX是微软公司推出的基于组件对象模型COM的技术，包括对Windows 32位应用编程接口(Win32 API)和组件对象模型的一系列扩充和增强，目标是把计算机桌面环境与因特网环境集成起来，同时保护在Windows技术中现有的开发投资。微软的ActiveX技术根本上就是修改过的OCX技术，使它能够跨越Internet，主要是使用WWW来传递控件。 ActiveX控件可以被集成到很多支持ActiveX的应用当中去，或者直接用来扩展应用的功能，这些支持ActiveX的应用包括C++ Builder、Delph. 阅读全文
posted @ 2012-07-11 15:56 ╰★张志峰★╮ 阅读(5076) 评论(0) 推荐(0) 编辑
摘要：
Const ArrayPeriod: array[0..8] of string = ('[QJ]', '[QJ.ND]', '[QJ.BND]', '[QJ.JD]', '[QJ.YD]', '[QJ.BYD]', '[QJ.X]', '[QJ.Z]', '[QJ.R]');当作常量用。var //存储单位的固定字段 ArrayDWFixFLD: array[0..4] of string =('P_CODE', 'DW_CO 阅读全文
posted @ 2012-07-06 15:49 ╰★张志峰★╮ 阅读(662) 评论(0) 推荐(0) 编辑
摘要：
RzButtonEdit1.Hint := 'zhangzl'; RzButtonEdit1.TextHint := 'dong'; ShowMessage(RzButtonEdit1.Hint + '____' + RzButtonEdit1.TextHint); 阅读全文
posted @ 2012-07-06 10:35 ╰★张志峰★╮ 阅读(596) 评论(0) 推荐(0) 编辑
摘要：
1.提取字符串中指定子字符串前的字符串 FunctionBefore(Src:string;S:string):string; Var F:Word; begin F:=POS(Src,S); ifF=0then Before:=S else Before:=COPY(S,1,F-1); end; eg:Before('123','helloworld_123')返回结果：helloworld_ 2.提取字符串中指定子字符串后的字符串 functionAfter(Src:string;S:string):string; var F:Word; begin ... 阅读全文
posted @ 2012-07-03 14:52 ╰★张志峰★╮ 阅读(7050) 评论(0) 推荐(0) 编辑
摘要：
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) 编辑 |
||