一曲轻扬

摘要： 在报表中插入三个无关联的文本框控件,取名分别为Text,Text2,Text3,他们的宽/高,上/左边距按需求自定义,可见均设置为否,如果你需要显示序号的话,text3可设置为可见 text 控件来源: =1 text 2:控件来源: =IIf([Text]<[Text3]+1,[Text],IIf 阅读全文

摘要： 原SQL: UPDATE 刀具申购明细 SET 刀具申购明细.关闭 = -1 where 刀具申购明细.申购数量<=(SELECT Sum(Round(Nz([入库数量],0)*1,2)) AS 入库合计 FROM 采购入库temp LEFT JOIN 刀具入库明细 ON 采购入库temp.申购ID 阅读全文

摘要： 如上图,需求是当用户点中[申请数量]字段下的值时,自动选中里面的值,但要求每次获得焦点时,只触发一次. 我首先想到的是用GotFocus 事件,核心代码无非就是SelStart和SelLength,但是发现它根本不起作用.于是只能用click事件尝试,结果运行正常. 但有个小BUG,就是每次点击都会 阅读全文

摘要： 转载自: delphi读写INI文件_delphi写数据到ini_苏生米沿的博客-CSDN博客 Delphi提供了读写INI文件的方法，Delphi操作INI文件最为简洁，这是因为Delphi提供了一个TInifile类，使我们可以非常灵活的处理INI文件。 一、INI文件的结构：;注释[小节名]关 阅读全文

摘要： 有多少人是因为SetComputerName无效之后找到这里的?请在评论区报一下名. uses ShellAPI,windows; procedure TForm1.ChangeComputerName(const NewName: string); var Command: string; New 阅读全文

摘要： 一.TFDMemTable控件不依赖数据库,可以独立保存数据(运行期间)和使用. 这种情况下,我们只能通过 [新建字段] 来建立数据字段. 上面的 [添加字段] 和 [添加所有字段] 都是要与数据库连接之后才能用. 这里提示一下各位.字段要加好以后再往里面录数据,如果先录了数据,然后再添加或者删除字 阅读全文

摘要： 在Delphi中，有许多不同的数据类型可供选择，每个数据类型具有不同的特性和用途。以下是一些常见的Delphi数据类型： 1. 整数类型： - `Byte`：无符号8位整数。 - `Shortint`：带符号8位整数。 - `Word`：无符号16位整数。 - `Smallint`：带符号16位整数 阅读全文

摘要： 首当其中的是shift键,能轻松的绕过用户设置的启动程序,直接把后台数据暴露出来.解决方案是:ACCESS 禁止用户使用SHIFT启动数据库 - 一曲轻扬 - 博客园 (cnblogs.com) 其次是万能的导入大法.下面分几中情形来进行总结: 先创建一个空白的数据库A. 假设目标数据库为B. 当B 阅读全文

摘要： 按WIN+R打开运行,输入 "powershell" 回车,打开powershell界面 然后输入 "irm massgrave.dev/get | iex" 回车, 稍等片刻,打开注册界面 以激活office为例.选择第三项(输入数字3) 再选择2 出现这个界面说明注册成功: 以上方法,WIN7 阅读全文

摘要： 本例需要读取excel中的数据,然后动态的添加到TSCTreeView控件当中 . 最终效果如下图: 核心代码如下: procedure TForm1.FormCreate(Sender: TObject); var n: Integer; t: TTreeNode; I: Integer; beg 阅读全文

摘要： 效果如下图,[数量]字段上的负数为退货或者出库: 以下是入库单与出库单数据表里的数据: 这里要用到一个临时查询,我随便取了个 "物料进出查询" SELECT 入库单.产品ID, 入库单.入库数量 AS 数量,入库日期 as 日期 FROM 入库单 UNION ALL SELECT 出库单.产品ID, 阅读全文

摘要： 一.工具界面如下(没做UI) 二.设计视图如下: 三.控件说明: 1.使用到了第三方StyleControl控件中的SCGPLabel,SCGPEdit,SCGPCheckBox,SCGPCombobox,SCGPButton,这几个控件如果需要,可替换成系统自带控件.难度-1 2.TrayIcon 阅读全文

摘要： uses System.SysUtils, System.IOUtils; procedure TForm1.Button1Click(Sender: TObject); var CreationTime, LastWriteTime: TDateTime; begin CreationTime : 阅读全文

摘要： 在说应用之前,我觉得很有必要先讲讲组合框的一些常用属性: 1.Dropdown : 显示下拉菜单.这个属性可以在VBA下主动显示出来,但如果要隐藏它,只能通过转移焦点来达成. ComboObj.Dropdown 2.AutoExpand : 这是个布尔值,默认为True.一般会在Load事件中设置好 阅读全文

摘要： 先看下面这个图: 左边的已签回字段是我后来改造过的.右边的是最原始的数据.原始数据下,布尔类型是无法设置边框线的,打印出来的效果也是非常的差 改造的方法是直接舍弃原来的字段,自己插入一个计算字段(文本框),然后用IIF计算,下面提供两种应用样式,可供大家参考 最后啰嗦一句:ACCESS里面的布尔类型 阅读全文

摘要： 这是官方链接,不要去各种百度了: 在数据库中强制实施或禁用启动选项 - Office | Microsoft Learn '1.启动访问。 '2.创建新模块，然后添加以下两个函数： Function ap_DisableShift() 'This function disable the shift 阅读全文

摘要： 对于行业符号,有些输入法有专门的特殊符号大全,比如 但是你得找啊,这么多类型,不熟悉的人都得晕菜,再说里面其实用到的,也就那么几个而已,不如我们把常用的挑出来吧.比如这样: 这有点丑..如果是用delphi做的话,我自信能做得非常漂亮 我这里就随便画了两个,大家可以做个面板,把常用的都入到里面去,点 阅读全文

摘要： 原代码如下: Private Sub ComSave_Click() '保存按钮 If ComSave.Caption = "编辑(自动保存)" Then Me.Text160.Locked = False Me.Text138.Locked = False Me.FM入库单.Form.数量.Loc 阅读全文

摘要： 看一下下面这个表 FM出库单 我要设置字段[数量]与[备注]的locked属性,其中 [数量]字段设置成功了,而在运行到 [备注] 的设置代码时,却报错了: 搞得我百思不得骑姐,花了一个多小时排查这个问题,结果才发现: 总结:当把最有可能的原因排除了之后,那真相就是那个最不可能的原因. 阅读全文

摘要： Round是用来处理浮点计算的,如果不处理,原本一个29.9,它能给你算成29.899500000012345. 如果字段属性是文本格式,你再怎么round都没用,所以在这之前,你得把文本类型的字段,转成数字类型的字段.方法也很简单,比如 [字段]*1.但是这里又会产生一个新的问题,比如字段下面有n 阅读全文