1:С "Бухгалтерия"

1. Теоретическая часть

«Автоматизированная обработка информации по управлению трудовыми ресурсами»

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

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

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

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

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

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

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

· Учет и администрирование персонала, расчеты с персоналом;

· Индикация отклонений в кадровых процессах;

· Управление квалификационным уровнем кадрового потенциала;

· Управление затратами на персонал и социальную политику в компании;

· Управление пенсионным страхованием;

· Управление компенсациями и бонусами, мотивацией, карьерным ростом;

· Управление подбором и оценкой персонала, кадровым резервом;

· Анализ и моделирование кадровых процессов предприятия, холдинга.

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

· Системы электронного документооборота;

· Системы тестирования при поборе кандидатов на вакантные позиции;

· Компьютерные деловые игры;

· Электронный рекрутинг (посредством Internet - ресурсов);

· Системы управления знаниями (электронное обучение);

· Экспертные системы (профессиографические портреты, профориентация, групповой анализ состояния персонала, выявление тенденций развития отдельных подразделений и организации в целом и пр.);

· Комплексные системы автоматизации управления персоналом.

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

Современный российский руководитель понимает, что автоматизированная система управления персоналом должна обеспечивать:

Полное соответствие российскому трудовому законодательству;

Использование адаптированных современных методик управления человеческими ресурсами предприятия;

Соответствие требованиям международных стандартов серии ISO 9000:2000 в части поддержки ресурсного и процессного подходов к решению задач управления человеческими ресурсами;

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

Гарантированный прозрачный доступ и оперативное управление корпоративной организационной структурой, процессами кадрового менеджмента;

Достижение максимального эффекта автоматизации системы управления человеческими ресурсами при оптимальных затратах на ее создание;

Возможность развития системы управления человеческими ресурсами в соответствии с изменениями задач и масштабов бизнеса.

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

Так, например, исследователи просчитали следующие статистические данные, подтверждающие необходимость автоматизации управления персоналом. Статистика гласит, что на одного работающего в компании человека специалистами HR-службы ежемесячно выполняется в среднем 25 функциональных задач, а при количестве персонала 1000 человек можно посчитать, сколько времени им понадобится на одну операцию: 1000 чел.=25000 задач/мес.=300000 задач/год. В среднем служба управления персоналом состоит из 5 сотрудников (на 1000 работающих в организации).

Таким образом,1 специалист HR = 60000 задач/год = 164 задачи/день = 20 задач/час = 1 задача/3 мин, т.е. за 3 минуты специалисту нужно, например, выбрать кандидата на работу, назначить ему собеседование, провести это собеседование или тестирование и принять человека на работу, а потом составить отчет о проведенном мероприятии. А при отсутствии единой автоматизированной системы управления сотрудник просто не в состоянии выполнить подобный объем работы, что приводит к необоснованному увеличению штата специалистов. Необходимость внедрения современных информационных технологий вытекает, прежде всего, из экономической выгоды и эффективности для самой компании.

Функциональные преимущества систем управления персоналом можно разделить на три большие категории. Первая и самая распространенная функция - регламентационная направленность. Это, прежде всего, кадровый учет сотрудников: в информационную систему заносятся все данные о каждом служащем (номер паспорта, прописка, ИНН и т.д.), и кадровик может нажатием одной кнопки на компьютере получить исчерпывающую информацию о каждом работнике. Сюда же относится и автоматизированный расчет зарплаты сотрудников, а также всех налоговых и прочих отчислений. Второй по значимости и наиболее динамично развивающейся функцией кадровых IT-систем является их способность фактически управлять людскими ресурсами.

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

Третья функция кадровых IT-систем заключается в оценке степени реализации поставленных перед предприятием, холдингом целей. Для этого необходим специальный аналитический инструмент, с одной стороны, опирающийся на учетные данные по персоналу и результаты проведения мероприятий по управлению кадровыми процессами, с другой - предоставляющий специальные механизмы анализа всего массива данных. Другими словами этот инструмент должен позволять формировать показатели эффективности деятельности компании (KPI), в режиме реального времени отражать протекание кадровых процессов, индицировать отклонения от нормального состояния и предлагать варианты решений той или иной негативной ситуации.

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

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

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

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

· Нет связи результатов кадровой работы и результатов производства;

· Они не понимают роли персонала, как одного из основных ресурсов;

· Кадровые процессы плохо описаны и не идентифицированы;

· Руководство не понимает, почему надо делать именно так;

· У руководства не хватает ресурсов на "второстепенные" вопросы;

· Есть "более важные" задачи;

· Руководство устраивает существующий порядок вещей;

· Автоматизация приводит к снижению "значимости" руководителя, как личности.

Сопротивление сотрудников компаний автоматизации кадрового менеджмента основывается на личных причинах, квалификационно-образовательных и организационных:

· Работники не понимают сути современных управленческих процессов;

· Работники не интересуются новыми технологиями;

· Современные кадровые процессы слишком сложны;

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

· Занижены требования к качеству и результатам работы;

· Работников устраивает то, что они делают и без автоматизации;

· У работников не хватает времени на переобучение;

· Четкая регламентация кадровых процессов приведет к снижению "важности" и "нужности" работника.

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

1. Практическая часть

1) ШТРИХОВОЕ КОДИРОВАНИЕ ИНФОРМАЦИИ

1.1 Задание

а) Изучите структуру штрихового кода ЕАМ

б) Изучите алгоритм определения контрольной цифры штрих кода ЕАN 13(8)

в) Составьте блок-схему алгоритма определения контрольной цифры.

г) Составьте подпрограмму-функцию под названием CheckDigit для определения контрольной цифры в среде VВА МS Ехе1. В качестве входного параметра для функции CheckDigit используйте переменную строкового типа ВагСоdе. Таким образом, функция должна иметь вид:

Public Function CheckDigit (BarCode As String) As String

'Функция для определения контрольной цифры штрих-кода

^'последняя цифра штрихкода должна совпадать с рассчитанной

…

«Текст програмш:»

…

End Function

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

д) Откройте MS Excel и активизируйте панель инструментов Visual Basic с помощью команды Вид>Панели инструментов >Visual Basic (рис. 3).

е) Откройте окно редактора Visual Basic и создайте лист нового модуля Insert > Module (Вставка > Модуль). Сохраните модуль.

ж) На листе созданного модуля выберите в строке меню редактора Visual Basic команду Insert > Procedure (Вставка > Процедура). В результате откроется диалоговое окно Add Procedure (Вставка процедуры) (рис. 4).

з) Установите переключатель Туре (Тип) в положение Function.

к) Установите переключатель Scope (Область определения) в положение Public (Обшая).

л) Введите в поле Name (Имя) имя функции (в данном случае это должна быть строка «CheckDigit»).

м) Закройте диалоговое окно щелчком на кнопке ОК. В результате, в окно кода будет вставлена процедура-функция с заданными параметрами.

н) Полученную «заготовку» процедуры-функции необходимо отредактировать в соответствии с возлагаемыми на нее задачами. В автоматически созданной заготовке, конечно, не указан тип возвращаемого значения и параметр.

о) Проведите отладку и тестирование процедуры-функции CheckDigit в ячейках рабочей книги Excel, используя механизм функции пользователя Excel.

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

р) Оформите отчет о выполнении задания. Отчет должен содержать Контрольный пример расчета контрольной цифры для любого штрихкода EAN-13: блок-схему алгоритма процедуры-функции: текст разработанной процедуры-функции CheckDigit: распечатку рабочего листа с примерами использования процедуры-функции CheckDigit (не менее 10 строк с различными штрихкодами товаров).

1.2 Решение

1.2.1 Расчет контрольной цифры для кода ЕAN13(8) производится по следующей схеме:

1) Складываем цифры, стоящие на четных позициях, затем на нечетных позициях (Табл. 1.2.1).

Таблица 1.2.1 - Порядок сложения цифр для кода ЕAN13(8)

Номер позиции	13	12	11	10	9	8	7	6	5	4	3	2	1
Значение	4	0	1	8	9	9	3	4	0	4	7	8	7
Четные		0	+	8	+	9	+	4	+	4	+	8	=33
Нечетные	4	+	1	+	9	+	3	+	0	+	7		=24

2) Затем складываем результат сложения цифр на четных позициях, помноженный на три и результат сложения цифр на нечетных позициях:

(33 * 3) + 24 = 123

3) Контрольное число представляет собой разницу между окончательной суммой (123) и ближайшим к ней наибольшим числом, кратным десяти (в данном случае - 130):

130 - 123 = 7

4) Полученная в результате последняя семерка и соответствует контрольной цифре.

1.2.2 Блок-схема алгоритма процедуры-функции представлена на рисунках 1.2.1, 1.2.2.

Рисунок 1.2.1 - Блок-схема алгоритма процедуры-функции



Рисунок 1.2.2 - Блок-схема алгоритма функции Schet для процедуры CheckDigit

1.2.3 Текст разработанной процедуры-функции CheckDigit представлен на Листингах 1.2.1, 1.2.2

Листинг 1.2.1 - Текст разработанной функции Schet для процедуры CheckDigit

Function Schet(BarCode As String) As String

Dim N1, N2 As Integer

N1 = 0

N2 = 0

For i = 2 To Len(BarCode) Step 2

N1 = N1 + Format(Mid(BarCode, i, 1), "000.")

Next i

For i = 1 To Len(BarCode) - 1 Step 2

N2 = N2 + Format(Mid(BarCode, i, 1), "000.")

Next i

Schet = (((Int((N1 * 3 + N2) / 10) + 1) * 10) - (N1 * 3 + N2))

If Format(Schet, "000.") <> Format(Right(BarCode, 1), "000.") Then Schet = "Неверная контрольная цифра - " + Schet

End Function

Листинг 1.2.1 - Текст разработанной процедуры-функции CheckDigit

Public Function CheckDigit(BarCode As String) As String

Dim PrNaLat As Integer

PrNaLat = 0

For i = 1 To Len(BarCode)

Select Case Mid(BarCode, i, 1)

Case "0":

Case "1":

Case "2":

Case "3":

Case "4":

Case "5":

Case "6":

Case "7":

Case "8":

Case "9":

Case Else: PrNaLat = 1

End Select

Next i

If PrNaLat <> 1 Then CheckDigit = Schet(BarCode) Else CheckDigit = "Присутствует неверный знак"

If Len(BarCode) <> 13 Then CheckDigit = "Неверное количество (" + Str(Len(BarCode)) + " ) цифр"

End Function

Таблица 1.2.2 - Вид работы функции CheckDigit

Штрих код	Проверка
4018993404787	7
4534534534	Неверное количество ( 10 ) цифр
5434534535435	Неверная контрольная цифра - 4
5453453478684	4
4532437874887	7
4534538978453	Неверная контрольная цифра - 7
454567868688р	Присутствует неверный знак
123	Неверное количество ( 3 ) цифр
апраправр	Неверное количество ( 9 ) цифр
5555655555566	6
1111111111116	6
5651232333333	3
67879999977777	Неверное количество ( 14 ) цифр
1231234567895	5
1126564648775	5
5874125884228	8
6565699999997	7
86524563853	Неверное количество ( 11 ) цифр
58741258g4225	Присутствует неверный знак

2) СВОЙСТВА ИНФОРМАЦИИ

2.1 Задание 1

Рассмотрите следующие предметные области: словесность, математика, биология, география, история, а также перечень терминов и понятий.

Матрица. Широта. Долгота. Популяция. Склонение. Спряжение. Хребет. Тундра. Кровообращение. Баскак. Морское течение. Устье. Исток. Экватор. Тропики. Земная ось. Словарь. Перевод. Существительное. Прилагательное. Остров. Полуостров. Материк. Часть света. Румб. Возвышенность. Предложение. Растительность. Период. Низменность. Мыс. Архипелаг. Залив. Пролив. Море. Суша. Территория. Пустыня. Лесостепь. Млекопитающее. Пресмыкающееся. Обмен веществ. Нервная система. Прерия. Пунические войны. Аорта. Вена. Мышца. Скелет. Костная ткань. Империя. Алгоритм. Куликовская битва. Ритм. Алфавит. Феодализм. Принятие христианства. Арифметические действия. Квадрат. Юлий Цезарь. Квадратный корень. Полином. Логарифм. Алгоритм. Сложение. Числитель. Знаменатель. Интеграл. Бесконечный ряд. Прогрессия. Грамматика. Конъюнкция. Дизъюнкция. Синоним. Антоним. Гипербола. Ярлык. Эпитет. Распределите понятия и термины по предметным областям.

2.1.1 Решение

Для выполнения задания выполним следующие действия:

- наберем самостоятельно в текстовом редакторе Word вышеприведенный перечень терминов и предметных областей;

- преобразовать текст в таблицу «Термины» с помощью средства Таблица Преобразовать Панели инструментов текстового редактора Word;

- создадим в полученной таблице столбцы «Порядковый номер», «Термин», «Код термина», «Предметная область», «Код предметной области»;

- заполнить столбец «Порядковый номер» с помощью средства «Список» из меню формат или соответствующей кнопки панели инструментов. Столбцы «Предметная область» и «Код предметной области» пока не заполняются;

- присвоим терминам коды терминов таким образом, что каждой из предметных областей присваивается код из двух десятичных цифр, первая из которых не должна быть нулем. После этого Код термина строится из шести десятичных цифр, первые две из которых представляют собой Код предметной области, а четыре оставшихся - порядковый номер данного термина в данной предметной области (Табл.2.1.1);

Таблица 2.1.1 - Преобразование данных в MSWord

Порядковыйномер	Термин	Кодтермина	Предметнаяобласть	Кодпредметнойобласти
1	2	3	4	5
	Матрица		словесность	11
	Широта		математика	12
	Долгота		биология	13
	Популяция		география	14
	Склонение		история	15
	Спряжение
	Хребет
	Тундра
	Кровообращение
	Баскак
	Морскоетечение
	Устье
	Исток
	Экватор
	Тропики
	Земнаяось
	Словарь
	Перевод
	Существительное
	Прилагательное
	Остров
	Полуостров
	Материк
	Частьсвета
	Румб
	Возвышенность
	Предложение
	Растительность
	Период
	Низменность
	Мыс
	Архипелаг
	Залив
	Пролив
	Море
	Суша
	Территория
	Пустыня
	Млекопитающее
	Пресмыкающееся
	Обменвеществ
	Нервнаясистема
	Прерия
	Пунические
	войны
	Лесостепь
	Прерия
	Пунические
	войны
	Аорта
	Вена
	Мышца
	Скелет
	Костнаяткань
	Империя
	Алгоритм
	Куликовскаябитва
	Ритм
	Алфавит
	Феодализм
	Принятиехристианства
	Арифметическиедействия
	Квадрат
	ЮлийЦезарь
	Квадратныйкорень
	Полином
	Логарифм
	Алгоритм
	Сложение
	Числитель
	Знаменатель
	Интеграл
	Бесконечныйряд
	Прогрессия
	Грамматика
	Конъюнкция
	Дизъюнкция
	Синоним
	Антоним
	Гипербола
	Ярлык
	Эпитет

- скопируем таблицу «Термины» в соответствующий диапазон рабочего листа табличного процессора Excel с тем же названием;

- на рабочем листе Excel пронумеруем строки таблицы с использованием средства Правка Заполнить Прогрессия и укажем названия столбцов в первой строке таблицы (Табл.2.1.2).

Таблица 2.1.2 - Преобразование данных в MSExel

Порядковый номер	Термин	Кодтермина	Предметная область	Код предметной области
1	2	3	4	5
1	Матрица	1001	словесность	11
2	Широта	1002	математика	12
3	Долгота	1003	биология	13
4	Популяция	1004	география	14
5	Склонение	1005	история	15
6	Спряжение	1006
7	Хребет	1007
8	Тундра	1008
9	Кровообращение	1009
10	Баскак	1010
11	Морскоетечение	1011
12	Устье	1012
13	Исток	1013
14	Экватор	1014
15	Тропики	1015
16	Земнаяось	1016
17	Словарь	1017
18	Перевод	1018
19	Существительное	1019
20	Прилагательное	1020
21	Остров	1021
22	Полуостров	1022
23	Материк	1023
24	Частьсвета	1024
25	Румб	1025
26	Возвышенность	1026
27	Предложение	1027
28	Растительность	1028
29	Период	1029
30	Низменность	1030
31	Мыс	1031
32	Архипелаг	1032
33	Залив	1033
34	Пролив	1034
35	Море	1035
36	Суша	1036
37	Территория	1037
38	Пустыня	1038
39	Лесостепь	1039
40	Млекопитающее	1040
41	Пресмыкающееся	1041
42	Обменвеществ	1042
43	Нервнаясистема	1043
44	Прерия	1044
45	Пунические	1045
46	войны	1046
47	Аорта	1047
48	Вена	1048
49	Мышца	1049
50	Скелет	1050
51	Костнаяткань	1051
52	Империя	1052
53	Алгоритм	1053
54	Куликовскаябитва	1054
55	Ритм	1055
56	Алфавит	1056
57	Феодализм	1057
58	Принятиехристианства	1058
59	Арифметическиедействия	1059
60	Квадрат	1060
61	ЮлийЦезарь	1061
62	Квадратныйкорень	1062
63	Полином	1063
64	Логарифм	1064
65	Алгоритм	1065
66	Сложение	1066
67	Числитель	1067
68	Знаменатель	1068
69	Интеграл	1069
70	Бесконечныйряд	1070
71	Прогрессия	1071
72	Грамматика	1072
73	Конъюнкция	1073
74	Дизъюнкция	1074
75	Синоним	1075
76	Антоним	1076
77	Гипербола	1077
78	Ярлык	1078
79	Эпитет	1079

2.2 Задание 2

Импортируйте диапазон данных таблицы «Термины» табличного процессора Excel в таблицу СУБД Access, для чего необходимо вызвать на исполнение СУБД Access. Создайте в СУБД Access новую базу данных под названием Try.mdb и используйте средство Файл Внешние данные Импорт, которое вызовет соответствующий мастер, выполняющий необходимые действия. Создайте для последующей работы в базе данных Try.mdb, кроме таблицы «Термины», также таблицу «Предметные Области», содержащую столбцы «Назв_Пр Обл» и «Код Пр Обл», которые заполняются вручную.

Далее можно действовать двумя способами:

- в таблице «Термины» помещается «Код Предметной Области» без соответствующего наименования, которое будет извлекаться по связи между таблицами через поле «Код Предметной Области» (эту связь необходимо установить);

- в таблице «Термины» помещаются как «Код Предметной Области», так и «Наименование Предметной Области».

2.2.1 Решение

Импортируем диапазон данных таблицы «Термины» табличного процессора Excel в таблицу СУБД Access, для чего необходимо вызовем на исполнение СУБД Access. Создадим в СУБД Access новую базу данных под названием Try.mdb и используйте средство Файл/Внешние данные Импорт, которое вызовет соответствующий мастер, выполняющий необходимые действия. Создадим для последующей работы в базе данных Try.mdb, кроме таблицы «Термины», также таблицу «Предметные Области», содержащую столбцы «Назв Пр Обл» и «Код Пр Обл», которые заполняются вручную. Вид таблиц «Предметные Области» и «Термины"»показан соответственно на рис.2.2.1 и 2.2.2.

Рисунок 2.2.1 - Таблица "Предметная область" в MSAccess

Рисунок 2.2.1 - Таблица "Термины" в MSAccess

Так как у нас один термин может принадлежать многим предметным областям и аналогично к одной предметной области может принадлежать несколько терминов, то для построения реляционной базы добавим еще одну таблицу «Терм Пред Обл» соединяющую таблицы "Предметные Области" и «Термины» (Рис.2.2.3)

Рисунок 2.2.3 - Схема данных реляционной СУБД

Для правильного и быстрого заполнения таблицы «Терм Пред Обл» построим независимый модуль (Рис.2.2.4).



Рисунок 2.2.4 - Модуль для заполнения таблицы «Терм ПредОбл»

В нем выбираем термин и предметную область и нажимаем на кнопку "Добавить". При этом добавляется запись в таблицу «Терм Пред Обл». Модуль работает на стороне пользователя поэтому все изменения можно отменить нажатием кнопки "Rollback" либо подтвердить - "Ok". Модуль построен при помощи языка Delfi и скомпилирован под технологию .net имеющим мащинный код C#. Таким образом этот модуль можно подключить к любой программе и подключиться к базе Access в не зависимости использует ее еще кто то. Код представлен в листинге 2.2.1.

Листинг 2.2.1 - Программный код модуля

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, Grids, DBGrids, DB, ADODB, StdCtrls, ExtCtrls, DBCtrls, FMTBcd;

type

TForm2 = class(TForm)

DataSource1: TDataSource;

DataSource2: TDataSource;

DataSource3: TDataSource;

ADODataSet1: TADODataSet;

ADODataSet2: TADODataSet;

ADODataSet3: TADODataSet;

DBGrid1: TDBGrid;

DBGrid2: TDBGrid;

DBGrid3: TDBGrid;

Button1: TButton;

ADODataSet4: TADODataSet;

DBText1: TDBText;

DBText2: TDBText;

Button2: TButton;

Button3: TButton;

procedure FormActivate(Sender: TObject);

procedure FormClose(Sender: TObject; var Action: TCloseAction);

procedure Button1Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm2.Button1Click(Sender: TObject);

begin

Form2.ADODataSet4.InsertRecord([Form2.DBText1.Caption, Form2.DBText2.Caption]);

Form2.ADODataSet1.Active:=False;

Form2.ADODataSet1.Active:=True;

end;

procedure TForm2.Button2Click(Sender: TObject);

begin

if Form1.ADOConnection1.InTransaction=False

then Form1.ADOConnection1.BeginTrans;

Form1.ADOConnection1.CommitTrans;

Form1.ADOConnection1.BeginTrans;

end;

procedure TForm2.Button3Click(Sender: TObject);

begi

Form1.ADOConnection1.RollbackTrans;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

if Form1.ADOConnection1.InTransaction=False

then Form1.ADOConnection1.BeginTrans;

Form2.ADODataSet1.Active:=false;

Form2.ADODataSet2.Active:=false;

Form2.ADODataSet3.Active:=false;

Form2.ADODataSet4.Active:=false;

Form2.ADODataSet1.CommandText:='SELECT Термины.Термин, Предметная_область.[Предметная область] '+

'FROM Термины INNER JOIN (Предметная_область INNER JOIN Терм_ПредОбл ON '+

'Предметная_область.[Код предметной области] = Терм_ПредОбл.[Код предметной области]) '+

'ON Термины.Кодтермина = Терм_ПредОбл.[Код термина];';

Form2.ADODataSet2.CommandText:='select * from Термины;';

Form2.ADODataSet3.CommandText:='select * from Предметная_область;';

Form2.ADODataSet4.CommandText:='select [Код термина], [Код предметной области] from Терм_ПредОбл;';

Form2.ADODataSet1.Active:=true;

Form2.ADODataSet2.Active:=true;

Form2.ADODataSet3.Active:=true;

Form2.ADODataSet4.Active:=true;

Form2.DBGrid1.Columns.Items[0].Width:=250;

Form2.DBGrid1.Columns.Items[1].Width:=250;

Form2.DBGrid2.Columns.Items[0].Width:=80;

Form2.DBGrid2.Columns.Items[1].Width:=200;

Form2.DBGrid3.Columns.Items[0].Width:=80;

Form2.DBGrid3.Columns.Items[1].Width:=200;

end;

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);

begin

Form2.ADODataSet1.Active:=false;

Form2.ADODataSet2.Active:=false;

Form2.ADODataSet3.Active:=false;

Form2.ADODataSet4.Active:=false;

Form1.ADODataSet1.Active:=false;

Form1.ADODataSet1.Active:=true;

end;

end.

2.3 Задание 3

После построения в базе данных Try.mdb двух указанных таблиц дополните таблицу «Термины» таким образом, чтобы по каждой из предметных областей имелось не менее 10-12 терминов. Затем необходимо построить два запроса:

- по заданному термину найти соответствующую предметную область;

- по заданной предметной области найти все принадлежащие ей термины.

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

2.3.1 Решение

Так как в нашей базе данных каждой предметной области уже принадлежит 12 и более терминов то добавлять ничего не надо. Если же надо будет добавить то необходимо будет построить средствами Access форму, в которой главной будет таблица "Предметная область", а таблица "Термины" подчиненной". При работе с этой формой необходимо быть очень осторожным, так как работа производится на стороне сервера и возможна потеря информации.

Вид такой формы показан на рис.2.3.1.

Рисунок 2.3.1 - Форма для добавления данных в базу

Для построения запросов воспользуемся средствами MSAccess и редактором SQL:

1. По заданному термину найти соответствующую предметную область.

а) SQL запрос:

SELECT Предметная область, Термины. Термин

FROM Термины INNER JOIN (Предметная область INNER JOIN Терм Пред Обл ON Предметная область. = Терм Пред Обл.[Код предметной области]) ON Термины. Кодтермина = Терм Пред Обл.[Код термина];

б) вид запроса:

в) вариант формы выбора:

2. По заданной предметной области найти все принадлежащие ей термины.

а) SQL запрос:

SELECT Термины. Термин, Предметная область.[Предметная область]

FROM Термины INNER JOIN (Предметная область INNER JOIN Терм Пред Обл ON Предметная область.[Код предметной области] = Терм Пред Обл.[Код предметной области]) ON Термины. Кодтермина = Терм Пред Обл.[Код термина]

ORDER by Термины.Термин

б) вид запроса:

в) вариант формы выбора:

3) 1:С «Бухгалтерия»

Константа	Вариант 1
Дата регистрации	Первый рабочий день текущего квартала
Наименование организации	«Кибернетика»
Официальное название организации	ЗАО «Кибернетика»
Юридический адрес	г. Алчевск, пр. Ленина, дом 16, офф. 2412
Налоговая инспекция	АЛЧЕВСЬКА ОБ'ЄДНАНА ДПI (ПЕРЕВАЛЬСЬКЕ ВIД-НЯ ) ПЕРЕВАЛЬСЬКИЙ Р-Н
ИНН	7777777777
Почтовый адрес	94216, Украина, г. Алчевск, пр. Ленина, дом 16, офф. 2412
Телефоны организации	8(06442)25061
Директор	Петров И. А.
Гл. бухгалтер	Скворцова Е. Г.



Использованная литература

1. Семенова В. Ю. Компьютерная бухгалтерия для Украины. Задачи и Решения в программе «1С:Бухгалтерия 7.7 для Украины». Учеб. пособие. -- К.: Охрана труда, 2005. -- 280 с.

2. Митичкин С. А. Практика программирования в среде 1С: Предприятие 7.7.-- М.: Издательский Дом «КомБук», 2004.-- 272 с.

3. Михайлов С. Е. Программирование как дважды два. Самоучитель.-- СПб.: Тритон, 2005.-- 173 с.

4. Усиков Т. Н. 1С: Предприятие. Эффективное программирование.-- М.: Новое знание, 2004. -- 446 с.