procedure SaveGridViewEditing(AView: TcxGridDBTableView); overload; var vDst: TDataSet; begin // 应用未保存编辑框的修改 if (AView.DataController.EditState <> []) ...
> 面向对象编程——Object Oriented Programming,简称`OOP`,是一种**以对象为中心**的程序设计思想。 > > 面向过程编程——Procedure Oriented Programming,简称`POP`,是一种**以过程为中心**的程序设计思想。 ## 理解面向过程 ...
分类:
编程语言 时间:
2020-03-19 10:49:47
阅读次数:
79
过程的创建 //格式 create or replace procedure procedure_name(p_name type) as v_name type; begin ***** end; //实例 按照输入的员工号查找部门然后增加工资 create or replace procedur ...
分类:
其他好文 时间:
2020-03-18 13:07:49
阅读次数:
69
-- ************************************************ -- 存储过程 -- ************************************************ -- 创建存储过程 drop procedure if exists pld ...
分类:
数据库 时间:
2020-03-16 21:47:04
阅读次数:
62
delphi 执行一个外部程序,当外部程序结束后言主程序立即响应 我们经常能看到360安全卫士进行windows系统升级时,执行windows升级程序,当升级程序执行完成后,360马上弹出提示框。这样的程序是如何做到的呢?下述代码就能完成! uses shellAPI; procedure TFor ...
这里简单梳理下RPC、RMI和REST的概念。 RPC的概念 RPC(Remote Procedure Call)翻译过来叫做远程过程调用。根据维基百科的解释,RPC是指在分布式的环境下,一个计算机程序能够调用另一个不同地址空间里的方法(不同地址空间通常指局域网下的另一台计算机),但是编码的形式就像 ...
分类:
其他好文 时间:
2020-03-14 01:12:03
阅读次数:
72
用delphi怎么实现延时功能?在delphi中有一个sleep()函数是用来暂停线程的,使用了它好像和死掉了似得,不好用,这么简单的延时动作用Timer控件有显得复杂了。下面给大家分享一个真正好用的延时功能: procedure delay(MSecs:LongInt); var FirstTic ...
procedure TF408017792.Button1Click(Sender: TObject); var NEPX: IExcelPanelXDisp; begin NEPX := this.NewEPX; NEPX.ScriptRun(CommandLine.ModuleRoot + '\ ...
分类:
其他好文 时间:
2020-03-12 14:24:44
阅读次数:
58
procedure TF1167908962.Button1Click(Sender: TObject); begin ThIndex := 1; EPXThread1.StartThread; EPXThread2.StartThread; end; procedure TF1167908962. ...
分类:
编程语言 时间:
2020-03-12 14:20:16
阅读次数:
68
1 procedure TForm1.BitBtn1Click(Sender: TObject); 2 var REP : IExcelPanelXDisp; 3 modulePath:string; 4 begin 5 REP := this.NewEPX; 6 REP.AddAValue(ADO ...
分类:
其他好文 时间:
2020-03-12 14:17:50
阅读次数:
50