摘要：
显示时候加上下面这句话就可以了 看来俄国人想的很周到，知道咱们会有这个需求For i:=0 to DBGridEh1.Columns.Count-1 do begin DBGridEh1.Columns[i].OptimizeWidth; end; 阅读全文
摘要：
东软接口分大体两个版本：一般是普通dll接口；暂时最新的是api接口 ；1、api接口方式 主要是HIS生成xml最为入参 传给（秦皇岛）东软API函数，因为接口只提供了一个comminterface函数，所以是通过不同的协议码进行不同的业务处理，文档写的很清晰，返回值主要是Tstringlist，再进行读取。2、普通dll接口 如SiInterface.dll 入参主要是Tstringlist。另外需要先做初始化函数调用。3、更早期的就是定义多个函数进行业务处理 首信医保 也主要是xml的方式，交换数据 其他医保还有比较早的 是以文本形式的，生成数据文件开发的时候注意内存的申请和释放 如p. 阅读全文
摘要：
许多人在导出过程中 可能会遇到一些问题下面是测试语句 测试正常生成 请注意''和"的区别 以及相应开关是否打开 还有sqlserver的服务内置帐户等等exec master..xp_cmdshell 'bcp "SELECT TOP 20 charge_code ,drugname,drug_id FROM database.dbo.yp_dict FOR XML path(''news'')" queryout "d:\a1.xml" -c -S"kwmk" -U& 阅读全文
摘要：
如：000043213000 截取后：432130delphi 代码：var ii:integer; svalue:varchar(255);sPatientId:='000043213000';sValue := Copy(sPatientId, 1, 10) ; for ii:=1 to Length(sValue) do begin if sValue[ii]<>'0' then begin Break; end; end; sValue:= Copy(sValue, ii, 10-ii+1); 阅读全文
摘要：
我也做了很长时间医疗软件，也写过不少sql优化，没有详细记录下来，个人感觉下面转载的更符合医院医疗软件实际业务，很认可大部分所写的原则，固转载过来，以作借鉴。软件的根本还是在于更细更精，在于从客户的实际使用考虑问题。性能优化原则1:永远避免困境利用缓存把字典数据取到中间服务器或是客户端替代直接sql查询,如,门诊医生站把字典下载到客户端,减少执行次数。一次性取数据到客户端，然后再逐条处理，而不是分次取数据，处理好一条数据再取下一条再处理。例：门诊收费取hjcfmxk例子，原来是一张处方条明细都查询一次，查询后再处理，现改为一次把所有明细都取过来，然后一条条处理尽量减少光标，看能不能用临时表性. 阅读全文
摘要：
最近做项目，需要提供xml字符串给第三方，之后我试了试这两种数据库 都可以很简单的实现 oracle：举例 SELECT XMLElement("rowdata", XMLElement("row", XMLForest( code AS "code", name AS "name", py_code AS "other" ) ) ) FROM table1 where code='124'; sqlserver：举例 select * from table1 where cod 阅读全文
摘要：
有关许多接口，会需要通过xml进行数据交换，弄个例子，方便参考unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,XMLDoc,XMLIntf, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Memo1: TMemo; procedure Button1Click(Sender: TObject); procedure Button2C 阅读全文
摘要：
uses DBGridEhImpExp;{------------------------------------------------------------------------------- 过程名: TfrmEmplyExport.OutToFile 作者: han 日期: 2007.08.08 参数: IADO : TADOQuery; DgEh : TDBGridEh 返回值: 无 说明: 导出查询结果到文件-------------------------------------------------------------------------------}proced 阅读全文
摘要：
(1)idispatch是COM object的接口, 在Delphi中通常指一个OleObject. (2) OleVariant是一种COM object兼容的Variant类型, 可以通用任何Ole Automation 类型, 他与CreateOleObject创建的idispatch兼容1:Com+的编写: 1:File---->New---->Other....---->ActiveX Library 标签 下的 Transactional Object 2: 然后填写: CoClss Name :类的名字,比如:ComPlus Threading Modal : 阅读全文
摘要：
一、windows server 2003 3790版本识别RTM=release to manufacture （公开发行批量生产）是给硬件制造商的版本！是送去压盘的,不是拿去卖的。OEM=Original Equipment Manufacturer只能全新安装， 和RTM差不多，只是称呼不同而已。RTL=retail（零售）正式零售版,可以升级或者全新安装。VLK=Volume License大量授权版，又称为企业版。无需激活。(网上所谓的简体中文VLK版实际是普通简体中文版加英文VLK版中的8个文件而已)二、Windows Server 2003的不同版本 Windows Server 阅读全文