我的未来

摘要： 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 阅读全文

摘要： 最近给公司其它部门做了一个数据处理并导出EXCEL工具，先前用delphi7开发的，一直用着没有问题，有了点新需求，我就顺便安装了最新版delphi xe2，但是在应用过程中只要是数字型的列都显示为64，我就查找原因，功夫不负有心人，终于找到了。 在DELPHI7 下 FailSheet.Columns[1].NumberFormatlocal:='@';这样写是没有问题的，导出的数据均是文本格式，但是在 delphi xe2 下就显示为64，在delphi xe2 下需要在@后加一个空格，FailSheet.Columns[1].NumberFormatlocal:=' 阅读全文

摘要： 在进行数据库导出到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 阅读全文