nsutextbook (1037554), страница 18
Текст из файла (страница 18)
Создание метода экземпляраНаписать метод экземпляра для класса Books, позволяющий изменять значениясвойств заданного экземпляра. На вход методу подаются значения свойств объекта.Решение:Method AlterBook(title As %String, authors As %String, countpage As %String, desc As%String, categ As Category, cena As %Numeric){ // метод для изменения свойств объектаset ..Title=titledo ..Authors.InsertAt(authors,1)do ..CategorySetObjectId(categ)set ..CountPage=countpageset ..Decsription=descset ..Cena=cenaset sc= ##this.%Save()}Вызов метода:set bk=##class(Books).%OpenId(5)do bk.AlterBook(“Три мушкетера”, “Дюма А.”, 560,” ”,1,350)Пример 5. Создание метода классаНаписать метод класса для класса Books, позволяющий создавать новый объекткласса и инициализировать значения его свойств.
На вход методу подаются значениясвойств нового объекта, на выходе OREF- ссылка на созданный экземпляр.Решение:ClassMethod AddBook(title As %String, author As %String, countpage As %String, descAs %String, categ As Category, cena As %Numeric) as Books{ // метод класса для создания экземпляра объектаset book=##class(Books).%New()79set book.Title=titleSet book.CountPage=countpageSet book.Decsription=descSet book.Cena=cenado book.CategorySetObjectId(categ)do book.Authors.InsertAt(author,1)set sc=book.%Save()Quit book}Вызов метода:Set bk=##class(Books).AddBook(“Три мушкетера”, “Дюма А.”, 560,” ”,1,350)В переменной bk – OREF-ссылка на cозданный объект.Пример 6.
Использование запросов для вывода информации об экземплярах классаДан класс Human со свойствами ID, Fam – фамилия ,Im – имя, age – возраст, dat – дата рождения. В данном примере выполняется создание нового экземпляра объекта, вводзначений, сохранение экземпляра, а также вывод на печать значений всех объектовэкземпляров.Решение:Определение класса HumanClass User.Human Extends %Persistent [ ClassType = persistent, ProcedureBlock ]{Property Fam As %String;Property Im As %String;Property age As %Integer;Property dat As %Date;}Программа:/ Создать новый объектwrite !,"Ввод новых объектов"for {read !,"Введите фамилию ",famQuit: fam=””read !," Введите имя ",imread !,"Возраст ",vozr// Создать экземплярSet n=##class(User.Human).%New()Set n.Fam=fam, n.Im=im, n.age=vozr// Сохранить объектSet sc=n.%Save()}// Распечататьwrite !,"Объекты"Set r=##class(%ResultSet).%New(”%DynamicQuery:SQL”)Do r.Prepare("Select ID,Fam,Im,age from Human")Do r.Execute()While(r.Next()){ write !,r.Data("ID")," ",r.Data("Fam")," ",r.Data("Im")," ",r.Data("age")}80Пример 7.
Распечатка объектов класса, имя которого вводит пользователь// Распечататьwrite "Распечатка объектов класса "read !,"Введите класс ", klasswrite !,"Объекты класса ", klasswrite !Set r=##class(%ResultSet).%New(”%DynamicQuery:SQL”)Do r.Prepare("Select * from "_klass)if 'r.QueryIsValid(){ write !,"запрос не допустим"quit}Do r.Execute()// печать заголовков столбцовset k=1for i=1:1:r.GetColumnCount(){ write ?k,r.GetColumnName(i)set k=k+10}// печать объектовWhile(r.Next()){ write !set k=1for i=1:1:r.GetColumnCount(){ write ?k,r.Get( r.GetColumnName(i))set k=k+10}}Пример 8.
Использование запросов для вывода информации о свойствах спискахДан класс Books – книги со свойствами Title – название книги, Description – описание, Authors – авторы. Свойство Authors является свойством типа список и описываетсяследующим образом:Property Authors As %String [ Collection = list ];Задание: распечатать все экземпляры класса Books, учитывая, что Authors это свойство типа список.РешениеSet r=##class(%ResultSet).%New(”%DynamicQuery:SQL”) // создать запросDo r.Prepare("Select ID,Title,Authors from Books")if 'r.QueryIsValid(){ write !,"запрос не допустим"quit}Do r.Execute()// печать заголовков столбцовset k=1for i=1:1:r.GetColumnCount(){ write ?k, r.GetColumnName(i)set k=k+15}// распечатать свойства ID, Title, Authors81while (r.Next()){ Set IID= r.Data("ID")write !,IID, ?20, r.Data("Title")set b=##class(Books).%OpenId(IID)set k=b.Authors.Count()// так как свойство Authors это список, метод Count//возвращает количество элементов списка.for i=1:1:k{ write ?40, b.Authors.GetAt(i),! // доступ к элементам списка}}82Глава 7.
Прямой доступ и глобалы7.1. Индексированные переменныеПеременные как локальные, так и глобальные могут существовать в виде простыхили индексированных структур. Глобальные переменные или глобалы, являясь хранимыми данными, создают основу так называемого прямого доступа.Многомерность данных реализована через индексы, поэтому говорят об индексированных переменных. Табл. 14 демонстрирует различия между переменными:Таблица 14Тип переЛокальнаяГлобальнаяменнойСкалярнаяName=Иванов^Name=ИвановМногомерная Book(Nomer)=Солярис|Лемм С.
^Book(Nomer)=Солярис|Лемм С.Переменная Name – скалярная, она не хранится в базе данных. Переменная ^Name –глобальная, она сохраняется в базе данных.Переменные Book и ^Book – это индексированные переменные, в отличие от переменных Name и ^Name. Переменная ^Book является глобальной, т.е. сохраняется в базеданных.7.2. Массивы со строковыми индексамиИндексированные переменные создаются с помощью команды Set. При этом нет необходимости в предварительном объявлении массива и его размерности. Например:Set A=1, A(3)=2, A(3,7)=”Monday”, A(3,7,25)=”holiday”.Будут созданы лишь элементы A, A(3), A(3,7), A(3,7,25).
Это становится возможнымблагодаря разреженным массивам. Массив разреженный – это значит, что исходя из наличия узла A(3,7) невозможно автоматически предполагать наличие узла, скажем A(3,4). Если он был ранее явно создан, то он существует и занимает некий объем памяти. Крометого, в качестве индекса могут использоваться числа любого типа, строки и выражения.Например:Set month(“Сентябрь”)=9 // одномерная переменнаяSet Fio=Univer(«математический», 104) // двумерная переменнаяПримеры демонстрируют смешанное применение числовых и строковых индексов.Длина имени переменной плюс число всех скобок, число всех ее индексов и запятых недолжно превышать 1023 символов.7.3. Сортировка индексированных переменныхИндексированные переменные сортируются в Caché автоматически.
Последовательность сортировки определяется с помощью:• Используемого набора символов• Правил сортировки символов этого набора.Независимо от используемого набора символов для сортировки всегда действуетправило: первыми идут канонические числовые индексы. Под каноническим числом подразумевается число без избыточных нулей и предшествующих знаков. Так числа + 1, 0.7и 2.40 не являются каноническими.
Следом за числовыми индексами сортируются вседругие индексы, а также индексы представленные неканоническими числами. Например:-100 -15 0 5 6.1 11 “!” “AA”“ZZ” “a”“z” “А” “Ш” “у” “я”.837.4. ГлобалыГлобалы это структуры данных, как правило, многомерные, которые хранятся в базеданных и могут обрабатываться в многопользовательской среде различными процессами.Обработка глобалов в Caché весьма проста.С помощью команды Set глобалу присваивается значение.
Например:Set ^Univer(“математический”)=$ListBuild(“Волков Ю.Н.”, “22-33-45”)Так как значением глобала является список, для его обработки следует использоватьсписковые функции. Например:For i =1:1:$ListLength(^Univer(“математический”)){Write !, $List ( ^ Univer(“математический”) , i)}Удаление отдельных значений глобала выполняется с помощью функции Kill. Например: Kill ^ Univer(“математический”).Потомки удаляемого узла также будут удалены. Если это не желательно, нужно применить команду ZKill, удаляющую лишь данное конкретное значение.
Поле глобала можно изменить списковой функцией $List.Рассмотрим пример прототипа системы «Структура университета». Для этого введемглобальную переменную ^Univer, которая на нулевом уровне имеет название университета:^Univer= “N-ский Государственный университет”На первом уровне имеет название факультета в качестве индекса, в качестве значения – ФИО декана и телефон деканата:^Univer(<факультет>)=<ФИО декана>|<телефон деканата>Примеры записей:^Univer(“математический”) = Волков Ю.Н.| 22-33-45^Univer(“физический”) = Семенов А.К.| 34-32-12^Univer(“исторический”) = Фофанов М.Н.| 45-90-78Значением каждой записи является список, который обрабатывается с помощью списковых функций.
Выборка записей осуществляется с использованием уникального ключа,индекса.На следующем (втором) уровне записываются название факультета и номер группыв качестве индекса и ФИО куратора в качестве значения:^Univer(<факультет>,<группа>)=ФИО куратора.Примеры записей:^Univer(“математический”, 104) = Иванов А.П.^Univer(“математический”, 105) = Розанов С.И.^Univer(“математический”, 106) = Потапова Т.А.(…)Информацию о студентах сохраняем на третьем уровне:^Univer(<факультет>,<группа>, <№ зачетки>)= ФИО студента| Адрес| ТелефонПримеры записей:^Univer(“математический”, 104, 91232) = Иванов П.И.|Ленина 10,3| 67-56-32^Univer(“математический”, 104, 91233) = Петров И.М.|Мира 45,9| 78-56-34^Univer(“математический”, 104, 91234) = Сидоров В.А.|Русская 10,78| 33-45-67Программа создания такого глобала приведена ниже:Set ^Univer= "N-ский Государственный университет"Set ^Univer("математический") = $ListBuild("Волков Ю.Н.","22-33-45")Set ^Univer("физический") = $ListBuild("Семенов А.К.","34-32-12")84Set ^Univer("исторический") = $ListBuild("Фофанов М.Н.","45-90-78")Set ^Univer("математический", 104) = "Иванов А.П."Set ^Univer("математический", 105) = "Розанов С.И."Set ^Univer("математический", 106) = "Потапова Т.А."Set ^Univer("математический", 104, 91232) = $ListBuild("Иванов П.И.","Ленина10,3","67-56-32")Set ^Univer("математический", 104, 91233) = $ListBuild("Петров И.М.","Мира45,9","78-56-34")Set ^Univer("математический", 104, 91234) = $ListBuild("Сидоров В.А.","Русская10,78","33-45-67")Здесь необходимо сделать несколько замечаний:• Первые индексы в каждом случае одинаковы (разумеется, нет необходимости ихкаждый раз сохранять).
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
