一曲轻扬

摘要： 抛出问题: 排除过程: 1.在TFrmChangePW窗口的create事件里打断点,结果发现,根本没停顿,所以判断问题不在TFrmChangePW窗体里,而是showmodal这语句里出了问题,点中断,跳到抛出错误的地方: 2.if 里的四个条件,检查了第一个,第二个和第四个都是没问题的,第三个( 阅读全文

摘要： 效果图: 代码超简单的: procedure TFrmLogin.FormCreate(Sender: TObject);var Fmutex: THandle; begin//创建一个命名的互斥量，确保同一时间只有一个实例在运行 //第三个参数是自定义的,随便取的,但一定要是唯一的标识 FMute 阅读全文

摘要： 先看效果: 窗体边框设置为BorderStyle:bsNone,显示位置为Position:poOwnerFormCenter.调整成合适的大小. 我封装成了一个函数.这样消息窗口就纯粹就是一个模板了,里面没有任何代码,所有功能都可以写在DM或者其他窗体中,当调用时,直接调用这个函数就可以了 补充: 阅读全文

摘要： 效果图： 嗯我们今天主要看下面这一部分的实现： 四个按钮是TscGPCharGlyphButton控件。上面一行显示记录位置和快速跳转的那一坨，它其实是由四个TscGPEdit控件拼接构成的。 红色括号3那里,其实是把边设置成了红色,而4这个则是设置边框不显示.然后两个控件高度一致,但要比最外面的1 阅读全文

摘要： 效果是在IDE里输入函数名称后,在下方出现你对这个函数的注释内容: 源码: 参考地址:https://docwiki.embarcadero.com/RADStudio/Sydney/en/XML_Documentation_Comments 以上内来源: Delphi研习社②群 @球球 阅读全文

摘要： 经过其他老师指点，自己摸索，发现如何实现，现说明如下，供大家参考。一、建立图标文件 1、建立一个24X24的256色BMP格式文件。 2、文件命名为该组件的名称。二、建立资源文件:Project→Resource and Images,点击Add将BMP格式图标文件加入，Resource Ident 阅读全文

摘要： 在SQL语句中，过滤条件可以放在JOIN子句的ON条件中，也可以放在WHERE子句中，两者有着不同的作用。 ON条件中的过滤条件 当查询涉及多个表时，使用JOIN操作将它们连接在一起。在JOIN子句中，可以使用ON关键字指定连接条件。ON条件用于指定两个表之间的匹配条件，以便将它们连接在一起。此时， 阅读全文

摘要： 在Access VBA中，类是一种用于封装数据和方法的编程结构。类可以帮助我们更好地组织和管理应用程序中的代码，使代码更易于维护和扩展。 以下是一些关于类的基本概念和用法： 类的定义 在VBA中，可以使用Class关键字定义一个类。类的定义通常包括属性和方法，用于描述类的行为和状态。例如： Publ 阅读全文

摘要： 在Access中将单价字段设置为文本类型的优缺点如下： 优点： 可以保存任意格式的数据，包括货币符号、千位分隔符、小数点等。 可以在文本类型字段中保存数字和非数字的数据，例如“未知”或“免费”。 可以避免由于浮点数精度问题导致的计算错误，例如0.1+0.2=0.30000000000000004。 阅读全文

摘要： 在Delphi中处理浮点计算，可以使用内置的浮点型数据类型，如Single、Double、Extended等。这些数据类型都支持基本的数学运算操作，如加、减、乘、除等。 为了保留指定位数的小数，可以使用格式化字符串的方法。例如，使用Format函数将浮点数格式化为指定位数的字符串，然后再将字符串转换 阅读全文

摘要： 如果你玩过EXCEL的条件格式化,那么你在这里应该会很容易上手. 数据库和cxgrid的设置,这里就略过了. 右键表格,选择 Edit Layout and Data... 或者 Conditional Fromatting...都可以.这里我们选择 Edit Layout and Data... 阅读全文

摘要： 1.当我们绑定好数据库之后,默认是全部折叠的,只显示 + 全部 cxDBTreeList1.Root.getFirstChild.Expand(False); //只展开第一层目录,注意除非是在create或者show事件,否则对于已经被操作过的目录,必须先折叠所有节点,才会有效cxDBTreeLi 阅读全文

摘要： 举例: 当我按下ESC键时,不管焦点在哪里,我都要关闭这个窗体 实现: 1.勾选窗体的 KeyPreview属性 然后设置窗体的OnKeyDown事件,#27是ESC键,如果是组合键,请用Shift参数来判断 procedure TCalculator.FormKeyDown(Sender: TOb 阅读全文

摘要： 效果图: 数据库设计: 设计视图: 方法一使用TcxEditRepository控件.双击TcxEditRepository控件,进行添加.这里选择新增货币格式. 为每一种样式设置属性: 接下来关联需要设置的列.但不是在面板里直接设置,而是通过代码 选中需要设置的列,然后在其OnGetPropert 阅读全文

摘要： 效果图: 需求: 当用户新增或者删除控件时,后面的控件(如果有的话)自动后退或者前移 实现: 需要用的控件是TFlowPanel,临时演员是TscGPEdit 1.TFlowPanel设置好合适的对齐,其他基本上不用怎么设置,默认即可 2.设置TscGPEdit的AlignWithMargins:= 阅读全文

摘要： 效果图 面板设置: 1.把导航面板显示出来: Navigator.visible:=true 2.在Navigator-Buttons下设置自己需要显示或者隐藏的按钮 3.添加自定义按钮 双击CustomButtons,弹出新增按钮的窗体,在这里完成新增与属性设置.注意,这里是设置不了事件的,不要着 阅读全文

摘要： 原文已删除. 2024-03-22修正: 效果图: 需求: 在cxgrid执行过虑操作前,重新定义关键词,实现模糊匹配.比如用户输入"ABC",则改为"%ABC".实际上,对于文本匹配,cxgrid默认会在关键词后面多加一个"%"号,所以我们只需要在前面加一个"%"就可以了 核心代码: proced 阅读全文

摘要： 先看效果图 效果要求: 1.点击申领数量时,自动设置此物料可领上限,与可退的下限 2.申领数量为0时,不更新 说明: 1.使用了cxGrid+FireDAC 2.TFDQuery控件不要开快储功能(CachedUpdates不要勾选) 3.因为表格数据为多表联合查询的数据,所以这里要设置一下更新指向 阅读全文

摘要： 简单的设计一下界面,大致如下: 要求:审核或者反审核用户选择的数据 1.正常点审核时,审核=true,审核人=当前用户名 2.反审核时,审核=false,审核人=null 实现代码: procedure TForm1.UpdateData(flg: Boolean); var i, n, Error 阅读全文

摘要： 今天遇到个问题, 设计时,[审核人] 字段是有数据的 数据库里的 [审核人]字段 也是有数据的 但是偏偏运行时没有数据 首先排除字段绑定问题,因为设计阶段是有数据的,然后仔细检查create事件,发现里面有设置默认值操作,怀疑这些操作触动了查询操作,然后查询函数中打断点,一步步跟进.最后发现是查询函 阅读全文