一曲轻扬

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

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

摘要： 需求: 窗体A 调用窗体B ,窗体B又调用 FrameC.现在要把A中的一个值 S 传给FrameC.然后执行P过程.P在执行的过程中需要用到值S. 我最开始的设想大概如下(这是不对的): 窗体Aprocedure TMaterial2.ModifyInformationClick(Sender: 阅读全文

摘要： 原因是: 被修改的单元的名称,没有同步到早前引用了该单元的单元中. 做个比喻就是 张三改名为李四,以后大家也都叫他李四,但是在他没改名之前,注册在某单元里面的名字还是叫张三. 解决方案是: 菜单 - 搜索 - 在文件中查找 . 找出是谁引用了这个单元 找到目标: 阅读全文

摘要： 需求说明: 程序设计: 效果演示: 设计思路: FrmCK 只负责发布事件，不关心谁在监听. FrmGrid 只负责响应事件，不关心事件来源. 创建过程: 一.创建接口单元FrmInterface.然后在单元中需要声明两个接口,即监听事件的接口和发布事件的接口 1.监听接口只需要声明一个过程即可,它 阅读全文

摘要： 效果展示: 核心代码: procedure TMain.scAdvancedListBox2Items0Click(Sender: TObject); //单位设置 begin //获取点击的按钮的caption属性 var i := TscAdvancedListBox(Sender).ItemI 阅读全文

摘要： 使用 AnsiToUtf8 方法转换一下就可以了 procedure TForm1.LoadSettingsFromIni; var IniFile: TIniFile; begin IniFile := TIniFile.Create(FIniFilePath); try UserNameEdit 阅读全文

摘要： 重要提示: xls后缀的文件与xlsx后缀的文件,连接方法不一样. 可以使用代码来实现: FDConnection1.Connected := false; FDConnection1.Params.Clear; FDConnection1.DriverName := 'ODBC'; FDConne 阅读全文

摘要： 一.设置文本属性. 注意到,在CELL这个方法中,与我们常用的VBA参数的写法是相反的. DELPHI先列后行: property Cells[ACol, ARow: Integer]: string read GetCells write SetCells; VBA先行后列: CELLS(ROW, 阅读全文

摘要： 需求: 把登陆窗体中的图片,替换为数据表中的图片. 思路: 1.把图片保存到本地 2.修改图片控件的图片路径 难点: 1.对附件的操作方法不熟练 2.不同的数据库操作方法有差异 主要用到的方法: Field2.SaveToFile 方法 (DAO) 效果(左侧图片的变化): 原窗体: 载入表中图片后 阅读全文

摘要： 其中 数据表tblLinkedTables中,记录了所有需要外链的表名. 核心代码如下: Private Sub cmdBrowse_Click() With Application.FileDialog(msoFileDialogFilePicker) .InitialFileName = Cur 阅读全文

摘要： //带密码 SELECT * FROM [;database=C:\Users\Administrator\Desktop\VBA删除后端表\数据源\Data2.mdb;pwd=123].A; //不带密码 SELECT * FROM [;database=C:\Users\Administrato 阅读全文

摘要： 设置视图: 运行效果: unit HideWindown; interface uses Windows, Messages, SysUtils, Classes, Forms, StdCtrls, ActiveX, ComObj, ShellAPI, Tlhelp32, Vcl.Controls, 阅读全文

摘要： 我在ACCESS中添加了TreeView插件,结果电脑A上打开没问题,电脑B打开时就报MSCOMCT2.OCX和MSCOMCTL.OCX有错. B电脑之前是可以正常使用的,但是加了TreeView插件之后报错,说明是插件引用的问题. 在网上下载了这两个文件,复制到C:\WINDOWS\SYSTEM3 阅读全文

摘要： 用过Round和INT函数都没办法解决. 查询结果: 原因: 参与计算的字段使用了单精度或者双精度数据类型,改成小数类型即可解决. 阅读全文

摘要： 为了更详细地解释 Base64 编码的过程，我们可以从头开始逐步分解这个过程。假设我们有一段简单的 ASCII 文本 "Hello"，我们将详细展示如何将其转换为 Base64 编码。 1. 获取文本的 ASCII 码 首先，将 "Hello" 转换为其 ASCII 码值。每个字符的 ASCII 码 阅读全文

摘要： 验证规则分为字段级别与表级别 在字段级别的验证规则中,你只能使用本字段的数据,如果表达式涉及其他字段的数据,则会提示你: 表级别的验证规则,可使用的表内的所有数据,以适应更复杂的逻辑表达式,上图的错误,我们只需要把表达式写到表级别里面即可. 另外,表级别的验证规则,只能写一个,请合理使用. 解决的方 阅读全文

摘要： Forms!控制面板!NavigationSubform.SourceObject = "目标窗体" 注: 在导航窗体的属性面板中不会显示SourceObject属性,但它是真实存在的. 阅读全文

摘要： 一.插入选项组控件后,它的默认名称是Frame+编号 如果你要遍历所有选项组控件,可能会被它的名字Frame所迷惑.以为就是要找Frame类型的对象,但其实是不对的,正确的遍历方式应该是 For Each tempF In Me.Controls If TypeName(tempF) = "Opti 阅读全文

摘要： 有这样一个窗体,它的布局如下图,我需要刷新 数据表E(数据表类型的窗体)的数据,路径怎么写? 这里提供一个思路,就是在数据表E里面写一个全局过程,比如 Public sub ReQueryData() me.form.ReQuery end sub 然后在需要调用的地方这么调用即可: From_数据 阅读全文