USEGEAR - 博客园

FireDAC 下的批量 SQL 命令执行

摘要：一、{逐条插入} procedure TForm1.Button1Click(Sender: TObject); const strInsert = 'INSERT INTO MyTable(Name, Age) VALUES(:name, :age)'; begin // FDQuery1.Fet 阅读全文

posted @ 2020-05-31 15:07 USEGEAR 阅读(1104) 评论(0) 推荐(1)

FireDAC的数据库的FDConnect

摘要：通常，我们设置一个ini文件，按照FDConnection的ini格式要求配置好。然后直接调用通知连接数据库是否OK。 FireDAC可以通过FDManager管理ini文件简单实现。即由FDConnnection通过FDManager管理ini文件和参数连接数据库的。可是：系统不允许有多个FDMa 阅读全文

posted @ 2020-05-15 17:44 USEGEAR 阅读(670) 评论(0) 推荐(0)

Readers and Writers JSON Framework（2）

摘要：我们关心json的读写。特别在datasnap中，关于使用stream更是显得重要。其实轮子都帮你做好了，你不知道整经再研究就是一个悲哀。除非你要研究。回正题：处理json有二套框架。 JSON Objects Framework 这个框架创建临时对象来读写JSON数据。JSON对象框架要求您创阅读全文

posted @ 2020-05-10 10:40 USEGEAR 阅读(136) 评论(0) 推荐(0)

JSON Objects Framework（1）

摘要：学习datasnap，json必须掌握。用自身的JSON，就必须熟悉JSON Objects Framework。其中tostring和value区别就是一个坑。 The JSON objects framework supports all JSON types:all descendants o 阅读全文

posted @ 2020-05-10 09:54 USEGEAR 阅读(300) 评论(0) 推荐(0)

枚举与string之间查找与转换

摘要：利用TypInfo单元的GetEnumName和GetEnumValue可以遍历任意枚举类型其实上面程序运行会有err，为什么？因为没有理解和掌握JSON Objects Framework【感到简单问题复杂化了】。好多概念还是IsuperJSON的。阅读全文

posted @ 2020-05-09 09:17 USEGEAR 阅读(462) 评论(0) 推荐(0)

datasnap的多表更新

摘要：补课很多，xe一路走来，提供了许许多多的多层数据处理的方法。确实已经提供数个最优方案。把下面的图跑通了，也就解决核心问题了。【Berlin datasnap开发手册p261】补充：阅读全文

posted @ 2020-05-07 10:11 USEGEAR 阅读(318) 评论(0) 推荐(0)

nbhh的泛型：TDictionary

摘要： type TCity = class Country: String; Latitude: Double; Longitude: Double; end; const EPSILON = 0.0000001; var Dictionary: TDictionary<String, TCity>; C 阅读全文

posted @ 2020-04-27 10:07 USEGEAR 阅读(761) 评论(0) 推荐(0)

FDConnection lost后的处理right here

摘要：阅读全文

posted @ 2020-04-23 08:56 USEGEAR 阅读(234) 评论(0) 推荐(0)

firedac的性能

摘要：应该说，目前10.3的方方面面基本正常的坑基本填好了。因此综合考虑还是用datasanp+firedac框架操练。数据量2w行，字段30个第一次open fd读取数据用时363毫秒，ado用时783毫秒第二次open fd读取数据用时10毫秒，ado用时553毫秒遍历所有记录第一次 fd读阅读全文

posted @ 2020-04-06 10:04 USEGEAR 阅读(612) 评论(0) 推荐(0)

datasnap的回调广播

摘要：感觉中的datasnap千孔百疮，到xe10已经具备冲击成千上万用户并发的能力了。应该放心用于项目实战了。补课研究10.1 datasnap开发手册。用到的方法：（1）TDBXCallback机制；（2）TDServer.BroadcastMessage方法；（3）TDSClientCall 阅读全文

posted @ 2020-03-17 16:20 USEGEAR 阅读(730) 评论(0) 推荐(0)

xe10.3+paserver在Ubuntu下运行错误

摘要： xe.3的paserver在Ubuntu下执行呈现乱七八糟的错误提示。原因：Ubuntu的版本和paserver编译的环境不一致。注意：使用ARM64的版本。如ubuntu-18.04.2-desktop-amd64.iso 阅读全文

posted @ 2020-02-26 17:54 USEGEAR 阅读(396) 评论(0) 推荐(0)

SQL语句执行慢情况

摘要：排查历史慢查询： SELECT TOP 20 [Total IO] = (qs.total_logical_reads + qs.total_logical_writes) , [Average IO] = (qs.total_logical_reads + qs.total_logical_wri 阅读全文

posted @ 2020-02-20 11:14 USEGEAR 阅读(314) 评论(0) 推荐(0)

Sql Server执行情况

摘要： 1、查找目前SQL Server所执行的SQL语法，并展示资源情况： SELECT s2.dbid , DB_NAME(s2.dbid) AS [数据库名] , --s1.sql_handle , ( SELECT TOP 1 SUBSTRING(s2.text, statement_start_o 阅读全文

posted @ 2020-02-20 11:03 USEGEAR 阅读(451) 评论(0) 推荐(0)

sql server2005的阻塞和死锁

摘要：检查死锁及阻塞也可参考： sys.sysprocesses 能显示会话进程有多少，等待时间， open_tran有多少事务，阻塞会话是多少. 整体内容更为详细。关键字段说明: spid 会话ID（进程ID），SQL内部对一个连接的编号，一般来讲小于50 kipid 线程ID blocked: 阅读全文

posted @ 2020-02-19 13:30 USEGEAR 阅读(235) 评论(0) 推荐(0)

TdxpageControl融合窗口和free

摘要： for I := cxpgcntrl1.PageCount - 1 downto 0do begin if cxpgcntrl1.Pages[i].Caption <> '首页' then begin cxpgcntrl1.Pages[i].Free; if cxpgcntrl1.PageCount 阅读全文

posted @ 2020-01-27 12:33 USEGEAR 阅读(196) 评论(0) 推荐(0)

调用dll中form，太古老了，可是

摘要：太古老了，可是用的不多。应该考虑商品化项目首选。阅读全文

posted @ 2020-01-15 10:21 USEGEAR 阅读(197) 评论(0) 推荐(0)

FMM4在XE下使用

摘要：在project中增加即可得到提示，如果内存有泄漏的话。但是想进一步仔细使用，还得把FMM3加进来。在project中uses第一行增加同时加进FastMM\FastMM4Messages.pas单元。以上是第一步。第二：定义编译条件变量 Shift+Ctrl+F11,打开项目设置窗口，设阅读全文

posted @ 2020-01-01 12:41 USEGEAR 阅读(346) 评论(0) 推荐(0)

xe下ro流导致的错误

摘要： server端ro7.0的版本，client用的Xe10.3下Ro9.0。导致clientdataset数据记录有几十条就会出现内存泄漏现象。根源在下面： Remobjects9.0与XE10.3自带zlib1.2.11不兼容有BUG RO引用10.3自带ZLIB1.2.11编译安装有bug，表现为阅读全文

posted @ 2019-12-31 15:35 USEGEAR 阅读(187) 评论(0) 推荐(0)

对话框延时自动关闭

摘要： procedure TfrmRKD_SMP_THREE.tmr1Timer(Sender: TObject); var Hwnd: THandle; begin Hwnd := FindWindow(nil, '提示'); if Hwnd <> 0 then SendMessage(Hwnd, WM_CLOSE, 0, 0); tmr1.Enabled:=False; end; 阅读全文

posted @ 2019-12-23 13:59 USEGEAR 阅读(295) 评论(0) 推荐(0)

再说cxGrid主从表相关

摘要：查了那么多叽叽歪歪的资料：masterView的key，从表key和detailkey以及从表需要排序。注意设定参数后，最后active数据集。这里有个顺序问题，否则会增加随机新回到原点看随机help：说重要的： Grid Mode: Master-Detail ExpressQuantumG 阅读全文

posted @ 2019-11-30 18:30 USEGEAR 阅读(556) 评论(0) 推荐(0)

古老的BAT文件在windows下的编辑

摘要：直接上代码应该由于高速处理能力，导致系列批处理太快而出现错误。通过增加echo choic /t 20 /d y /n >nul延时。不知道说的是否正确。 timeout /T 5看看。就是延时5s 阅读全文

posted @ 2019-11-22 17:41 USEGEAR 阅读(184) 评论(0) 推荐(0)

2012R2免登录操作

摘要：由于许多程序系统，需要等服务器系统起来登录后才让运行。对于远程等一些操带来不方便。查资料：如何在WINDOWSSERVER2012R2的登陆界面，启动特定的第三方软件？服务器平台 Operating Systems > Windows Server 2012 服务器平台 Operating Sy 阅读全文

posted @ 2019-11-22 14:58 USEGEAR 阅读(1269) 评论(0) 推荐(0)

2012R2双网卡路由的设定

摘要：目前T440服务器， os只能起步2012R2。intelWin联盟是实实在在的。在该os上，DB支持SQL2008。你要安装SQL2005也可以。到网上查找攻略。那也是死去活来。还好。2008兼容2005，只是功能上有了加强。但是上了SQL2008的数据库，SQL2005对2008的库文件是不认阅读全文

posted @ 2019-11-20 12:06 USEGEAR 阅读(982) 评论(0) 推荐(0)

摘要： with cxgrdbtblvwGrid1DBTableView1.Controller do if FocusedRecord is TcxGridDataRow then begin i := cxgrdbtblvwGrid1DBTableView1.DataController.GetItemByFieldName('WMM_No').Index; RESULT := '''WMM_No'' 阅读全文

posted @ 2019-10-29 16:59 USEGEAR 阅读(188) 评论(0) 推荐(0)

sql server2005的死锁

摘要：每次服务激活时检查。有点蒙，是不是该这样。有什么好办法请告诉我。测试做一个deadlock：根据得到的spid进行kill 阅读全文

posted @ 2019-09-21 23:46 USEGEAR 阅读(152) 评论(0) 推荐(0)

fastreport6的frxpngimage.pas不能编译xe下

摘要：升级很痛苦，因为兼容问题。 fastreport6的frxpngimage.pas不能编译出现错误把all pChar改成类型PAnsiChar。自己查pChar和PAnsiChar在高版本的xe中有啥不同可知。对于2009年以前版本的Delphi PChar 和 PAnsiChar 完全一样。阅读全文

posted @ 2019-09-14 15:30 USEGEAR 阅读(528) 评论(0) 推荐(0)

换机换系统记录过程

摘要：说明：有老机器换新机器。ssd256系统盘，1TB数据盘。因为新机器是八代cpu，dell7060商用机。导致仅仅换硬盘失败。因为八代cpu不识别非GPT分区。所以需要把原256ssd的分区由win7的MBR格式改成GTP格式。注意，是引导盘的格式要转换。步骤 1、通过PE把系统256ssd克阅读全文

posted @ 2019-08-31 18:57 USEGEAR 阅读(314) 评论(0) 推荐(0)

cnpack导致view快捷键失灵。

摘要：学习d10.3。出现怪问题：卸载cnpack出现：这下要用快捷键了。那可不烦透了。如此就ok了。鸡蛋好吃，还要知道母鸡如何生蛋的？阅读全文

posted @ 2019-08-13 17:44 USEGEAR 阅读(270) 评论(0) 推荐(0)

fdMemtable FDQuery json之间的一些关系

摘要： 1 procedure TForm1.btn1Click(Sender: TObject); 2 var ss,ss1: TStringStream; 3 begin 4 ss := TStringStream.Create('', TEncoding.UTF8); {建立字符串流} 5 FDQuery1.SaveToStream(ss, sfJSON); {把数据集保存... 阅读全文

posted @ 2019-08-05 14:54 USEGEAR 阅读(670) 评论(0) 推荐(0)

D常用快捷键大全（转）

摘要： Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。Ctrl+Shift+NUM在光标行设置最多九个临时标志号，对临时切换非常有用。行阅读全文

posted @ 2019-08-05 09:17 USEGEAR 阅读(636) 评论(0) 推荐(0)

cxGrid布局的保存和恢复

摘要： //恢复布局IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini';if FileExists(IniFileName) thenSelf.tvResult.RestoreFromIni 阅读全文

posted @ 2019-07-27 14:59 USEGEAR 阅读(705) 评论(0) 推荐(1)

DevExpress汉化

摘要： https://www.cnblogs.com/kinglandsoft/p/10636590.html?tdsourcetag=s_pctim_aiomsg 关于电子表格的汉化。只需要把下面文件替换即可。不要重新安装控件。重新编译即可（18.2.1） {********************** 阅读全文

posted @ 2019-07-11 15:19 USEGEAR 阅读(417) 评论(0) 推荐(0)

ro在xe10.3上的安装

摘要：在学习研究RO。 RO9.2.101.1295在xe10.3上安装遇到新问题。记录处理的办法：没有采用执行exe安装的方法。而是采用复制源代码后编译安装。 1、把生成的bpl、dcp安装到默认目录，如C:\Users\Public\Documents\Embarcadero\Studio\20.0 阅读全文

posted @ 2019-07-04 16:51 USEGEAR 阅读(343) 评论(0) 推荐(0)

xe的debug怪现象

摘要：死活有问题，而且不能重新编译生成文件。查网上说明：在删除项目xxx.dproj文件后，然后打开dpk文件，会自动生成.dproj文件，再然后一切OK。的确如此，但莫名其妙。阅读全文

posted @ 2019-03-21 12:21 USEGEAR 阅读(222) 评论(0) 推荐(0)

dev的动态汉化

摘要：放控件TcxLocalizer。将其FIlename设定成汉化文件.ini。选择Locale的值是中文，然后active=true。OK了文件如下 ini如下：阅读全文

posted @ 2019-03-16 17:22 USEGEAR 阅读(437) 评论(0) 推荐(0)

10.3andXE7的DEVExpress18.2.1记录备查

摘要：记录备查： win10 DEVExpress18.2.1用DevExpressVCL一键编译安装工具_v10.3.2 - 2018-12-12.exe（包括help，备份。。。升级系统不用重新安装控件了平P：）。只管study use 阅读全文

posted @ 2019-02-11 11:47 USEGEAR 阅读(324) 评论(0) 推荐(0)

Tclientdate的排序

摘要： CDS_common.IndexDefs.Clear; CDS_common.AddIndex('JSPH','JSPH',[],'JSPH'); CDS_common.AddIndex('WSPH','WSPH',[],'WSPH'); CDS_common.IndexName := 'JSPH' 阅读全文

posted @ 2018-12-20 23:14 USEGEAR 阅读(232) 评论(0) 推荐(0)

nginx4win10 文件下载服务器

摘要：默认root是Nginx下目录html。我们在其目录下新建download目录，然后在该目录下copy几个供下载的文件。在浏览器输入http://localhost:9001/download/yourfilename后，一般会出现另存的对话框。测试脚本 nginx -t 开启服务器 star 阅读全文

posted @ 2018-10-10 17:54 USEGEAR 阅读(499) 评论(0) 推荐(0)

nginx 4 win10

摘要：去下载文件 http://nginx.org/en/download.html 然后释放文件到一目录最后执行nginx.exe。到浏览器查看localhost，界面：在最后，别忘了，修改其80端口。文件nginx.conf中。要不就要折腾去修改注册表了。阅读全文

posted @ 2018-10-04 14:58 USEGEAR 阅读(173) 评论(0) 推荐(0)

unigui的ini文件读写【6】

摘要： procedure THeaderFooterForm.writerParas; var IniFile : TIniFile; begin try IniFile:=TIniFile.Create(TPath.GetHomePath+'\usegear.ini');// Edit_ServerIP 阅读全文

posted @ 2018-09-20 09:08 USEGEAR 阅读(761) 评论(0) 推荐(0)

导航

公告