- 博客(155)
- 收藏
- 关注
RSS订阅转载 kbmMemTable.CopyRecords的用法
MemTable提供了CopyRecords方法，用来复制一个数据集到另外一个数据集。原型是这样的：CopyRecords（Source,Destination:TDataSet;Count:longint;IngoreErrors:boolean;WideStringAsUTF8:boolean):integer;参数说明：Source:源数据集Destination:目标数据集Cou...
2019-11-30 11:26:15
540
1
原创 kbmMemTable关于内存表的使用
关于内存表的使用(kbmMemTable)关于内存表的使用说明一、 Delphi使用内存表1.1 Delphi创建内存表步骤：1． 创建一个Ttable实例。2． 设置一个DataBaseName为一个目录或是已有的数据库别名。3． 指定TableName的值。4．设置TableType属性指明要创建的数据库表类型。(如果此属性为ttDefault表示数据库类型与TableName...
2019-11-30 11:26:09
902
原创 自定义htpp类 功能：获取服务端数据，包括：httpGet与httpPost
{自定义htpp类功能：获取服务端数据，包括：httpGet与httpPostby wfj2013.7.4}unit uMyHttp;interfaceusesSystem.SysUtils, System.Classes, IdBaseComponent, IdComponent, IdMultiPartFormData,IdTCPCo...
2019-11-30 11:25:56
340
原创 Delphi DataSet和JSON互转函数
一、DataSet转JSON[delphi]view plaincopyprint?//1）数据集转换为JSON字符串： //需USESSystem.JSON; functionDataSetToJson(ADataset:TDataSet):string; //[{"CityId":"18","CityName":"西安"},{"CityId"...
2019-11-30 11:25:47
497
原创 AdoConnection连接池的使用
(******************************************************************************* ADOConnection连接池 池满的情况下池子ADO连接动态创建 系统默认池子中一个小时以上未用的ADOConnection连接系统自动释放 使用如下 先U...
2019-11-30 11:25:39
286
原创 TFDMemTable 数据转成SQL脚本更新
{引用System.JSON;函数名称：DBToJSON（TFDMemTable数据转成SQL脚本更新）参数：DB：TFDMemTable数据集sTable：更新表名sKey:关键字段，写法：ID,Name以逗号区分sNoField:不需要修改或增加的字段： 写法：ID,Sex以逗号区分}function DBToJ...
2019-11-30 11:25:28
340
原创 数据库连接池_uDatabasePool
{自定义DataBase类功能：操作数据库函数集by wfj2013.7.4}unit uDatabasePool;interfaceusesSystem.SysUtils, System.DateUtils, {$IF CompilerVersion>=23.0}System.SyncObjs{$ELSE}SyncObjs{$IFEND}...
2019-11-30 11:25:21
234
原创 C#界面框架WPF总结
最近做的一个项目。将安卓的一个app在PC桌面端重新实现。使用C#、WPF开发，有如下印象：1，WPF前台界面、后台代码分离，通过绑定binding实现，很方便2，WPF界面框架的强大，使用类似html的xaml开发，分分钟实现安卓的效果,3，谈到缺点，WPF基于C#，需要多学一门高级语言。依赖.net平台，程序较臃肿，易被反编译。xaml，依赖属性，INotifyPropertyCh...
2019-11-30 08:50:19
2028
原创 关于WPF界面框架合集
WPF开源框架项目好久博客未更新新博文了，今天介绍一个WPF开源框架MaterialDesignInXamlToolkit废话不多说先让我们来看看框架得几张截图https://www.cnblogs.com/zengzhanping/p/10386706.htmlhttps://blog.csdn.net/qq_28155765/article/details/83587899Ma...
2019-11-30 08:49:42
592
原创 C#/.NET Winform 界面库UI推荐
以下是C#-CSkin界面库的官方板块：http://bbs.cskin.net/thread-622-1-1.html几款开源的Windows界面库https://blog.csdn.net/blade2001/article/details/46872163CSkin界面库案例分享https://blog.csdn.net/lyx_520/article/details/4...
2019-11-30 08:14:13
29601
原创 采用按位与（&）按位或（|）进行权限检查的简单例子
最近，做了些关于权限的功能模块。平时，很少用到按位或（|）按位与（&）这样的符号，尤其是连用的情况。今天就针对这种情况做了个简单的例子，希望能帮助初接触这类符号的人。先看例子的界面，然后针对界面我再进行实例功能的简单介绍。左侧是我定义的几个简单的权限项，右侧是定义的用户具有的权限项。左右按钮是用来对用户当前的权限进行添加删除操作的。下方的测试是用来检测我们给用户添加的权限是...
2019-11-29 23:16:20
620
原创 C#位运算处理权限问题介绍
常用的位运算主要有与(&), 或(|)和非(~), 比如: 1 & 0 = 0, 1 | 0 = 1, ~1 = 0 在设计按钮权限时, 我们可以把权限管理操作转换为C#位运算来处理. 第一步, 先建立一个枚举表示所有的权限管理操作:[Flags]publicenumPermissions{ Insert=1, Del...
2019-11-29 23:14:32
404
原创 WinFormUI优化小结
https://blog.csdn.net/qq_42758288/article/details/100019231 WinFormUI优化小结
2019-11-29 13:18:23
139
原创 WinForm中一个窗体调用另一个窗体的控件和事件的方法
https://blog.csdn.net/life0824/article/details/80526851WinForm中一个窗体调用另一个窗体的控件和事件的方法https://www.cnblogs.com/QiuJL/archive/2012/11/27/4524209.htmlhttps://blog.csdn.net/e62ces0iem/article/details/7...
2019-11-29 13:12:41
1238
原创 kbmMW客户端如何联接不同的数据库
假如服务端处理三个数据库，我们放置三个ConnectionPool,分别联接这三个数据库，然后呢，放置三个kbmMWSession,为这三个ConnectionPool起好名子：DB1,DB2,DB3假设客户端我们用Simpleclient.location属性来传递要使用的数据库，则我们可以直接传递Session名子DB1,DB2,DB3在服务端的queryservice的beforereq...
2019-11-26 11:34:52
171
原创 kbmMW缓存机制
kbmMW提供了缓存机制(Cache)，分为服务端的Cache及客户端的Cache。以客户端为例，当客户端发出相同的数据查询请求时，kbmMW会在客户端的Cache（kbmMWClientConnectionPool）中查找，如果找到，则不再向服务器请求数据。为了启用一个ClientQuery使用缓存，首先要设置其以下两个属性：kbmMWClientQuery.Cached:=True;/...
2019-11-26 11:34:09
461
转载 解决QueryService重复查询问题
原文地址：解决QueryService重复查询问题作者：红鱼儿做一个简单的QueryService，在跟踪过程中发现，客户端一个查询，会被触发两次。怎么会这样，这严重影响服务器性能。客户端的代码非常简单，就是执行一个SQL，通过QueryService返回结果：kbmMWClientQuery2.Close;kbmMWClientQuery2.Open;于是利用服务器端...
2019-11-26 11:33:35
810
原创 kbmMW客户端提交事务的现场处理
kbmMW提供了更好的事务处理机制，即可以在服务器端做事务处理（TkbmMWTransactionResolve)也可以在客户端处理（TkbmMWClientTransactionResolve）。在客户端，只要利用kbmMWClientTransactionResolve.Resolve(Query1,Query2,...)即可实现事务控制，此方法返回True,表明事务提交成功。如果提交失败...
2019-11-26 11:32:42
154
转载 好用的编辑框布局控件TdxLayoutControl
DevExpress VCL套件是一套非常强大的界面控件，可惜关于Delphi开发方面的说明太少，有些控件使用起来一头雾水，不知从何下手。本节详细介绍在Delphi Xe10 Seattle中如何利用dxLayoutControl 控件来做界面布局。1、 首先从工具箱面板中将dxLayoutControl放在Form上，设置2个关键属性如下： 属性 属性值 ...
2019-11-26 08:04:18
599
转载 让二维条码扫描器具有识别汉字的能力（delphi）
1、将汉字编码： 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 var s:widestring; i, j:integer; tmpstr:string;...
2019-11-26 08:04:09
458
转载 [Delphi]关闭指定窗口
直接上代码。 procedure TForm1.btn2Click(Sender: TObject); var hWndClose: HWND; str: String; begin str := inputBox('提示', '请输入应用程序窗口标题：', ''); if str <> '' then begin ...
2019-11-26 08:04:04
616
原创 [函数]快速获取文件大小delphi
使用Win API 获取文件大小（可获取正在使用的文件，包括独占方式打开的文件GetFileSize） function GetSysFileSizeEx(AbsFileName:string):int64; var Handle: Windows.THandle; FindData: Windows.TWin32FindData; begin Handle := Win...
2019-11-26 08:03:56
195
转载 [控件]Kbmmw服务端获取接收发出量
闲话少说上代码，感谢爱干分享。procedure TForm1.kbmMWServer1Stats(Sender: TObject;InStream: IkbmMWCustomRequestTransportStream; OutStream: IkbmMWCustomResponseTransportStream; const ATimeStampUS, ATimeTakenUS:...
2019-11-26 08:03:45
159
转载 [Delphi]统计时间StopWatch类
Delphi现在提供了秒表类TStopWatch,用于统计程序使用的时间。其实，看这个类的实现接口，实际就是实现了C#,Java中早就有的StopWatch类。这样我们就可以放弃gettickcount函数了。记得引用System.Diagnostics单元。var NewTime: TStopwatch; ……Create:建立一个实例 Reset:复位 Sta...
2019-11-26 08:03:36
672
原创 dev18.1.3 编译bpl或者exe文件报错解决方法
可能是这个原因，编译安装时，源码和编译的bpl不在同一个目录造成的1. bpl目录2.源码目录临时解决办法，删除源码目录的源码文件最好的解决办法是，卸载控件，重新编译安装，将bpl和源码输出到同一个目录...
2019-11-25 18:38:14
243
原创 select into from 和 insert into select 的用法和区别
select into from 和 insert into select都是用来复制表，两者的主要区别为： select into from 要求目标表不存在，因为在插入时会自动创建。insert into select from 要求目标表存在.作用:SELECT INTO 语句从一个表中选取数据，然后把数据插入另一个表中。 SELECT INTO 语句常用于创建表的备份复件或者用于对...
2019-11-25 14:17:38
1083
转载 Delphi读取UTF-8格式ini
不说了贴代码。 Uses IniFiles;const SZ_APP_NAME = 'demo_test';Procedure TForm1.GetSettings;var _MemIniU: TMemIniFile; _SettingsPath: string;begin try _SettingsPath := GetHomePath + Pat...
2019-11-24 17:29:56
1340
转载 [控件]FastReport调用Delphi中的自定义函数
有些东西始终都是需要互相访问的，报表使用程序的函数也是家常了。1.载入调用函数名。 procedure TFKy_Fayun.FormCreate(Sender: TObject); begin frxReport1.AddFunction('function HeBin(s1:Double;s2:Double;s3:Double): string;','HeBin','合并函数...
2019-11-24 17:29:47
537
转载 Cxgrid标题栏自绘
再次感谢研究的无私分享，很实用的功能吧，老司机带路少走弯路！上码。procedure CustomDrawColumnHeader(Sender: TcxGridTableView; ACanvas: TcxCanvas; AViewInfo: TcxGridColumnHeaderViewInfo; var ADone: Boolean);const MultiLines: ar...
2019-11-24 17:29:41
618
转载 个人所得税过程delphi
procedure TForm1.Button1Click(Sender: TObject); //定义三个单精度浮点数，分别表示应纳税总额，区间应纳税总额，累加纳税额var sum, para, tax: single; begin//取得应纳税总额，并将累计纳税额变量置0 sum:=strtofloat(Edit1.Text); //这个函...
2019-11-24 17:29:31
93
原创 回车移动焦点 delphi
在当前焦点按下回车自动移动到下移控件。procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if Key = 13 then begin keybd_event(VK_TAB,0,KEYEVENTF_EXTENDEDKEY,0); //按下 k...
2019-11-24 17:29:23
265
原创 Cxgrid获取分组小计值
最近有个项目用到比较复杂的统计，开始接触DEV，Dev下有个强大的表格那就是Cxgrid了。项目上用到对分组小计后的值获取。研究了半天，代码如下：var i, j: Integer; ASummary: TcxDataSummary;begin inherited; j := 0; for i := 0 to cxGrid1DBTableView1.Dat...
2019-11-24 17:29:12
653
转载 Delphi 10 Seattle小票打印控件TQ_Printer
https://blog.csdn.net/suyingsoft/article/details/70410139
2019-11-24 17:27:55
407
原创 【Delphi】支付宝RSA签名之Delphi实现
Delphi有个很大的问题就是，厂商的不作为(没有封装标准的Cipher类库)，让大家自己造轮子。今天的轮子就是RSA签名，由于Delphi没有封装Cipher类库，所以只的自己写了。因为要在Firemokey中实现RSA算法，用于手机端，心里有二个方案： 1. 实现RSA算法 2. 通过Java封装一个实现了RSA的包，通过Delphi来调用当然结果通过了1实现，参考了网...
2019-11-24 17:26:05
496
转载 DELPHI微信支付代码
不管是微信支付还是支付宝支付， 3个最棘手的问题是：1，如何生成签名2，支付请求如何提交3, 如何验证签名下面就围绕这二个问题来讲。我使用的是XE3.先看微信支付：1，微信支付的签名生成uses IdHashMessageDigest, NatvieXml; //我使用的是NativeXml4.07function TMicroPayParamBuilder.GetSi...
2019-11-24 17:02:27
309
原创 DELPHI XE BPL整合成一个包
(小弟拙见,QQ805162676 有更好的方法或BUG麻烦发份我)发布时只需将用到的系统BPL加上你整合的包发布即可. 方法如下：第一步，建立工程，加入用到的三方控件.第二步，设置第三步: 在设置好的dcu目录下,可以看如图所示的dcu文件.第四步,新建一个BPL工程,将DCU文件加进去,同时编译.第五步,设置工程带包编译,只加入建立的BPL包与系统包即...
2019-11-24 16:15:13
1010
原创 清除容器内的组件内容
procedure TFrmSave.ClearItem; //清除容器内的组件内容,容器按自己需要改变var i: Integer;begin for i := 0 to GBxList.ControlCount - 1 do //选择容器 GBxList begin if GBxList.Controls[i] is TEdit then TEdi...
2019-11-23 19:26:52
231
转载 [Delphi] 设置线程区域语言防止乱码
uses Windows;在工程文件中添加一句代码，如下：Application.Initialize; //添加以下一句解决外文系统乱码问题 SetThreadLocale(DWORD(Word(SORT_DEFAULT) shl 16) or DWORD(Word(SUBLANG_CHINESE_SIMPLIFIED) shl 10) or DWO...
2019-11-23 19:26:46
149
转载 说说QWorker作业Clear与JobGroup超时机制
QWorker来自于QDAC项目，是QDAC作者swish创作的一件神器，它是专门用来进行作业管理的轻量级类库。说是轻量级，只是从代码结构上来讲，功能可一点也不弱。QWorker的用法很简单，swish也写了相关的博文，不会用的同学可以自己找来浏览即可。 QWorker可以提供了清除正在执行和未执行Job（作业）的功能，以及JobGroup超时机制。那么，它是怎么实现Clear与Ti...
2019-11-23 19:26:36
548
转载 cxgrid中，如何根据列名或字段名取得footer值
注意，不是根据index取得footer值cxgrdtbv1.DataController.Summary.FooterSummaryValues[0];------解决方案--------------------------------------------------------Delphi(Pascal) code with cxGrid1DBTableView1.D...
2019-11-23 19:26:30
265
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人