USEGEAR - 博客园

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

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

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

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

cxgrid汇总数是零显示空白

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

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

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

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

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

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

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

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

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

学习《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 阅读(85) 评论(0) 推荐(0) 编辑

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

销售出货单中的请款客户

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

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

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

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

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

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

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

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

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

医院单病种核算，对于公立和民营的意义？

摘要：一、单病种付费及单病种成本核算的定义单病种付费是指在对某一单纯性疾病付费进行成本测算的基础上制定出相应的付费标准。单病种成本核算是指以某单一病种为核算对象，从该种疾病患者入院到最终达到临床治愈标准出院的整个治疗过程中，对该病种产生所需消耗的成本进行归集核算的过程。二、单病种成本核算的意义（一）阅读全文

posted @ 2022-09-08 18:06 USEGEAR 阅读(376) 评论(0) 推荐(0) 编辑

unidbgrid的rowedit=true

摘要：正常情况下：解决蠢办法：阅读全文

posted @ 2022-09-06 15:53 USEGEAR 阅读(209) 评论(0) 推荐(0) 编辑

医院科室成本管控体系如何建立？

摘要：建立科室成本管控体系不仅是新医改新制度政策的宏观方向，是加强医院管理科学化、专业化、精细化的基础，更是医院发展的重要手段之一。强化管控分析成本范畴内涵管理成本是为了完成特定的成本管理目的，如成本预测、成本决策、成本计划、成本控制、成本分析和成本考核等，提供有用的成本管理信息。它是在充分动员和组织全阅读全文

posted @ 2022-08-31 10:29 USEGEAR 阅读(157) 评论(0) 推荐(0) 编辑

fastreport的汉化

摘要： fastreport的语言包，是通过不同的xml实现的。它是UTF8编码。可是我们D的IDE默认的是ansi。希望设定成默认UTF8.怎么做： Windows Registry Editor Version 5.00 [HKEY_CURRENT_USER\Software\Embarcadero\B 阅读全文

posted @ 2022-08-29 10:50 USEGEAR 阅读(1738) 评论(0) 推荐(0) 编辑

uniGUIServer.TUniSessionRestrict Enumeration(12)

摘要： TUniSessionRestrict = ( srNone, srOnePerIP, srOnePerPC ); Members Description srNone No restrictions are applied to the uniGUI server.uniGUI服务器没有任何限制。阅读全文

posted @ 2022-08-26 11:31 USEGEAR 阅读(129) 评论(0) 推荐(0) 编辑

Delphi使用TStopwatch计时器精确计时【转】

摘要：引用 System.Diagnostics 单元属性： Elapsed 获取当前实例测量得出的总运行时间。 ElapsedMilliseconds 获取当前实例测量得出的总运行时间（以毫秒为单位）。 ElapsedTicks 获取当前实例测量得出的总运行时间（用计时器计时周期表示）。 IsRunn 阅读全文

posted @ 2022-08-20 16:03 USEGEAR 阅读(263) 评论(0) 推荐(0) 编辑

让人纠结的PG字段json类型

摘要： PostgreSQL确实牛逼得很。 PostgreSQL有个json数据类型。当你用json类型设定表的字段时，你用select语句相当爽。问题是当你使用中间件时如FireDAC等，进行数据保存时，就会出现啥啥错误operator does not exist: json=json。数据保存不了，保阅读全文

posted @ 2022-08-20 11:30 USEGEAR 阅读(419) 评论(0) 推荐(0) 编辑

蹉跎pg

摘要：由于字段记录的内容超过规定or顶格长度。导致数据commit屡屡出错。智能化导致许多临界问题，由于急功近利，结果找不出原因，形成大把蹉跎时间。记录至此，警醒提示。阅读全文

posted @ 2022-08-13 17:53 USEGEAR 阅读(13) 评论(0) 推荐(0) 编辑

PG清晰的Filter Where语句

摘要： SELECT "HDCD_DeptType"||'-'||"HDCD_DeptName", sum("HDCD_DetailSum") FILTER (WHERE "HDCD_TypeName"='人员费用') AS 人员费用, sum("HDCD_DetailSum") FILTER (WHERE 阅读全文

posted @ 2022-07-28 15:02 USEGEAR 阅读(365) 评论(0) 推荐(0) 编辑

pg狗日的to_char

摘要： pg中to_char函数功能强大。注意：to_char前面有一个符号位。to_char(2022,'9999')返回的是5位，前面一位是空格，是正数。 select to_char(2022,'9999')结果 ' 2022'。看清楚了，该坑已经掉进去多次了。阅读全文

posted @ 2022-06-28 16:20 USEGEAR 阅读(1356) 评论(0) 推荐(0) 编辑

pg 没有匹配指定名称和参数类型的函数. 您也许需要增加明确的类型转换

摘要：这个问题真TMD狗血。做了一个函数，调试完成后运行都ok。 CREATE OR REPLACE FUNCTION "public"."fn_UpsertDeptAppParms"("pyear" int2, "pmonth" int2) RETURNS "pg_catalog"."bool" AS 阅读全文

posted @ 2022-06-10 17:24 USEGEAR 阅读(4947) 评论(0) 推荐(0) 编辑

cxgrid的使用模糊搜索

摘要： //增加一行；焦点到当前指定cell。 frm.cxgrd1.SetFocus; frm.cxgrdbtblvwGrid1DBTableView1.DataController.AppendRecord;//or FDMemTable.Applend; frm.cxgrdbtblvwGrid1DBT 阅读全文

posted @ 2022-05-27 18:16 USEGEAR 阅读(278) 评论(0) 推荐(0) 编辑

pg中函数调用中的SQL语句

摘要： PG的sql语句的组织，由于特殊有点小麻烦。掌握方法就简单了函数:"fn_BillsCharge2Account"("aSQlConditionStr" varchar)调用： SELECT "public"."fn_BillsCharge2Account"('("科室代码" = ''101001 阅读全文

posted @ 2022-05-14 14:47 USEGEAR 阅读(290) 评论(0) 推荐(0) 编辑

pg的雪花函数

摘要： pg雪花算法，摘录网上，记录在此以备查。在此感谢原作者。建一个序列： CREATE SEQUENCE "public"."table_id_seq" INCREMENT 1 MINVALUE 1 MAXVALUE 999999999999999 START 1 CACHE 1 CYCLE ; SE 阅读全文

posted @ 2022-05-12 15:59 USEGEAR 阅读(482) 评论(0) 推荐(0) 编辑

pg函数的参数一种用法

摘要： CREATE OR REPLACE FUNCTION "public"."fn_BillsCharge2Account"("aSQlStr" varchar) RETURNS "pg_catalog"."varchar" AS $BODY$BEGIN EXECUTE $1 ; RETURN '1'; 阅读全文

posted @ 2022-05-12 10:37 USEGEAR 阅读(279) 评论(0) 推荐(0) 编辑

PG的递归

摘要： WITH RECURSIVE "CTE" AS( SELECT m."Exp_No",m."Exp_Code",m."Exp_Name",m."Exp_PCode" --,m."Exp_PCode" AS "Root" FROM "ExpenseManagement"."ExpList" m WHE 阅读全文

posted @ 2022-05-06 16:36 USEGEAR 阅读(1122) 评论(0) 推荐(0) 编辑

学习cxgrid换肤

摘要： cxgrid的换肤有时有点绕人。贴图依葫芦画瓢即可。阅读全文

posted @ 2022-05-05 16:50 USEGEAR 阅读(69) 评论(0) 推荐(0) 编辑

win下的PG12安装plpython3u

摘要： Python实在是太牛B。在pg中使用函数等使用Python，是否会上天呢？在网上折腾好久，关于如何安装plpython3u，五花八门云里雾里。洒家的过程如下： 1、安装Python。注意64和32的问题。应该你同时需要64和32。更要注意Pg版本是对应的Python版本。通过depends22 阅读全文

posted @ 2022-04-27 11:12 USEGEAR 阅读(412) 评论(0) 推荐(0) 编辑

IDEA中的代码块批量修改

摘要： IDEA是解放生产力的神一般存在的IDE，没有之一。C#，DELPHI等专业IDE除外。那么如何在代码块中批量修改？把光标放在你要修改的单词上，然后ALT+J 就会指定选择，一次ALT+J就会选择一次。n次后，选择n个你要的单词然后control+R进行替换对话。 NMD，真够蠢的。阅读全文

posted @ 2022-04-25 10:46 USEGEAR 阅读(1193) 评论(0) 推荐(0) 编辑

Python的32和64位共存在win

摘要：为什么？在win安装了64位，学习和练习代码都很爽。可是真正玩点啥就有问题了。为什么？除非大量计算的Python使用64位，但是一般应用还是在32万机器上跑你的程序。因此... 怎么做？下载32forwin，执行安装。安装到你指定目录。勾选PATH。至此已经ok。还有最后一步：到32位目阅读全文

posted @ 2022-04-22 17:28 USEGEAR 阅读(931) 评论(0) 推荐(0) 编辑

study Python3【4】字符串的判断

摘要：判断类型： result为True和False str = '1122abc' str.isalnum()是数字或者字母 str = 'MDCA' str.isalpha() 是字母 str = '1122' str.isdigit()是数字 str.islower()是小写 str.isupper 阅读全文

posted @ 2022-04-21 14:24 USEGEAR 阅读(53) 评论(0) 推荐(0) 编辑

FDMemtable如何增加一条自身复制的记录

摘要： procedure TFrame_Bill.CopyARecord; var lAFDmemtable : TFDMemTable; begin {$REGION '增加一条复制的记录'} try lAFDmemtable := TFDMemTable.Create(nil); lAFDmemtab 阅读全文

posted @ 2022-04-16 15:54 USEGEAR 阅读(182) 评论(0) 推荐(0) 编辑

study Python3【3】的函数

摘要： Python的函数定义简单，但灵活度非常大。功能强大意味复杂。为了复习，把廖雪峰老师的该课程做个回顾。参数有：必选参数、默认参数、可变参数、关键字参数、命名关键字参数。计算x的n次方函数： def power(x,n): s=1 while n > 0: n=n-1 s=s*x return s 阅读全文

posted @ 2022-04-09 09:03 USEGEAR 阅读(50) 评论(0) 推荐(0) 编辑

远程连接到轻量应用服务器PG数据库

摘要：不建议这样做，但是开发时方便需要。进入正题。 PG是不支持远程连接的，需要连接直接该参数。在其data目录里，有二个配置文件： pg_hba.conf：配置数据库的访问权限 postgresql.conf：配置数据库服务的相关参数 # # pg_hba.conf： # # IPv4 local c 阅读全文

posted @ 2022-04-08 11:18 USEGEAR 阅读(227) 评论(0) 推荐(0) 编辑

RegisterClass注册后getclass总是nil，why？

摘要：这个问题有点老。但是有点烦人。一般流程是 RegisterClass后通过getclass or findclass就会成功。可是莫名其妙出现总是返回nil。咱也不清楚，网上找了好久，一个久远的帖子解决了问题。为什么？不知道。 RTTI据说可以解决同样的问题，待有时间熟悉。找到了一个办法，随便阅读全文

posted @ 2022-03-31 11:13 USEGEAR 阅读(53) 评论(0) 推荐(0) 编辑

再说PG的连接

摘要：前面说过连接PG的方法，但是遇到问题又不通了。按照前面的做法还是不行，正是鼻子气歪了。到pg老家下载PGODBC，安装了，还是不行。其实仅仅copy一个libpg.dll是不够的。因为libpg.dll还依赖其他相关dll。因此，all copy过来到当前目录or搜索到的path就行了。真是一阅读全文

posted @ 2022-03-17 11:09 USEGEAR 阅读(267) 评论(0) 推荐(0) 编辑

pg获取tree完整的数据

摘要：一个表： DRGCode DRGParend DRGName 这样一个tree表结构。任意查询string，希望得到一个查询完整的tree。怎么做？ SELECT * FROM "DRG"."ADRG" WHERE "DRGCode" IN(WITH RECURSIVE T AS (SELECT 阅读全文

posted @ 2022-02-22 15:15 USEGEAR 阅读(119) 评论(0) 推荐(0) 编辑

TMS WEB Core的DEMO

摘要： TMS WEB Core的思路就是把你界面设计转换成js。这个打通了，将会使生产效率呈几何级数提高。说如何让其demo的能跑起来： 1、看图。增加参数（TMSHttpConfig.exe）。 2、运行：TMSWebServer.exe 3、运行demo，将会生成js文件的目录：这个就是自动生成的阅读全文

posted @ 2022-02-16 16:27 USEGEAR 阅读(525) 评论(0) 推荐(0) 编辑

导航

公告