2019年01月_victor_yang

原创从数据库里读取图片并显示

procedure TForm_QTOrder1.ShowPic;var vStr:TADOBlobStream; vTmp,vPicType:string; vtmpPath:PChar;begin inherited; Image1.Picture.Graphic:=nil; //清空图像控件里的图像 vstr:=TADOBlobStream.Create(TB...

2019-01-10 10:42:55 5611 1

原创获取系统临时目录

var vTmp:string; vtmpPath:PChar;begin GetMem(vtmpPath,MAX_PATH); //分配空间,MAX_PATH是常量 GetTempPath(MAX_PATH,vtmpPath); //获取系统临时目录，写入变量 vTmp:=StrPas(vtmpPath); //将变量从PChar变成string型 FreeMem(...

2019-01-21 11:15:16 525

转载获取CUP的ID

function GetCPUID:string;var _eax, _ebx, _ecx, _edx: Longword; s, s1, s2: string;begin asm push eax push ebx push ecx push edx mov eax,1 db $0F,$A2 mov _ea...

2019-01-21 11:11:50 275

原创 Delphi常用的Excel操作

以下是我在Delphi中用过的Excel操作ExlApp:=CreateOLEObject('Excel.Application'); //创建对象ExlApp.Visible :=False;// True; //是否显示ExlApp.DisplayAlerts := False; //是否显示警告ExlApp.Caption:=aTitle; //设置标题ExlApp....

2019-01-21 11:07:30 2935

原创 adodataset locate的多条件定位

TAdoQuery，TADODataSet的Locate功能相信大家都经常用了with ADOQuery dobegin if Locate('orders;Zhuang1',VarArrayOf([vorder,vname]),[]) then begin end;end;可能大家有时候也会发现它有不灵的时候，我发现是VarArrayOf后面的变量在为空或者为NULL时，...

2019-01-21 10:40:50 1551 2

原创字符的数学公式取得计算结果

有时候我们在文本框里写了’1+1‘，怎么能让他变成公式计算出结果？我提供2种方案供大家参考一、function Cal(expStr:string):string;var js: OleVariant;begin js := CreateOleObject('ScriptControl'); js.Language := 'JavaScript'; Result := ...

2019-01-10 11:11:33 1168

原创查询access数据库数据

with ADOQueryExcept1 do begin SQL.Clear; SQL.Add('select * from ('); SQL.Add('select a.Pankou,a.K1,a.K2,a.K3,a.Dif1,a.Dif2,a.Dif3,b.P1,b.TestType,b.Times as Times1,b.Hit as Hit1,b.Rate as...

2019-01-10 10:32:31 1267

最近客户有个需求，要求对单据列表里指定的单据进行批量审核，很自然的，我想到了在DBGridEh增加一栏复选框的列，审核时遍历所有单据，将打了勾的单据审核就可以了。查阅了网上很多文章，不外有2个方案，1是在数据表里增加字段，2是直接在DBGridEh增加一个没有字段的栏，也许是我笨吧，2种方案试过了都不行，于是只能自己想办法了。研究了半天结合前面的2个方案，我想到了一个解决的方法，分享给大家吧。...

2019-01-10 10:27:21 4021

数据狂的专栏