摘要： TMVCActiveRecord.CurrentConnection.StartTransaction; try //do TMVCActiveRecord.CurrentConnection.Commit; Render(201, 'Create Successfully', ''); excep 阅读全文

摘要： uses MVCFramework.Controllers.Register, procedure TWebModule1.WebModuleCreate(Sender: TObject); begin FEngine := TMVCEngine.Create(Self); /// Add your 阅读全文

摘要： print right( '0000'+ convert(nvarchar(3),convert(int,right(@GetMaxNo,@typecode))+1),4) 字段获取值：20221206001 ，类型为字符串型。YYYYMMDD+3位流水，需要得到 20221206002。 阅读全文

摘要： procedure TAcptkController.CreateAdvancePayment; var Acptk: TAcptk; Acptks: TObjectList<TAcptk>; begin if Context.Request.QueryStringParam('Batch').To 阅读全文

摘要： 应用场景： 预付款单中 只有供应商编号，没有供应商全称。想序列化时带出供应商全称字段。 procedure TAcptk.OnAfterLoad; var ASupplier: TSupplier; //定义实体类 begin ASupplier := TMVCActiveRecord.GetOne 阅读全文

摘要： 最近在学习SCUI ，碰到要安装node.js和npm。所以下面就来介绍下 1.打开NodeJs官网：https://nodejs.org/en/download/ 点击下载 2.安装完成后可以使用cmd（win+r然后输入cmd进入）测试下是否安装成功。方法：在cmd下输入node -v，出现下图 阅读全文

摘要： 方法： TJSONObject.GetValue<string>('path') 结果：系统04 { "errcode":0, "errmsg":"ok", "result":{ "has_more":false, "list":[ { "name":"系统04", "userid":"214409 阅读全文

摘要： private procedure SetRowNumber(var Sender: TcxGridTableView; var AViewInfo: TcxCustomGridIndicatorItemViewInfo; ACanvas: TcxCanvas; var ADone: boolean 阅读全文

摘要： 一、不想序列化某个类中字段。 解决方案很简单，但隐藏得很好。JSONMarshalled对于不想序列化或反序列化的字段，您应该将class 属性设置为 False。 type TPerson = class private FName: string; FSurname: string; FHeig 阅读全文

摘要： /* 设备状况监控 */ // $(document).ready(function () { // 基于准备好的dom，初始化echarts实例 var myChart = echarts.init(document.querySelector(".mes995 .chart")); // 2. 阅读全文