一曲轻扬

摘要： 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 (下 阅读全文

摘要： 需求: 窗体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 阅读全文