«Информатика»




Скачать 116.22 Kb.
Название«Информатика»
Дата публикации20.09.2014
Размер116.22 Kb.
ТипКонтрольная работа
shkolnie.ru > Информатика > Контрольная работа
Уральский социально-экономический институт

Академии труда и социальных отношений


Кафедра высшей математики и информатики


Контрольная работа

по дисциплине

«Информатика»


Задача № 3 : «Табель учета рабочего времени»

Выполнила:

Специальность:

Форма обучения:

Группа:

Челябинск

2004
Аннотация

Пояснительная записка содержит:

20 страниц текста, 10 рисунков, список литературы из 3 наименований.


^ Ключевые слова:

Информатика, контрольная работа, табельный учет рабочего времени, электронные таблицы, MS Exsel, автоматизация, макросы, Visual Basic for Application, элементы управления, презентация, MS Power Point, пояснительная записка, MS Word.


В контрольной работе применительно к задаче табельный учет рабочего времени:

1. спроектировано и разработано приложение MS Exsel, включая автоматизацию типовых операций на основе макросов и элементов управления;

2. составлена пояснительная записка MS Word;

3. подготовлена презентация MS Power Point для иллюстрации доклада на собеседовании.


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

Содержание
Условие задачи ………………………………………………………………….4

Анализ предметной области ……………………………………………………5

Проектирование таблиц и диаграмм ……………………………………………6

Лист «Меню»…………………………………………………………………..… 8

Структура проекта приложения ……………………………………………….. 9

Лист «Штатное расписание»...………………………………………………..10

Лист «Рабочие дни»..……………….………………………………………….11

Лист «Обозначения»…..………………………………………………………..12

Лист «Январь»…………..………………………………………………………13

Код макроса «ЗакрытьМесяц»…..……………………………………………..14

Лист «Баланс»……………………..…………………………………………….15

Код макроса «БалансРабочегоВремени»…....………………………………..16

Лист «Диаграмма» ……………………………………………………………..17

Код макроса «Диаграмма»……………………………………………………..18

Лист «1 квартал» ………..……………………………………………………..19

Литература………………………………………………………………………20

^ Условие задачи
Задача № 3. Создать, отладить и протестировать приложение «Табель учета рабочего времени». При разработке приложения можно реализовать любую форму учета рабочего времени, используемую на Вашем предприятии. Расчет необходимо выполнить за три месяца и подвести итоги за квартал.

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

Штатное расписание

  • Фамилия, имя, отчество работников цеха;

  • Должность, профессия работников цеха;

  • Данные о стаже, ЧТС, дате приема работников цеха.



Обозначение и количество рабочих дней в месяце

  • Коды обозначения дней для ведения табельного учета на данном предприятии;

  • Количество рабочих дней, введенных Колдоговором на данном предприятии.



Табель учета рабочего времени

  • Лист табеля, формат которого принят на данном предприятии, для ведения учета рабочего времени работников цеха в каждом месяце.



Подведение итогов по табелю учета рабочего времени выполнимо за 1 квартал (три месяца – январь, февраль, март), полагая, что подведение итогов в других кварталах можно выполнить аналогичным образом.

^ Проектирование таблиц и диаграмм
При разработке приложения создадим таблицы, сгруппировав их в три блока.

Справочники (содержат условно-постоянные данные):

  • штатное расписание;

  • рабочие дни;

  • обозначения.



Табеля учета рабочего времени (содержат оперативно-учетную информацию):

  • за январь;

  • за февраль;

  • за март.



Анализ данных (предназначены для обобщения данных):

  • баланс учета рабочего времени за месяц;

  • диаграмма учета рабочего времени за месяц;

  • итоги за 1 квартал.



Общая структура приложения для табеля учета рабочего времени имеет вид:











Как видно из диаграммы все листы (таблицы) проекта связаны друг с другом. Эти связи указаны стрелками. По направлению стрелок можно судить, откуда получены данные, используемые при создании каждого конкретного листа.

Первоначально были созданы таблицы первого блока.

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

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

При изменении данных в таблицах первого блока меняются выходные данные и из второго блока.

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

Кроме таблиц (объекты MS Excel), разработанный проект содержит модули (процедуры с кодом макросов). Эти модули таковы:

Закрыть_месяц

Навигация_по_листам1

Навигация_по_листам2

Навигация_по_листам3

Диаграмма

О_программе.

Модули Навигация_по_листам1, Навигация_по_листам2 и Навигация_по_листам3 служат, как следует из названия, для перемещения по листам разработанного приложения и содержат простейший набор команд встроенного языка программирования VISUAL BASIC (команды получены путем записи макроса). Макросы, относящиеся к этой группе, имеют следующие названия:

К_ЛИСТУ_МЕНЮ

К_ЛИСТУ_ШТАТНОЕ РАСПИСАНИЕ и т.д.

Модуль «О_программе» позволяет выводить информационное сообщение о назначении разработанного приложения и об авторе разработке.

Оставшиеся два модуля представляют больший интерес и будут рассмотрены подробнее ниже.


^ Краткий обзор листов приложения.
Лист «Меню».



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


Лист «Штатное Расписание»




Лист штатное расписание содержит данные о работниках цеха: ФИО, должность, профессия, ЧТС, месячный ФЗП, стаж, дата поступления на работу, дата рождения, возраст.

^ Лист «Рабочие дни»
Лист «Рабочие дни» содержит данные о рабочих днях на каждый месяц, установленные на данном предприятии по Колдоговору.



Эти данные необходимы для заполнения табеля, и учитываются в отчете за 1 квартал.

^ Лист «Обозначение».


Этот лист содержит обозначения для заполнения табеля, установленные для данного предприятии.

^ Лист «Январь».



На Листе «Январь» расположен табель учета рабочего времени работников цеха. Данные о работниках - «ФИО» и «Должность, профессия», «ЧТС» берутся с Листа «Штатное расписании» гиперссылкой. Данные в столбцах с 1 по 31 января заполняются пользователем прилагаемыми обозначениями с Листа «Обозначение», а в остальных столбцах вычисляются по прилагаемым формулам.

На Листах «Февраль» и «Март» все заполняется таким же образом. Для фиксации заполнения табеля по учету рабочего времени за текущий месяц используется макрос «ЗАКРЫТЬ_МЕСЯЦ».

Макрос «Закрыть_месяц».
Модуль содержит всего один макрос «ЗАКРЫТЬ_МЕСЯЦ». Текст данного макроса следующий:

^ Sub ЗАКРЫТЬ_МЕСЯЦ()

Dim strPwd As String

strPwd = "123"

If ActiveSheet.ProtectContents Then

MsgBox "Месяц уже закрыт! Лист защищен от изменений!", vbCritical + vbOKOnly, "Закрытие месяца"

Else

If InputBox("Для продолжения преобразования введите пароль:", "Закрытие месяца") = strPwd Then

If MsgBox("ВНИМАНИЕ! Все формулы будут преобразованы в значения." & vbCrLf & "Лист будет защищен. Преобразование необратимо." & vbCrLf & "ПРОДОЛЖАТЬ?", vbExclamation + vbYesNo, "Закрыти месяца") = vbYes Then

Range("C4:AV18").Select

Selection.Copy

Range("C4").Select

Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _

False, Transpose:=False

Application.CutCopyMode = False

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=strPwd, Userinterfaceonly:=True

Range("C5").Select

End If

End If

End If

End Sub

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





Лист «Баланс» содержит сводную таблицу на каждый месяц по учету рабочего времени по должности и профессиям.

Код макроса «БАЛАНС_РАБОЧЕГО_ВРЕМЕНИ»

Sub КЛистуБалансЯнварь()

Dim CurrMonth

Application.ScreenUpdating = False

УДАЛИТЬ_СВОДНУЮ_ТАБЛИЦУ

CurrMonth = Range("B10").Value

ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:=CurrMonth & "!R4C3:R15C48").CreatePivotTable TableDestination:=Range("C4"), _

TableName:="СводнаяТаблица2"

ActiveSheet.PivotTables("СводнаяТаблица2").SmallGrid = False

ActiveSheet.PivotTables("СводнаяТаблица2").AddFields RowFields:="Данные", _

ColumnFields:="Должность,профессия"

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Рабочие дни")

.Orientation = xlDataField

.Position = 1

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("выходные")

.Orientation = xlDataField

.Position = 2

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("очередной отпуск")

.Orientation = xlDataField

.Position = 3

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("декретныый отпуск" _

)

.Orientation = xlDataField

.Position = 4

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"разрешение администрации")

.Orientation = xlDataField

.Position = 5

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"справка о нетрудоспос.")

.Orientation = xlDataField

.Position = 6

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"ученический отпуск")

.Orientation = xlDataField

.Position = 7

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("гособязанности")

.Orientation = xlDataField

.Position = 8

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("прогул")

.Orientation = xlDataField

.Position = 9

End With

With ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Всего неявок")

.Orientation = xlDataField

.Position = 10

End With

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Всего дней в месяце"). _

Orientation = xlDataField

ActiveWorkbook.ShowPivotTableFieldList = True

Range("C5").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю Рабочие дни").Caption = " Рабочие дни"

Range("C6").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Сумма по полю выходные" _

).Caption = " выходные"

Range("C7").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю очередной отпуск").Caption = " очередной отпуск"

Range("C8").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю декретныый отпуск").Caption = " декретныый отпуск"

Range("C9").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю разрешение администрации").Caption = _

" разрешение администрации"

Range("C10").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю справка о нетрудоспос.").Caption = " справка о нетрудоспос."

Range("C11").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю ученический отпуск").Caption = " ученический отпуск"

Range("C12").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю гособязанности").Caption = " гособязанности"

Range("C13").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields("Сумма по полю прогул"). _

Caption = " прогул"

Range("C14").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю Всего неявок").Caption = " Всего неявок"

Range("C15").Select

ActiveSheet.PivotTables("СводнаяТаблица2").PivotFields( _

"Сумма по полю Всего дней в месяце").Caption = " Всего дней в месяце"

Range("C16").Select

Selection.Borders(xlDiagonalDown).LineStyle = xlNone

Selection.Borders(xlDiagonalUp).LineStyle = xlNone

With Selection.Borders(xlEdgeLeft)

.LineStyle = xlContinuous

.Weight = xlThin

.ColorIndex = 1

End With

End Sub

^ Лист «Диаграмма».




Этот лист содержит диаграмму по месяцам по учету рабочего времени по каждому работнику цеха.


Код макроса «ДИАГРАММА»
Sub КДиаграммаЯнварь()

Attribute КДиаграммаЯнварь.VB_Description = "Макрос записан 11.10.2004 (БТЗ2)"

Attribute КДиаграммаЯнварь.VB_ProcData.VB_Invoke_Func = " \n14"
Dim CurrMonth

CurrMonth = Range("B10").Value

УДАЛИТЬ_ДИАГРАММУ

Charts.Add

ActiveChart.ChartType = xlBarClustered

ActiveChart.SetSourceData Source:=Sheets(CurrMonth).Range("D4:D15,AL4:AT15"), _

PlotBy:=xlColumns

ActiveChart.Location Where:=xlLocationAsObject, Name:="Диаграмма"

With ActiveChart

.HasAxis(xlCategory, xlPrimary) = True

.HasAxis(xlValue, xlPrimary) = True

End With

ActiveChart.Axes(xlCategory, xlPrimary).CategoryType = xlAutomatic

With ActiveSheet.Shapes(ActiveSheet.Shapes.Count)

.ScaleHeight 2, msoFalse, msoScaleFromMiddle

.ScaleWidth 1.25, msoFalse, msoScaleFromMiddle

End With

End Sub


Лист «1 квартал»


На листе расположена сводная таблица с итогами по учету рабочего времени работников цеха за три месяца.

Литература:
1. Гарнаев А. Excel 2000: разработка приложений. – СПб.: BHV – Санкт-Петербург, 2000. –

576 с. – Серия «Мастер».

2. Microsoft Power Point 2000. Русская версия: Практ. Пособие/ Пер. с англ. – М.: Эком, 2000. – 416 с. – Серия «Шаг за шагом»: самоучитель.

3. Новиков Ф., Яценко А. Microsoft Office 2000 в целом. –СПб.: BHV – Санкт-Петербург, 1999. – 728 с. – Серия «…в подлиннике».





Похожие:

«Информатика» iconКафедра высшей математики и информатики тематика курсовых проектов...
Для студентов специальности 080801. 65 Прикладная информатика (в менеджменте) и направления 230700 Прикладная информатика, профиль...
«Информатика» iconРоссийской федерации
Рекомендовано методической комиссией факультета вмк для студентов ннгу, обучающихся по направлениям подготовки 010500 «Прикладная...
«Информатика» iconПрограмма государственного экзамена по информационным технологиям...
Государственный экзамен по специальности 080801. 65 «Прикладная информатика в экономике» представляет собой оценку знаний информатика-экономиста...
«Информатика» iconПлан профориентационной работы на 2012-13 уч г Мероприятие
Издание рекламного буклета о подготовке бакалавров по направлениям «Информатика и вычислительная техника» и «Прикладная информатика...
«Информатика» iconМетодические указания по курсовому проектированию по дисциплине Нальчик
Методические указания предназначены для студентов специальности 080801. 65 «Прикладная информатика в менеджменте», и направления...
«Информатика» iconВопросы к экзамену по линейной алгебре для студентов 2 курса озо...
Озо направления подготовки 230700. 62 «Прикладная информатика», профиль «Прикладная информатика в экономике»
«Информатика» iconинформатика) образован путем слияния слов
Информатика – это фундаментальная естественнонаучная дисциплина, изучающая теоретические и практические аспекты процессов сбора,...
«Информатика» iconТеория, ч
Программа профильноко курса "Информатика X xi", И. Г. Семакин, Е. К. Хеннер, 10 11 класс/Программы для общеобразовательных учреждений:...
«Информатика» iconМетодические указания по курсовому проектированию по дисциплине «Проектирование...
«Информационные системы и технологии», «Прикладная информатика (в экономике)», «Прикладная информатика (в дизайне)»
«Информатика» icon«Информатика»
«Информатика» разработан в соответствии с требованиями фгос впо (федеральный или региональный компонент) к обязательному минимуму...
Вы можете разместить ссылку на наш сайт:
Школьные материалы


При копировании материала укажите ссылку © 2014
shkolnie.ru
Главная страница