一曲轻扬

摘要： Default 是 Delphi 的一个内建函数/关键字，用于获取任何类型的默认值（零值）。 使用 Default 的优点： 更清晰表达"清零"的意图 即使将来记录增加字段，也不需要修改 代码更简洁 // Default() 返回指定类型的"零值"或"空值" var I: Integer; S: s 阅读全文

摘要： Result 概要: Result 是 Delphi 编译器自动为有返回值的函数创建的局部变量 它的类型自动匹配函数的返回类型 不需要手动声明，直接使用即可 这是 Delphi/Object Pascal 语言的核心特性之一 对于记录类型，Result 就是一个完整的记录实例，可以直接访问其字段 下 阅读全文

摘要： 先看效果图 设置cxgrid视图的OnMouseDown事件即可实现 procedure TfraModuleCPRK.GridView2MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Intege 阅读全文

摘要： 1.首先设置OptionsView.footer:=true 2.双击GridView1视图,转到 总结 - 页脚 页面,然后点添加 3.设置footer 说明,不要设置FieldName. Kind选择你需要的功能 4.设置 "合计"字样(可选,可改) 按上面1-3的步骤选择一个用不到的列(一般选 阅读全文

摘要： function CalculateExpression(const AExpr: string): Extended; var Script: Variant; Expr: string; begin // 移除空格 Expr := StringReplace(AExpr, ' ', '', [r 阅读全文

摘要： 前期的实现原理,看这里: delphi cxgrid + PopupMenu 创建智能过虑功能的菜单 - 一曲轻扬 - 博客园 (cnblogs.com) procedure TfraModuleCPRK.p2Click(Sender: TObject); begin var val := Quot 阅读全文

摘要： 简单来说： DataController：负责数据和逻辑（数据从哪里来、如何排序、筛选、分组） Controller：负责界面和交互（用户点哪里、焦点在哪、选择哪些行） 阅读全文

摘要： 一.下拉菜单. 需求:字段为Integer类型,但要求显示出文本内容.如下图,仓库实际存储的是仓库ID,显示的却是仓库名称. 实现方法: procedure TfraModuleCPRK.SetupWarehouseLookup; begin if not Assigned(CK) or not A 阅读全文

摘要： 一.过虑器:FILTER 1.属性设置 Filter: 过虑器 Filtered: 过虑器开关. 只有开关打开时,过虑器才会工作. FilterOptions - foCaseInsensitive : 不区分大小写,也可以在代码中使用UpperCase对条件进行统一大写 FilterOptions 阅读全文

摘要： ERP设计：共用工序物料的架构方案 针对“前工序相同、后工序分流”场景的数据结构与业务逻辑设计 在ERP系统设计中，当多个成品（如P1、P2、P3）的前几道工序完全一致，仅最后工序（如上色）产生差异，且任意工序可能由不同部门或委外供应商完成时，如何高效设计物料编码、BOM及工艺路线成为核心难题。本文 阅读全文

摘要： 1.数据表设计: 要点: [用户头像]字段选择 OLE对象 [用户头像]不要直接在数据库中插入对象,因为会被套壳(如下图所示),程序要想再读出来很困难 理论上应该由程序上传到数据库,而不是直接在数据库里添加 直接插入会被加壳 下面这种才对正确的数据格式 程序界面设计: 给用户设置一个默认的头像(如下 阅读全文

摘要： //即使同时按下了 Ctrl + Shift、Ctrl + Alt 等组合键，条件依然为 True. procedure TEditUser.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if (ssCt 阅读全文

摘要： 效果图: TscGPDBComboBox控件虽然名字里面带了DB,但我没有发现它能带来什么效果.我设置好了这两个属性,按理来说就应该自动把数据填充进去的,但是我运行后并没有效果.如果是我设置错了,麻烦指点一下. 然后我只能手动创建菜单了. while not FDQuery1.Eof do begi 阅读全文

摘要： 设计界面: 需求说明: 1.上面是订单总表,下面是订单明细, 2.总表gridview设置了OnFocusedRecordChanged 事件,即当用户选择总表中的记录时,下面会显示出此订单下的所有明细 3.日期定位可以让用户快速的设置筛选日期区间 实现过程: 一.以下代码实现目标2. proced 阅读全文

摘要： 效果: 第一步.与cxgrid相关联的TFDQuery控件需要确定"缓存更新"属性处于关闭状态. 说明:如果开启缓存更新,则需要手动执行 FDQuery1.ApplyUpdates 第二步.设置gridview-OptionsBehavior-EditMode属性.它有四个选项,如下图所示: 这四个 阅读全文

摘要： 如果我不把UnitName 改成UnitName1,在With内部会得到一个意料之外的值. 分析: with内部的UnitName 其实指向的是system单元下的TObject.UnitName,然后在当前语境下,指向的就是fq.UnitName,而不是你在上面声明的UnitName.所以它才会返 阅读全文

摘要： 我们在基类单元中声明了GetData一个方法并在Create事件中调用GetData方法. 注意此时GetData在声明时,使用的是virtual方法,说明它是不再继承TFrame中的同名过程,而是新增的方法 另外Create和Destroy事件使用的是override方法,说明它是继承的父类同名方 阅读全文

摘要： type TFrame3 = class(TFrame) private { Private declarations } public { Public declarations } function test():string; end; implementation {$R *.dfm} { 阅读全文

摘要： Delphi 窗体间通信之事件回调模式 - 一曲轻扬 - 博客园 (cnblogs.com) 书接上例.这回我们将使用接口回调模式,来完成窗体间的通讯问题 核心套路： 定义接口（在弹出窗体单元） 实现接口（在主窗体/框架单元） 设置回调（创建时连接） 触发回调（事件发生时） 具体实现代码如下: 第一 阅读全文

摘要： Delphi 窗体间数据传递的「事件回调模式」套路总结 一、核心思想 「单向依赖 + 事件驱动」 - 下级窗体通过事件通知上级，避免双向引用导致的循环依赖。 在下级窗体中完成参数收集工作,并传向上级窗体. 在上级窗体关联并具现事件方法. 以下以FrmRK单元(上级)和FMTop20Record (下 阅读全文