Разработка информационной системы "Адвокатская фирма"

Запрос «Эффективность защиты» в режиме конструктора представлен на рис. 27.



Рис. 27 Запрос «Эффективность защиты» в режиме конструктора

Условие расчета показателя эффективности защиты представлено ниже (рис. 28).

Рис. 28 Расчет показателя «Неэффективность защиты»

Запрос «Получение списка текущих клиентов для конкретного адвоката» выводит список клиентов выбранного адвоката. Запрос «Получение списка текущих клиентов для конкретного адвоката» является запросом с параметром. В качестве параметра выступает ФИО адвоката. При запуске запроса пользователю необходимо ввести параметр ФИО адвоката.

Запрос «Получение списка текущих клиентов для конкретного адвоката» в режиме конструктора представлен на рис. 29.

Рис. 29. Запрос «Получение списка текущих клиентов для конкретного адвоката» в режиме конструктора

Запрос «Сведения об архивных делах текущих клиентов» выводит список архивных дел, по которым обвинялись клиенты, обратившиеся в фирму за защитой по текущим делам.

Запрос «Сведения об архивных делах текущих клиентов» в режиме конструктора представлен на рис. 30.

Рис. 30 Запрос «Сведения об архивных делах текущих клиентов» в режиме конструктора



Для определения суммы гонорара по делам за текущий год, используется 2 запроса:

· подготовительный - Запрос «Сумма гонорара по делам (подготов)» выводит сумму гонораров по каждому заседанию дела, состоявшегося в 2012 году.

· основной - Запрос «Сумма гонорара по делам» выводит сумму гонораров по делам за 2012 год, на основе данных, полученных в подготовительном запросе.

Запрос «Сумма гонорара по делам (подготов)» в режиме конструктора представлен на рис. 31.

Рис. 31. Запрос «Сумма гонорара по делам (подготов)» в режиме конструктора

Запрос «Сумма гонорара по делам» в режиме конструктора представлен на рис. 32.



Рис. 32 Запрос «Сумма гонорара по делам» в режиме конструктора

Рассмотрим отчеты, созданные в базе данных.

Отчет «Адвокаты» строится на запросе «Получение списка текущих клиентов для конкретного адвоката» с параметром ФИО адвоката.

Внешний вид отчета в режиме конструктора представлен на рисунке 33.

Рис. 33 Отчет «Адвокаты» в режиме конструктора

Отчет «Дела в производстве» имеет сложную структуру и состоит из главного и подчиненного отчета. Главный отчет - «Дела в производстве», подчиненный отчет «Судебные заседания». Отчеты связаны друг с другом по полю «Номер дела». Каждой записи в главном отчете соответствует одна и более записей в подчиненной. Такое положение отражает тот факт, что каждое судебное дело может рассматриваться более чем 1 раз в различных судах до вынесения окончательного приговора.

Внешний вид отчета «Дела в производстве» в режиме конструктора представлен на рисунке 34.

Рис. 34 Отчет «Дела в производстве» в режиме конструктора

Отчет «Неэффективность защиты» строится на запросе «Неэффективность защиты».

Внешний вид отчета «Неэффективность защиты» в режиме конструктора представлен на рисунке 35.



Рис. 35 Отчет «Неэффективность защиты» в режиме конструктора

Отчет «Эффективность защиты» строится на запросе «Эффективность защиты».

Внешний вид отчета «Эффективность защиты» в режиме конструктора представлен на рисунке 37.

Рис. 36 Отчет «Эффективность защиты» в режиме конструктора

Отчет «Сведения об архивных делах текущих клиентов» строится на запросе «Сведения об архивных делах текущих клиентов».

Внешний вид отчета «Сведения об архивных делах текущих клиентов » в режиме конструктора представлен на рисунке 37.

Рис. 37. Отчет «Сведения об архивных делах текущих клиентов» в режиме конструктора

Отчет «Сумма гонораров по делам» строится на запросе «Сумма гонораров по делам».

Внешний вид отчета «Сумма гонораров по делам» в режиме конструктора представлен на рисунке 38.

Рис. 38 Отчет «Сумма гонораров по делам» в режиме конструктора



1.7 Программная реализация БД

В ходе разработки базы данных адвокатов были использованы возможности MSAccess 2010 по созданию макросов и модулей. Программные возможности MSAccess 2010 применялись для навигации по формам, таблицам и запросам БД.

Access, как и любая другая развитая программная система, обладает средствами разработки программных приложений, ориентированных на конечных пользователей. Эти средства базируются на инструментах двух типов: макросах и модулях. Само понятие макроса подразумевает наличие набора некоторых стандартных команд системы, или макрокоманд (допустим, таких, как открытие формы, выполнение запроса, вывод отчета), из которых и конструируется сам макрос.

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

Особый интерес вызывает механизм вызова макросов в Access. Для этого существует две принципиальных возможности [15]:

· вызов макроса по команде пользователя (либо непосредственно из раздела Макросы главного окна базы данных, либо с помощью меню или панели инструментов, с которыми он также может быть ассоциирован)

· вызов макроса по некоторому системному событию (открытие или закрытие формы, изменение управляющего элемента и т. п.)

Весьма полезной представляется возможность организовать автоматическое выполнение ряда действий при открытии базы данных. Для этого они должны быть описаны в специальном макросе с именем Autoexec.

На рис. показана привязка разработанного макроса к событию "Нажатие кнопки" для формы «Адвокаты».

Рис. 39. Обработка события «Нажатие кнопки»

Модули, в отличие от макросов, являются более тонким и мощным средством создания программных расширений в среде Access, максимально приближающимся по своим функциональным возможностям к таким профессиональным инструментам, как Delphi, Visual Basic или Power Builder. Одновременно применение модулей требует от пользователя навыков и квалификации программиста, а также знания основных принципов объектно-ориентированного программирования.

Для программирования в Access используется процедурный язык Visual Basic для приложений (VBA- Visual Basic for Applications) с добавлением объектных расширений и элементов SQL. Сам процесс создания программных расширений в среде Access предполагает активное использование технологии объектно-ориентшрованного программирования (ООП). В основе ООП лежит идея "упакованной функциональности", в соответствии с которой программа строится из фундаментальных сущностей, называемых объектами. Каждый из объектов характеризуется набором свойств (англ, -property) и операций, которые он может выполнять (англ,- method). Реализация взаимодействий между объектами ложится на исполняющую cpеду того средства разработки, на котором пишется программа, и поэтому работа программиста в рамках технологии ООП сводится к созданию объектов, описанию их свойств и реакций на те иди иные внешние события.

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

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

· наследование - предусматривает создание новых классов на базе существующих, что дает возможность классу-потомку иметь (наследовать) все свойства класса-родителя

· полиморфизм - (от греч. "многоликость") означает, что порожденные объекты обладают информацией о том, какие методы они должны использовать в зависимости от того, где они находятся в цепочке наследования

· модульность - объекты заключают в себе полное определение их характеристик, никакие определения методов и свойств объекта не должны располагаться вне его, что делает возможным свободное копирование и внедрение одного объекта в другие

Многие программные объекты в Access совпадают с физическими объектами базы данных, такими как таблицы, формы, отчеты. Для названия составных объектов, которые включают в себя совокупность более простых объектов, используется термин семейство. Например, объект отчет входит в семейство отчеты. Помимо "видимых" объектов существует и большое количество "скрытых" объектов, управлять которыми можно только из программных приложений.

В Access существуют два типа модулей: стандартные и модули класса. Стандартные модули содержат процедуры и функции, которые могут быть вызваны из любого окна базы данных. Как правило, такие модули содержат программный код универсального характера, предназначенный для применения в различных местах текущего приложения или даже в различных приложениях [17].

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

Модули форм и модули отчетов являются модулями класса, связанными с определенной формой или отчетом. Заметим, что в ранних версиях Access они являлись единственно возможным инструментом объектно-ориентированного программирования. Эти модули содержат процедуры обработки событий, запускаемых в ответ на их возникновение в форме или отчете. Процедуры обработки событий используются для управления поведением формы или отчета и их откликом на события, например такие, как нажатие кнопки.

Важнейшей областью применения объектно-ориентированного программирования в Access является программирование доступа к данным. Для решения данной задачи фирмой Microsoft был разработан специальный интерфейс - DАО (Data Access Objects).

DAO - это набор объектных классов, которые моделируют структуру реляционной базы данных. Они обеспечивают свойства и методы, которые позволяют выполнять такие операции, как создание базы данных, определение таблиц и индексов, задание связей между таблицами, формирование запросов и отчетов и т. п. Существенным достоинством объектной модели DAO является ее универсальный характер: она доступна для большинства средств разработки программного обеспечения, поддерживаемых Microsoft, в частности, для Visual Basic. Классы объектов доступа к данным организованы по иерархической схеме. На ее вершине находится объект DbEngine, представляющий собой ядро базы данных. Далее следуют объекты, отвечающие за управление сеансами доступа пользователя к данным, - Workspace (от англ, "рабочая область"). Каждая рабочая область включает один или несколько объектов класса база данных - Database, а они, в свою очередь, содержат семейства объектов таблиц (TableDef), запросов (QueryDef), наборов записей (RecordSet) и т. д.

Пример модуля, используемого при разработке БД «Адвокатской фирмы» приведен на рис. 40.

Рис. 40. Пример Модуля «Макрос1» БД «Адвокатской фирмы»



ЗАКЛЮЧЕНИЕ

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

Разработка БД адвоката в данной контрольной работе проведена по следующей схеме:

· проанализирована предметная область деятельности адвокатской фирмы. Рассмотрены назначения и функции адвокатской фирмы. Выявлены основные проблемы, связанные с деятельностью брокерской фирмы. Определены вопросы на которые должна отвечать созданная база данных, приведен список пользователей, которые будут работать с созданной базой данных;

· на основе проведенного анализа построены модели предметной области, описанные с помощью методологий IDEF0, DFD, IDEF3 с помощью BPWIN;

· разработана инфологическая модель предметной области в нотации Чена;

· проведена нормализация отношений в БД адвокаты, с целью получения отношений в 3НФ;

· спроектирована схема данных в СУБД MS AСCESS 2010;

· разработан интерфейс базы данных: таблицы, запросы, формы для ввода данных и запросы;

· произведено описание разработанной базы данных с демонстрацией структуры форм, запросов и отчетов.



СПИСОК ИСПОЛЬЗУЕМОЙ ЛИТЕРАТУРЫ

1. Адвокатская деятельность:Учебно-практическое пособие / Под общ.ред. канд. юр. наук В.Н. Буробина. - Изд. 2-е, перераб. и допол. - М.: «ИКФ «ЭКМОС», 2003. - 624 с.

2. Адвокатура в России: Учебник для вузов (под ред. д.ю.н., проф. В.И. Сергеева). - 4-е изд., перераб. и доп. - М.: "Юстицинформ", 2011.

3. Адвокатская деятельность: Учебно-практическое пособие / под ред. В.Н. Буробина. - М.: Юстина, 2003.

4. Мельниченко Р.Г. Адвокатура: учебное пособие. - М.: ИТК "Дашков и К", 2009.

5. Смирнов В.Н., Смыкалин А.С. Адвокатура и адвокатская деятельность: Учебное пособие. - М.: Проспект, 2010.

6. Бойков А.Д., Капинус Н.И., Тарло Е.Г. Адвокатура в России. - М.: Камерон, 2010.

7. Кучерена А.Г. Адвокатура в условиях судебно-правовой реформы в Российской Федерации: Монография. - М.: Юркомпания, 2009.

8. Барщевский М.Ю.Организация и деятельность адвокатуры в России. - М.: Юристъ, 1997;

9. Буробин В.Н.Российская адвокатура в XXI веке // Бизнес-Адвокат. 2000. № 3 (75);

10. Резник Г.М. Адвокатура в постсоветском обществе // Адвокат. 1998. № 11 (89).

11. КарповаТ.С. Базы Данных,Спб: Питер, 2009 - 340 с.

12. Диго С. М. Проектирование и использование баз данных (учебник) - М: Ф и С, 2009 г -208 с.

13.Хомоненко А Д, Цыганков В М, Мальцев М Г Базы данных (учебник для ВУЗов) - СПб:КОРОНАпринт , 2009 - 736 с

14. Вендров А М Case-технологии Современные методы и средства проектированияинформационных систем - М.:Фи С, 2010

15. Дейт К Введение в системы баз данных 6-ое изд пер с англ . М- СПб - К .: изд. дом"Вильяме" , 2007 - 848с

16. Грабер МS SQL Справочное руководством.: "Лори", 2007 - 291 с

17. Грекул В.И., Денишенко Г.Н., Коровкина Н.Л. Проектирование информационных систем,М.: Интернет-Ун-т Информ технологий, 2005 - 304

18. Рубцов С. В. Уточнение понятия «бизнес- процесс». // Менеджмент в России и за рубежом, 2001, 6, 26-33 - URL: http://or-rsv.narod.ru/Book/Book_3_0.htm#Refining_of_BP

19. Mayer R. J., Menzel C. P., Painter M. K., deWitte P. S., et al.Information Integration For Concurrent Engineering (IICE). IDEF3 Process Description Capture Method Report. - Wright-Patterson Air Force Base, Ohio: Air Force Materiel Command, 1995.- 235.



ПРИЛОЖЕНИЕ 1.

ПРИМЕРЫ ВХОДНЫХ И ВЫХОДНЫХ ДАННЫХ

Входные данные:

Таблица «Адвокаты»

Таблица «Архив»

Таблица «Вид нарушений»



Таблица «Виды наказания по статьям»

Таблица «Дела в производстве»

Таблица «Клиенты»

Таблица «Расшифровка статей»



Таблица «Справочник судов»

Таблица «Судебные заседания»

Таблица «Судьи»



Таблица «Тип приговора»

Выходные данные:

Отчет «Адвокаты»



Отчет «Дела в производстве»



Отчет «Неэффективность защиты»

Отчет «Сведения об архивных делах текущих клиентов»



Отчет «Сумма гонорара по делам»

Отчет «Эффективность защиты»



Формы интерфейса

Форма «Адвокаты»

Форма «Архив»

Форма «Вид нарушений»



Форма «Виды наказания по статьям»

Форма «Главная форма»

Форма «Запросы»



Форма «Дела в производстве»

Форма «Клиенты»



Форма «Отчеты»

Форма «Расшифровка статей»

Форма «Справочник судов»



Форма «Справочник судов»

Форма «Тип приговора»



Форма «Формы»



ПРИЛОЖЕНИЕ 2

Описание принципа работы с реализованной ИС

Разработанная в ходе написания контрольной работы БД Адвоката предназначена для использования в небольшой адвокатской фирме, занимающейся делами по административным и уголовным правонарушениям.

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

БД содержит две основных таблицы, в которых хранится информация о судебных делах: «Дела в производстве» и «Архив».

Дела в производстве - это текущие дела, по которым окончательный приговор не внесен. Архив - законченные дела с указанием наказания и статьи, примененной к обвиняемому.

Навигация в базе данных очень проста и понятна. При открытии файла БД Адвокаты, автоматически загружается главная форма, в которой можно выбрать тип объекта, с которым необходимо работать: таблицы, запросы, формы, отчеты. Выбор производится нажатием на кнопку «Таблицы», «Запросы», «Формы», «Отчеты».

При выборе кнопки «Таблицы» запускается форма «Таблицы» на которой можно выбрать кнопку с именем любой таблицы, которая откроется в режиме редактирования/просмотра.

При выборе кнопки «Запросы» запускается форма «Запросы», на которой можно выбрать кнопку с именем любого запроса, который откроется в режиме редактирования/просмотра.

При выборе кнопки «Формы» запускается форма «Формы», на которой можно выбрать кнопку с именем любого отчета, которая откроется в режиме просмотра/добавления записей.

При выборе кнопки «Отчеты» запускается форма «Отчеты», на которой можно выбрать кнопку с именем любой формы ввода, которая откроется в режиме просмотра.

Принцип работы с базой данных заключается в следующем. При обращении нового клиента в фирму он заносится в базу данных в таблицу «Клиенты» (через форму ввода «Клиенты»), подробности его дела заносятся в таблицу «Дела в производстве» (через форму ввода «Дела в производстве»). После того, как выбран адвокат по делу, информация об адвокате также заносится в «Дела в производстве». Каждое прошедшее судебное слушанье записывается в таблицу «Судебные заседания» (через форму ввода «Дела в производстве»). Благодаря тому, что форма «Дела в производстве имеет сложную структуру и базируется на 2 таблицах, вся информация по текущему делу и заседаниях по нему заносится в нее.

После вынесения окончательного приговора информация по делу переносится в таблицу «Архив» (через форму ввода «Архив») и удаляется из таблицы «Дела в производстве» (через форму ввода «Дела в производстве»). В таблицу «Архив» заносится также информация о типе наказания, сроке или штрафе.

В ходе работы с базой данных периодически возникает потребность в пополнении справочной информации: справочника судов, судей, расшифровки статей и видов наказаний по статьям. Все эти сведения вносятся в одноименные справочные таблицы, через формы ввода «Справочник судов», «Судьи», «Расшифровки статей», «Расшифровки наказаний по статьям».

На основе хранимой в базе данных информации можно получить следующие сведения:

· Об эффективности защиты (Отчет «Эффективность защиты»);

· Об неэффективности защиты (Отчет «Неэффективность защиты»);

· О текущих клиентах конкретного адвоката (Отчет «Адвокаты»);

· Об архивных делах текущих клиентов (Отчет «Сведения об архивных делах текущих клиентов»);

· О гонораре адвокатов за текущий год (Отчет «Сумма гонорара по делам»);

· Сведения о текущих делах и заседаниях, прошедших по ним (Отчет «Дела в производстве»).



ПРИЛОЖЕНИЕ 3

Генерация БД из Erwin в Access 2010

CREATE TABLE Адвокат

(

Код_адвоката INTEGER NULL,

ФИО_адвоката VARCHAR(20) NULL,

Дата_рождения DATE NULL,

Стаж_работы INTEGER NULL,

Комментарий VARCHAR(20) NULL,

Тариф INTEGER NULL

)

;

ALTER TABLE Адвокат

ADD PRIMARY KEY (Код_адвоката)

;

CREATE TABLE Архивные_дела

(

Номер_дела INTEGER NULL,

Код_клиента INTEGER NOT NULL,

Код_адвоката INTEGER NOT NULL,

Код_судьи INTEGER NOT NULL,

Код_суда INTEGER NOT NULL,

Код_статьи INTEGER NULL,

Код_типа_приговора INTEGER NULL,

Приговор_суда VARCHAR(20) NULL

)

;

ALTER TABLE Архивные_дела

ADD PRIMARY KEY (Номер_дела,Код_клиента,Код_адвоката,Код_судьи,Код_суда)

;

CREATE TABLE Дела_в_производстве

(

Номер_дела INTEGER NULL,

Код_клиента INTEGER NOT NULL,

Код_адвоката INTEGER NOT NULL,

Код_судьи INTEGER NOT NULL,

Код_суда INTEGER NOT NULL,

Код_вида_нарушения INTEGER NULL,

Стадия_дела VARCHAR(20) NULL,

Номер_заседания INTEGER NULL,

Дата_заседания DATE NULL,

Дальнейшее_рассмотрение VARCHAR(20) NULL

Гонорар_адвоката INTEGER NULL

)

;

ALTER TABLE Дела_в_производстве

ADD PRIMARY KEY (Номер_дела,Код_клиента,Код_адвоката,Код_судьи,Код_суда)

;

CREATE TABLE Клиент

(

Код_клиента INTEGER NULL,

ФИО_клиента VARCHAR(20) NULL,

Дата_рождения DATE NULL,

Адрес VARCHAR(20) NULL,

Дата_обращения DATE NULL

)

;

ALTER TABLE Клиент

ADD PRIMARY KEY (Код_клиента)

;

CREATE TABLE Суд

(

Код_суда INTEGER NULL,

Наименование VARCHAR(20) NULL,

Адрес VARCHAR(20) NULL

)

;

ALTER TABLE Суд

ADD PRIMARY KEY (Код_суда)

;

CREATE TABLE Судья

(

Код_судьи INTEGER NULL,

Код_суда INTEGER NOT NULL,

ФИО_судьи VARCHAR(20) NULL,

Дата_рождения DATE NULL,

Стаж VARCHAR(20) NULL

)

;

ALTER TABLE Судья

ADD PRIMARY KEY (Код_судьи,Код_суда)

;

ALTER TABLE Архивные_дела

ADD FOREIGN KEY R_1 (Код_клиента) REFERENCES Клиент(Код_клиента)

;

ALTER TABLE Архивные_дела

ADD FOREIGN KEY R_4 (Код_судьи,Код_суда) REFERENCES Судья(Код_судьи,Код_суда)

;

ALTER TABLE Архивные_дела

ADD FOREIGN KEY R_5 (Код_адвоката) REFERENCES Адвокат(Код_адвоката)

;

ALTER TABLE Дела_в_производстве

ADD FOREIGN KEY R_6 (Код_клиента) REFERENCES Клиент(Код_клиента)

;

ALTER TABLE Дела_в_производстве

ADD FOREIGN KEY R_8 (Код_адвоката) REFERENCES Адвокат(Код_адвоката)

;

ALTER TABLE Дела_в_производстве

ADD FOREIGN KEY R_9 (Код_судьи,Код_суда) REFERENCES Судья(Код_судьи,Код_суда)

;

ALTER TABLE Судья

ADD FOREIGN KEY R_3 (Код_суда) REFERENCES Суд(Код_суда)

;

Макросы для кнопок «Главной формы».

Макрос открытия формы «Таблицы»:

PrivateSubТаблицы_Click()

DoCmd.OpenForm "Таблицы", acNormal, "", "", ,acNormal

EndSub

Макрос открытия формы «Запросы»:

Private Sub Запросы_Click()

DoCmd.OpenForm "Запросы", acNormal, "", "", ,acNormal

EndSub

Макрос открытия формы «Формы»:

Private Sub Формы_Click()

DoCmd.OpenForm "Формы", acNormal, "", "", ,acNormal

EndSub

Макрос открытия формы «Отчеты»:

Private Sub Отчеты_Click()

DoCmd.OpenForm "Отчеты", acNormal, "", "", ,acNormal

EndSub

Макросы для кнопок формы «Таблицы»

Макрос для просмотра таблицы «Адвокаты»:

Private Sub Адвокаты_Click()

DoCmd.OpenTable "Адвокаты", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Архив»:

Private Sub Архив_Click()

DoCmd.OpenTable "Архив", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Виды наказаний по статьям»:

PrivateSubВиды__наказаний_Click()

DoCmd.OpenTable "Виды наказаний по статьям", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Виды нарушений»:

PrivateSubВиды_нарушений_Click()

DoCmd.OpenTable "Виды нарушений", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Дела в производстве»:

PrivateSubДела_Click()

DoCmd.OpenTable "Делавпроизводстве", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Судебные заседания»:

PrivateSubЗаседания_Click()

DoCmd.OpenTable "СудебныеЗаседания", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Клиенты»:

Private Sub Клиенты_Click()

DoCmd.OpenTable "Клиенты", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Тип приговора»:

Private Sub Пригор_тип_Click()

DoCmd.OpenTable "Типприговора", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Расшифровка статей»:

PrivateSubРасшифровка_Click()

DoCmd.OpenTable "Расшифровкастатей", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Справочник судов»:

Private Sub Суды_Click()

DoCmd.OpenTable "Справочниксудов", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Судьи»:

Private Sub Судьи_Click()

DoCmd.OpenTable "Судьи", acViewNormal, acEdit

EndSub

Макросы для кнопок формы «Запросы»

Макрос для просмотра таблицы «Сведения об архивных делах текущих клиентов»:

Private Sub Арх_дела_Click()

DoCmd.OpenQuery "Сведенияобархивныхделахтекущихклиентов", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Сумма гонораров по делам»:

PrivateSubГонорар_Click()

DoCmd.OpenQuery "Суммагонорараподелам", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Неэффективность защиты»:

Private Sub Неэфф_защиты_Click()

DoCmd.OpenQuery "Неэффективностьзащиты", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Получение списка текущих клиентов для конкретного адвоката»:

PrivateSubТекКлиенты_Click()

DoCmd.OpenQuery "Получение списка текущих клиентов для конкретного адвоката", acViewNormal, acEdit

EndSub

Макрос для просмотра таблицы «Эффективность защиты»:

Private Sub Эфф_защ_Click()

DoCmd.OpenQuery "Эффективностьзащиты", acViewNormal, acEdit

EndSub

Макросы для кнопок формы «Формы»

Макрос для просмотра формы «Адвокаты»:

Private Sub Адвокаты_Click()

DoCmd.OpenForm "Адвокаты", acNormal

EndSub

Макрос для просмотра формы «Архив»:

Private Sub Архив_Click()

DoCmd.OpenForm "Архив", acNormal

EndSub

Макрос для просмотра формы «Дела в производстве»:

PrivateSubДела_Click()

DoCmd.OpenForm "Делавпроизводстве", acNormal

EndSub

Макрос для просмотра формы «Клиенты»:

Private Sub Клиенты_Click()

DoCmd.OpenForm "Клиенты", acNormal

End Sub

Private Sub Наказания_Click()

DoCmd.OpenForm "Видынаказанийпостатьям", acNormal

EndSub

Макрос для просмотра формы «Виды наказаний по статьям»:

PrivateSubНарушения_Click()

DoCmd.OpenForm "Видынарушений", acNormal

EndSub

Макрос для просмотра формы «Расшифровка статей»:

PrivateSubРасшифровка_Click()

DoCmd.OpenForm "Расшифровкастатей", acNormal

EndSub

Макрос для просмотра формы «Справочник судов»:

Private Sub Суды_Click()

DoCmd.OpenForm "Справочниксудов", acNormal

EndSub

Макрос для просмотра формы «Судьи»:

Private Sub Судьи_Click()

DoCmd.OpenForm "Судьи", acNormal

EndSub

Макрос для просмотра формы «Тип приговора»:

Private Sub Тип_приговора_Click()

DoCmd.OpenForm "Типприговора", acNormal

End Sub

Макросыдлякнопокформы «Отчеты»

Макрос для просмотра отчета «Адвокаты»:

Private Sub Адвокаты_Click()

DoCmd.OpenReport "Адвокаты", acViewReport

EndSub

Макрос для просмотра отчета «Сведения об архивных делах»:

PrivateSubАрхив_Click()

DoCmd.OpenReport "Сведенияобархивныхделах", acViewReport

EndSub

Макрос для просмотра отчета «Сумма гонорара по делам»:

PrivateSubГонорар_Click()

DoCmd.OpenReport "Суммагонорараподелам", acViewReport

EndSub

Макрос для просмотра отчета «Делам в производстве»:

PrivateSubДела_Click()

DoCmd.OpenReport "Дела в производстве", acViewReport

EndSub

Макрос для просмотра отчета «Неэффективность защиты»:

PrivateSubНеэффективность_Click()

DoCmd.OpenReport "Неэффективностьзащиты", acViewReport

EndSub

Макрос для просмотра отчета «Эффективность защиты»:

PrivateSubЭффективность_Click()

DoCmd.OpenReport "Эффективностьзащиты", acViewReport

EndSub

Option Compare Database

'------------------------------------------------------------

' Макрос1

'

'------------------------------------------------------------

Function Макрос1()

On Error GoTo Макрос1_Err

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

DoCmd.OpenQuery "Неэффективность защиты", acViewNormal, acEdit

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

Макрос1_Exit:

Exit Function

Макрос1_Err:

MsgBox Error$

Resume Макрос1_Exit

End Function

Option Compare Database

'------------------------------------------------------------

' Макрос12

'

'------------------------------------------------------------

Function Макрос12()

On Error GoTo Макрос12_Err

DoCmd.OpenForm "Таблицы", acNormal, "", "", , acNormal

Макрос12_Exit:

Exit Function

Макрос12_Err:

MsgBox Error$

Resume Макрос12_Exit

End Function

Option Compare Database

'------------------------------------------------------------

' Макрос13

'

'------------------------------------------------------------

Function Макрос13()

On Error GoTo Макрос13_Err

DoCmd.OpenForm "Запросы", acNormal, "", "", , acNormal

Макрос13_Exit:

Exit Function

Макрос13_Err:

MsgBox Error$

Resume Макрос13_Exit

End Function

Запросы

SELECT Клиенты.ФИО_клиента, Клиенты.[Дата рождения], Клиенты.Адрес, Клиенты.[Дата обращения], Адвокаты.ФИО_адвоката, Адвокаты.[Дата рождения], Адвокаты.[Стаж работы], Адвокаты.Комментарий, Адвокаты.Тариф, Судьи.ФИО, Судьи.[Дата рождения], Судьи.Стаж, [Справочник судов].[Наименование суда], [Справочник судов].Адрес, [Дела в производстве].[Стадия дела], [Дела в производстве].[Номер дела], [Судебные заседания].[Номер заседания], [Судебные заседания].[Дата заседания], [Судебные заседания].[Дальнейшее рассмотрение], [Судебные заседания].[Гонорар адвоката]

FROM [Тип приговора] INNER JOIN (Судьи INNER JOIN ([Справочник судов] INNER JOIN ((((Клиенты INNER JOIN ([Вид нарушений] INNER JOIN (Адвокаты INNER JOIN [Дела в производстве] ON Адвокаты.Код_адвоката = [Дела в производстве].[Код адвоката]) ON [Вид нарушений].[Код вида нарушения] = [Дела в производстве].[Код вида нарушения]) ON Клиенты.[Код клиента] = [Дела в производстве].[Код клиента]) INNER JOIN [Расшифровка статей] ON [Вид нарушений].[Код вида нарушения] = [Расшифровка статей].[Код вида нарушения]) INNER JOIN [Виды наказания по статьям] ON [Расшифровка статей].[Номер статьи] = [Виды наказания по статьям].[Номер статьи]) INNER JOIN [Судебные заседания] ON [Дела в производстве].[Номер дела] = [Судебные заседания].[Номер дела]) ON [Справочник судов].[Код суда] = [Судебные заседания].[Код суда]) ON Судьи.[Код судьи] = [Судебные заседания].[Код судьи]) ON [Тип приговора].[Код типа приговора] = [Виды наказания по статьям].[Код типа приговора];

SELECT Архив.[Номер дела], Адвокаты.ФИО_адвоката, Архив.[Приговор суда], [Тип приговора].Размерность, IIf([Приговор суда]=0,0,(IIf([Виды наказания по статьям].[Код типа приговора]=4,([Приговор суда]-[Минимальное наказание]/2),([Приговор суда]-[Минимальное наказание])))) AS [Неэффективность защиты]

FROM [Тип приговора] INNER JOIN (([Расшифровка статей] INNER JOIN (Адвокаты INNER JOIN Архив ON Адвокаты.Код_адвоката = Архив.[Код адвоката]) ON [Расшифровка статей].[Номер статьи] = Архив.[Код статьи]) INNER JOIN [Виды наказания по статьям] ON [Расшифровка статей].[Номер статьи] = [Виды наказания по статьям].[Номер статьи]) ON ([Тип приговора].[Код типа приговора] = [Виды наказания по статьям].[Код типа приговора]) AND ([Тип приговора].[Код типа приговора] = Архив.[Код типа приговора]);

SELECT Адвокаты.ФИО_адвоката, Клиенты.ФИО_клиента

FROM Клиенты INNER JOIN (Адвокаты INNER JOIN [Дела в производстве] ON Адвокаты.Код_адвоката = [Дела в производстве].[Код адвоката]) ON Клиенты.[Код клиента] = [Дела в производстве].[Код клиента]

WHERE (((Адвокаты.ФИО_адвоката) Like "*" & [Введите фамилию адвоката] & "*"));

SELECT Адвокаты.Код_адвоката, Адвокаты.ФИО_адвоката, Клиенты.ФИО_клиента, Архив.[Номер дела], Архив.[Код статьи], [Расшифровка статей].[Название статьи], Архив.[Приговор суда], [Тип приговора].Размерность

FROM [Расшифровка статей] INNER JOIN ([Тип приговора] INNER JOIN ((Клиенты INNER JOIN (Адвокаты INNER JOIN Архив ON Адвокаты.Код_адвоката = Архив.[Код адвоката]) ON Клиенты.[Код клиента] = Архив.[Код клиента]) INNER JOIN [Дела в производстве] ON (Клиенты.[Код клиента] = [Дела в производстве].[Код клиента]) AND (Адвокаты.Код_адвоката = [Дела в производстве].[Код адвоката])) ON [Тип приговора].[Код типа приговора] = Архив.[Код типа приговора]) ON [Расшифровка статей].[Номер статьи] = Архив.[Код статьи];

SELECT [Сумма гонорара по делам (подготов)].Код_адвоката, [Сумма гонорара по делам (подготов)].ФИО_адвоката, [Сумма гонорара по делам (подготов)].[Номер дела], Sum([Сумма гонорара по делам (подготов)].[Sum-Гонорар адвоката]) AS Гонорар

FROM [Сумма гонорара по делам (подготов)]

GROUP BY [Сумма гонорара по делам (подготов)].Код_адвоката, [Сумма гонорара по делам (подготов)].ФИО_адвоката, [Сумма гонорара по делам (подготов)].[Номер дела];

SELECT Адвокаты.Код_адвоката, Адвокаты.ФИО_адвоката, [Дела в производстве].[Номер дела], Sum([Судебные заседания].[Гонорар адвоката]) AS [Sum-Гонорар адвоката], [Судебные заседания].[Дата заседания]

FROM (Адвокаты INNER JOIN [Дела в производстве] ON Адвокаты.Код_адвоката = [Дела в производстве].[Код адвоката]) INNER JOIN [Судебные заседания] ON [Дела в производстве].[Номер дела] = [Судебные заседания].[Номер дела]

GROUP BY Адвокаты.Код_адвоката, Адвокаты.ФИО_адвоката, [Дела в производстве].[Номер дела], [Судебные заседания].[Дата заседания]

HAVING ((([Судебные заседания].[Дата заседания]) Between #1/1/2012# And #12/31/2012#));

SELECT Архив.[Номер дела], Адвокаты.ФИО_адвоката, Архив.[Приговор суда], [Тип приговора].Размерность, IIf([Приговор суда]=0,([Максимальное наказание]*2),(IIf([Виды наказания по статьям].[Код типа приговора]=4,([Максимальное наказание]+3-[Приговор суда]),([Максимальное наказание]-[Приговор суда])))) AS [Эффективность защиты]

FROM [Тип приговора] INNER JOIN (([Расшифровка статей] INNER JOIN (Адвокаты INNER JOIN Архив ON Адвокаты.Код_адвоката = Архив.[Код адвоката]) ON [Расшифровка статей].[Номер статьи] = Архив.[Код статьи]) INNER JOIN [Виды наказания по статьям] ON [Расшифровка статей].[Номер статьи] = [Виды наказания по статьям].[Номер статьи]) ON ([Тип приговора].[Код типа приговора] = [Виды наказания по статьям].[Код типа приговора]) AND ([Тип приговора].[Код типа приговора] = Архив.[Код типа приговора]);

SELECT [Судебные заседания].[Номер заседания], [Судебные заседания].[Номер дела], [Судебные заседания].[Дата заседания], [Судебные заседания].[Код суда], [Судебные заседания].[Код судьи], [Судебные заседания].[Дальнейшее рассмотрение], [Судебные заседания].[Гонорар адвоката]

FROM [Справочник судов] INNER JOIN (Судьи INNER JOIN [Судебные заседания] ON Судьи.[Код судьи] = [Судебные заседания].[Код судьи]) ON [Справочник судов].[Код суда] = [Судебные заседания].[Код суда];

Размещено на Allbest.ur