Банк рефератов содержит более 364 тысяч рефератов, курсовых и дипломных работ, шпаргалок и докладов по различным дисциплинам: истории, психологии, экономике, менеджменту, философии, праву, экологии. А также изложения, сочинения по литературе, отчеты по практике, топики по английскому.
Полнотекстовый поиск
Всего работ:
364150
Теги названий
Разделы
Авиация и космонавтика (304)
Административное право (123)
Арбитражный процесс (23)
Архитектура (113)
Астрология (4)
Астрономия (4814)
Банковское дело (5227)
Безопасность жизнедеятельности (2616)
Биографии (3423)
Биология (4214)
Биология и химия (1518)
Биржевое дело (68)
Ботаника и сельское хоз-во (2836)
Бухгалтерский учет и аудит (8269)
Валютные отношения (50)
Ветеринария (50)
Военная кафедра (762)
ГДЗ (2)
География (5275)
Геодезия (30)
Геология (1222)
Геополитика (43)
Государство и право (20403)
Гражданское право и процесс (465)
Делопроизводство (19)
Деньги и кредит (108)
ЕГЭ (173)
Естествознание (96)
Журналистика (899)
ЗНО (54)
Зоология (34)
Издательское дело и полиграфия (476)
Инвестиции (106)
Иностранный язык (62792)
Информатика (3562)
Информатика, программирование (6444)
Исторические личности (2165)
История (21320)
История техники (766)
Кибернетика (64)
Коммуникации и связь (3145)
Компьютерные науки (60)
Косметология (17)
Краеведение и этнография (588)
Краткое содержание произведений (1000)
Криминалистика (106)
Криминология (48)
Криптология (3)
Кулинария (1167)
Культура и искусство (8485)
Культурология (537)
Литература : зарубежная (2044)
Литература и русский язык (11657)
Логика (532)
Логистика (21)
Маркетинг (7985)
Математика (3721)
Медицина, здоровье (10549)
Медицинские науки (88)
Международное публичное право (58)
Международное частное право (36)
Международные отношения (2257)
Менеджмент (12491)
Металлургия (91)
Москвоведение (797)
Музыка (1338)
Муниципальное право (24)
Налоги, налогообложение (214)
Наука и техника (1141)
Начертательная геометрия (3)
Оккультизм и уфология (8)
Остальные рефераты (21697)
Педагогика (7850)
Политология (3801)
Право (682)
Право, юриспруденция (2881)
Предпринимательство (475)
Прикладные науки (1)
Промышленность, производство (7100)
Психология (8694)
психология, педагогика (4121)
Радиоэлектроника (443)
Реклама (952)
Религия и мифология (2967)
Риторика (23)
Сексология (748)
Социология (4876)
Статистика (95)
Страхование (107)
Строительные науки (7)
Строительство (2004)
Схемотехника (15)
Таможенная система (663)
Теория государства и права (240)
Теория организации (39)
Теплотехника (25)
Технология (624)
Товароведение (16)
Транспорт (2652)
Трудовое право (136)
Туризм (90)
Уголовное право и процесс (406)
Управление (95)
Управленческие науки (24)
Физика (3463)
Физкультура и спорт (4482)
Философия (7216)
Финансовые науки (4592)
Финансы (5386)
Фотография (3)
Химия (2244)
Хозяйственное право (23)
Цифровые устройства (29)
Экологическое право (35)
Экология (4517)
Экономика (20645)
Экономико-математическое моделирование (666)
Экономическая география (119)
Экономическая теория (2573)
Этика (889)
Юриспруденция (288)
Языковедение (148)
Языкознание, филология (1140)

Реферат: Как сделать двунаправленный запрос

Название: Как сделать двунаправленный запрос
Раздел: Рефераты по информатике, программированию
Тип: реферат Добавлен 01:10:14 05 апреля 2005 Похожие работы
Просмотров: 38 Комментариев: 2 Оценило: 1 человек Средний балл: 3 Оценка: неизвестно     Скачать

Евгений Каратаев

Мне давно было интересно, можно ли сделать в Cache' такой запрос, чтобы его можно было бы прокручивать назад, например что-то вроде команды, парной к Fetch, например Prior. Собственные средства Cache' почему-то не предоставляют такой возможности. Для этого я изучил характер взаимодействия sql-движка с Cache Object Script. В результате исследований выяснилось, что это возможно, хотя и не столь гладко, как бы того хотелось. Надеюсь, читатель с пониманием отнесется к возникшей некрасивости.

Возьмем и сделаем рутину со следующим текстом:

run()

&sql(declare cur CURSOR for select ID, Name, Home

from Sample.Person order by ID asc)

&sql(open cur)

&sql(fetch cur)

&sql(close cur)

q

Скомпилируем и сохраним текст полученной int-рутины. После чего изменим рутину следующим образом:

run()

&sql(declare cur CURSOR for select ID, Name, Home

from Sample.Person order by ID desc)

&sql(open cur)

&sql(fetch cur)

&sql(close cur)

q

И также сохраним текст полученной int-рутины. В запросе можно использовать любую имеющуюся у Вас таблицу, просто в данном случае я использовал таблицу из штатного дистрибутива.

Сличим полученные тексты int-рутин. Ничего особенно романтичного в работе автоматического генератора не наблюдается, за исключением того, что сгенерированные тексты полностью совпадают за исключением замены операции $o() на $zp(), которые друг другу прямо противоположны по направлению. Таким образом, для реализации двунаправленной прокрутки используем оба варианта и попробуем совместить их данные, оставив и использовав коды (рутины) доступа.

Для работы нам потребуются некие дежурные данные. Создаем новый класс, например User.NameList, наследник %Persistent и %Populate. Добавляем ему новое свойство Name:%String. Сохраняем, компилируем. В терминале создаем 10 объектов для теста:

d ##class(User.NameList).Populate()

Запускаем SQL Manager и для проверки что действительно создана таблица sql и содержит тестовые данные, выполняем запрос

select ID, Name from NameList.

Если все было в порядке, то будет показана табличка с двумя колонками и десятком строк. Имена англоязычные, вымышленные. Для проверки работы прокрутки в обе стороны создадим рутину (например FetchBack) с кодом

Test()

n ascHandle,descHandle,ascSelect,descSelect,

n ok,i,AtEnd,Row,ID,Name,State,ascClose,descClose

; первоначальноевыражение - "select ID, Name from NameList"

; чтобы ходить по нему, преобразуем в два

s ascSelect="select ID, Name from NameList order by ID ASC"

s descSelect="select ID, Name from NameList order by ID DESC"

S ok=##class(%DynamicQuery).SQLPrepare(.descHandle,descSelect)

S ok=##class(%DynamicQuery).SQLExecute(.descHandle)

s descClose=descHandle

S ok=##class(%DynamicQuery).SQLPrepare(.ascHandle,ascSelect)

S ok=##class(%DynamicQuery).SQLExecute(.ascHandle)

s State=$li(ascHandle,1)

s ascClose=ascHandle

; идемна 4 шагавперед

s $li(ascHandle,1)=State

w "4 steps forward",!

f i=1:1:4 d

. d ##class(%DynamicQuery).SQLFetch(.ascHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(ascHandle)

; возвращаемся на 2 шага назад

s $li(descHandle,1)=State

w "2 steps backward",!

f i=1:1:2 d

. d ##class(%DynamicQuery).SQLFetch(.descHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(descHandle)

; снована 4 шагавперед

s $li(ascHandle,1)=State

w "4 steps forward",!

f i=1:1:4 d

. d ##class(%DynamicQuery).SQLFetch(.ascHandle,.Row,.AtEnd)

. q:(AtEnd=1)!(Row="")

. s ID=$li(Row,1)

. s Name=$li(Row,2)

. w "ID="_ID_", Name="_Name,!

s State=$li(ascHandle)

d ##class(%DynamicQuery).SQLClose(.ascClose)

d ##class(%DynamicQuery).SQLClose(.descClose)

q

Компилитуем, выполняем. В моем случае это выглядит как

USER>d Test^FetchBack()

4 steps forward

ID=1, Name=Presley,Samantha H.

ID=2, Name=Quine,Keith G.

ID=3, Name=Jones,Elvira A.

ID=4, Name=Townsend,Howard D.

2 steps backward

ID=3, Name=Jones,Elvira A.

ID=2, Name=Quine,Keith G.

4 steps forward

ID=3, Name=Jones,Elvira A.

ID=4, Name=Townsend,Howard D.

ID=5, Name=Uberoth,Juanita D.

ID=6, Name=Van De Griek,Michael K.

Видим, что два использованных запроса гладко сшились по используемому состоянию. Это обусловлено тем, что оба запроса совершенно идентичны за исключением направления сортировки. Исследование кодов возврата функций позволяет сделать суждение о более правильном отношении к закрытию запросов.

Таким образом, составить новый класс или набор классов, аналогичные по интерфейсу штатным, не составляет особых проблем. За исключением того, что имея один запрос мы должны будем сделать из него два. Для этого введем некоторую некрасивость - в теле запроса потребуем указания обеих сортировок и разделителей, ограничивающих собственно запрос и сортировки. Выберем в качестве разделителя символы $$$ и будем полагать, что запрос строится по схеме:

select ...

from ...

where ...

$$$ order by ... asc

$$$ order by ... desc

И что при этом программист возьмет на себя интеллектуальную работу по повторению сортировки в обоих концах. Поля, попадающие в сортировку, должны действительно определять строку выборки. Если поля в выборке допускают неуникальные строки, то следует ввести поле, введение которого сделает строку уникальной. Это требуется для корректного сшивания сортировок. Впрочем, это достаточно поверхностное теоретическое суждение и после его проверки оно может оказаться неверным в каких-то версиях.

Все, что нам понадобится, это удерживать в одном запросе два описателя вместо одного. При создании запроса сконструируем два объекта и при выполнении операций будем обращаться к соответствующим нашим внутренним объектам и передавать их данные штатному sql-движку.

Внимание привлекает поведение функций доступа, например, класс %DynamicSQLQuery, функция Fetch:

n %qref,rtn Set %qref=$lg(qHandle,1),rtn=$lg(qHandle,2)

Quit:%qref=""!(rtn="") $$$ERROR($$$GeneralError,"Query not Prepared")

QUIT $$Fetch^@rtn

Как видно по тексту, сама функция принимает и передает qHandle по ссылке, но к сгенерированной рутине обращается, передавая значения через локальные переменные. Код сгенерированной рутины закрыт, но судя по тому, что состояние qHandle должно быть передано наружу, ее модифицировать может только вызываемая рутина $$Fetch^@rtn. Других проблемных моментов я не нашел, поэтому к делу.

Экспортируем классы %DynamicQuery, %DynamicSQLQuery и $ResultSet в cdl. Дописываем к их именам символ 2 и правим коды так, чтобы у %DynamicSQLQuery2 была внутренняя поддержка обратной прокрутки, более развернутого хендла, чтобы у класса %DynamicQuery использовался запрос типа %DynamicSQLQuery2 и чтобы класс %ResultSet2 имел еще одну функцию, обращающуюся к FetchBack.

Получившиеся у меня для Cache' 4.1.9 классы можно загрузить по ссылке в конце страницы.

Проверочный код примерно следующего вида:

run()

n result,i

Set result=##class(%ResultSet2).%New("%DynamicQuery2:SQL")

Do result.Prepare("select ID, Name from NameList

$$$ order by ID ASC $$$ order by ID DESC")

Do result.Execute()

f i=1:1:4 d

. d result.Next()

. Write result.Get("ID"),result.Get("Name"),!

f i=1:1:2 d

. d result.Prior()

. Write result.Get("ID"),result.Get("Name"),!

f i=1:1:4 d

. d result.Next()

. Write result.Get("ID"),result.Get("Name"),!

Do result.%Close()

q

В результате его работы в терминале выдаются примерно следующие данные:

USER>d run^fetch()

1Presley,Samantha H.

2Quine,Keith G.

3Jones,Elvira A.

4Townsend,Howard D.

3Jones,Elvira A.

2Quine,Keith G.

3Jones,Elvira A.

4Townsend,Howard D.

5Uberoth,Juanita D.

6Van De Griek,Michael K.

Поскольку данные сгенерированы случайным образом, в Вашем случае они могут выглядеть иначе.

К неприятностям метода можно отнести следующие обстоятельства -

Использование нестандартного набора классов

Но что мешает изменить штатные классы, если это очень нужно?

Использование нештатной sql конструкции

Но штатной нет, а какая разница, какие символы будут там написаны? Все равно ведь что-то писать надо будет.

В версии Cache 5 появился дополнительный класс %ScrollableResultSet, который примерно то же самое и делает, и кроме того объект этого класса может быть сохранен в базе данных. Это позволяет просто организовать подкачку страниц например для веб интерфейса - выдачу строк порциями с сохранением контекста запроса между обращениями к базе например.

Оценить/Добавить комментарий
Имя
Оценка
Комментарии:
Где скачать еще рефератов? Здесь: letsdoit777.blogspot.com
Евгений21:36:24 18 марта 2016
Кто еще хочет зарабатывать от 9000 рублей в день "Чистых Денег"? Узнайте как: business1777.blogspot.com ! Cпециально для студентов!
08:46:46 24 ноября 2015

Работы, похожие на Реферат: Как сделать двунаправленный запрос

Назад
Меню
Главная
Рефераты
Благодарности
Опрос
Станете ли вы заказывать работу за деньги, если не найдете ее в Интернете?

Да, в любом случае.
Да, но только в случае крайней необходимости.
Возможно, в зависимости от цены.
Нет, напишу его сам.
Нет, забью.



Результаты(151170)
Комментарии (1843)
Copyright © 2005-2016 BestReferat.ru bestreferat@mail.ru       реклама на сайте

Рейтинг@Mail.ru