Aula de LaboratórioCaché: DGBD Pós-Relacional
• Principais características
• Criação de Classes, Propriedades e Métodos
• Linguagem para codificação de métodos
• Execução de métodos
O que é o Caché
• SGBD pós-relacional
• Um ambiente de desenvolvimento orientado a objetos
• Acesso integrado a objeto e SQL
Caché
Caché
Arquitetura
Estrutura Básica
Namespaces
Bancos de Dados
A
B
CDE
Universidade Empresa
Classes e objetos
• uma definição de classe consiste:
propriedades;
métodos;
consultas SQL;
parâmetros: constantes para a classe;
um objeto é uma instância de uma classe;
uma classe é uma definição dos dados juntos com sua aplicação lógica;
Criação de classes
Criação de classes
Criação de classes
Criação de propriedades
Criação de propriedades
Criação de propriedades
Criação de métodos
Criação de métodos
Criação de métodos
Métodos
nome, valor de retorno especificação formal de argumentos, características e o seu código.
Características
um método privado pode ser usado somente por outros métodos de suaclasse;
um méotod Final não pode ser sobre-escrito por subclasses que o herdem;
um método que não é um método de Classe é um método de instância;
Métodos de instância:
sempre é chamado para um objeto particular aberto;
do cust.%Save() ; salva este cliente!
do cust.%Close() ; fecha este cliente!
Métodos de classe:
não referencia um objeto aberto e deve usar a sintaxe ##class
set cus = ##class(User.Customer).%OpenId(id)
set mi = ##class(User.MenuItem).%New()
Métodos
Codificação
cada linha do código precisa começar com o caracter <tab>;
para especificar o valor retornado pelo método, use o comando Quit comum argumento;
erros de sintaxe serão indicados por uma marca vermelha;Any syntax errors will be indicated by a red mark;
para métodos de expressão, entre sem o <tab>;
a sintaxe “..” é usada para se referir a outro método ou propriedade damesma classe; exemplo:
..Print()
..<prop> (acessando propriedades deste objeto)
..<método de instância> (outro método desta classe)
..<método de classe> (outro método desta classe)
Loops For
For <valor inicial>:<valor do incremento>:<valor final { <bloco de código> }
Codificação
Condição:if <condição> {código}elseif <condição> {código}else {código}
Salvando um objeto em um método:set st = cust.%Save()if (st '= 1) {quit st}
Script para Objetos
Básico
Criar um novo objeto: set <oref> = ##class(<pack>.<class>).%New()
Abrir um objeto existente: set <oref> = ##class(<pack>.<class>).%OpenId(<id>)
Salvar um objeto: set st = <oref>.%Save()
Fechar um objeto:
do <oref>.%Close()
Básico
Remover um objeto: do ##class(<package>.<class>).%DeleteId(<id>)
Remover todos os objetos salvos: do ##class(<package>.<class>).%KillExtent()
Escrever uma propriedade: write <oref>.<prop>
Atribuir valor para uma propriedade: set <oref>.<prop> = <value>
Básico
Ligando dois objetos: set <oref1>.<prop> = <oref2>
Populando uma classe: do ##class(<package>.<class>).Populate(<count>)
Fechando todos os objetos na memória: do $system.OBJ.CloseObjects()
Listar todos os objetos em memória: do $system.OBJ.ShowObjects() ; "d" for details
Listas
Criar uma nova lista: set <oref>=##class(%Library.ListOfDataTypes).%New()
Inserir um elemento em uma lista: do <oref>.Insert(<value>)
Mostrar um elemento de uma lista: write <oref>.GetAt(<position>)
Mostrar o tamanho de uma lista: write <oref>.Count()
Limpar os elementos de uma lista: do <oref>.Clear()
Arrays
Criar um novo array: set <oref>=##class(%Library.ArrayOfDataTypes).%New()
Inserir um elemento em um array: do <oref>.SetAt(<value>,<key>)
Mostrar um elemento de um array: write <oref>.GetAt(<key>)
Mostrar o tamanho de um array: write <oref>.Count()
Limpar os elementos de um array: do <oref>.Clear()
Exercício
Implementação do exemplo: Banco de Dados de Projeto (simplificado)
topicosinícioValidade
fimValidade
autPrinctipoPubllocalPubldataPubl
codigo objetivodocumentosnomecoordenador
codigoDocnomeclassificação
artigos nomeespecializaçãosaláriobônusProdução
Projeto
BuscaProjetoCadastraProjetoMostraDocumentosEliminaProjeto
Documento
Mostra
Relatório Técnico
CadastraRTMostra
Artigo
CadastraArtMostra
Pesquisador
BuscaPesquisador CadastraPesquisador
BD de Projeto simplificado
Classe Projeto
método CadastraProjeto (nomeCoord: %Library.String, codigo:%Library.Integer, obj: %Library.String, nomeProjeto: %Library.String) retorna %Library.Status
set pesq = ##class(Aula.Pesquisador).BuscaPesquisador(nomeCoord )if pesq = 0 quit 0set proj = ##class(Aula.Projeto).%New()set proj.codigo = codigoset proj.objetivo = objset proj.nome = nomeProjetoset proj.coordenador = pesq
do proj.%Save()quit 1
Classe Pesquisador
método BuscaPesquisador(nome: %Library.String) retorna Pesquisador
&sql(DECLARE iterator CURSOR FOR SELECT ID FROM Aula.Pesquisador WHERE nome = :nome)&sql(OPEN iterator) ;"roda" a consulta (depois de “;” vem um comentário) &sql(FETCH iterator INTO :identificador)quit:(SQLCODE '= 0) 0 ;retorna 0 se der algum errowrite "identificador: "write identificador,! ; “!” indica uma quebra de linha&sql(CLOSE iterator)set resposta = ##class(Aula.Pesquisador).%OpenId(identificador)quit resposta
Classe Projeto
método BuscaProjeto (codigoProj: %Library.Integer) retorna Projeto
&sql(DECLARE iterator CURSOR FOR SELECT ID FROM Aula.Projeto WHERE codigo = :codigoProj) &sql(OPEN iterator) ;"roda" a consulta &sql(FETCH iterator INTO :identificador) quit:(SQLCODE '= 0) 0 write "identificador: " write identificador,! &sql(CLOSE iterator) set resposta = ##class(Aula.Projeto).%OpenId(identificador) quit resposta
Classe Projeto
método MostraDocumentos (codProjeto: %Library.Integer)
set p= ##class(Aula.Projeto).BuscaProjeto(codProjeto)set docs = p.documentos ;recupera todos os documentosfor y=1:1:docs.Count() ;percorre esses documentos{
set d = docs.GetAt(y)do d.Mostra( )
}
Classe Documento
método Mostra( )
write “execucao do método Documento.Mostra",!
Classe Artigo
método Mostra()
write "tipo", !write ..tipoPublwrite "nome", !write ..nome
Classe RelatórioTécnico
método Mostra()
write "inicio: "write $zd(..inicioValidade) ;converte para o formato de datawrite !,"fim: "write $zd(..fimValidade) ;converte para o formato de datawrite !,"nome: “, ..nome
Classe Projeto
método EliminaProjeto (codProj: %Library.Integer) retorna %Library.Status
set proj = ..BuscaProjeto(codProj)if proj = 0{
write "nao existe o projeto especificado",!quit 0
}set oid = proj.%Oid()write “oid encontrado: ", oid, !do ##class(Aula.Projeto).%Delete(oid)quit 1
Classe Pesquisador
método CadastraPesquisador (nome: %Library.String, especializacao: %Library.String, salario: %Library.Float, bonus: %Library.Float ) retorna %Library.Status
set pesq = ##class(Aula.Pesquisador).%New()set pesq.bonus = bonusset pesq.salario = salarioset pesq.nome = nomeset pesq.especializacao = especializacaodo pesq.%Save()quit 1
Classe RelatorioTecnico
método CadastraRT (codDoc: %Library.Integer, nomeDoc: %Library.String, classific: %Library.String, topicos: %Library.String, codProj: %Library.Integer, inicioVal: %Library.Date, fimVal: %Library.Date) retorna %Library.Status
set projeto = ##class(Aula.Projeto).BuscaProjeto(codProj)if projeto = 0 { write "Nao existe o projeto especificado" quit 0 }set relatorio = ##class(Aula.Relatorio).%New()set relatorio.codigodoc = codDocset relatorio.nome = nomeDocset relatorio.classificacao = classificset relatorio.tópicos = topicosset relatorio.inicio = $zdh(inicioVal) ;converte para o formato de dataset relatorio.fim = $zdh(fimVal) ;converte para o formato de datado relatorio.%Save();inserir o relatório no projetoset documentos = projeto.documentosdo documentos.Insert(relatorio)do projeto.%Save() quit 1
Terminal• zn “Aula" //muda para o namespace que se deseja trabalhar• set teste = ##class(Aula.Pesquisador).%New() //cria um novo objeto• set value = teste.%Save()• set resultado = ##class(Aula.Pesquisador).BuscaPesquisador("pesquisador1")//chama o método de classe• do teste.%Close()• set teste = ##class(Aula.Pesquisador).%OpenId(5)• set teste.bonus = 50• set teste.salario = 5000• set teste.nome = "pesquisador5"• set teste.especializacao = "especializacao5"• do teste.%Save()• do ##class(Aula.Projeto).CadastraProjeto("pesquisador3",3,"objetivo3","projeto3")• do ##class(Aula.Relatorio).CadastraRT(4,"relatorio4","classif4", "topico4", "4/4/40", "4/4/44",2)• set x = ##class(Aula.Projeto).BuscaProjeto(1)• do ##class(Aula.Projeto).MostraDocumentos(1)• set x = ##class(Aula.Pesquisador).CadastraPesquisador("pesquisador7","especializacao7", 700, 70)• set x = ##class(Aula.Projeto).EliminaProj(1)
Classe Pesquisador
método CadastraPesquisador (nome: %Library.String, especializacao: %Library.String, salario: %Library.Float, bonus: %Library.Float ) retorna %Library.Status
set pesq = ##class(Aula.Pesquisador).%New()set pesq.bonus = bonusset pesq.salario = salarioset pesq.nome = nomeset pesq.especializacao = especializacaodo pesq.%Save()quit 1
Classe Artigo método CadastraArt (codDoc: %Library.Integer, nomeDoc: %Library.String, classific: %Library.String, tipoPubl: %Library.String, localPubl: %Library.String, data: %Library.Date, autPrinc: %Library.String, codProj : %Library.String) retorna %Library.Status{ write "começou o método CadastraArt",!
set projeto = ##class(Aula.Projeto).BuscaProjeto(codProj)if projeto = 0 { write "Nao existe o projeto especificado" quit 0 }set pesquisador = ##class(Aula.Pesquisador).BuscaPesquisador(autPrinc)if pesquisador = 0 { write "Nao existe o pesquisador especificado" quit 0 }set artigo = ##class(Aula.Artigo).%New()set artigo.codigoDoc = codDocset artigo.nome = nomeDocset artigo.classificacao = classificset artigo.tipoPubl = tipoPublset artigo.dataPubl = $zdh(data) ;converte para o formato de dataset artigo.localPubl = localPublset artigo.autPrinc = pesquisadordo artigo.%Save();inserir o artigo no projetoset documentos = projeto.documentosdo documentos.Insert(artigo)do projeto.%Save() write "terminou o método CadastraArt",!quit 1
}
Classe Pesquisador
método MostraArtigos ( ) retorna null
write "Artigos publicados por ", ..nome, ":", !set arts = ..artigosfor i=1:1:arts.Count(){
set temp = arts.GetAt(i)write "Nome do artigo: ", temp.nome,!write "Local da publicacao: ", temp.localPubl,!write "Classificacao: ", temp.classificacao,!write "Data da publicacao: ", $zd(temp.data),!!
}write "Fim da lista de artigos de ", ..nome
Top Related