victor_yang的专栏

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

贤臣为什么要择主而事

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

2019-05-10 00:06:24

阅读数 6

评论数 0

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

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

2019-03-28 11:28:40

阅读数 14

评论数 0

如何将TImage里的图片另存为BMP、JPG、PNG格式的文件

之前我写了如何从数据库里读取图像数据并用Image控件显示,现在讲讲如何另存为图像文件。 procedure TForm_ShowPic.N1Click(Sender: TObject); var vPng:TPNGObject; vJpg:TJPEGImage; vBmp:TBi...

2019-03-26 14:04:07

阅读数 35

评论数 0

如何从小白做起

从我的经历总结一下,如何从小白做起 定好自己的方向,比如网站,前端,后台,信息系统,数据库管理,app等,我当初就是选择了流行的信息系统开发 确定这个方向上常用的开发工具或语言,比如图像用的PS,开发语言的Java等,但不是说不流行的语言就做不出好东西,这个要清楚,如果你的工具比较旧,但你能做...

2019-03-19 13:04:10

阅读数 18

评论数 0

我的小白成长之路

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

2019-03-19 12:48:25

阅读数 379

评论数 0

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

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

2019-02-25 10:54:30

阅读数 52

评论数 0

设置电脑的系统时间

function SetSytemTime(aNewTime:TDateTime):Boolean; var   Y,M,D,H,N,S,MS:Word;   aSystemTime:TSystemTime; begin   try     DecodeDateTime(aNewTime,Y,M,...

2019-02-13 08:49:59

阅读数 93

评论数 0

获取文件版本号

function GetFileVersion(vFileName: string): string; var   Temp, InfoSize: Cardinal;   FileData: Pointer;   FileInfo: PVSFixedFileInfo; begin   Result...

2019-02-11 11:31:49

阅读数 38

评论数 0

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

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

2019-02-11 11:28:29

阅读数 70

评论数 0

如何防止窗口闪动

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

2019-02-11 11:13:21

阅读数 176

评论数 0

ADO数据和数据集状态判断

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

2019-02-11 10:59:22

阅读数 82

评论数 0

获取系统临时目录

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

2019-01-21 11:15:16

阅读数 31

评论数 0

获取CUP的ID

function GetCPUID:string; var    _eax, _ebx, _ecx, _edx: Longword;    s, s1, s2: string; begin   asm      push eax      push ebx      push ecx      p...

2019-01-21 11:11:50

阅读数 14

评论数 0

Delphi常用的Excel操作

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

2019-01-21 11:07:30

阅读数 72

评论数 0

adodataset locate的多条件定位

TAdoQuery,TADODataSet的Locate功能相信大家都经常用了 with ADOQuery do begin   if Locate('orders;Zhuang1',VarArrayOf([vorder,vname]),[]) then   begin   end; end; ...

2019-01-21 10:40:50

阅读数 60

评论数 0

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

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

2019-01-10 11:11:33

阅读数 66

评论数 0

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

procedure TForm_QTOrder1.ShowPic; var   vStr:TADOBlobStream;   vTmp,vPicType:string;   vtmpPath:PChar; begin   inherited;   Image1.Picture.Graphic:=...

2019-01-10 10:42:55

阅读数 371

评论数 1

查询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...

2019-01-10 10:32:31

阅读数 140

评论数 0

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

最近客户有个需求,要求对单据列表里指定的单据进行批量审核,很自然的,我想到了在DBGridEh增加一栏复选框的列,审核时遍历所有单据,将打了勾的单据审核就可以了。查阅了网上很多文章,不外有2个方案,1是在数据表里增加字段,2是直接在DBGridEh增加一个没有字段的栏,也许是我笨吧,2种方案试过了...

2019-01-10 10:27:21

阅读数 368

评论数 0

MS SQL安装失败问题总结

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

2009-07-04 12:35:00

阅读数 194

评论数 0

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