癫狂编程

摘要： 权限控制(delphi TActionList方案)在软件开发中，为软件加入权限控制功能，使不同的用户有不同的使用权限，是非常重要的一项功能，由其在开发数据库方面的应用，这项功能更为重要。但是，要为一个应用加入全面的权限控制功能，又怎样实现呢？大家知道，现在的应用，一般均以菜单访问功能的形式出现，按 阅读全文

摘要： 一个友好的用户界面,必须具有下拉菜单，弹出菜单，工具条和快捷键。同样一个功能，程序员可能要提供几种操作方式，如文本拷贝，菜单命令&Copy,快捷键Ctrl+C,工具条上的拷贝按钮，都是程序员提供给用户的操作，可以大大方便了不同层次的用户。但是，多增加一种操作方式，就意味着增加响应事件的代码，还有，实 阅读全文

摘要： 效果图: 不过, 菜单事件一般是使用 ActionList 的, 添加一个 ActionList 同时添加一个方法, 实现和上面同样的功能: 阅读全文

摘要： [delphi] view plain copy print? [delphi] view plain copy print? 阅读全文

摘要： 在DELPHI中我们经常要动态的创建控件以及控件的事件。例如，我们可能想根据程序需要动态的创建一些Tshape组件来创建某个图形，并使得在鼠标移动上去之后可以完成某些操作。这一般需要需要三步： 下面将通过一个例子来演示，例子的功能是动态创建一个Tshape的实例MyShape，并且在鼠标移动到MyS 阅读全文

摘要： 当Close是一个主窗体时,程序会退出.Close会发生FormClose事件,FormCloseQuery事件Halt会发生FormDestory事件,Application.Terminate以上三个事件都不会发生Application.Terminate就是程序结束了。整个程序结束运行，系统强 阅读全文

摘要： 我单机确定还会显示窗体？？ Application.Terminate; 阅读全文

摘要： 一切属性都设置好后，我在Button里 ADOConnection1.Connected := True;这样连的，之后如何判断是否连接成功了呢？查询一下数据试试？有更直接的办法吗？ if ADOConnection1.Connected then 连接成功2、可以编写一个连函数，试着连接数据库某个 阅读全文

摘要： elphi ADOCONNECTION错误拦截错误框标题： Debugger Exception Notification内容： Project KJXX.exe raised exception class EOleException with message '[DBNETLIB][Connec 阅读全文

摘要： 下载：https://maxwoods.ctfile.com/u/758954/28516301 Embarcadero.Delphi.10.2.RTM.v25.0.26309.314.Lite.v14.0 ——————————————————————————– 基本信息： 作者：lsuper联系方 阅读全文

摘要： 测试环境是：Delphi 6、Oracle、PLSQL 先创建一个模拟测试的数据表，并且添加几条模拟的数据 create table practice(uno varchar(8), uname varchar(20)); insert into practice values ('1', '1') 阅读全文

摘要： c++builder XE 官方demo最全60多个 http://community.embarcadero.com/blogs?view=entry&id=8761 FireDAC.Comp.Client 用好FDMemTable代替之前的ClientDataSet，以前ClientDataSe 阅读全文

摘要： delphi 中Adoquery ，在打开时能否让记录指针不移动？由于数据集Adoquery 时，它的针指称动会废时，能否在打开完成之前不让记录指针不移动。打开完毕之后再回复移动？ 这样用：self.ADOQuery1.DisableControls;.........self.ADOQuery1. 阅读全文

摘要： function XXXXXFrom.CheckData(Sender: TObject): Boolean; var tmpcds:TfwClientDataset; begin Result:=False; tmpcds:=TfwClientDataset.Create(nil); try tmpcds.CopyFromDataSet(fcdsImport); tmpcds.First; wh 阅读全文

摘要： 解决DBGridEh遍历记录后不移动当前行位置的方法 在用DBGridEh配合ClientDataSet使用时,需要知道用户选择了哪些记录,可用遍历记录的方法查询选择列是否为真,但在这之后,ClientDataSet记录指针的位置发生了改变，可用TBookMark的bm:=GetBookMark(C 阅读全文

摘要： LabelText = DataSet11.Tables("COMM.USERS").Rows[0]["User_Name"].tostring() LabelText = DataSet11.Tables("COMM.USERS").Rows(0).Item("user_name") Label. 阅读全文

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

摘要： 遍历Delta.DataView.Rows，Delta.DataView.Rows是记录的行集，由行组成 TFDDatSRow，即是一行记录的对象 TFDDatSRow的方法： GetData（），SetData（）获取一行一列的数值或设置一行一列的数值 fdmemtable.delta直接提交给中间件，中间件可以解析fdmemtable.delta生成 INSERT OR UPD... 阅读全文