09 2019 档案

delphi 多线程定时执行程序如何写
摘要:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs; type TSysChatMainForm = class(TForm) procedure FormCreate(Sender: TObject); procedure For 阅读全文

posted @ 2019-09-28 16:14 癫狂编程 阅读(705) 评论(0) 推荐(0) 编辑

细聊Oracle通过ODBC数据源连接SQL Server数据库
摘要:类似文章搜索引擎上有很多,内容大致相同,今天所谓细聊是因为我在借鉴这些文章时候走了些弯路,所以写此文,为自己备忘,同时如果能为初涉此处知识点的小伙伴提供些帮助就更好了,文章结尾处的一些扩展有一定实战意义,废话不多说。 我的应用场景: 项目系统使用oracle数据库,与客户的第三方系统供应商实现资源共 阅读全文

posted @ 2019-09-27 16:02 癫狂编程 阅读(1786) 评论(0) 推荐(0) 编辑

SqlServer触发器常用语法AFTER、INSTEAD OF及其详解
摘要:先创建一个简单的触发器 阅读全文

posted @ 2019-09-27 12:56 癫狂编程 阅读(1175) 评论(0) 推荐(0) 编辑

win8(x64)下,重新安装delphi 2007时出现“Invalid Serial Number”,如何解决?
摘要:1)在添加删除程序里卸载delphi 2007 2)删除C:\ProgramData\CodeGear 3)删除C:\Program Files (x86)CodeGear 4)删除d:\Program Files (x86)CodeGear (我一般选择d盘安装程序) 5)删除注册表下codege 阅读全文

posted @ 2019-09-23 18:42 癫狂编程 阅读(699) 评论(0) 推荐(0) 编辑

解决软件卸载时Abstract: "Invalid serial number" xe4
摘要:In RAD Studio, Delphi, C++Builder, XE4 there can become a scenario if you try to modify, repair, upgrade, or even remove the installation you will get 阅读全文

posted @ 2019-09-23 18:41 癫狂编程 阅读(214) 评论(0) 推荐(0) 编辑

Delphi 数据类型列表
摘要:分类 范围 字节 备注 简单类型 序数 整数 Integer -2147483648 .. 2147483647 4 有符号32位 Cardinal 0 .. 4294967295 4 无符号32位 Shortint -128 .. 127 1 有符号8位 Smallint -32768 .. 32 阅读全文

posted @ 2019-09-22 18:05 癫狂编程 阅读(171) 评论(0) 推荐(0) 编辑

delphi self.Update 什么作用
摘要:更新指定窗口的客户区。如果窗口更新的区域不为空,UpdateWindow函数就发送一个WM_PAINT消息来更新指定窗口的客户区。函数绕过应用程序的消息队列,直接发送WM_PAINT消息给指定窗口的窗口过程,如果更新区域为空,则不发送消息。相当于刷新一下窗口 阅读全文

posted @ 2019-09-22 17:54 癫狂编程 阅读(394) 评论(0) 推荐(0) 编辑

delphi之完美Splash方案(在TfrmMain.FormCreate里不断调用TfrmSplash显示加载进度文字,并且及时Update显示)
摘要:前言:网上有很多介绍delphi创建闪屏的代码,大多只是在程序开启前显示一个闪屏,但是却没有说如何在闪屏上显示程序加载的进度,于是笔者有意思介绍一下这种闪屏方式。 1.创建一个窗体(TfrmSplash),放入一个TImageBox,加载一幅图片,调整好TImageBox与图片的大小,然后在其上放入 阅读全文

posted @ 2019-09-22 17:50 癫狂编程 阅读(476) 评论(0) 推荐(0) 编辑

怎样制作像delphi一样的启动欢迎画面?
摘要://在工程里面写 Application.Initialize; Application.Title := '管理系统'; Application.ShowHint := True; //闪现窗体创建显示 FormSplash := TFormSplash.Create(Application); FormSplash.Show; FormSplash.Update; Application.Cr 阅读全文

posted @ 2019-09-22 17:45 癫狂编程 阅读(543) 评论(0) 推荐(0) 编辑

DELPHI (VCL及FMX[Firemonkey])启动时的欢迎窗口实现代码
摘要:VCL里面的的实现 阅读全文

posted @ 2019-09-22 17:40 癫狂编程 阅读(585) 评论(0) 推荐(0) 编辑

借方与贷方怎么区别
摘要:借方表示增加,货方表示减少,有借必有贷,借贷必相等。做账时如果有增加项,就一定要有减少项,否则账就做不平。 借方和贷方与现实中的借贷并没有直接的关系。它在会计中就相当于是两个符号一样,一个是增(+),一个是减(—)。只是根据原则,资费成(资产,费用,成本)增加在借方,减少在贷方;债权收(负债,所有者 阅读全文

posted @ 2019-09-22 16:46 癫狂编程 阅读(4775) 评论(0) 推荐(0) 编辑

Delphi XE6 使用定时器或者线程解决程序界面无响应问题
摘要:恢复内容开始 介绍在手机应用上,我们不应该使用速度慢的代码,当然我们在桌面程序上也应该避免这个,当手机应用长时间没有相应的时候,程序会提示“程序没响应,是否关闭”的提示,这个非常不好,所以我们需要来解决这个问题。下面是一个普通代码,通过for来循环添加ListVIew行,代码很简单,大家都见过 在运 阅读全文

posted @ 2019-09-11 13:28 癫狂编程 阅读(796) 评论(0) 推荐(0) 编辑

Windows自动计划任务与ParamStr详解
摘要:ParamStr函数: ParamStr(1),..ParamStr(N) ParamStr(1)代表程序入口的第一个参数,同理,ParamStr(N)代表第N个参数。可通过如下操作进行参数的赋值。 例如: C盘下面有个1.exe可执行程序; 在Win+R下输入:C:\1.exe 1 2 3 ... 阅读全文

posted @ 2019-09-11 13:09 癫狂编程 阅读(726) 评论(0) 推荐(0) 编辑

程序每天只执行一次
摘要:public class TvbGiftOnOverSpendTimeTaskImpl implements TvbGiftOnOverSpendTimeTask { private static final Log log = LogFactory.getLog("timeTaskLog"); private Date excuteDate = null; private int execute 阅读全文

posted @ 2019-09-09 10:22 癫狂编程 阅读(384) 评论(0) 推荐(0) 编辑

定时关机的例子
摘要:program AutoShutDown;usesWindows,ShellAPI,Sysutils,Messages;{$R *.RES}varWinClass: TWndClassA;Handle: hwnd;Inst, Button1, Label1, Edit1: Integer;Msg: 阅读全文

posted @ 2019-09-09 10:19 癫狂编程 阅读(216) 评论(0) 推荐(0) 编辑

Delphi : TStringList的Find,IndexOf和Sort
摘要:关键:Find要事先Sort排序,Indexof不用排序。 TStringList内部查找相关的数据。待调试代码时才知道痛苦,浪费无数时间后,只得一步步跟踪,才发 现Find方法返回的Index总是错误的,当时一阵郁闷,随手按下F1键,Find的Help文档展现眼前,对于该 函数是这样描述的:Loc 阅读全文

posted @ 2019-09-07 18:06 癫狂编程 阅读(4652) 评论(0) 推荐(0) 编辑

GetTickCount() 函数的作用和用法
摘要:DWORD GetTickCount(void); 1) 定义 For Release configurations, this function returns the number of milliseconds since the device booted, excluding any ti 阅读全文

posted @ 2019-09-07 08:09 癫狂编程 阅读(4096) 评论(0) 推荐(0) 编辑

Bmp格式图片与16进制的互相转换简解 Python
摘要:BMP TO HEX 首先介绍Github上一个简单的Bmp转成16进制的py: https://github.com/robertgallup/bmp2hex 网上这种例子很多。思路也简单:将bmp文件一个个二进制进行分析,这里的1-2表示2个字节,16个二进制数据,0xXXXX四位16进制数据~ 阅读全文

posted @ 2019-09-06 10:10 癫狂编程 阅读(3543) 评论(0) 推荐(0) 编辑

delphi十六进制字符串hex转byte数组互相转换bmp图片
摘要:procedure Hex2Png(str: string; out png: TPngObject); var stream: TMemoryStream; begin if not Assigned(png) then png := TPngObject.Create; stream := TMemoryStream.Create; stream.SetSize(Length(str) div 阅读全文

posted @ 2019-09-06 03:07 癫狂编程 阅读(1980) 评论(0) 推荐(0) 编辑

VCL组件之TPanel
摘要:TPanel位于Standard组件面板上,也是常用的一种容器控件。面板的一个优点就是放在面板上的组件称为面板的一部分,因此它们与面板一起移动。这在设计阶段很有用。 Panel组件的大部分功能在于其Align属性。例如,想显示标题在窗体上端,更进一步假设想让它在中央,不管用户怎样设置窗口尺寸,只需设 阅读全文

posted @ 2019-09-05 23:51 癫狂编程 阅读(675) 评论(0) 推荐(1) 编辑

Delphi中ClientDataSet的用法小结
摘要:TClientDataSet控件继承自TDataSet,其数据存储文件格式扩展名为 .cds,是基于文件型数据存储和操作的控件。该控件封装了对数据进行操作处理的接口和功能,而本身并不依赖上述几种数据库驱动程序,基本上能满足单机"瘦"数据库应用程序的需要。 一、TClientDataSet的基本属性和 阅读全文

posted @ 2019-09-05 18:02 癫狂编程 阅读(774) 评论(0) 推荐(0) 编辑

根据DELTA自动生成SQL语句
摘要:上传客户端的CLIENTDATASET.delta到服务器的clientdataset.data,服务端解析clientdataset的数据生成相应的SQL语句。 相对于直接调用datasetprovider.applyupdates()方法提交数据而言,前者的可控性更强,对于某些要求灵活性很强的场 阅读全文

posted @ 2019-09-05 17:42 癫狂编程 阅读(266) 评论(0) 推荐(0) 编辑

Delphi三层开发小技巧:TClientDataSet的Delta妙用
摘要:Delphi做三层开发时,很多人都会在客户端放一个TClientDataSet,中间层远程数据模块就对应放一个TDataSetProvider,然后再连起来.其实这种方法很烦琐,而且程序痈肿不甘,不好维护.我们都知道TClientDataSet的Delta属性记录了数据的所有修改,应用它我们就可以方 阅读全文

posted @ 2019-09-05 17:38 癫狂编程 阅读(350) 评论(0) 推荐(0) 编辑

Delphi ADOQuery的速度优化
摘要:今天终于把纠缠了几天的问题改完了,说到底只是一个很小的问题,就是ADOQuery的一个小属性。 今天终于把纠缠了几天的问题改完了,说到底只是一个很小的问题,就是ADOQuery的一个小属性。 把控件DBGridEh的一列的checkbox设为true,将其绑定DataSource和ADOQuery。 阅读全文

posted @ 2019-09-05 17:32 癫狂编程 阅读(1128) 评论(0) 推荐(0) 编辑

delphi ADOQUery中错误解决方法"无法为更新定位行。一些值可能已在最后...
摘要:使用delphi中的ADOQuery控件中自带的,insert ,edit,delete此操作时,有时会出现下面的错误提示,提示错误信息:"无法为更新定位行。一些值可能已在最后一次读取后已更改。" 此解决方案: 出现的原因: 1.可能是修改的时候在其它地方已经重新修改过此数据集中的某些字段信息,例如 阅读全文

posted @ 2019-09-05 17:29 癫狂编程 阅读(1060) 评论(0) 推荐(0) 编辑

ClientDataSet中修改,删除,添加数据和Delta属性
摘要:ClientDataSet中使用Post提交变更的数据时,实际上并没有更新到后端数据库中,而是提交到了由DataSnap管理的数据缓冲区中。当使用了ClientDataSet.ApplyUpDates(MaxErrors:integer)方法才更新到数据库中。ApplyUpDates方法也只更新修改 阅读全文

posted @ 2019-09-05 17:18 癫狂编程 阅读(893) 评论(0) 推荐(0) 编辑

学习 SQL 语句 - Select(9): 其他
摘要://只要前五条记录 procedure TForm1.Button1Click(Sender: TObject); begin with ADODataSet1 do begin Close; CommandText := 'SELECT TOP 5 * FROM country'; Open; e 阅读全文

posted @ 2019-09-04 11:02 癫狂编程 阅读(203) 评论(0) 推荐(0) 编辑

Delphi处理数据网格DBGrid的编辑框 获取还没有提交到数据集的字段文本
摘要:(*//标题:处理数据网格的编辑框说明:示例添加焦点颜色;获取还没有提交到数据集的字段文本设计:Zswang日期:2002-03-31支持:wjhu111@21cn.com//*)///////Begin Sourcefunction GetDBGridEdit(mDBGrid: TDBGrid): 阅读全文

posted @ 2019-09-04 08:35 癫狂编程 阅读(201) 评论(0) 推荐(0) 编辑

DELPHI中 screen.Cursor:=crhourglass; adoQuery.close; adoquery.Open; screen.Cursor:=crdefault;啥意思
摘要:鼠标忙这段代码大概是用来演示鼠标的用法的。具体解释如下: 使鼠标指针为沙漏状。(以表示程序正忙)screen.Cursor:=crhourglass; 把(打开的)数据库关闭。adoQuery.close;(个人以为改成这样更好:if adoQuery.Active then adoAuery.cl 阅读全文

posted @ 2019-09-02 08:16 癫狂编程 阅读(697) 评论(0) 推荐(0) 编辑

Oracle客户端下载地址
摘要:https://www.oracle.com/database/technologies/instant-client/downloads.html 阅读全文

posted @ 2019-09-01 15:35 癫狂编程 阅读(331) 评论(0) 推荐(0) 编辑

导航

< 2025年2月 >
26 27 28 29 30 31 1
2 3 4 5 6 7 8
9 10 11 12 13 14 15
16 17 18 19 20 21 22
23 24 25 26 27 28 1
2 3 4 5 6 7 8
好的代码像粥一样,都是用时间熬出来的
点击右上角即可分享
微信分享提示