FDConnection lost后的处理right here
摘要：
阅读全文
posted @ 2020-04-23 08:56
随笔分类 - delphi
firedac的性能
摘要：应该说，目前10.3的方方面面基本正常的坑基本填好了。因此综合考虑还是用datasanp+firedac框架操练。 数据量2w行，字段30个 第一次open fd读取数据用时363毫秒，ado用时783毫秒 第二次open fd读取数据用时10毫秒，ado用时553毫秒 遍历所有记录 第一次 fd读
阅读全文
posted @ 2020-04-06 10:04
xe10.3+paserver在Ubuntu下运行错误
摘要：xe.3的paserver在Ubuntu下执行呈现乱七八糟的错误提示。 原因：Ubuntu的版本和paserver编译的环境不一致。 注意：使用ARM64的版本。如ubuntu-18.04.2-desktop-amd64.iso
阅读全文
posted @ 2020-02-26 17:54
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
调用dll中form，太古老了，可是
摘要：太古老了，可是用的不多。应该考虑商品化项目首选。
阅读全文
posted @ 2020-01-15 10:21
对话框延时自动关闭
摘要：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
如何确定dbgrid选择的是记录而不是分组
摘要：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
fastreport6的frxpngimage.pas不能编译xe下
摘要：升级很痛苦，因为兼容问题。 fastreport6的frxpngimage.pas不能编译出现错误 把all pChar改成类型PAnsiChar。自己查pChar和PAnsiChar在高版本的xe中有啥不同可知。 对于2009年以前版本的Delphi PChar 和 PAnsiChar 完全一样。
阅读全文
posted @ 2019-09-14 15:30
cnpack导致view快捷键失灵。
摘要：学习d10.3。出现怪问题： 卸载cnpack出现： 这下要用快捷键了。那可不烦透了。 如此就ok了。 鸡蛋好吃，还要知道母鸡如何生蛋的？
阅读全文
posted @ 2019-08-13 17:44
D常用快捷键大全（转）
摘要：Ctrl+PageUp将光标移至本屏的第一行，屏幕不滚动。Ctrl+PageDown将光标移至本屏的最后一行，屏幕不滚动。Ctrl+↓向下滚动屏幕，光标跟随滚动不出本屏。Ctrl+↑向上滚动屏幕，光标跟随滚动不出本屏。Ctrl+Shift+NUM在光标行设置最多九个临时标志号，对临时切换非常有用。行
阅读全文
posted @ 2019-08-05 09:17
cxGrid布局的保存和恢复
摘要：//恢复布局IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini';if FileExists(IniFileName) thenSelf.tvResult.RestoreFromIni
阅读全文
posted @ 2019-07-27 14:59
DevExpress汉化
摘要：https://www.cnblogs.com/kinglandsoft/p/10636590.html?tdsourcetag=s_pctim_aiomsg 关于电子表格的汉化。只需要把下面文件替换即可。不要重新安装控件。重新编译即可（18.2.1） {**********************
阅读全文
posted @ 2019-07-11 15:19
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
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
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
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
unigui导出TMS.Flexcel【5】
摘要：参考代码 procedure TUniFrmeWebEmbedBase.ExportData; //导出到excel var FlexCelImport1: TExcelFile; i, rowindex, colindex: Integer; ms : TMemoryStream; begin {
阅读全文
posted @ 2018-08-13 16:13
unigui+fastreport 打印【4】
摘要：1、建立一个uniForm，用于建立FastReport打印界面。在Form上增加uniFrame。和传统的的报表打印设计一样一样的。 2、在beofeShow事情中： 3、在前端调用的代码 4、关于乱码问题： 5、其他：窗口有数据控件，不知道为什么会自动连接open，因此你要能保持open而不出错
阅读全文
posted @ 2018-08-11 17:23
unigui菜单【3】
摘要：unigui菜单TuniTreeView 根据数据库表中的内容，显示菜单的处理： function TMainForm.CreateMenu: Integer; var myMenuPoint : PMyMenuRec; i :Integer; menu_id ,menu_name, menu_ur
阅读全文
posted @ 2018-08-03 18:54
unigui的菜单树补习【2】treeview
摘要：Treeview用于显示按照树形结构进行组织的数据。 Treeview控件中一个树形图由节点(TreeNode)和连接线组成。TtreeNode是TTreeview的基本组成单元。 一个树的节点又包含文本(Text)和数据(Data)。Text为String类，Data则为无定形指针(Untyped
阅读全文
posted @ 2018-08-01 09:37
