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é数据库学习笔记的主要内容,如果未能解决你的问题,请参考以下文章

Caché数据库下载

Caché数据库新增用户并分配权限

xml CachéJavaScriptRoutine

apache_conf Caché.htaccess

基本语法——Caché

学习笔记:python3,代码片段(2017)