随笔分类 -  Delphi

上一页 1 ··· 20 21 22 23 24 25 26 27 28 ··· 64 下一页

PL/SQL编程中的问题
摘要:PL/SQL编程中的问题 1、存储过程和存储函数中的as和is Oracle中的as和is是Oracle为了方便而设置的同义词基本上没有不同 。 使用规则: (1)在创建存储过程(procedure)/函数(function),以及自定义类型(type)和包(package)时,使用as和is无区别 阅读全文

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

DELPHI使用TClientDataSet时不携带MIDAS.DLL的方法
摘要:TClientDataSet小家碧玉,恐怕人人都喜欢使用。但是,都知道娶TClientDataSet是有代价的,因为你同时也得面对丈母娘MIDAS.DLL。 能不能使用TClientDataSet又不用MIDAS.DLL呢? 很简单,就是uses一下MidasLib单元! MidasLib单元在De 阅读全文

posted @ 2020-10-05 23:07 癫狂编程 阅读(185) 评论(0) 推荐(0)

delphi 程序执行完了会自动退出···难道会选择最近的Exit?
摘要:一个奇怪的问题,当条件为False时,还是掉进了过程里: ret:=IsBoxFull(StrToInt(E_BoxNo.Text),RG_Box); if ret=true then begin if Application.MessageBox('该箱表数已满,是否打印条形码!','系统提示', 阅读全文

posted @ 2020-10-05 21:07 癫狂编程 阅读(324) 评论(0) 推荐(0)

Delphi用ini文件连接数据库
摘要:CS数据库连接-delphi+inichinayaosir{delphi connection database with ini file}unit DataModule;interfaceuses SysUtils, Classes, DB, ADODB,INIFiles;type TDataM 阅读全文

posted @ 2020-10-05 11:29 癫狂编程 阅读(428) 评论(0) 推荐(0)

delphi错误‘Unable to find record. No key specified’‘解决办法注意事项。
摘要:1.使用clientdataset的设置事件的响应: procedure TDataModule2.ClientDataSet1AfterPost(DataSet: TDataSet);beginTry TClientDataSet(DataSet).ApplyUpdates(-1); Except 阅读全文

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

TDBGrid中用Enter仿真Tab键盘
摘要:procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);begin if Key = #13 then //如果是一个Enter键盘 begin if not (ActiveControl is TDBGrid) then //如果 阅读全文

posted @ 2020-10-04 15:54 癫狂编程 阅读(132) 评论(0) 推荐(0)

在DBGrid中,怎样判断焦点离开了某个单元格?(100分)
摘要:https://wedelphi.com/t/99347/ 在DBGrid中,怎样判断焦点离开了某个单元格?onColexit事件只能判断用键盘到移到另一列,还不能判断mouse离开单元格,我想做的是:不论是mouse或用键盘离开某个单元格做点别的事情 那个应该可以的呀,OnColExit/OnAf 阅读全文

posted @ 2020-10-04 14:00 癫狂编程 阅读(348) 评论(0) 推荐(0)

『delphi』Enter键移动焦点的效果
摘要:procedure Tlogin.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=vk_return then FindNextControl(ActiveControl,true,false 阅读全文

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

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

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

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

posted @ 2020-10-04 13:43 癫狂编程 阅读(200) 评论(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 癫狂编程 阅读(444) 评论(0) 推荐(0)

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

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

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

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

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

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

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

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

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

posted @ 2020-09-19 10:18 癫狂编程 阅读(330) 评论(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 癫狂编程 阅读(189) 评论(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 癫狂编程 阅读(263) 评论(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 癫狂编程 阅读(591) 评论(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)

上一页 1 ··· 20 21 22 23 24 25 26 27 28 ··· 64 下一页

导航

好的代码像粥一样,都是用时间熬出来的