![]() |
|
сделать стартовой | добавить в избранное |
![]() |
База данных "Сотрудники" |
Волжский университет имени В.Н.Татищева Кафедра “Информатика и системы управления” КУРСОВАЯ РАБОТА по дисциплине : “Алгоритмизация и языки программирования” Тема: База данных “Сотрудники” Выполнил: студент гр. ИС-104 Григорьев А. В. Преподаватель: Матвеева Н.В. Тольятти 2006 Оглавление Задание, на основе которого выполняется курсовая работа Описание предметной области Описание алгоритма задачи Приложение 1 (листинг программы) Приложение 2 (распечатка структуры базы данных) Приложение 3 (распечатка результатов решения задачи по данным контрольного примера.) 1. Задание, на основе которого выполняется курсовая работа Сотрудники ОПИСАНИЕ Программа должна использовать массив данных о сотрудниках небольшой фирмы (до 10 сотрудников). По каждому сотруднику вводится следующая информация: Фамилия, имя, отчество; Год и дата рождения; Пол; Стаж работы по специальности; Домашний адрес; Телефон; Должность; Оклад. Информация о сотрудниках фирмы хранится в файле workers.da . Программа содержит следующие процедуры и функции: • Новый сотрудник (предназначена для ввода данных о новом сотруднике и сохранении её в файле workers.da ); • Уволить (удаляет информацию об уволенном сотруднике из массива данных); • Просмотреть (позволяет просмотреть информацию о сотрудниках в алфавитном порядке); • Упорядочить (упорядочивает список сотрудников в порядке убывания величины оклада); • Найти (выводит на экран список сотрудников, работающих в указанной должности, например инженером). В программе разрешается использовать дополнительные файлы, облегчающие просмотр и поиск требуемой информации о сотруднике. ВХОД Имя вызываемой процедуры должно вызываться из списка пунктов меню по номеру пункта. Информация о новом сотруднике вводится в диалоге типа &quo ;Введите фамилию сотрудника:&quo ; и т.д. Процедура Уволить запрашивает ввод фамилии И.О. увольняемого сотрудника. Процедура Просмотреть должна ожидать нажатия &quo ;горячей&quo ; клавиши перехода к информации об очередном сотруднике в списке. Процедура Найти запрашивает ввод должности по выбору пользователя. ВЫХОД Процедура Просмотреть по каждому нажатию &quo ;горячей&quo ; клавиши выводит полную информацию об очередном сотруднике из алфавитного списка. Процедура Упорядочить выводит на экран список из фамилии И.О. и окладов сотрудников в порядке убывания величины оклада. Процедура Найти выводит на экран список сотрудников, работающих в указанной должности. ОШИБКИ Ошибочный ввод информации, правильность которой компьютер в состоянии проверить, должен приводить к отказу от неправильного ввода с выходом на повторный ввод этой же информации. 2. Описание предметной области В настоящее время появляется много новых маленьких и больших фирм и предприятий для регистрации и хранения данных о служащих фирмы или предприятия необходимо иметь специальную программу для того, чтобы упростить работу отдела кадров данного предприятия или фирмы. Моя программа специально разработана для таких фирм и предприятий. Аналоговые программы стоят достаточно дорого. Моя же программа стоит намного дешевле и легко доступна для любого пользователя.
Моя программа хороша тем, что она легка в обращении небольших размеров и имеет все необходимое для регистрирования служащего. Этой программой может пользоваться даже человек, который не разу не седел за компьютером, достаточно только прочитать инструкцию(описание алгоритма задачи). Программист, который в дальнейшем будет обслуживать мою программу, для того чтобы разобраться в программе, нужно прочитать “описание алгоритма задачи”. 3. Описание алгоритма задачи Для пользователя данной программы: Чтобы запустить программу, нужно войти в файл 1-kyrs.exe , либо войти в файл 1-kyrs.pas и нажать в ней клавиши “C rl F9” . Программа выглядит как меню, состоящее из множества пунктов. По меню можно передвигаться с помощью клавиш “стрелка вниз” и “стрелка вверх”, выйти из меню можно с помощью нажатия клавиши “Esc” либо нажать пункт меню “Выход”. Вход в пункты меню происходит при нажатии клавиши “E er”. При входе в какой либо пункт меню, по программе вызывается соответствующая процедура. При входе в программу данные, хранящиеся в файле, автоматически открываются. Для того, чтобы уволить какого ни будь служащего, необходимо войти в пункт меню «Уволить сотрудника». При выходе из программы, данные автоматически сохраняются. Для того чтобы ввести информацию о новом служащем необходимо войти в пункт меню “Новый сотрудник” и ввести информацию о новом сотруднике. ФИО – может состоять не более чем из 60 символов. Дата рождения – не более 15 символов. Пол – пол писать полностью Стаж работы – в годах. Адрес – 30 символов. Телефон – писать без тире. Должность – 20 символов. Размер оклада – неограниченное число. В случае если что-либо было введено неправильно произойдёт выход из программы, с потерей всех несохранённых данных. “Просмотреть список” – выводит список всех сотрудников в алфавитном порядке, после вывода каждого сотрудника нужно нажать клавишу “E er”. “Найти сотрудника” – Ищет служащего по введенной должности “Уволить сотрудника” – стирает служащего по введенному регистрационному номеру и Ф.И.О. “Очистить базу”- удаляет всех сотрудников Примечание: В программе имеются подсказки с правой стороны экрана. Для программиста: Программа состоит из множества процедур, которые вызываются из пунктов меню. Пользовательские типы: worker – тип динамической памяти типа base; base – тип – запись(информация о сотрудниках); so rud – для работы с файлами типа base. Используемые процедуры: Pu c 1 – по этой процедуре осуществляется занесение служащего в файл. Pu k 3 - вывод списка в алфавитном порядке. Сортировка происходит по полю “fam”; Pu k 4 – по этой процедуре производится сортировка списка по величине оклада. Pu k 5 – выводит служащего с указанной должностью . Вводится нужная должность и при обходе списка происходит сравнение по полю “dolg” и вывод этой записи; Pu k 2 - удаление записи из списка (удаление происходит по введённому пользователем регистрационному номеру и Ф.И
.О.); Pu k 0 - в этой процедуре происходит перезапись файла и обнуление односвязного списка. Приложение 1 Листинг программы program kursovaia; uses cr ; co s orm=$74; {цвет не выделенного пункта} orm1=$8; sel=$31; {цвет выделенного пункта} sel1=$15; ype {-------------------описание записи----------------} Worker = ^base; base=record r om:i eger; {РЕГИСТРАЦИОННЫЙ НОМЕР} fam:s ri g; {ИМЯ} o ch:s ri g; {ДАТА РОЖДЕНИЯ} pol:s ri g; {ПОЛ} s ag:i eger; {СТАЖ РАБОТЫ} adress:s ri g; {ДОМАШНИЙ АДРЕС} el:i eger; {ТЕЛЕФОН} dolg:s ri g; {ДОЛЖНОСТЬ} oklad:i eger; {ОКЛАД} li k:worker; e d; var op,Cur, ex ,Prev:Worker; me u:array; {Меню} pu k :i eger; {} ch,cc:char; {Введенный символ} so rud:file of base; buf,buf1:base; {Два буфер обмена} k,m:char; p, ,x,y,i:i eger; {} Procedure File oDi ; {Из файла в динам. память} begi op:= il; Assig (so rud,'so rud .da '); {$I-} Rese (so rud); If IOResul &l ;&g ;0 he begi rewri e(so rud); e d {$I } else if filesize(so rud)&l ;&g ;0 he repea ew(Cur); Read(so rud,Cur^); Cur^.li k:= op; op:=Cur; u il eof(so rud); close(so rud); e d; Procedure Di oFile; {Из дин. памяти в файл} begi If op&l ;&g ; il he begi Assig (so rud,'so rud .da '); Rewri e(so rud); Cur:= op; repea Wri e(so rud,Cur^); Cur:=Cur^.li k; u il Cur= il; close(so rud); e d; e d; Procedure Me us; {вывод меню на экран} var i:i eger; begi clrscr; go oxy(28,wherey); wri el (' '); go oxy(28,wherey); wri el ('БАЗА ДАННЫХ ПО СОТРУДНИКАМ'); go oxy(28,wherey); wri el (' '); for i:=p o do begi go oxy(x,y i-1); wri e ( me u ); e d; { ex a r - предопределенная переменная, отвечающая за цвет фона и символов} ex a r:=sel; go oxy(x,y pu k -1); wri e( me u ); {выделим строку меню} ex a r:= orm; e d; procedure forsor ; {указ меняются местами} var r om1:i eger; fam1:s ri g; da e1:s ri g; s ag1:i eger; adress1:s ri g; oklad1:i eger; begi Wi h ex ^ do begi r om1:=r om; fam1:=fam; ame1:= ame; o ch1:=o ch; pol1:=pol; s ag1:=s ag; adress1:=Adress; el1:= el; dolg1:=dolg; oklad1:=oklad; e d; Wi h ex ^ do begi r om:=Cur^.r om; fam:=Cur^.fam; ame:=Cur^. ame; o ch:=Cur^.o ch; pol:=Cur^.pol; s ag:=Cur^.s ag; adress:=Cur^.Adress; el:=Cur^. el; dolg:=Cur^.dolg; oklad:=Cur^.oklad; e d; Wi h Cur^ do begi r om:=r om1; fam:=fam1; ame:= ame1; o ch:=o ch1; pol:=pol1; s ag:=s ag1; adress:=Adress1; el:= el1; dolg:=dolg1; oklad:=oklad1; e d; e d; procedure Sor irovka; {Сортировка по алфавиту} begi Cur:= op; While Cur&l ;&g ; il do begi ex :=Cur^.li k; while ex &l ;&g ; il do begi if ord( ex ^.fam) he ForSor ; ex := ex ^.li k; e d; cur:=cur^.li k; e d; e d; procedure Uporyad; {Сортровка по окладу} begi Cur:= op; While Cur&l ;&g ; il do begi ex :=Cur^.li k; while ex &l ;&g ; il do begi if ord( ex ^.Oklad) &g ; ord(Cur^.Oklad) he ForSor ; ex := ex ^.li k; e d; cur:=cur^.li k; e d; e d; procedure Posi io (pos:i eger); var i:i eger; begi Cur:= op; For i:=1 o pos do if i&l ;&g ;pos he Cur:=Cur^.li k; e d; procedure pu k 0; {Очистка базы} var cc,k,ch:char; i:i eger; key:char; begi assig (so rud,'so rud .da '); cc:=chr(13); {cc:=readkey;} if cc=chr(13) he begi go oxy(25,10); wri el ('Вы уверены,что хотите удалить базу?'); go oxy(25,11); Wri el ('E er-ДА, Esc-НЕТ'); key:=readkey; if key=chr(13) he begi go oxy(11,4); wri e('0%'); go oxy(63,4); wri e('100%'); go oxy(13,4); for i:=1 o 20 do begi wri e('='); delay(500); e d; for i:=21 o 34 do begi wri e('='); delay(1300); e d; for i:=35 o 50 do begi wri e('='); delay(200); e d; rewri e(so rud); go oxy(32,18); wri e('База очищена'); go oxy(32,19); wri e('Нажмите клавишу Esc'); e d; e d; e d; procedure pu k 1; {Новый сотрудник} var k,ch:char; begi clrscr; go oxy(12,wherey);wri el ('Добавьте в базу информацию о новом сотруднике - &quo ;E er&quo ;'); ch:=readkey; if ch&l ;&g ;chr(27) he begi ew(Cur); wri el (' Введите информацию'); wri e('Регистрационный номер: '); readl (Cur^.r
Это образцы продукции или товаров, различные документы, чертежи, планы, схемы, аналитические обзоры, модели, каталоги, справочники, зафиксированные на бумаге, фотографиях и слайдах, в дискетах ПЭВМ. Непонимание отечественными бизнесменами значения мер по защите конфиденциальной информации является одной из причин нежелания западных партнеров иметь с ними дело. Они приезжают, смотрят на то, как решаются проблему охраны офисов, коммерческих секретов, улыбаются, подписывают протоколы о намерениях - и не делают ни шага дальше. Они понимают, что все вложенное ими будет либо разграблено, либо использовано с минимальной эффективностью. А главное - украдут их коммерческие тайны. Между тем, в Западной Европе и в США утрата 20% конфиденциальной информации приводит к разорению фирмы в течение одного месяца. Письменный опрос (анкетирование) 250 московских бизнесменов, проведенный летом 94 года показал, что наиболее типичными формами и методами экономического шпионажа они считают: - подкуп или шантаж сотрудников фирмы - 43% ответов; - съем информации с ПЭВМ спецтехникой (проникновение в базы данных, копирование программ) - 42%; - копирование или хищение документов, чертежей, экспериментальных и товарных образцов - 10%; - прослушивание телефонных разговоров, подслушивание разговоров в помещениях и автомобилях; - 5%
1. Разработка базы данных средствами программы MS Access "Сотрудники"
2. База данных для проекта досугового учреждения в городе Муроме Владимирской области
3. Информация, информатика, базы данных. Периферийные устройства
4. Пример базы данных на Delphi 2.0
5. Принципы проектирования и использования многомерных баз данных
9. Создание и описание базы данных "СТУДЕНТЫ" (Отчет по курсу "Базы данных")
10. Разработка базы данных "Кадры"
11. Лекции по теории проектирования баз данных (БД)
13. Система управления базами данных ACCESS
14. База данных - Бактериологическая испытательная лаборатория Боханского района
15. Создание базы данных "Библиотека"
18. Системы принятия решений, оптимизация в Excel и базы данных Access
20. Работа в среде EXCEL. Средства управления базами данных в EXCEL
21. Опыт создания Базы Данных для источников личного происхождения
25. Археологический источник и база данных. Выбор модели.
26. Использование Internet/intranet технологий для организации доступа к базам данных
27. Создание баз данных в InterBase SQL Server
28. Введение в проектирование реляционных баз данных
29. Средства доступа к базам данных в Internet и свободно доступная СУБД POSTGRES95
30. Базы данных и файловые системы
31. Базы данных по законодательству в интернет и на компакт-дисках
33. Проектирование и реализация базы данных
34. Excel 97 в качестве базы данных
35. База данных Бюро знакомств
36. Базы данных. Создание форм и отчетов (на примере ACCESS)
37. Иерархические структуры в реляционных базах данных
43. Создание баз данных в Microsoft Access
44. Создание и ведение баз данных
45. Упражнения по базам данных MS ACCESS (методичка)
47. Некоторые аспекты обеспечения эффективности работы системы управления базами данных
48. Манифест систем объектно-ориентированных баз данных
50. Менеджер подключений к базам данных
51. Информационно-справочная система, обеспечивающая работу с базой данных Bit
52. Реляционные Базы Данных. SQL - стандартный язык реляционных баз данных
59. Лінгвістична база даних українських художніх порівнянь
60. База даних "Кафедра" в Access з меню MDI
61. База даних клієнтів і замовлень
62. База даних по обліку вогнепальної зброї
63. База даних по приватних підприємствах регіону
64. База даних фільмотеки: розробка проекту
65. База данных
66. База данных "Автосервис" в среде Borland Delphi 6.0.
68. База данных "Пассажирские железнодорожные перевозки"
69. База данных "Учет готовой продукции на складе"
73. База данных для организации по продаже канцелярских товаров
74. База данных заместителя директора по воспитательной работе приюта г. Аксу
75. База данных компьютерного магазина
76. База данных по учету металлопродукции на платформе SQL Server
78. База данных станции технического обслуживания автомобилей
79. База данных: "Деканат: дистанционное обучение"
80. Базы данных
81. Базы данных
82. Базы данных в юриспруденции
83. Базы данных и их функции. Структурные элементы базы данных
84. Базы данных на логическоми и функциональном программировании
85. Инфологическая модель базы данных "Видепрокат"
89. Информационные технологии создания и обработки баз данных с помощью MS Access XP
90. Історія розвитку баз даних
91. ЛИСП-реализация основных операций над базами данных
92. Методология проектирования баз данных
93. Настольные системы управления базами данных
97. Построение базы данных боксерской организации