自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+

数据狂的专栏

将自己长年从事Delphi7+Ms Sql信息系统开发的经验与大家分享交流,欢迎评论点赞,谢谢!

  • 博客(38)
  • 论坛 (16)
  • 收藏
  • 关注

原创 Delphi如何获取Excel中Range合并区域的值及相关操作

最近在做一个导入Excel的功能时,原本是要逐行读取数据的,多数都是独立的,我们获取单元格的值就很容易,这里就不重复了。但有时候上下几格的值相同时,同事就把他们合并了,虽然这是合理的,但程序读取时就麻烦了,我们人眼判断就很容易,一看到区域就找左上角的单元格的值,但程序怎样判断左上角的单元格在哪里?我们知道Excel几个Cell单元合并成Range后,值保存在左上方,也就是这个区域(1,1)单元格里,访问Range中其他Cell得到的都是空。那么问题来了,当我们程序打开Ex...

2021-08-19 08:52:49 48

原创 如何访问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 29

原创 软件开发项目上马前要考虑的几点问题

毕业20多年了,大大小小的项目做了不少,什么HIS,MIS,ERP,MRP。。。。甚至公检法的MIS都有。我发现有些项目很顺利,处处绿灯做的很开心,但有些项目处处碰壁,进度受阻,这次我又碰到一个项目也算是反面教材了,给大家讲讲接手项目前要先调查清楚的几件事情,如果项目不好,能不接就不要接。1、领导的态度。这是重点的重点,我说的是客户领导,领导包括一把手,直属分管领导(比如二把手),他们的态度决定了这个项目至少八成的成功率。在接手公检法项目时,我了解到这是...

2021-08-12 10:55:28 16

原创 足球分析师基本操作(一)异常数据

一说起足球的基本知识,玩球的人都会想起赔率,盘口,水位,甚至是凯利值返还率等,不过我今天要给大家讲的是另一种数据——异常数据凯利值,网上的概念、解释一大把,这里就不多说了(不清楚的要赶紧恶补一下了),凯利值是有一个正常范围的,但一般不超过1,一旦超过了这个结果就会有问题,这个大家都理解。但凯利值超高的深层次原因是什么呢?如果巴西和越南比赛,没人敢开高巴西的赔率,因为大家都知道巴西是会赢的,所以...

2019-06-23 21:36:51 1769 6

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

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 4756 1

原创 ADO数据集多条件组合无法使用Filter最终解决方案

今天遇到一个问题,查询某部门的数据后,要对这些数据进行多关键字的过滤,当用户在关键字编辑框用空格分开多个关键字,按下回车时就要过滤,将包含所有关键字的记录过滤出来。比如一条记录有20个字段,关键字有3个,当20个字段中的某些字段必须包含这3个关键字才能符合要求,如果只包含1个或2个关键字就要被过滤。 按照经验我首先想到了ADO的Filter,在关键字编辑框的KeyDown事件里写代码,定义Filter字串,然后Filter,一切都那么熟练,但是问题来了,字串的模型是这样的:(字段1 lik...

2020-06-12 16:55:49 245

原创 如何用RzTreeView显示部门结构

我们知道,一个企业、单位分很多部门,部门下面还会分子部门,如果用树形表就能 清晰的显示出部门结构来,一目了然。下面我来介绍下如何使用RzTreeview显示部门结构。一、主要表结构DepID nvarchar(50) //内部唯一ID,通常是GUIDDepCode nvarchar(20) //部门编码DepName nvarchar(30) //部门名称二、代码procedure TForm1.ADOQueryTypeAfterOpen(DataSet: TDataSet...

2020-06-09 09:52:21 760

原创 如何使带字母的数字串像Excel一样加流水号

我在做的一个项目里,要求对物料进行编码管理,物料是多级管理的,自然编码里也会有字母和数字,A3B2003之后肯定就是A3B2004了,人是很容易理解的,但程序语言就难说了。我以前只做过纯数字的,带字母的一下子还真找不到对应的函数,所以只有自己做了。 我们知道在Excel里,带字母的数字是可以自动加1的,比如A3B2001,A3B2002,A3B2003,这在Excel里的操作相信很多人都会,但如何在Delphi里实现呢? 从逻辑上分析,我觉得应该从最后一位开始算起,把后面几位是...

2020-06-05 15:35:24 716

原创 如何用RxDBRichEdit显示图片

首先说下开发环境,Win10 , Embarcadero® Delphi 10.2 在用RxDBRichEdit之前,我是用OleContainer的,比如以下这段OleContainer1.CreateObject('Word.document',False);OleContainer1.DoVerb(ovPrimary);OleContainer能够在程序中完整的显示出Wo...

2020-04-07 09:56:48 157

原创 程序员都怎么了?

大龄程序员没出路,前途担忧?新人没offer没机会?最近看到不少博文、帖子在吐槽,不知什么时候开始,程序员都不好混了? 站在软件公司的角度,利益驱动,成本控制,如果工资15K的程序员做出来的程序,一个10K的程序员也能做出来,干吗不用10K的呢,当然是越便宜越好了,没毛病。站在程序员的角度,人往高处走,有公司愿意出更高价钱请我,我干吗不去?没毛病 ...

2019-07-30 17:05:19 125

原创 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 200

原创 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 182

原创 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 101

原创 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 130

原创 19年6月26日足球推荐

1、特立尼达和多巴哥(中) VS 圭亚那大小球从盘口上看,12Bet在2.5,3球盘大球盘上与Bet365分歧很大,显示这场比赛很难出大球大小球推荐:3球小,博1球,2球比分推荐:1:0,1:1...

2019-06-26 21:58:16 112

原创 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 216

原创 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 128

原创 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 150

原创 贤臣为什么要择主而事

快深夜了,刚刚和领导争论完,气愤之余,我想到了一句名言:良禽择木而栖,贤臣择主而事。在你辛勤工作,为项目进度,为公司在客户那里获得更好的形象的时候,领导却只关心你是否正常考勤,有没有按公司制度办事,为什么没按他的要求做,各种怀疑,各种质问。 在开发实施过程会遇到很多突发的意外的事情,做为既开发又实施的我来说,我应该有一定的决定权的,但领导如果不是为了解决员工的困难,让员工更好的工...

2019-05-10 00:06:24 174

原创 DBGridEh字段显示段落型文字后显示异常的解决方法

最后在给客户做系统时遇到了一个棘手的问题,开单时,每个产品都有“产品说明”这个字段,我自然会用DBGridEh表格,每行一个产品,不过我发现产品的说明很长,甚至是几段文字,这时DBGridEh的RowHeight为0就是自动的话还没有问题,但当时客户说行太窄了,要调高些,这时对应这栏文字就会出现几行文字,赶紧将这个字段的EndEllips设为True,WordWrap设为False,也不行了,这下...

2019-03-28 11:28:40 147

原创 如何将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 1877

原创 如何从小白做起

从我的经历总结一下,如何从小白做起定好自己的方向,比如网站,前端,后台,信息系统,数据库管理,app等,我当初就是选择了流行的信息系统开发 确定这个方向上常用的开发工具或语言,比如图像用的PS,开发语言的Java等,但不是说不流行的语言就做不出好东西,这个要清楚,如果你的工具比较旧,但你能做好东西来,你一样是高手。 很多人都想成为高手,什么是高手?就是经历了很多问题并且都解决了的人,就是掌...

2019-03-19 13:04:10 136

原创 我的小白成长之路

吃饱饭没事做,想想最近很多小兄弟们在QQ微信上问应该怎么发展,我就讲我的经历吧,希望给大家做个参考。本人40了,开发时间有20年了,当时上大学的时候正流行信息系统开发,收银,进销存之类的刚刚兴起,我就选择这个热门的方向,开始学数据库。在大三的时候有幸参与老师的开发项目,用PowerBuilder做了一个收银系统,有了些开发经验。毕业后仗着有经验面试时有点傲骄,口气也比较大,现在看起来很...

2019-03-19 12:48:25 456

原创 Delphi的ReportMachine 如何判断用户在打印对话框点了“确定”还是“取消”

最近在做打印功能时遇到问题了,ReportMachine(以下简称RM)的客户在批量打印时,在ShowPrintDialog为True的情况下,如果第1个取消了,意味着客户是想要取消打印的,但是要逐个取消很麻烦,因此我们就要判断用户点了打印机窗口里的取消“按钮”。从属性上看,目前没有发现有用的属性,只能在事件上下文章了。原理是定义一个全局变量为False,在RM产生打印事件后变更变量的属性为T...

2019-02-25 10:54:30 694

原创 设置电脑的系统时间

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 481

原创 获取文件版本号

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 696

原创 批量修改容器内所有控件的只读属性

有时候我们需要找出某个容器如Panel,Form里面所有带只读的控件,修改他们的只读属性,如果一个个列出来修改Edit1.Readonly:=True;Edit2.Readonly:=True;Edit3.Readonly:=True;这样写就太麻烦了,所以我们要批量修改procedure SetReadOnly(cpn:TComponent;bSetValue:Boolean...

2019-02-11 11:28:29 680

原创 如何防止窗口闪动

有时候我们在操作窗口的过程中,窗口会刷新导致闪动,为了防止窗口的闪动,我们在操作前后各加一些语句,可以防止窗口闪动。SendMessage(Application.MainForm.Handle,WM_SETREDRAW,0,0); //禁止更新窗口自己的代码SendMessage(Application.MainForm.Handle,WM_SETREDRAW,1,0); //可以...

2019-02-11 11:13:21 684

原创 ADO数据和数据集状态判断

ADOQuery1.State in [dsInsert,dsEdit]  //数据集状态是新增或编辑状态ADOQuery1.RecordStatus =[rsNew] //数据状态是新增状态ADOQuery1.RecordStatus =[rsModified] //数据状态是修改状态...

2019-02-11 10:59:22 901

原创 获取系统临时目录

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 354

转载 获取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 170

原创 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 1539

原创 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 958 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 655

原创 查询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 1007

原创 我在DBGridEh增加一栏复选框及对应操作的解决方案

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

2019-01-10 10:27:21 3065

原创 MS SQL安装失败问题总结

 1、机器名不能为中文,不能为大小写混写,要改为大写。 (这个不一定)2、XP只能安装个人版。3、安装sql的时候,如果出现以前有挂起的文件。可以删除注册表以下的内容就可以继续安装了。HLM/SYSTEM/CurrentControlSet/Control/Session Manager/PendingFileRenameOperations4、安装路径不能包含中文字,这是最常见的问题。

2009-07-04 12:35:00 701

原创 DELPHI自定义颜色的使用技巧

 DELPHI用了很多年了,有件小事一直很麻烦,就是重装后以前自定义的颜色就没有了,今天在做工程的时候又碰到这个问题,幸好原来的工程里还保留着原来的颜色代码,在注册表里搜索了很久,终于找到了保存自定义颜色的地方,在这里给朋友分享一下,路径是:HKEY_CURRENT_USER/Software/Borland/Delphi/7.0/Custom Colors,里面保存了16个自定义颜色,以后只要备

2009-07-04 12:30:00 723

空空如也

求报表控件

发表于 2020-10-28 最后回复 2020-10-28

Delphi送分题来了

发表于 2019-04-08 最后回复 2019-11-11

大龄程序不用太悲观

发表于 2019-08-06 最后回复 2019-08-07

关于一物多码问题的看法

发表于 2019-01-28 最后回复 2019-05-05

Delphi7 Report Machine5.5 显示二维码的问题

发表于 2019-02-19 最后回复 2019-03-23

Delphi7的WebBrowser如何全选并复制浏览器上的文字?

发表于 2019-02-01 最后回复 2019-02-19

DELPHI 7编译IDL出错。十万火急!!请大家帮忙!!!

发表于 2003-12-22 最后回复 2013-03-12

有这种Grid吗?

发表于 2005-11-13 最后回复 2005-11-15

请问IT顾问的价格是多少?

发表于 2005-10-30 最后回复 2005-11-11

今天四个裤衩了,特别高兴,散分了!

发表于 2004-11-12 最后回复 2004-11-12

能在win2000登录前运行我的程序吗?

发表于 2004-10-14 最后回复 2004-10-19

今天遇到了奇怪的问题!在线等

发表于 2004-10-06 最后回复 2004-10-07

如何判断某个机器名或者ip地址是在局域内,还是外网的呢?

发表于 2004-09-20 最后回复 2004-10-06

服务器上如何获取客户端的ip地址,如果是远程登录的要知道它的外网ip。分不够可以加!

发表于 2004-09-25 最后回复 2004-09-27

请问dbgrid的cell有类似gettext的事件吗?

发表于 2004-09-16 最后回复 2004-09-16

CORBA程序问题,高分相送!

发表于 2003-12-25 最后回复 2003-12-31

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人 TA的粉丝

提示
确定要删除当前文章?
取消 删除