- 博客(43)
- 收藏
- 关注
RSS订阅
原创 如何访问WebBrowser里的各种元素
访问网页中指定类型的元素比如网页有一段“<div class="c-font ">其他人还在搜</div>”，如果我要访问类型名称是“c-font”的元素，我会想到访问它的Class属性。引用MSHTML代码如下Var doc: IHtmlDocument2; i:integer;begin doc:=webbrowser1.Document as IHtmlDocument2; for i:= 0 to doc.all.length-1 do
2021-08-14 11:07:23
279
原创 足球分析师基本操作（一）异常数据
一说起足球的基本知识，玩球的人都会想起赔率，盘口，水位，甚至是凯利值返还率等，不过我今天要给大家讲的是另一种数据——异常数据凯利值，网上的概念、解释一大把，这里就不多说了（不清楚的要赶紧恶补一下了），凯利值是有一个正常范围的，但一般不超过1，一旦超过了这个结果就会有问题，这个大家都理解。但凯利值超高的深层次原因是什么呢？如果巴西和越南比赛，没人敢开高巴西的赔率，因为大家都知道巴西是会赢的，所以...
2019-06-23 21:36:51
3719
7
原创 从数据库里读取图片并显示
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
5515
1
原创 获取WebBrowser中的任一个Class或ID节点
我们知道，在Webbrowser代码中，如果有<div id="toolbar" style="position: fixed; top: 0px; left: 0px; width: 100%; z-index: 1993;"> </div>时我们可以使用WebBrowser1.OleObject.Document.getElementByID(‘toolbar’)访问到这个IHTMLElement网页元素随后就可以有WebBrowser1.OleObject.Docume
2022-05-16 16:10:38
838
原创 Delphi如何获取Excel中Range合并区域的值及相关操作
最近在做一个导入Excel的功能时，原本是要逐行读取数据的，多数都是独立的，我们获取单元格的值就很容易，这里就不重复了。但有时候上下几格的值相同时，同事就把他们合并了，虽然这是合理的，但程序读取时就麻烦了，我们人眼判断就很容易，一看到区域就找左上角的单元格的值，但程序怎样判断左上角的单元格在哪里？我们知道Excel几个Cell单元合并成Range后，值保存在左上方，也就是这个区域(1,1)单元格里，访问Range中其他Cell得到的都是空。那么问题来了，当我们程序打开Ex...
2021-08-19 08:52:49
694
原创 软件开发项目上马前要考虑的几点问题
毕业20多年了，大大小小的项目做了不少，什么HIS，MIS，ERP，MRP。。。。甚至公检法的MIS都有。我发现有些项目很顺利，处处绿灯做的很开心，但有些项目处处碰壁，进度受阻，这次我又碰到一个项目也算是反面教材了，给大家讲讲接手项目前要先调查清楚的几件事情，如果项目不好，能不接就不要接。1、领导的态度。这是重点的重点，我说的是客户领导，领导包括一把手，直属分管领导（比如二把手），他们的态度决定了这个项目至少八成的成功率。在接手公检法项目时，我了解到这是...
2021-08-12 10:55:28
251
原创 ADO数据集多条件组合无法使用Filter最终解决方案
今天遇到一个问题，查询某部门的数据后，要对这些数据进行多关键字的过滤，当用户在关键字编辑框用空格分开多个关键字，按下回车时就要过滤，将包含所有关键字的记录过滤出来。比如一条记录有20个字段，关键字有3个，当20个字段中的某些字段必须包含这3个关键字才能符合要求，如果只包含1个或2个关键字就要被过滤。 按照经验我首先想到了ADO的Filter，在关键字编辑框的KeyDown事件里写代码，定义Filter字串，然后Filter，一切都那么熟练，但是问题来了，字串的模型是这样的：(字段1 lik...
2020-06-12 16:55:49
761
原创 如何用RzTreeView显示部门结构
我们知道，一个企业、单位分很多部门，部门下面还会分子部门，如果用树形表就能 清晰的显示出部门结构来，一目了然。下面我来介绍下如何使用RzTreeview显示部门结构。一、主要表结构DepID nvarchar(50) //内部唯一ID，通常是GUIDDepCode nvarchar(20) //部门编码DepName nvarchar(30) //部门名称二、代码procedure TForm1.ADOQueryTypeAfterOpen(DataSet: TDataSet...
2020-06-09 09:52:21
1006
原创 如何使带字母的数字串像Excel一样加流水号
我在做的一个项目里，要求对物料进行编码管理，物料是多级管理的，自然编码里也会有字母和数字，A3B2003之后肯定就是A3B2004了，人是很容易理解的，但程序语言就难说了。我以前只做过纯数字的，带字母的一下子还真找不到对应的函数，所以只有自己做了。 我们知道在Excel里，带字母的数字是可以自动加1的，比如A3B2001，A3B2002，A3B2003，这在Excel里的操作相信很多人都会，但如何在Delphi里实现呢？ 从逻辑上分析，我觉得应该从最后一位开始算起，把后面几位是...
2020-06-05 15:35:24
1465
原创 如何用RxDBRichEdit显示图片
首先说下开发环境，Win10 , Embarcadero® Delphi 10.2 在用RxDBRichEdit之前，我是用OleContainer的，比如以下这段OleContainer1.CreateObject('Word.document',False);OleContainer1.DoVerb(ovPrimary);OleContainer能够在程序中完整的显示出Wo...
2020-04-07 09:56:48
381
原创 程序员都怎么了？
大龄程序员没出路，前途担忧？新人没offer没机会？最近看到不少博文、帖子在吐槽，不知什么时候开始，程序员都不好混了？ 站在软件公司的角度，利益驱动，成本控制，如果工资15K的程序员做出来的程序，一个10K的程序员也能做出来，干吗不用10K的呢，当然是越便宜越好了，没毛病。站在程序员的角度，人往高处走，有公司愿意出更高价钱请我，我干吗不去？没毛病 ...
2019-07-30 17:05:19
217
原创 19年7月21日足球推荐
1、博塔弗戈(主) VS 桑托斯大小球3个盘口的差别都不大，只有在2.5上，盈禾的高了3个点，分歧稍大，从赔率变化上看，本场比赛平局可能性较小大小球推荐：2.5 小 博2球比分推荐：1：0，1：12、英特土尔库(主) VS 洪卡大小球分歧最大的出现在2.5利记比Crown高了4个点，2.5/3上12bet比Crown高了8个点，可见这2个盘口上分歧比较大，看好小...
2019-07-21 21:22:15
1045
原创 19年7月3日足球推荐
1、荷兰女足(中) VS 瑞典女足大小球在2球盘上，18Bet小球与Crown分歧较大，但在2.5和2/2.5上，18Bet的大球Crown分歧较大。从实力上看荷兰取胜难度不大，关键是瑞典是否能进球大小球推荐：2球大，3球小，博2球，3球比分推荐：2：1，2：02、智利(中) VS 秘鲁大小球在2球上，2个庄家表现相当一致，说明2球的可能性很高，在1.5/2的小...
2019-07-03 21:52:08
764
原创 19年7月2日足球推荐
1、英格兰女足(中) VS 美国女足大小球美国女足作为学霸，实力不用多说，但英格兰实力也不容小视，在2.5/3盘口上，18bet与Crown分歧较大，大球上不看好大小球推荐：3球小，博2球，3球比分推荐：0：2，1：1，1：22、巴西(主) VS 阿根廷大小球在多个盘口上，12bet的小球表现很一致，比Bet365高出不少，但大球方向却与Bet365分歧相当小...
2019-07-02 21:53:22
264
原创 19年6月27日足球推荐
1、挪威女足(中) VS 英格兰女足大小球今晚12Bet在2，2.5球上表现很谨慎与Crown相差很小，2.5的小球盘口多了2个点，2/2.5的大球多了3个点大小球推荐：3球小，博2球，3球比分推荐：0：2，1：1，1：22、巴西(主) VS 巴拉圭大小球在2.5球的小球上，12Bet与Bet365分歧很大，3/3.5球的大球盘上2家又出现较大分歧，12bet划...
2019-06-27 22:40:26
307
原创 19年6月26日足球推荐
1、特立尼达和多巴哥(中) VS 圭亚那大小球从盘口上看，12Bet在2.5，3球盘大球盘上与Bet365分歧很大，显示这场比赛很难出大球大小球推荐：3球小，博1球，2球比分推荐：1：0，1：1...
2019-06-26 21:58:16
291
原创 19年6月25日足球推荐
1、意大利女足(中) VS 中国女足大小盘在1.5/2和2球盘上，18Bet的小球盘都比Crown大，显示18bet看好2球或以上大小球推荐：2球大2、牙买加(中) VS 库拉索大小盘12bet在2，2/2.5的小球盘与Bet365分歧比较大，到了2.5球的时候又在大球方向出现较大分歧，根据12Bet这些数据，12Bet看好小球2球，大球3球大小球推荐：3球小，...
2019-06-25 21:34:34
1591
原创 19年6月24日足球推荐
1、智利(中) VS 乌拉圭大小球在2，2.5，2.5/3这几个盘口中，12bet的大球盘口都比bet365要高，可以看出12bet并不看好大球大小球推荐：3球小异常数据最高值出现在主队，平局也有1个异常，但数量不多，看好客队不败胜平负推荐：平、负比分推荐：0：1，1：12、厄瓜多尔(中) VS 日本大小球12Bet在2.5球的小球盘比Be...
2019-06-24 21:19:28
433
原创 19年6月23日足球推荐
1、美洲杯 哥伦比亚(中) VS 巴拉圭大小球在2球盘和2.5球上，多数庄家大球都比Bet365高出不少，显示3球以上不被看好，12bet在2，2.5，2/2.5这3个盘口上都在大球赔率上比bet365高出不少。大小球推荐：3球小，2.5球小异常数据从数据上看主队异常数不少，有过热的可能，但最高异常出现在PlanetWin365、sjbet和NetBet的客队，这3...
2019-06-24 08:30:35
406
原创 贤臣为什么要择主而事
快深夜了，刚刚和领导争论完，气愤之余，我想到了一句名言：良禽择木而栖，贤臣择主而事。在你辛勤工作，为项目进度，为公司在客户那里获得更好的形象的时候，领导却只关心你是否正常考勤，有没有按公司制度办事，为什么没按他的要求做，各种怀疑，各种质问。 在开发实施过程会遇到很多突发的意外的事情，做为既开发又实施的我来说，我应该有一定的决定权的，但领导如果不是为了解决员工的困难，让员工更好的工...
2019-05-10 00:06:24
414
原创 DBGridEh字段显示段落型文字后显示异常的解决方法
最后在给客户做系统时遇到了一个棘手的问题，开单时，每个产品都有“产品说明”这个字段，我自然会用DBGridEh表格，每行一个产品，不过我发现产品的说明很长，甚至是几段文字，这时DBGridEh的RowHeight为0就是自动的话还没有问题，但当时客户说行太窄了，要调高些，这时对应这栏文字就会出现几行文字，赶紧将这个字段的EndEllips设为True，WordWrap设为False，也不行了，这下...
2019-03-28 11:28:40
334
原创 如何将TImage里的图片另存为BMP、JPG、PNG格式的文件
之前我写了如何从数据库里读取图像数据并用Image控件显示，现在讲讲如何另存为图像文件。procedure TForm_ShowPic.N1Click(Sender: TObject);var vPng:TPNGObject; vJpg:TJPEGImage; vBmp:TBitmap; vTmp:string; FType:Integer; vStream:TSt...
2019-03-26 14:04:07
2761
原创 如何从小白做起
从我的经历总结一下，如何从小白做起定好自己的方向，比如网站，前端，后台，信息系统，数据库管理，app等，我当初就是选择了流行的信息系统开发 确定这个方向上常用的开发工具或语言，比如图像用的PS，开发语言的Java等，但不是说不流行的语言就做不出好东西，这个要清楚，如果你的工具比较旧，但你能做好东西来，你一样是高手。 很多人都想成为高手，什么是高手？就是经历了很多问题并且都解决了的人，就是掌...
2019-03-19 13:04:10
189
原创 我的小白成长之路
吃饱饭没事做，想想最近很多小兄弟们在QQ微信上问应该怎么发展，我就讲我的经历吧，希望给大家做个参考。本人40了，开发时间有20年了，当时上大学的时候正流行信息系统开发，收银，进销存之类的刚刚兴起，我就选择这个热门的方向，开始学数据库。在大三的时候有幸参与老师的开发项目，用PowerBuilder做了一个收银系统，有了些开发经验。毕业后仗着有经验面试时有点傲骄，口气也比较大，现在看起来很...
2019-03-19 12:48:25
518
原创 Delphi的ReportMachine 如何判断用户在打印对话框点了“确定”还是“取消”
最近在做打印功能时遇到问题了，ReportMachine(以下简称RM)的客户在批量打印时，在ShowPrintDialog为True的情况下，如果第1个取消了，意味着客户是想要取消打印的，但是要逐个取消很麻烦，因此我们就要判断用户点了打印机窗口里的取消“按钮”。从属性上看，目前没有发现有用的属性，只能在事件上下文章了。原理是定义一个全局变量为False，在RM产生打印事件后变更变量的属性为T...
2019-02-25 10:54:30
1169
原创 设置电脑的系统时间
function SetSytemTime(aNewTime:TDateTime):Boolean;var Y,M,D,H,N,S,MS:Word; aSystemTime:TSystemTime;begin try DecodeDateTime(aNewTime,Y,M,D,H,N,S,MS); //分解时间成年月日时分秒和毫秒 with aSystemTime...
2019-02-13 08:49:59
575
原创 获取文件版本号
function GetFileVersion(vFileName: string): string;var Temp, InfoSize: Cardinal; FileData: Pointer; FileInfo: PVSFixedFileInfo;begin Result := ''; if not FileExists(vFileName) then Exit;...
2019-02-11 11:31:49
878
原创 批量修改容器内所有控件的只读属性
有时候我们需要找出某个容器如Panel，Form里面所有带只读的控件，修改他们的只读属性，如果一个个列出来修改Edit1.Readonly:=True;Edit2.Readonly:=True;Edit3.Readonly:=True;这样写就太麻烦了，所以我们要批量修改procedure SetReadOnly(cpn:TComponent;bSetValue:Boolean...
2019-02-11 11:28:29
889
原创 如何防止窗口闪动
有时候我们在操作窗口的过程中，窗口会刷新导致闪动，为了防止窗口的闪动，我们在操作前后各加一些语句，可以防止窗口闪动。SendMessage(Application.MainForm.Handle,WM_SETREDRAW,0,0); //禁止更新窗口自己的代码SendMessage(Application.MainForm.Handle,WM_SETREDRAW,1,0); //可以...
2019-02-11 11:13:21
837
原创 ADO数据和数据集状态判断
ADOQuery1.State in [dsInsert,dsEdit] //数据集状态是新增或编辑状态ADOQuery1.RecordStatus =[rsNew] //数据状态是新增状态ADOQuery1.RecordStatus =[rsModified] //数据状态是修改状态...
2019-02-11 10:59:22
1574
原创 获取系统临时目录
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
491
转载 获取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
243
原创 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
2761
原创 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
1451
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
1110
原创 查询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
1232
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人