Caché数据库学习笔记
Posted gy_jerry
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Caché数据库学习笔记相关的知识,希望对你有一定的参考价值。
目录
Query函数及其测试
重建索引表
Management portal简介
远程访问Ensemble
===================================================
===================================================
Query函数及其测试:
query工作原理:
.cls部分:
首先根据query传入数据建立索引表IdxA(需要在portal里build)声明query时设置函数名、传入变量和传出变量列表包含三个classmethod: Execute, Fetch, Close
Execute设置查找数据时的依据,包含全部主键及索引,存入qHandle数组里
Fetch为主体,传入查找依据(qHandle), Row(需要得到的列表), AtEnd(0可以进行下去,1终止)
设置初始值:AtEnd = 1(若后面查找不到数据则终止), Row为空,查找依据数组设置回变量方便写函数,调用Routine,将返回值赋给各个变量,为下一次循环准备
Query GetPlan(Status As %Integer, StartDate As %Integer) As %Query(ROWSPEC = "PlanNo:%String,PatientId:%String,StartDate:%Integer,EndDate:%Integer,Module:%String,Status:%Integer,DoctorId:%String") [ SqlProc ]
{
}
ClassMethod GetPlanExecute(ByRef qHandle As %Binary, Status As %Integer, StartDate As %Integer) As %Status
{
Set qHandle(0) = "" ;PlanNo
Set qHandle(1) = StartDate
Set qHandle(2) = Status
Quit $$$OK
}
ClassMethod GetPlanClose(ByRef qHandle As %Binary) As %Status [ PlaceAfter = GetPlanExecute ]
{
Kill qHandle
Quit $$$OK
}
ClassMethod GetPlanFetch(ByRef qHandle As %Binary, ByRef Row As %List, ByRef AtEnd As %Integer = 0) As %Status [ PlaceAfter = GetPlanExecute ]
{
Set AtEnd = 1
Set Row = ""
Set PlanNo = qHandle(0)
Set StartDate = qHandle(1)
Set Status = qHandle(2)
Set Data = $$GetPlan^Ps.Plan(PlanNo, StartDate, Status)
Set AtEnd = $ListGet(Data,1)
Set Row = $ListGet(Data,2)
Set qHandle(0) = $ListGet(Data,3)
Set qHandle(1) = $ListGet(Data,4)
Set qHandle(2) = $ListGet(Data,5)
Quit $$$OK
}
.mac文件部分:
query逻辑:
启动:传入StartDate和Status,PlanNo为空,根据Status和IdxA由后向前找到第一条数据的StartDate进入while循环:目的是在不传出有效数据的情况下不必跳出Fetch
过程:判断StartDate是否符合条件,若不符合跳出并终止Fetch根据IdxA, Status, StartDate找到一条数据并设定PlanNo判断PlanNo不为空的时候,进行查找和传出数据;否则按照之前的方法查找下一条数据并再次进入循环传出AtEnd值(0可以继续进入Fetch,1终止Fetch), Row(返回的列表), PlanNo, Status, StartDate根据这三者查找下一条数据
GetPlan(PlanNo, StartDate, Status) Public { If (PlanNo \'= "") { Goto Next } // -1表示从后向前查找,因为该函数的目的是找时间最近的,因此从后向前查找会避免很多问题 Set StartDate = $Order(@$$$PsPlanI@("IdxA", Status, StartDate), -1) While (StartDate \'= "") { If (StartDate < 20150926) { Goto Exit } Next Set PlanNo = $Order(@$$$PsPlanI@("IdxA", Status, StartDate, PlanNo), -1) If (PlanNo \'= "") { Set Data = $Get(@$$$PsPlanD@(PlanNo)) Set PatientId = $ListGet(Data, $$$PsPlanPatientId) Set StartDate = $ListGet(Data, $$$PsPlanStartDate) Set EndDate = $ListGet(Data, $$$PsPlanEndDate) Set Module = $ListGet(Data, $$$PsPlanModule) Set Status = $ListGet(Data, $$$PsPlanStatus) Set DoctorId = $ListGet(Data, $$$PsPlanDoctorId) Set Row = $ListBuild(PlanNo, PatientId, StartDate, EndDate, Module, Status, DoctorId) Set AtEnd = 0 Goto Exit } Set StartDate = $Order(@$$$PsPlanI@("IdxA", Status, StartDate), -1) } Exit Set Ret = $ListBuild(AtEnd, Row, PlanNo, StartDate, Status) Quit Ret }
Query 的测试方法写在routine中,
// do TestGetPlan^Ps.Plan()
TestGetPlan() Public
{
Set rs = ##Class(%ResultSet).%New("Ps.Plan:GetPlan")
do rs.Execute(4, 20160926)
While rs.Next()
{
w " PlanNo"_rs.GetData(1)_" StartDate"_rs.GetData(3)_" Status"_rs.GetData(6),!
}
do rs.Close()
Kill rs
Quit
}
需要注意的是,非主键的属性作为索引时,在I表里小写会自动转成大写;非必需的属性作为索引,在I表里会自动在前面加一个空格。这里我自己的推测是在索引时,非必需的属性可能为空,而在routine中,是要根据这个属性进行索引的,为防止可能为空的数据无法被索引到,会自动在前面加一个空格。因此在写query的routine时,要注意在编码时加空格匹配;在test时,要注意大小写和空格的问题。
===================================================
重建索引表:
正常输入数据后,数据存放在D表中,而query在查找数据时,会使用索引表(I表)。I表是根据D表和cls文件中的设置建立起来的
Management portal/system explorer/SQL
更改命名空间,打开左侧的Tables下拉栏,找到需要重建的表名
在右侧可以看到基本信息,找到上面的Action/rebuild indices即可建立I表
另外open table可以查看当前表的所有内容,在当前页的最下方可以调节显示数据的条数
==========================================================
Management portal简介:
除了上述的System Explorer/SQL外,常用的还有System Explorer/Globals用于导入导出数据和查看表格;System Operation进行配置;System Administration进行管理等
==========================================================
远程访问Ensemble:
首先关闭防火墙才能被其他服务器远程访问。
访问其他服务器时,首先进行配置。
左键右下角图标,Prefered Server/AddEdit…
Localhost这一行可以看到自己的Port/Web Server Port配置情况,点击Add添加其他服务器IP地址、端口和网络端口保存
再查看prefered server即可看到当前的首选服务器,在remote system access里可以打开任意可以远程到的服务器的studio/terminal/management portal/documentation
以上是关于Caché数据库学习笔记的主要内容,如果未能解决你的问题,请参考以下文章