USEGEAR

导航

上一页 1 2 3 4 5 6 ··· 9 下一页

2024年3月30日 #

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 阅读(72) 评论(0) 推荐(0)

2024年3月11日 #

学习Django【1】模型

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

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

2024年3月9日 #

学习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 阅读(606) 评论(0) 推荐(0)

2024年3月1日 #

学习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 阅读(160) 评论(0) 推荐(0)

2024年2月29日 #

学习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 阅读(169) 评论(0) 推荐(0)

2024年2月27日 #

学习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 阅读(278) 评论(0) 推荐(0)

2024年2月2日 #

学习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 阅读(170) 评论(0) 推荐(0)

学习unigui【18】unidbgrid的GridsGroupingSorting

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

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

2024年2月1日 #

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

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

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

2023年12月25日 #

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 阅读(511) 评论(0) 推荐(0)

2023年12月16日 #

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

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

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

2023年12月6日 #

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 阅读(497) 评论(0) 推荐(0)

2023年10月18日 #

DEF4Delphi-master的安装

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

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

2023年9月21日 #

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

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

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

2023年7月25日 #

虚拟机为什么ping不通主机

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

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

2023年7月10日 #

Python的日志

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

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

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

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

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

2023年6月26日 #

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 阅读(16) 评论(0) 推荐(0)

2023年6月22日 #

python练习-爬虫

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

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

2023年6月7日 #

学习FASTAPI

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

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

2023年4月17日 #

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 阅读(100) 评论(0) 推荐(0)

2023年3月3日 #

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 阅读(26) 评论(0) 推荐(0)

2023年2月28日 #

查看PG日志

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

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

2023年2月25日 #

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

摘要： 总金额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 阅读(129) 评论(0) 推荐(0)

2023年2月18日 #

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 阅读(382) 评论(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 阅读(987) 评论(0) 推荐(0)

2023年2月10日 #

国家卫生健康委颁布的医院科室编码规范2021年1月26日

摘要： 附件1 科室单元分类名称及编码 序号 一级科室编码 一级科室名称 二级科室编码 二级科室名称 三级科室编码 三级科室名称 1 1 门诊临床科室 101 预防保健科门诊 101001 预防保健科门诊 2 102 全科医疗科门诊 102001 全科医疗科门诊 3 103 内科门诊 103001 呼吸内科 阅读全文

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

2023年2月8日 #

d融合窗口之后的，如何执行该窗口方法

摘要： 通常我们这样设计： MyForm ：TXXXXForm； 然后 MyForm := TXXXXForm.Create(Self); 如果其他Form调用MyForm方法： MyForm .mothed; 采用窗口融合方法后，一般不会采用指定变量MyForm了，那么后来的其他单元执行MyForm的方法 阅读全文

posted @ 2023-02-08 10:04 USEGEAR 阅读(45) 评论(0) 推荐(0)

2023年2月4日 #

delphi类助手helpers，这个NB，省事、大幅提高效率

摘要： 1、我们会想要能够对一个数据型别进行扩充，而不想继承类别。 2、如果我们想为一个组件类别加入新的方法，为它提供新的功能，而且不想通过继承来做。(如对TFDMEMTable增加方法等，你就得继承做处理，or做成控件进行安装...很繁琐） 那就使用class或者Record助手： 这些特殊用途的数据型别 阅读全文

posted @ 2023-02-04 15:20 USEGEAR 阅读(928) 评论(0) 推荐(0)

2023年1月31日 #

pg中获取表名和字段名

摘要： select tablename from pg_tables where schemaname in ('public','ur schema') and tablename in ( select relname from pg_class where relkind = 'r' AND NOT 阅读全文

posted @ 2023-01-31 09:51 USEGEAR 阅读(166) 评论(0) 推荐(0)

2023年1月7日 #

cxgrid汇总数是零显示空白

摘要： TcxDataSummaryItem.OnGetTextprocedure TApportionDeptCost.cxgrdbndtblvwDBBandedTableView1TcxGridDBDataControllerTcxDataSummaryFooterSummaryItems0GetTex 阅读全文

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

2022年12月12日 #

医改DRG驱动下的民营医院状态-2

摘要： 从上面医院挣钱游戏规则的改变，可以看出：成本为王时代的开始。 DRG时代，对民营医院冲击巨大。 倒逼医院强化成本控制； 倒逼医院提高医疗服务能力 倒逼医院绩效改革 医院老板清楚，医院管理的核心是成本，可是拿不出量化指标，因此变成无头苍蝇，不知从何下手。 下一步国家采购会对卫生材料动手，这会动到许多人 阅读全文

posted @ 2022-12-12 11:17 USEGEAR 阅读(56) 评论(0) 推荐(0)

2022年11月24日 #

fastreport的水纹

摘要： ou can add text in TfrxReport.OnEndDoc event procedure TForm1.frxReport1EndDoc(Sender: TObject); var p: TfrxReportPage; m: TfrxMemoView; i: integer; b 阅读全文

posted @ 2022-11-24 11:24 USEGEAR 阅读(132) 评论(0) 推荐(0)

2022年11月10日 #

医改DRG驱动下的民营医院状态-1

摘要： 这个题目有点大。 随着DRG在2021年10月起步以来，无论公立医院还是民营医院，几乎是一锅粥。 国家不满意：每年大幅增加的医疗基金； 老百姓不满意：看病难看病贵，看病回到解放前。 医院不满意：医院发展需要自己去挣钱，医护人员收入普遍不满意。 所以，国家引进DRG医保结算方案。阵痛是必须的，鸡飞狗跳 阅读全文

posted @ 2022-11-10 16:53 USEGEAR 阅读(81) 评论(0) 推荐(0)

2022年10月19日 #

学习《Python编程 从入门到实践》安装外星人入侵

摘要： 1、检查Python版本 在cmd下，键入：Python --version显示出当前Python版本： C:\windows\system32>python --version Python 3.10.4 2、检查 pip版本是否需要升级： C:\windows\system32>pip -V p 阅读全文

posted @ 2022-10-19 18:42 USEGEAR 阅读(97) 评论(0) 推荐(0)

2022年10月14日 #

pg连接外部数据库的TDS_FDW 之后

摘要： pg通过tds_fdw实现外部表后，一般就可以是同本地表进行操作。 CREATE FOREIGN TABLE "test"."Remote_IncomeStatement" ( "VAJ47" timestamp(6), "BCK01B" int4, "BBY01" int4, "VAJ25" nu 阅读全文

posted @ 2022-10-14 16:19 USEGEAR 阅读(247) 评论(0) 推荐(0)

2022年10月8日 #

销售出货单中的请款客户

摘要： 在日常业务中，发货时常常有第三方进行付款。这就是请款客户。 如果发货自动产生往来这样的场景，应该如何处理： 那么在收款时，就需要按照各自的资金回笼收款单冲销各自的应收往来 阅读全文

posted @ 2022-10-08 15:49 USEGEAR 阅读(32) 评论(0) 推荐(0)

2022年10月5日 #

学习Python，一路绕来绕去推荐给你的教程！

摘要： 学习过程中有一本好教材，这个太重要了。但是对于各个人不一样，所需要的又不一样。找到适合自己的武功秘籍，还真的不太容易。 阅读全文

posted @ 2022-10-05 11:50 USEGEAR 阅读(87) 评论(0) 推荐(0)

2022年9月12日 #

json和Python字典的不同

摘要： json的key只能是字符串，python的dict可以是任何可hash对象（hashtable type）； json的key可以是有序、重复的；dict的key不可以重复。 json的value只能是字符串、浮点数、布尔值或者null，或者它们构成的数组或者对象。 json任意key存在默认值u 阅读全文

posted @ 2022-09-12 16:24 USEGEAR 阅读(36) 评论(0) 推荐(0)

2022年9月11日 #

医疗服务项目成本核算-作业成本法

摘要： 使用该方法时，直接费用直接计入医疗服务项目，间接费用应首先根据资源动因分配至有关作业计算出作业成本，然后再将作业成本根据作业动因分配至医疗服务项目成本。 作业是指基于特定目的重复执行的任务或活动，是连接资源和成本核算对象的桥梁。医院应当在梳理医疗业务流程基础上划分作业，可以是提供某医疗服务项目过程中 阅读全文

posted @ 2022-09-11 08:45 USEGEAR 阅读(479) 评论(0) 推荐(0)

上一页 1 2 3 4 5 6 ··· 9 下一页