10 2022 档案

摘要:当物料类型为 刀具仓时,单位 自动修改为 粒 当物料类型为 原料仓时,单位 自动修改为 公斤 反之亦然. 这是两个相互联动的控件,如果直接写的话,会直接死循环. 如何做到只让控件修改一次就不再联动的目的呢? 我们需要一个计数器来做辅助. 设置一个全局变量 ChangComCount:integer; 阅读全文
posted @ 2022-10-28 17:04 一曲轻扬 阅读(129) 评论(0) 推荐(0) 编辑
摘要:转载自:http://t.zoukankan.com/hnxxcxg-p-2940801.html 以下代碼在D7+ACCESS+FastReport 3.15版中測試通過. 1.將FastReport存入數據庫中: 在窗體的"Insert"按鈕的OnClick事件中插入下面代碼:(Insert_r 阅读全文
posted @ 2022-10-28 08:20 一曲轻扬 阅读(277) 评论(0) 推荐(0) 编辑
摘要:我设置了一个双击事件,然后又想通过右键菜单来实现双击整事件里的功能,就这么一个简单的功能,我卡了一天! 主要卡在 ACellViewInfo 这个参数里面,想传这个参数进去,又不会看英文文档,只能慢慢试,还好最后试出来了! 写出来是希望有遇到相同问题的朋友,不要再经历像我一样的痛苦. 先看一下双击事 阅读全文
posted @ 2022-10-24 20:03 一曲轻扬 阅读(131) 评论(0) 推荐(0) 编辑
摘要:我现在一个窗体里,加载了个TcxGrid 对象,想让这三个对象共用一个右键菜单.所以在菜单弹出之前,要判断是在哪个对象里弹出来,然后设置右键菜单的内容. 在网上找到这段代码: ShowMessage(PopupMenu1.PopupComponent.Name ); 但是一直弹出空白.后来经过猫哥的 阅读全文
posted @ 2022-10-24 11:02 一曲轻扬 阅读(124) 评论(0) 推荐(0) 编辑
摘要:安装教程:http://t.zoukankan.com/liessay-p-5321278.html 这里给大家提个醒: 以管理员身份运行.如果你想要使用中文版,需要在选择中文时,马上点一下compile,然后再选择Recompile all packages 再点一下compile 如果你打开fa 阅读全文
posted @ 2022-10-21 11:38 一曲轻扬 阅读(2583) 评论(0) 推荐(0) 编辑
摘要:需求: 已知 申购数量 / 单重 = 支数,其中[支数]为自动计算列,且 [支数] 字段实际存在于数据库中 特殊情况: 当单重为0时,支数为0 当 1 > 支数 > 0时,支数=1 procedure TFraModleBase.TV申购清单EditValueChanged(Sender: TcxC 阅读全文
posted @ 2022-10-18 19:12 一曲轻扬 阅读(127) 评论(0) 推荐(0) 编辑
摘要:需求明细: 1.表格 TV申购清单,默认OptionsData--Editing:true 可写权限 2.默认 列属性 [申购数量,单重,用途,需求日期] Options Editing:true 常规情况下,这几列是可自由修改的. 3.当物料代码前四位为'temp'时, 列 [物料名称,规格型号, 阅读全文
posted @ 2022-10-18 08:17 一曲轻扬 阅读(249) 评论(0) 推荐(0) 编辑
摘要:用FormatFloat来处理浮点数,是一个很好的选择. 我这里只讲一种语法: FormatFloat(格式,数值) 第一坑: 第二参数为数值类型,别传个文本值进去. 第二坑: 返回值是一个string.如里需要转换为数值,需要再套一个转化函数 :StrToFloat(FormatFloat(格式, 阅读全文
posted @ 2022-10-15 08:57 一曲轻扬 阅读(165) 评论(0) 推荐(0) 编辑
摘要:本文写于2022-10-14,D版本10.3.3 引用单元: uses System.RegularExpressions 1、TRegEx.Match方法 Match()方法总是获取满足条件的第一个匹配,而不关心满足条件的匹配有多少个。 Match()方法都回一个Match对象,其中包含了匹配的各 阅读全文
posted @ 2022-10-14 18:51 一曲轻扬 阅读(2149) 评论(0) 推荐(0) 编辑
摘要:转自: https://www.cnblogs.com/maweiwei/p/7493614.html 例子1 测试 时,CPU并没有占用100% 不知道是否Delphi高版本已优化。 声明:Property OnIdle:TIdleEvent;其中:TIdleEvent是这样声明的:TIdleEv 阅读全文
posted @ 2022-10-13 11:17 一曲轻扬 阅读(201) 评论(0) 推荐(0) 编辑
摘要:效果图: 核心代码: use Vcl.Themes;procedure TForm1.FormCreate(Sender: TObject);var i:integer; popItem:TMenuItem; begin//动态生成右键菜单与绑定事件 //TStyleManager样式管理器,不用声 阅读全文
posted @ 2022-10-06 19:29 一曲轻扬 阅读(235) 评论(0) 推荐(0) 编辑
摘要:方法一:用API,此方法做出来的效果稍差,边缘会带有锯齿,强迫证患者谨用. procedure TForm1.FormCreate(Sender: TObject); var fhr: Thandle; begin fhr := CreateRoundRectRgn(0, 0, 195, 195, 阅读全文
posted @ 2022-10-06 09:11 一曲轻扬 阅读(389) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示