|
||
|
摘要：
var Qry:TAdoQuery; singleRecord,Response:string;begin Context.Response:='获取合约列表返回数据！'; Qry:=TAdoQuery.Create(nil); try try Qry.Connection:=Context.Cn; Qry.Close; Qry.SQL.Clear; Qry.SQL.Add('select * from wmnow..code'); Qry.Open; while not Qry.Eof do begin singleRecord:=Qry.FieldByNam 阅读全文
posted @ 2012-04-07 12:29 MKing 阅读(256) 评论(0) 推荐(0)
摘要：
最近给公司其它部门做了一个数据处理并导出EXCEL工具，先前用delphi7开发的，一直用着没有问题，有了点新需求，我就顺便安装了最新版delphi xe2，但是在应用过程中只要是数字型的列都显示为64，我就查找原因，功夫不负有心人，终于找到了。 在DELPHI7 下 FailSheet.Columns[1].NumberFormatlocal:='@';这样写是没有问题的，导出的数据均是文本格式，但是在 delphi xe2 下就显示为64，在delphi xe2 下需要在@后加一个空格，FailSheet.Columns[1].NumberFormatlocal:=' 阅读全文
posted @ 2012-04-07 12:29 MKing 阅读(233) 评论(0) 推荐(0)
摘要：
在进行数据库导出到Excel时，常会用到将列，如 第1列转换为 A，第2列转换为 B 的情况。这时你就要写算法了。哈哈，我这里有现成的了。先上代码，后解析。 function CellToRef(const X,Y:Integer):string; function GetRef(const X:Integer):string; var token,I,R:Integer; begin Result:=''; token:=X; repeat I := token div 26; R := token mod 26; if R <> 0 then begin Res 阅读全文
posted @ 2012-04-07 12:28 MKing 阅读(979) 评论(0) 推荐(0)
摘要：
转自http://www.cnblogs.com/pengshaomin/archive/2012/02/15/2352415.htmlunit Unit2; interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Buttons; typeTinfoForm = class(TForm) Label3: TLabel; ListClasses: TListBox; Panel1: TPanel; Label1: TL 阅读全文
posted @ 2012-03-12 11:56 MKing 阅读(121) 评论(0) 推荐(0)
摘要：
TDateTime 的相关用法 转自http://www.cnblogs.com/edisonfeng/archive/2012/02/24/2366744.html 年纪大了真的记忆力越来越差，这段时间现在开始摸 XE2了，昨天在项目组中看到编译顺序，今天再想看看在那里就是找不到了！看来想到的东西还是要记录下来！ TDateTime 是 Delphi里常用的类，负责时间的存储，他与C#里面的是有区别的（用了一段时间的C#,回国头来，Delphi有点不习惯了，呵呵），基础类型是Double，其取值范围是 从 12/30/1899开始，比如6:00 AM 12/29/1899就是 -1.25 . 阅读全文
posted @ 2012-03-12 11:51 MKing 阅读(428) 评论(0) 推荐(0)
摘要：
转自http://bbs.2ccc.com/topic.asp?topicid=398928这个问题我以前发过，但解决的不完满。egust后来发给我一堆似天书般的源码，我没看懂也没有用起来。今天我发布的源码对于Delphi窗体适应于不同屏幕分辨率的问题有个比较完美的解决方案，我做了好写试验，原来调整不好的窗体控件分布，现在都会随着屏幕分辨率的变化而排列得规规矩矩了。比较闹心的是字体，有时候某些机器屏幕分辨率过低，则会显得字体过小而看不清，如果放大字体，就会出现字被吃掉的情况。源码如下。应用方法是，创建新的窗体时，将窗体类继承自这里两个类中之一就可以了。（科学网的博文链接见：http://blo 阅读全文
posted @ 2012-03-12 11:49 MKing 阅读(1513) 评论(1) 推荐(0)
摘要：
functionTForm1.ExportDBGrid(DBGrid:TDBGrid;SheetName:string):Boolean;//直接保存，不显示EXCELvarc,r,i,j:integer;app:Olevariant;TempFileName,ResultFileName:string;begintryresult:=True;app:=CreateOLEObject('Excel.application');//app.WorkBooks.Add(xlWBatWorkSheet);exceptApplication.MessageBox('Excel 阅读全文
posted @ 2011-03-15 19:31 MKing 阅读(373) 评论(0) 推荐(0)
摘要：
数据库连接字符串--Access 连接字符串ODBC 标准安全策略Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Uid=Admin;Pwd=;工作组Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;SystemDB=C:\mydatabase.mdw;独占模式Driver={Microsoft Access Driver (*.mdb)};Dbq=C:\mydatabase.mdb;Exclusive=1;Uid=admin;Pwd=;管理 阅读全文
posted @ 2011-03-15 12:51 MKing 阅读(408) 评论(0) 推荐(0)
摘要：
在一个程序中你会多次查询数据库的，因此在你写的查询方法中定义一个局部的ADOQuery就可以了，它返回一个数据集_RecordSet。最简单的应用如下：functionGetData:_RecordSet; //获取一张表中的全部数据（_RecordSet是一种类型）var TaADOQ:TADOQuery; //声明begin TaADOQ:=TADOQuery.Create(nil); //创建 TaADOQ.Connection:=ADOCon; //意思是ADOQuery连接数据库时用ADOConnection建立好的连接。 TaADOQ.SQL.Text:='select*f 阅读全文
posted @ 2011-03-15 11:50 MKing 阅读(1013) 评论(0) 推荐(0) |
||
浙公网安备 33010602011771号