摘要：
dataset.first while not dataset.eof do begin --N行代码 dataset.next; end 讨厌上面的写法了,作个封装. 1 interface 2 3 uses 4 System.SysUtils, System.Classes, Data.DB; 阅读全文
posted @ 2020-03-29 01:17 jjw 阅读(177) 评论(0) 推荐(0) 编辑
摘要：
delphi 10.2+up3 win7 自带IIS 发布测试 客户端用DSRestConnection1连接. 问题是 datasnap (群qq:67803772)一个 群友提出的, 经过摸索发现 DSRestConnection1.urlPath 需要设置为 IIS发布的名称 + 访问路径 测 阅读全文
posted @ 2020-03-05 15:54 jjw 阅读(327) 评论(0) 推荐(0) 编辑
摘要：
try {// http.post 调用 updatelogin 方法 http.get 调用 login 方法 const { data: res } = await this.$http.post('/TSM/login/', { _parameters: [this.loginForm.use 阅读全文
posted @ 2020-02-19 14:59 jjw 阅读(405) 评论(0) 推荐(0) 编辑
摘要：
在mysql下载站点下载驱动文件：libmysqlclient20_5.7.28-1debian9_amd64 64位 ，1.5M 安装后，lazarus IDE 就可以直接连MYSQL了。 数据库测试环境: win10 + mysql5.7 --64位。 补充： MYSQL默认只能localhos 阅读全文
posted @ 2019-12-25 00:06 jjw 阅读(840) 评论(0) 推荐(0) 编辑
摘要：
procedure TMyThread.Execute; begin //Application.EventLog.FileName:='d:\xx.txt'; //Application.EventLog.Info('OKOKOK'); //DbgOutThreadLog('OOKKOOKK' + 阅读全文
posted @ 2019-12-24 12:00 jjw 阅读(451) 评论(0) 推荐(0) 编辑
摘要：
lazarus中的TSQLQuery相当于delphi中的TClientDataSet,必须 SQLQuery.ApplyUpdates; SQLTransaction.Commit; 数据才能提交. TSQLQuery.Options可以设定是否自动提交.默认是false.另外TSQLConnec 阅读全文
posted @ 2019-12-23 23:40 jjw 阅读(764) 评论(0) 推荐(0) 编辑
摘要：
lazarus站点的文档中看到的.简单用法: uses LCLProc; DbgOutThreadLog (msg: string); overload; --有好几个不同参数的定义. 阅读全文
posted @ 2019-12-23 19:55 jjw 阅读(605) 评论(0) 推荐(0) 编辑
摘要：
firebird3数据表中,如果字段是varchar时, delphiXE的firedac在读取时正常,但lazarus中读取时会显示乱码. 经过测试发现,如果lazarus显示正常的话,必须在建表时,在字段后添加 CHARACTER SET GB2312. 另外,self.SQLConnector 阅读全文
posted @ 2019-12-23 00:07 jjw 阅读(729) 评论(0) 推荐(0) 编辑
摘要：
1 . 从https://www.freetds.org/ 下载驱动源文件 2. 参照 https://www.freetds.org/userguide/config.htm 内容编译 3. 启动lazarus后，放入相应的控件。代码加上 self.SQLDBLibraryLoader1.Libr 阅读全文
posted @ 2019-11-29 13:32 jjw 阅读(719) 评论(0) 推荐(0) 编辑