癫狂编程

在 Delphi 中实现控件焦点转移?

摘要：要在 Delphi 中实bai现按回车后控件焦点的转移，可以调du用 Windows API 消息发送函数 PostMessage，做法如下：zhi把 Form1 的 KeyPreview 属性设为 True，在 Edit 和 Memo 的 OnKeyPress 事件dao中加入以下代码：if Ke 阅读全文

posted @ 2020-10-04 13:48 癫狂编程阅读(466) 评论(0) 推荐(0)

Delphi焦点移动

摘要：使用消息机制：下一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,0,0); 上一个焦点： SendMessage(Form1.Handle,WM_NEXTDLGCTL,1,0); 阅读全文

posted @ 2020-10-04 13:43 癫狂编程阅读(203) 评论(0) 推荐(0)

delphi 焦点定位

摘要： active control 是当前窗口获得焦点的控件。 WM_NEXTDLGCTL是一个消息。 perform(WM_NEXTDLGCTL,0,0)是把当前焦点移到下一个控件。 if not (active control is TDBGrid) then 窗口具有active control 属阅读全文

posted @ 2020-10-04 13:40 癫狂编程阅读(447) 评论(0) 推荐(0)

将DBGrid 当前列定位到指定的字段上

摘要： // 功能：将 DbGrid 当前列定位到某字段上。 // 参数： pDbGrid:TDbGrid; DBGrid // pcFieldName : string 数据表字段名，字段名不区分大小写 // 返回：当表字段在 DBGrid 中存在时，返回表字段所在的列的序号，首序号为0 // 否则，返回阅读全文

posted @ 2020-10-03 16:24 癫狂编程阅读(163) 评论(0) 推荐(0)

复制出一个同样的窗体

摘要：要复制出一个同样的窗体，并保留原窗体，步骤如下： 1. 打开原窗体，使用文件菜单栏的“Save as”命令，另存为一个文件；--即保存时，该文件是一个新的文件，要给它起名字，一旦保存成功，则原有的文件就脱离该项目，必须要用Project==>Add to Project命令，导入原有窗体；--修改于阅读全文

posted @ 2020-10-03 13:22 癫狂编程阅读(318) 评论(0) 推荐(0)

DBEdit的OnChange事件(100分)

摘要：关于DBEdit的问题:DBEdit中有一个OnChange事件,设置:当DBEdit中的数据发生改变,触发一个OnChange事件，系统弹出警告对话框,并询问操作员是否修改数据。但现在碰到这样一个问题：程序未运行时，DBEdit中的数据为空，然而，程序运行后，DBEdit中必然有数据，这样就有了一阅读全文

posted @ 2020-09-22 19:14 癫狂编程阅读(298) 评论(0) 推荐(0)

delphi中DBEdit，数据的修改和提交

摘要： https://bbs.csdn.net/topics/300030768 我用DBEdit，DBComboBox这些控件，还用到ActionList行为，进行增删，但是现在的问题是每次我在DBEdit，DBComboBox中修改，没按提交，就提交到数据库中，为什么？请大家帮帮忙把adoDataS 阅读全文

posted @ 2020-09-19 19:16 癫狂编程阅读(1000) 评论(0) 推荐(0)

delphi 根据DELTA自动生成SQL语句

摘要： delphi 根据DELTA自动生成SQL语句上传客户端的CLIENTDATASET.delta到服务器的clientdataset.data，服务端解析clientdataset的数据生成相应的SQL语句。相对于直接调用datasetprovider.applyupdates()方法提交数据而阅读全文

posted @ 2020-09-19 10:18 癫狂编程阅读(333) 评论(0) 推荐(0)

clientdataset生成sql

摘要：遍历clientdataset，生成sql语句，参照咏南写则，增加了一表多主键的情况 function TForm1.vartosql(value: Variant): wideString; var tmp:widestring; begin if (varisnull(Value)) or (v 阅读全文

posted @ 2020-09-19 10:15 癫狂编程阅读(191) 评论(0) 推荐(0)

在delphi中生成GUID/自动获取临时表名......

摘要：什么是 GUID ? 全球唯一标识符 (GUID) 是一个字母数字标识符，用于指示产品的唯一性安装。在许多流行软件应用程序（例如 Web 浏览器和媒体播放器）中，都使用 GUID。 GUID 的格式为8-4-4-4-12 :“xxxxxxxx-xxxx-xxxx-xxxx-xxxxxxxxxxxx” 阅读全文

posted @ 2020-09-18 22:50 癫狂编程阅读(272) 评论(0) 推荐(0)

如何得到表的主键名称（字段名称）

摘要： king_Cai Unregistered / Unconfirmed GUEST, unregistred user! Feb 25, 2002 #1 如何得到表的主键名称（字段名称）？ C curioussea Unregistered / Unconfirmed GUEST, unregist 阅读全文

posted @ 2020-09-18 22:44 癫狂编程阅读(592) 评论(0) 推荐(0)

通用的更新方法 THlsImplBase

摘要： function THlsImplBase.UpdateTableData(ATableName, AKeyField: AnsiString; var AData: Variant): Boolean; var LSql: string; I: Integer; {$IFDEF MSSQL} LP 阅读全文

posted @ 2020-09-17 23:50 癫狂编程阅读(201) 评论(0) 推荐(0)

Delphi中ClientDataSet的用法小结

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

posted @ 2020-09-17 20:49 癫狂编程阅读(317) 评论(0) 推荐(0)

ORACLE 字符串补零

摘要：标准函数Lpad 可以实现左补零，但是如果多于需要长度，则会截断字符串。如下：情况一：需要补零。 SELECT LPAD ('1234' , 5 , '0') FROM DUAL 结果：01234 正确情况二：不需要补零。 SELECT LPAD ('123456' , 5 , '0') FRO 阅读全文

posted @ 2020-09-17 19:57 癫狂编程阅读(3278) 评论(0) 推荐(0)

PLSQL Developer报“动态执行表不可访问，本会话的自动统计被禁止”的四种解决方案

摘要：用PLSQL Developer连接数据库，若用sys用户登录并操作则正常，若用普通用户比如haishu登录并创建一个表则报错“动态执行表不可访问，本会话的自动统计被禁止。在执行菜单里你可以禁止统计，或在v$session,v$sesstat和v$statname表里获得选择权限。”（3种授权方案、阅读全文

posted @ 2020-09-16 17:38 癫狂编程阅读(901) 评论(0) 推荐(0)

Transact-SQL outer joins (= or =)

摘要：按此处以在 DocCommentXchange 中显示和讨论此页。以后您将会被自动转到哪里。 SQL Anywhere 12.0.0 » SQL Anywhere Server - SQL Usage » Querying and modifying data » Joins: Retrieving 阅读全文

posted @ 2020-09-14 20:00 癫狂编程阅读(174) 评论(0) 推荐(0)

delphi判断按下的是回车键?

摘要：在 keydown中是 if Key = VK_RETURN then ShowMessage('回车'); 在 keypress中是 if Key = #13 then ShowMessage('回车'); 阅读全文

posted @ 2020-09-14 17:03 癫狂编程阅读(1112) 评论(0) 推荐(0)

Delphi实战中讲解FormCreate,FormShow,FormActivate

摘要：原文：https://cloud.tencent.com/developer/article/1472222 阅读全文

posted @ 2020-09-13 18:34 癫狂编程阅读(559) 评论(0) 推荐(0)

delphi Try except on e:Exception do

摘要： except on e:Exception do //判断单位转换率 try um_rate := vp_mstr.F('vp_um_rate_d').AsFloat / vp_mstr.F('vp_um_rate_m').AsFloat; if um_rate <= 0 then abort el 阅读全文

posted @ 2020-09-13 17:45 癫狂编程阅读(1243) 评论(0) 推荐(0)

Delphi处理数据网格DBGrid的编辑框获取还没有提交到数据集的字段文本

摘要：原文地址：Delphi处理数据网格DBGrid的编辑框获取还没有提交到数据集的字段文本作者：mfg99 //fromhttp://kingron.myetang.com/zsfunc12.htm 标签：育儿分类： delphi //fromhttp://kingron.myetang.com/ 阅读全文

posted @ 2020-09-13 16:29 癫狂编程阅读(192) 评论(0) 推荐(0)