摘要：
应用场景： 一个数据库表，一个数据字典，两个Bpl窗体，单号分开，下拉列项的值分开 数据字典设置：单号字段NO的默认值：BeginStr=[Begin]select CASE [:Direction] when 1 then 'SI' when -1 then 'SO' end [End] Date 阅读全文
2022年4月7日 #
摘要：
function GetControlByFieldName(aFieldName: string): TControl; function GetLabelByFieldName(aFieldName: string): TControl; 阅读全文
摘要：
procedure TShoesErp_Pack_PackStockInForm.ABcxGrid1ABcxGridDBBandedTableView1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewI 阅读全文
摘要：
应用场景： 数据库一个表，两个录入界面，选择同个下列列项，但是不同界面显示的下拉内容不一样 解决方法： 在数据库的ABQuery1AfterLoadFieldDownDef事件中加入过虑条件，如下： begin //判断下拉字段 if (AnsiCompareText(aFieldDef.fi_na 阅读全文
2022年4月3日 #
摘要：
问题描述： 在虚拟机上正确，而其它客户端程序打开，显示英文，如图： 在开发机上，将Dev.ini文件文件更新至服务器，主要上传服务器时要设置目录：ABSoft_Set\Public，如图： 其它客户机重新打开程序即可，如果没有成功，将客户机ABSoft_Set\Public目录下的Dev.ini文件 阅读全文
2022年4月2日 #
摘要：
1、系统参数需要增加属性 1.1，单据列表背景色的颜色选择框，在ABSys_Org_ParameterU单元中TABSys_Org_ParameterForm.PamesValueGetProperties增加 //增加自己的参数为颜色选择框 (AnsiCompareText(tempParamNa 阅读全文
摘要：
//布尔型 if (AnsiCompareText(tempParamName,trim('CheckClientDog'))=0) or (AnsiCompareText(tempParamName,trim('CheckServerDog'))=0) or (AnsiCompareText(te 阅读全文
2022年3月30日 #
摘要：
procedure TShoesErp_Sales_SalesOrderForm.ABcxGrid1ABcxGridDBBandedTableView1CustomDrawCell( Sender: TcxCustomGridTableView; ACanvas: TcxCanvas; AViewI 阅读全文
摘要：
错误提示信息： Tcp Server 调用的接口插件[ABSysPlug.ExecSQL('','exec Proc_ParseDictionary ''testDemo'',''M_Employee'','''',''1''',-1)]异常,出错信息为[[FireDAC][Phys][ODBC][ 阅读全文
2022年2月27日 #
摘要：
桌面客户端，BS客户端，手机移动端，都可以使用，支持多种服务 TCP服务WebSocket服务WebService服务WebBrokerAPI(Http)服务MormotAPI(Http)服务搞什么开发，一个服务端就搞定了，关键是有源码，想添加任何服务的功能都可以！ 欢迎加入AB二开平台QQ群103 阅读全文