USEGEAR - 博客园

实现Android键盘自适应

摘要：实现Android键盘自适应 unit Unit13; interface uses System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FM 阅读全文

posted @ 2025-02-02 15:30 USEGEAR 阅读(42) 评论(0) 推荐(0)

D的SDK的设置

摘要：有点烦，被困扰。看大虾的文章一并感谢：进入D:\Users\Public\Documents\Embarcadero\Studio\22.0\CatalogRepository\AndroidSDK-2525-22.0.47991.2819\cmdline-tools\cmdline-tools\ 阅读全文

posted @ 2025-02-01 11:25 USEGEAR 阅读(54) 评论(0) 推荐(0)

frxpngimage单元的编译错误：frxpngimage left side cannot be assigned to

摘要：一个老项目中，使用软数字录入数据，编译时出现n个：frxpngimage left side cannot be assigned to 原因是使用了frxpngimage单元，在D11中编译出现若干frxpngimage left side cannot be assigned to。经网查查找阅读全文

posted @ 2024-11-22 09:44 USEGEAR 阅读(31) 评论(0) 推荐(0)

js调用datasnap rest server

摘要：场景：有嵌套的多层json数据结构的变量，js通过post调用 datasnap rest server，会出现问题： var json = [{ stcd: system.sn, dateTime: dateTimeStr, stnm: system.stnm, lgtd: system.lgt 阅读全文

posted @ 2024-10-27 09:03 USEGEAR 阅读(50) 评论(0) 推荐(0)

学习unigui【28】UniGUI接收POST/GET

摘要：小儿科问题，直接上流程代码： 1 procedure TUniServerModule.UniGUIServerModuleHTTPCommand( 2 ARequestInfo: TIdHTTPRequestInfo; AResponseInfo: TIdHTTPResponseInfo; 3 v 阅读全文

posted @ 2024-10-16 07:03 USEGEAR 阅读(356) 评论(0) 推荐(0)

android中大咖：TlistView

摘要： d的android中的Tlistview相当于cxGrid，其开发使用中的主咖地位至高无上。可是如何高效使用快速实现的需求呢？需要的话补官方的教程上图： GOODLUCK! 阅读全文

posted @ 2024-10-06 12:50 USEGEAR 阅读(33) 评论(0) 推荐(0)

PDA自带有红外扫描头，不用点击焦点就能超高速超精准的扫条码、扫二维码

摘要：参考牛人DelphiTeacher的《PDA扫码？不要慌，只要20行代码!》摘要：实现监听器接口然后在系统中注册该监听器，注册时指定只接收名称为com.kte.scan.result的消息： PDA支持多种扫码输出模式，输入框填充、广播输出、粘贴板、输入框覆盖等 PDA默认的扫码输出模式为输入阅读全文

posted @ 2024-08-17 17:02 USEGEAR 阅读(663) 评论(0) 推荐(0)

sql server2008出现set 选项的设置不正确:"ARITHABORT”

摘要： ( SELECT STUFF(( SELECT '','' + CODE FROM INVNEWSAL11 WHERE (MASTERI=BILRCV.SRCERI) OR (LINKERI IN (SELECT LINKERI FROM INVPROLOG WHERE DTYPE=0 AND PE 阅读全文

posted @ 2024-07-19 19:31 USEGEAR 阅读(206) 评论(0) 推荐(0)

学习unigui【27】像pg的jsonb一样编辑json。

摘要： var I: Integer; CurrentObject: TJSONObject; FieldName: string; Pair: TJSONPair;function CreateJSONValueForVariant(const aValue: Variant): TJSONValue;b 阅读全文

posted @ 2024-06-03 11:39 USEGEAR 阅读(215) 评论(0) 推荐(0)

学习Django【2】把视图和路由连接起来的是URLconfigs的配置文件

摘要：在view.py视图中定义： def detail(request, question_id): return HttpResponse("You're looking at question %s." % question_id) def results(request, question_id) 阅读全文

posted @ 2024-06-01 08:19 USEGEAR 阅读(39) 评论(0) 推荐(0)

学习unigui【26】关于Unigui控件的个性化CSS框架

摘要：用unigui写程序，简单的事用户界面不用HTML。因为这个太闹心了。没有什么技术含量，但很闹心。但是，但是不清楚HTML CSS更闹心。因为养眼的界面是客户起步疑问和要求。强烈推荐认真读明白大虾的体验和总结：delphi Unigui框架TUniContainerPanel 把CSS和界面属性阅读全文

posted @ 2024-05-31 10:23 USEGEAR 阅读(1230) 评论(0) 推荐(0)

学习unigui【25】关于图标

摘要：网上有不少介绍。自己的经验：是否需要下载文件fontawesome-free-6.5.1-web（），没有研究。说ext_js已经下载配套了。我很懒，得过且过。 1、下载fontawesome-free-6.5.1-web放在resource，一般推荐files。 2、在ServerModul 阅读全文

posted @ 2024-05-30 18:11 USEGEAR 阅读(260) 评论(0) 推荐(0)

最爱lx-music的音源哪里去了？

摘要：最爱lx-music，让你满心喜欢，可是音源没有了，因为被投诉给全部关了。公心作者增加了自定义源。六音提供了音源，做了一件大善事。注意的是音源会一直初始化。那就下载适合的版本：欣赏阿鲁阿卓如痴如坠的《梦里客家》阅读全文

posted @ 2024-05-03 10:35 USEGEAR 阅读(2811) 评论(0) 推荐(0)

学习unigui【24】Echart的使用：多个坐标系

摘要：使用echart非常简单，网上有介绍。主要放一个unihtmlFrame。然后unihtmlframe.text := 'html的代码'，就会渲染（初次调用echart的js库要一点稍后）。 unigui本身的chart貌似不能动态生成。 option = { title: [{ text: ' 阅读全文

posted @ 2024-04-20 11:28 USEGEAR 阅读(280) 评论(0) 推荐(0)

pg的计算百分数的问题

摘要： SELECT cast("dept_id" as varchar(32)) , cast("dept_name" as varchar(30)) AS "病区", "total_surgical_patients" AS "手术总数", "total_preop_medication_patient 阅读全文

posted @ 2024-03-30 17:53 USEGEAR 阅读(90) 评论(0) 推荐(0)

学习Django【1】模型

摘要：编辑 models.py 文件，改变模型。运行 python manage.py makemigrations 为模型的改变生成迁移文件。运行 python manage.py migrate 来应用数据库迁移。 1、定义模型 - 也就是数据库结构设计和附加的其它元数据。大白话：数据库建表。 2 阅读全文

posted @ 2024-03-11 10:28 USEGEAR 阅读(32) 评论(0) 推荐(0)

学习unigui【23】uniDBGrid的使用摘要

摘要： Unidbgrid自动调整列宽 UniDBGrid1 -> ClientEvents -> ExtEvents [Ext.data.Store[store] ] add store.load fn: function store.load(sender, records, successful, e 阅读全文

posted @ 2024-03-09 11:36 USEGEAR 阅读(706) 评论(0) 推荐(0)

学习unigui【22】unistringGrid的标题栏双击事件

摘要：第一步：在TuniStringGrid的ClientEvents.ExtEvents中定义Ext.grid.Panel的reconfigure事件: function reconfigure(sender, store, columns, oldStore, oldColumns, eOpts) { 阅读全文

posted @ 2024-03-01 17:14 USEGEAR 阅读(212) 评论(0) 推荐(0)

学习unigui【21】unistringGrid的标题栏动态增加

摘要： var Column: TUniGridColumn; begin Column := TUniGridColumn(unstrngrd_summary.Columns.Add); Column.Title.Caption := DateToStr(currentDate); end 要清楚标题栏和阅读全文

posted @ 2024-02-29 17:48 USEGEAR 阅读(218) 评论(0) 推荐(0)

学习unigui【20】unistringGrid

摘要：做成下面效果图：采用unistringGrid控件。问题： 1、不同的日期区间如何得到。如：项目开始时间时间 -- 终止使用时间呼吸机 yyyy-mm-dd yyyy-mm-dd 呼吸机 yyyy-mm-dd yyyy-mm-dd 插管 yyyy-mm-dd yyyy-mm-dd SELE 阅读全文

posted @ 2024-02-27 11:40 USEGEAR 阅读(342) 评论(0) 推荐(0)

学习unigui【19】unidbgrid的Group By This Field汉化

摘要：上面已经将group by this field 汉化。由于版本的不断更新，不可避免有汉化遗漏。那么说到如何汉化问题。根据ExtJSVersion查找你电脑响应目录文件D:\Program Files (x86)\FMSoft\Framework\uniGUI\ext-7.5.1\build\ 阅读全文

posted @ 2024-02-02 15:14 USEGEAR 阅读(218) 评论(0) 推荐(0)

学习unigui【18】unidbgrid的GridsGroupingSorting

摘要：折腾二天，你不按照demo里的代码来，就是没有效果。功力不够导致的。学习学习再学习！努力努力再努力！ procedure TUniGridsGroupingSorting.UniDBGrid1MultiColumnSort( Columns: TUniDBGridColumnArr; Directi 阅读全文

posted @ 2024-02-02 09:33 USEGEAR 阅读(249) 评论(0) 推荐(0)

学习unigui【17】-数据集和JSON互相转换-DataSetConverter4D 开源项目

摘要：学习unigui过程中，出现使用json和fdquery等数据交换的太多场景要求。感谢开源DataSetConverter4D提供轮子。直接抄demo： {Convert DataSet to JSON：}uses DataSetConverter4D, DataSetConverter4D.I 阅读全文

posted @ 2024-02-01 10:59 USEGEAR 阅读(307) 评论(0) 推荐(0)

unigui显示websocket服务端向客户端发送信息【15】

摘要：用WebSocket从服务端直接发送消息给all客户端。 1、在ServerModule 放TUniThreadTimer 2、timer event： procedure TUniServerModule.UniThreadTimer1Timer(Sender: TObject); begin B 阅读全文

posted @ 2023-12-25 15:29 USEGEAR 阅读(611) 评论(0) 推荐(0)

unigui显示uniTreeVview使用TUniTreeNode内存泄漏的问题【14】

摘要： uniTreeVviewc创建一个tree，显示患者姓名（PatientName）。因为需要用到患者ID（PatientID），所以使用help： TPatientTreeNode = class(TUniTreeNode) //strict private FPatientID: string; 阅读全文

posted @ 2023-12-16 18:46 USEGEAR 阅读(274) 评论(0) 推荐(0)

unigui如何直接显示一个PDF文件【13】

摘要：这个问题有点搞笑。 PDF.js v1.9.426 (build: 2558a58d) 信息：Unexpected server response (204) while retrieving PDF 点击之后，下载文件，然后就没有然后了。 1、对于常见的文档类型，浏览器默认支持，对于如abc扩展名阅读全文

posted @ 2023-12-06 17:42 USEGEAR 阅读(580) 评论(0) 推荐(0)

DEF4Delphi-master的安装

摘要：保姆教程 d2007的TWEBbrowser因为用的太老的IE内核。现在的浏览器上的功能呈现就卡住了。那么DEF4Delphi效果非常好。如何安装后成功运行。很简单。直接去：https://github.com/salvadordf/CEF4Delphi：这是安装控件一套源代码。支持CEF4 阅读全文

posted @ 2023-10-18 17:02 USEGEAR 阅读(467) 评论(0) 推荐(0)

TidHTTP的post编码，老掉牙的问题

摘要： TidHTTP使用post时，需要提交json字符串。那么采用什么编码，这个问题就头大了。目前xe已经不要考虑编码转换问题。但是.... 我们使用ISuperObject操控json。那么最后提交到post的数据应该是这样？ idHttp.post(urURL,stream) idhtp1.Pos 阅读全文

posted @ 2023-09-21 11:29 USEGEAR 阅读(335) 评论(0) 推荐(0)

虚拟机为什么ping不通主机

摘要：在虚拟机里各种操作都正常。就是ping不通主机。为什么？ NAT模式下（网络地址转换模式），虚拟机后网络适配器就会出现VMnet8网卡：把VMnet8的ip4设定成你主机同段IP。这个VMnet8地址就是你虚拟机的主机地址。这个概念搞清楚后，那就没有问题了。如，win10的IP是192.168. 阅读全文

posted @ 2023-07-25 14:37 USEGEAR 阅读(226) 评论(0) 推荐(0)

Python的日志

摘要： Python的日志，看上去啰啰嗦嗦的。请大神写了个通俗易懂简单方便通用的日志： import logging # 配置日志记录级别和输出方式 logging.basicConfig(level=logging.DEBUG, filename='mylog.log', filemode='w', fo 阅读全文

posted @ 2023-07-10 14:39 USEGEAR 阅读(39) 评论(0) 推荐(0)

《Python基础教程》第三版语录

摘要：对程序的结构（如需要哪些类和函数）有一定的想法后，建议你实现一个功能可能极其有限的简单版本。当你有了可运行的程序后，将发现接下来的工作容易得多。你可添加新功能，修改不喜欢的方面，等等。这样你才能够真正明白程序的工作原理，而不仅仅是设想或画草图。无论你使用的是哪种编程语言，都可进行原型设计。但P 阅读全文

posted @ 2023-07-10 09:20 USEGEAR 阅读(44) 评论(0) 推荐(0)

python练习-爬虫(续)

摘要：流程： 1 设置url 2 设置消息头 3 设置消息体 4 获取响应 5 解析相应 6 验证数据接下来就是查询数据了。 # 识别图片中的文字 #image = Image.open('captcha.png') image = Image.open('G:\Python爬虫\captcha.png 阅读全文

posted @ 2023-06-26 17:13 USEGEAR 阅读(30) 评论(0) 推荐(0)

python练习-爬虫

摘要：场景： 1、网址hppt://xxx.yyy.zzz.cn2、打开网页后显示： 3、填上姓名身份证和验证码，点击查询后，返回查询结果。 4、页面有cookie。方案一：程序中嵌入浏览器根据网址打开得到页面，然后程序读取记录自动填写数据，程序截取验证码图片，然后解析，并且填入验证码然后程阅读全文

posted @ 2023-06-22 17:16 USEGEAR 阅读(73) 评论(0) 推荐(0)

学习FASTAPI

摘要：弯弯曲曲的学习之路学了那么多语言，都是半途而废。包括java，Javascript，go，php，ruby等等乱七八糟。除了c的自由和pascal的优美，FoxPro简单，其他都似懂非懂入不了法眼。主要原因还是自己能力和努力不够，真的太懒了。早闻Python胶水，摇摇晃晃，居然有感觉进去了。阅读全文

posted @ 2023-06-07 17:20 USEGEAR 阅读(90) 评论(0) 推荐(0)

ChatGTP获取的d读取excel通用程序。

摘要： procedure ReadExcelFile(const FileName: string; AMemtable: TFDmemtable); var ExcelApp: OleVariant; Sheet: OleVariant; Range: OleVariant; RowCount, Col 阅读全文

posted @ 2023-04-17 15:56 USEGEAR 阅读(115) 评论(0) 推荐(0)

d的free

摘要： function TMyDM.ExecSQLStream(aSQL : String) : Boolean; var aServer: TUsegearClient; aStream : TStringStream; begin Result := False; try aServer := TUs 阅读全文

posted @ 2023-03-03 18:21 USEGEAR 阅读(38) 评论(0) 推荐(0)

查看PG日志

摘要：不是很熟悉PG这个功能，所以感觉非常不方便。毕竟是以用为主。扩展pg_stat_statements 1、修改postgresql.conf配置参数，默认pg数据库你要的日志是没有打开。 shared_preload_libraries = 'pg_stat_statements' pg_stat 阅读全文

posted @ 2023-02-28 16:06 USEGEAR 阅读(1933) 评论(0) 推荐(0)

分摊误差的处理，如何处理分摊后的差额？

摘要：总金额ATM按面积A比分摊到几个科室D。序号科室面积占比分摊金额 1 D1 A1 P1=A1/TA * 100 M1 2 D2 A2 P2=A2/TA * 100 M2 3 D3 A3 P3=A3/TA * 100 M3 合计 TA 100% ATM ( ("A1"/"TA") * ATM 阅读全文

posted @ 2023-02-25 17:43 USEGEAR 阅读(150) 评论(0) 推荐(0)

PG把多条记录合并成字符串，用逗号分隔

摘要： select array_to_string( array(select quote_literal("HD_Code") from "public"."Hosp_Dept" where "HD_Code" in ('103001','103002','103') and "HD_SFMJ" is 阅读全文

posted @ 2023-02-18 18:00 USEGEAR 阅读(406) 评论(0) 推荐(0)

sqlite把多条记录合并成字符串，用逗号分隔

摘要： select group_concat(hdcd_DeptName) from f1 where hdcd_DeptName='呼吸内科门诊' 我们需要把多条记录合并成字符串，用逗号分隔。这样的需求，目的是用于SQL语句和JSON处理。对于SQLite用函数group_concat SELECT 阅读全文

posted @ 2023-02-18 09:29 USEGEAR 阅读(1044) 评论(0) 推荐(0)

导航

公告