- 博客(70)
- 收藏
- 关注
RSS订阅原创 RzCheckTree基本使用
RzCheckTree基本使用procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin //循环读取勾选节点代码及内容 //StateIndex 1:unchecked(未选择) 2:checked(选择) 3:indeterminate（不确定的） for i := 0 to RzCheck...
2020-03-30 11:25:59
290
原创 rzcheckboxtree生成权限树
//这个语句没有用 button.visible := false;procedure TFrm_RoleSet.Button4Click(Sender: TObject);var i,iLevel:Integer; sCode,sName:string; isown:Boolean; MyNode:array[0..4]of TTreeNode;//保存各级节点 vstr...
2020-03-30 11:24:58
104
原创 根据数据库结构生成RzCheckTree
现在大多数的方法是采用递归，但这种操作会频繁的去 select 数据库，降低了执行效率，稍微改动一些，效果会好不少，这里介绍一种方法，即一次性 select 出所有数据，然后按照ParentID排序，逐条添加到TreeView，添加前，先遍历TreeView，查找他的上一级节点，遍历Treeview可比 select 数据快啊，下面看代码：数据表结构，最顶级parentid值我用的是-1，...
2020-03-30 11:24:16
187
原创 rzchecktree实现单选以及隐藏选择框
rzchecktree实现单选以及隐藏选择框 https://blog.csdn.net/weixin_34290631/article/details/898046832017年11月15日 19:45:00AirZH??阅读数 51，定义公共树节点node——select andselect_index,用来保存当前选中节点casecadechecks设为false2.方法...
2020-03-30 11:23:19
194
原创 RzCheckTree权限树的创建
TRzCheckTree的使用https://www.cnblogs.com/hnxxcxg/archive/2010/08/07/2940685.htmlRzCheckTree1.FullExpand;展开所有的节点；RzCheckTree1.FullCollapse关闭所有展开的节点;RzCheckTree1.ItemState[i] := csUnchecked 取消选择...
2020-03-30 11:22:54
249
原创 TRzCheckTree TImageList 简单应用
https://blog.csdn.net/sbfksmq/article/details/52765969 ---TRzCheckTree checkbox TImageList 简单应用unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Fo...
2020-03-30 11:21:54
144
原创 合并BPL包图文教程
我们永远优雅，但绝不炫耀：合并BPL包图文教程！https://blog.csdn.net/MaxWoods/article/details/8561504BPL 包教程 https://www.cnblogs.com/zhangzhifeng/category/485937.html
2020-03-30 11:19:44
227
原创 Delphi Bpl包编译Dcp,Bin,Dcu路径设置
https://www.cnblogs.com/Herge/p/5633152.html Delphi Bpl包学习实战截图--对于BPL包，我个人理解是：就是一种封装方式，和DLL，EXE类似，把代码放到包（package）里面保存而已。一、先说说如何创建BPL包1、 打开delphi IDE（delphi7 为例）-->File-->Close...
2020-03-30 11:11:09
1571
原创 如何在一个bpl中调用另一个bpl中的窗体
如何在一个bpl中调用另一个bpl中的窗体列如：有一个班级的bpl和一个学生信息的bpl，两个都不是主窗体，如何在班级的学生列表中调用查看学生的信息项目中加入要使用的bpl uses要使用的单元 调用该单元的公开变量或函数 将application.handle设为调用窗口的handle被调用的bpl提供创建窗口的接口函数或注册类调用方LoadPackage('被调用bpl全...
2020-03-30 11:04:37
423
原创 delphi bpl包窗体继承
1. BPL手工修改窗体继承时，怎样让其父类的所有控件显示（在设计时）？在包文件上点击鼠标右键bplxiexingBom.bpl -> AddNew -> VclForm，新建一个form，在form的单元文件中修改在uses里面添加 uCommonForm单元文件 ;将Tfrm_BOMbianGenTongZhiDan = class(TForm) 改为；Tfrm...
2020-03-30 11:03:21
499
原创 delphi 图片压缩，存储方法
实际代码，成功unit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls, RzButton,...
2020-03-28 13:47:22
1099
转载 ERP行业内幕看了这五个问题全懂了
ERP系统是现代企业实现信息化管理的必经之路。但很多管理人员或已经在用ERP的人员，其实并不太懂ERP系统是什么意思，有哪些好处等，导致实际使用过程中经常大材小用，或者“英雄无用武之地”。所以，为了更好的用好这把企业经营管理的利器，在ERP系统选型或使用之前，有必要了解一下这些基本常识。转存失败重新上传取消一、什么是ERP系统？ERP系统是什么意思？ERP系统是企业资源计划（Enter...
2020-03-26 17:07:25
479
转载 delphi 播放GIF动画
delphi 新功能----------------unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,Vcl.Imaging.GIFImg;//一定要加这个不然编译通不过;...
2020-03-26 16:58:43
490
转载 delphi gif png bmp jeg 显示方法
/// <summary>/// 注意不要忘记引用那几个图片单元哦，除了bmp格式不需要引用任何单元，/// 其它图片格式都需要引用对应的图片单元/// png ---> Vcl.Imaging.pngimage/// jpg ---> Vcl.Imaging.jpeg/// gif ---> Vcl.Imaging.GIFImg/// </summ...
2020-03-26 16:57:06
263
原创 Delphi中利用StringList对象来记录动态生成的对象
在Delphi中，如果程序需要动态创建大量的对象，那么我们可以利用StringList对象来管理这些动态生成的对象。具体步骤如下：1、创建StringList对象： OBJ := TStringList.Create;2、保存动态生成的对象： OBJ.AddObject('标识','对象名');3、调用生成的对象： (OBJ.Objects[序号/OBJ.IndexOf('标识')] ...
2020-03-26 16:41:12
450
转载 Delphi XE增强的RTTI妙用－－动态创建包中的窗口类
以前要在运行时创建package中的form类，必须要在form单元文件中这样注册类：Initialization RegisterClass(TForm3);Finalization UnRegisterClass(TForm3);然后在调用模块中，通过FindClass或GetClass函数返回一个TPersistentClass，再通过此类引用创建窗口类： AC...
2020-03-26 16:38:28
209
转载 Delphi 通过字符串实例化类
通过字符串创建窗体类对象1、需要在程序初始化的时候将类注册，注册到对象 RegGroups:（TRegGroups）中，以便查找。注册类使用的函数:RegisterClass ，窗体初始化操作放在initialization 中。unit Unit2;interfaceuses Windows, Messages, SysUtils, Variants, Classe...
2020-03-26 16:30:31
290
转载 delphi 字符串截取，SubString
字符串截取，SubStringprocedure TForm12.btn1Click(Sender: TObject);var wokao: string;begin wokao := 'abcde_fgdcdc'; ShowMessage(IntToStr(wokao.IndexOf('_')));//5 ShowMessage(wokao.Substring(...
2020-03-26 16:30:14
1338
转载 借方与贷方怎么区别
借方表示增加，货方表示减少，有借必有贷，借贷必相等。做账时如果有增加项，就一定要有减少项，否则账就做不平。借方和贷方与现实中的借贷并没有直接的关系。它在会计中就相当于是两个符号一样，一个是增（+），一个是减（—）。只是根据原则，资费成（资产，费用，成本）增加在借方，减少在贷方；债权收（负债，所有者权益，收入）增加在贷方，减少在借方。其实只要记住资费成就可以了。一个分录有借方和贷方组合成，...
2020-03-26 15:00:22
405
原创 Delphi - TTreeView
随笔分类 - Delphi - TTreeView https://www.cnblogs.com/jijm123/category/1530507.html学习 TTreeView [2] - Items.Item[i]、Items[i]、.Text、SetFocus(设置焦点)、Select(选择)摘要：本例效果图: 源码:阅读全文posted @2019-08-20 12...
2020-03-26 14:53:16
177
原创 Report Machine（RM）报表控件简单用法-delphi
Report Machine（RM）报表控件简单用法-delphihttps://www.cnblogs.com/delxe/p/4018077.htmlDelphi报表开发ReportMachine的小计和总计的计算https://www.cnblogs.com/leonkin/archive/2012/02/22/2363680.htmlDelphi-Report Machi...
2020-03-25 08:33:13
1117
转载 如何将TImage里的图片另存为BMP、JPG、PNG格式的文件
之前我写了如何从数据库里读取图像数据并用Image控件显示，现在讲讲如何另存为图像文件。procedure TForm_ShowPic.N1Click(Sender: TObject);var vPng:TPNGObject; vJpg:TJPEGImage; vBmp:TBitmap; vTmp:string; FType:Integer; vStream:TStr...
2020-03-24 13:19:54
756
转载 DELPHI 汉化DevExpress
现在的DevExpress组件包提供了TcxLocalizer，拖一个放到Form上。然后设置相关的属性：即可完成汉化了！怎么样，够简单！！！需要DevChs.ini文件的朋友，点击链接加入群聊【delphi多层开发交流】：https://jq.qq.com/?_wv=1027&k=5OnKKBF感谢朋友df007告诉我这个方法，截图都是他的。/...
2020-03-24 13:02:03
1204
原创 小程序云开发多表查询
关联表学习文中代码并不是实际代码，伪代码不可直接运行。功能：用户 喜欢 文章表 用户表（users） id username 唯一标识，没有登录的可直接使用 _openid 用户名 文章表（articles） id title content 唯一标识 标题 内容 关联表（relati...
2020-03-24 12:59:42
1086
转载 Delphi接口
07.Delphi接口的生命周期摘要：在Delphi的接口中，是不需要释放的，调用完之后，接口的生命周期就结束了，如下面的例子 调用单元如下阅读全文posted @2019-09-07 19:24像一棵海草海草海草 阅读 (38) |评论 (0)编辑06.Delphi接口的不对等的多重继承摘要：uSayHello代码如下 调用单元如下阅读全文posted @201...
2020-03-24 12:59:29
113
转载 Delphi_QPlugins插件
015.Delphi插件之QPlugins，FMX插件窗口摘要：内嵌FMX的插件窗口，效果还是很可以的。退出时，会报错，很诡异啊。 主窗口代码如下 FMX的DLL插件代码如下阅读全文posted @2019-09-11 11:47像一棵海草海草海草 阅读 (52) |评论 (0)编辑014.Delphi插件之QPlugins，MDI窗口摘要：不知道为什么，这个DEMO编译...
2020-03-24 12:59:17
306
原创 delphi MSSQL数据库图片字段，前端如何展示
参考Delphi 文件转换Base64、Base64转换文件https://www.cnblogs.com/FKdelphi/p/12290576.htmlunit Unit1;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classe...
2020-03-24 12:58:45
284
转载 一秒可生成500万ID的分布式自增ID算法—雪花算法 (Snowflake，Delphi 版)
概述 分布式系统中，有一些需要使用全局唯一ID的场景，这种时候为了防止ID冲突可以使用36位的UUID，但是UUID有一些缺点，首先他相对比较长，另外UUID一般是无序的。有些时候我们希望能使用一种简单一些的ID，并且希望ID能够按照时间有序生成。 而TWitter的snowflake解决了这种需求，最初TWitter把存储系统从MySQL迁移到Cassan...
2020-03-24 12:58:34
689
转载 cxGrid FilterRow 添加左模糊查询，实现 LIKE
参考了 踏雪无痕 的资料 ：http://blog.csdn.net/zengcong2013/article/details/12343171由于 cxGrid 中，使用较多是 cxGridDBTableView 因此调整了一下，更方便 Ctrl V---------------------------------------------------------------------...
2020-03-24 12:58:10
261
转载 cxGrid 锁定一行，让该行数据不能编辑
在使用cxGrid时，由于设置了所有单元格都能编辑，但在特定的情况下，让某些行，根据一些列值条件，让该行整行锁定，不能编辑。研究了很久，在DevExpress官网上找到了相关的资料，因此，分享给大家。Dev官网的列子是这样的// DISABLE A ROW 整行禁止编辑procedure TForm1.cxGrid1DBTableView1Editing(Sender: ...
2020-03-24 12:57:09
387
原创 delphi UniQuery 从来不需要手工一个个写SQL
delphi UniQuery 从来不需要手工一个个写SQL ,Unidac有此功能都多点下产生
2020-03-24 12:47:53
992
原创 自己博客园一些写得比较好的文章移植
#### 闲谈[前端基础知识概述 -- 移动端开发的兼容适配与性能优化](https://github.com/chokcoco/cnblogsArticle/issues/25)[【前端性能】高性能滚动 scroll 及页面渲染优化](http://www.cnblogs.com/coco1s/p/5499469.html)[【前端性能】浅谈域名发散与域名收敛](https://g...
2020-03-23 15:48:19
141
原创 AES 算法在 Objective-C、Java、JavaScript 中的使用
在很多项目中，需要iOS、Android、Web、服务器之间做数据交互，主要涉及 Objective-C、Java、JavaScript。加密方面，采用了 AES 算法。 但是有个问题，虽然各个平台都对 AES 有实现，但是为了使用方便，各自都采用了自己的默认值，并且由于数据类型方面的差异，导致平台间的加解密不能正常进行。 这里的 Demo，分别整理了 Objective-C、Jav...
2020-03-23 14:24:26
164
原创 Delphi TStringList的用法
TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('Strings2');List.Exchange...
2020-03-22 20:59:29
315
转载 CnPack源码模板功能快速添加注释
Delphi通过CnPack源码模板功能，能快速添加注释，非常之好用，使用方法如下图：1.选择CnPack的源码模板专家2.设置Pacal标准过程头3.设置内容如下，并且设置了Ctrl+W的快捷键：{------------------------------------------------------------------------------- 过程名: ...
2020-03-21 20:19:37
464
原创 用Delphi10.3 创建一条JSON数据
一、用Delphi10.3构造一个JSON数据，非常之容易，代码如下：uses System.JSON;procedure TForm1.Button1Click(Sender: TObject);var m_Object, m_Json1, m_Json2: TJSONObject; m_JsonArray: TJSONArray;begin m_Object ...
2020-03-21 20:18:19
393
原创 用Delphi10.3 创建一条JSON数据的第二种方法，并格式化输出
一、用Delphi10.3构造一个JSON数据的第二种方法，并格式化输出，代码如下：uses //System.JSON, System.JSON.Types, System.JSON.Writers;procedure TForm1.Button2Click(Sender: TObject);var m_StringWriter: TStringWriter; ...
2020-03-21 20:17:48
354
原创 用Delphi10.3 创建一条JSON数据的第三种方法，非常简洁的写法
一、用Delphi10.3构造一个JSON数据的第三种方法，并格式化输出，代码如下：uses // System.JSON, System.JSON.Types, System.JSON.Writers, System.JSON.Builders;procedure TForm1.Button3Click(Sender: TObject);var m_Strin...
2020-03-21 20:17:14
816
原创 Delphi10.3读取JSON数据
一、我们有一段JSON数据如下：{ "五班": [ { "姓名": "张三", "成绩": 75.5 }, { "姓名": "李四", "成绩": 21.7 } ]}二、使用Delphi代码读取，代码如下...
2020-03-21 20:16:42
1009
原创 Delphi10.3通过REST单元使类和JSON数据互相转换
一、我们定义一个简单的类 TPeople = class private FName: string; FScore: Integer; FAge: TDateTime; public property Name: string read FName write FName; property Score: Integer read FS...
2020-03-21 20:16:02
730
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人