错误编号
描述
解决方法
1
使用ADO来连接, 最简单的方式来修改一个值然后Post,就报错:: 无法定位更新行,***已被改变
更新其中一个为空的字符串字段为’ ’
or
修改其长度10240->1024
2
Native Code 461
数据库不能连接, 检查其连接
3
Native Code 469
修改ODBC的连接字符串,不要使用Delphi自己产生的字符串,而是使用本章1中的ODBC ConnectionString
2 分发/部署(Deployment)
2.1 分发时删除源码
l 5.0 以后
$system.OBJ.MakeClassDeployed
? classmethod MakeClassDeployed(classname As %String = "", flags As %String = "") returns %Status
Make a class in deployed mode. This will delete all the source code of the class from the disk. Once a class is in deployed mode, it can not be edited nor exported. It also can not be compiled, and non of it's sub-classes can be compiled either.
例如:
W $SYSTEM.OBJ.MakeClassDeployed("Sample.Film")
l
%ROMF and then load it into a clean database using %RIMF for distribution. This is similar to shipping only an executable in other languages.
l 直接从Explore中删除 Routines
3 数据库移植(5.x->4.x)
l 导出CDL
w $SYSTEM.OBJ.ExportCDLPackage("Division","Divistion.cdl",4)
*注意事项
%ID -> ID
while 条件不能加括号
TS TC TRO 后面不能有空格(紧接其后回车可解决)
不能使用Continue(使用goto代替)
不能使用isObject
不能使用 >=
不能使用 %XML包
不能使用 %System.SYS
×导出CDL的格式要求
1 5.0和4.0的Global的格式有差别。 5中 在Global的ListNode的第一项 是"value (1) = %%CLASSNAME",而4中则不含此项。因此,会导致在4中,OpenId出错:class not exist。
无法打开对象。
解决方法: 将%%CLASSNAME替换成其他字符串,但不要和属性名重复。(在HMS中,使用TaoReserved替换)
2 ROWSPEC 中的 ID 不用加属性描述
ID:%String:Dcit.EMedicalRecords.ICD10 -> ID:%String
1. Stream
s b=##Class(%Dictionary.ClassDefinition).%OpenId("Dict.Report.ReportItems")
w b.Storages.GetAt(1).StreamLocation
4 对象操作
4.1 对象引用的快速赋值
对象引用时使用对象方法实现为:
S obja=##Class(ClassA).$OpenId(“1”)
S objb=##Class(ClassB).$OpenId(“1”)
S obja.propertyB=objb
D obja.%Save()
Global操作:
假设 propertyB 在 Globa ^ClassAD中位置在第三位,则
$LIST(^ClassAD(“1”,3))=”1”
5 索引(Index)
ü 不要使用唯一Bitmap索引(Do not make unique indexes bit map)
ü 保持Index Collation(索引排序)和Property Collation属性排序相同
如果要更改Collation,就修改属性的Collation,而不要更改索引Collation
ü 确保为所有的外键(对象引用、关联等)都建立索引
ü 所有可能会用来比较(=,>,<,LIKE,BETWEEN )等操作的属性都可以考虑建立索引。如果可能出现的值在10,000个以上,使用一般的索引,否则可以考虑使用Bitmap。各个属性单独建立索引。
ü %BuildIndices for Bitmap: 如果索引已经记录了索引值,那在调用%BuildIndices之前最好先调用%PurgeIndices 以去掉旧的索引值
转自:http://itrust.cnblogs.com/archive/2005/11/08/133436.html#271473