随笔分类 -  Delphi

1 2 下一页
Delphi导入Excel数据
摘要：第一种用XLSReadWriteII51 procedure TForm1.Button1Click(Sender: TObject); var s: string; rows, cols: Integer; sRow, sCol: Integer; begin sRow := 0; //开始行 s 阅读全文
posted @ 2024-10-28 09:57 liessay 阅读(127) 评论(0) 推荐(0) 编辑
Delphi TMSMQTT使用笔记
摘要：服务端用的是 mosquitto ，下载地址https://mosquitto.org/download/ 安装完成后需要配置 找到安装目录：mosquitto.conf，打开后修改 allow_anonymous false（禁止匿名登录），password_file D:\Program Fil 阅读全文
posted @ 2024-05-19 00:44 liessay 阅读(640) 评论(0) 推荐(0) 编辑
Delphi调用BPL并显示窗体
摘要：bpl unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Form 阅读全文
posted @ 2024-02-28 15:06 liessay 阅读(262) 评论(2) 推荐(0) 编辑
StringGrid单元格点击绑定控件后显示右键菜单
摘要：正常点击后出现动态创建的控件，会阻止右键菜单，需要以下处理 procedure Tfz_lab_ivf_sjpt.StringGrid1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer 阅读全文
posted @ 2022-06-01 11:05 liessay 阅读(178) 评论(0) 推荐(0) 编辑
StringGrid单元格绑定ComboBox、DateTimePicker或窗口传值
摘要：一、初始化控件状态 procedure TForm7.FormCreate(Sender: TObject); begin with StringGrid1 do begin ColWidths[0] := 15; Cells[1, 0] := 'Combobox'; ColWidths[1] := 阅读全文
posted @ 2022-05-06 13:29 liessay 阅读(155) 评论(0) 推荐(0) 编辑
FastReport合并多份报表为一份预览打印
摘要：效果 比较简单,直接贴代码 //打印第一份报表 procedure TForm1.Button2Click(Sender: TObject); begin frxReport1.LoadFromFile('1.fr3'); TfrxMemoView(frxReport1.FindObject('Me 阅读全文
posted @ 2021-07-08 10:34 liessay 阅读(825) 评论(2) 推荐(0) 编辑
Delphi使用AcroPDF ActiveX显示PDF文件
摘要：效果展示 调用方式 放入窗体即可使用，不想安装太多组件，可使用纯代码方式调用 interface ..... var AcroPDF: TAcroPDF; .... implementation ..... procedure TForm1.FormClose(Sender: TObject; va 阅读全文
posted @ 2021-07-08 09:32 liessay 阅读(2018) 评论(0) 推荐(0) 编辑
Delphi使用Zxing创建二维码
摘要：效果 DelphiZXingQRCode下载地址:https://www.debenu.com/open-source/delphizxingqrcode/ 为了调用方便unit DelphiZXIngQRCode增加了一个过程 procedure EncodeToImage(const text: 阅读全文
posted @ 2021-07-08 08:35 liessay 阅读(1647) 评论(0) 推荐(0) 编辑
TreeView和ListView数据库查询数据联动操作
摘要：好久不用了，重新整理下放这里以备需要使用，功能见图 数据库表结构 定义TreeView addObject中data存储的记录集 type PNode = ^TNode; TNode = record id: Integer; tcmc: string; mxid: string; end; 填充T 阅读全文
posted @ 2021-06-30 13:55 liessay 阅读(539) 评论(0) 推荐(0) 编辑
根据数据库查询结果动态创建控件(仿看板模式显示)
摘要：工作遇到一个需求，主表、明细表需要用看板的模式显示，主表显示内容，从表显示表明细，如下图所示，需要每个表右键菜单独立选择当前明细内容 Pas程序 unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, 阅读全文
posted @ 2021-06-24 15:38 liessay 阅读(260) 评论(0) 推荐(0) 编辑
mORMot学习笔记3 数据集转Json
摘要：usesSynCommons, SynDB, SynOleDB; procedure TForm1.DataToJsonClick(Sender: TObject); var Conn: TOleDBMSSQLConnectionProperties; strSql: string; rows: I 阅读全文
posted @ 2019-10-13 12:41 liessay 阅读(516) 评论(0) 推荐(0) 编辑
mORMot学习笔记2-2种方式查询数据
摘要：本例使用SqlServer 第一种方式结果放入Memo控件,,需要引用SynCommons, SynDB, SynOleDb; 第二种方式,返回数据集到DBGrid控件,需要引用SynCommons, SynDB, SynOleDb, SynDBMidasVCL; 两种方式执行结果 阅读全文
posted @ 2019-09-24 13:22 liessay 阅读(699) 评论(0) 推荐(1) 编辑
mORMot学习笔记 (一)
摘要：官方网站:https://synopse.info/fossil/wiki/Synopse+OpenSource 下载地址:https://synopse.info/fossil/wiki?name=Downloads 官方文档:https://synopse.info/files/html/Syn 阅读全文
posted @ 2019-09-24 12:59 liessay 阅读(797) 评论(0) 推荐(0) 编辑
Datasnap 获取客户端IP
摘要：localhost是网页访问rest服务 阅读全文
posted @ 2019-07-27 14:35 liessay 阅读(513) 评论(0) 推荐(0) 编辑
XLSReadWriteII5使用参考
摘要：varxls: TXLSReadWriteII5 xls.Filename 文件名xls.Read 开始读取xls.Count sheet总数xls.Sheets[i].Name sheet名xls.Sheets[0].LastRow 最后一行xls.Sheets[0].LastCol 最后一列xl 阅读全文
posted @ 2018-11-24 16:38 liessay 阅读(3337) 评论(0) 推荐(0) 编辑
XLSReadWriteII5导入excel数据
摘要： 阅读全文
posted @ 2018-11-24 13:47 liessay 阅读(1147) 评论(0) 推荐(0) 编辑
Delphi窗体显示Echarts图表
摘要：笨办法，先保存用着 效果 阅读全文
posted @ 2018-11-23 14:11 liessay 阅读(1867) 评论(0) 推荐(0) 编辑
OpenDialog文件多选
摘要： 阅读全文
posted @ 2018-11-20 14:58 liessay 阅读(322) 评论(0) 推荐(0) 编辑
根据数据库结构生成RzCheckTree
摘要： 阅读全文
posted @ 2017-11-02 14:03 liessay 阅读(518) 评论(0) 推荐(0) 编辑
TADOConnection组件
摘要：该组件用于建立数据库的连接。ADO的数据源组件和命令组件可以通过该组件运行命令及数据库中提取数据等。 该组件用于建立数据库的连接，该连接可被多个数据集所共享，但是并不是应用程序中必须的，因为ADO数据集及命令组件通过设置其ConnectionString属性，可以直接连接到数据库。但是如果多个数据集 阅读全文
posted @ 2017-08-01 19:56 liessay 阅读(599) 评论(0) 推荐(0) 编辑

1 2 下一页
点击右上角即可分享
微信分享提示