Міністерство освіти Російської Федерації
Нижегородський Державний Технічний Університет
Нижегородський Вечірній Факультет
Кафедра: Комп'ютерні технології в проектуванні і виробництві
Курсова робота
з дисципліни:
«Проектування інформаційних систем»
Проектування інформаційних систем
На базі MySQL і Internet
Виконали:
Греков В.В.
Певченко Г.П. група 99-ІКО
Перевірив:
Штанюк А.А.
г.Кстово
2003
Зміст
1 Завдання
2 Аналіз завдання
3 Проектування бази даних
4 Розробка CGI-програм і HTML-документів
5 Схема розміщення інформації на Internet сайті
6 Контрольний приклад
7 Висновки
8 Список літератури
Завдання
Розробити інформаційну систему для реалізації конкурсного відбору кадрів на базі програмного забезпечення MySQL та Internet.
Аналіз завдання
розробляється система дозволяє підприємству через Internet оголосити конкурс на наявні у неї вакантні посади, збирати і зберігати відомості про учасників конкурсу у вигляді заповнених ними анкет.
Адміністратор має можливість вносити в базу даних нові вакансії, видаляти зайняті, а також редагувати список надісланих анкет, відбираючи найбільш перспективні для діяльності підприємства.
Проектування бази даних
Реалізація бази даних за допомогою MySQL.
Після запуску MySQL в командному рядку створюємо базу даних Konti:
C: mysqlbinmysqladmin create Konti
Після цього в створеній базі створюємо таблиці t1 і t2:
Створення таблиці t1: < p> use Konti create table t1 (prof varchar (30) not null primary key, knkrs int notnull, ed varchar (30) not null, cpc varchar (30) not null, crok int notnull);
Поле "prof" - є ключовим і містить найменування вакансії.
Поле "knkrs" - містить кількість анкет, заявлених на дану вакансію.
Поле "ed" - містить відомості про необхідну освіту претендента на цю вакансію.
Поле "cpc" - містить відомості про необхідної спеціалізації претендента на цю вакансію.
Поле "crok" - містить відомості про необхідний досвід роботи претендента за своєю спеціалізацією.
Створення таблиці t2:
create table t2 (fio varchar (30) not null primary key, eda varchar (30)not null, cpca varchar (30) not null, croka int not null, adress varchar (60)not null, vak varchar (30) not null);
поле "fio" (ключове поле) - прізвище ім'я та по батькові претендента; поле "eda" - освіта претендента; поле "cpca" - спеціальність претендента; поле "croka" - термін роботи претендента за фахом; поле "adress" - адреса претендента; поле "vak" - обрана вакансія претендента;
Розробка CGI-програм і HTML-документів
Файл Kontinental-HH.htm - головна сторінка.
Містить дві кнопки:
- "Перегляд вакансій" - запускає скрипт list.cgi і призначена для користувача інформаційної системи - надає йому можливість ознайомитися зі списком вакансій на підприємстві, дізнатися поточний конкурс на неї і заповнити анкету;
- "База даних" (пароль) - запускає скрипт BDvakans.cgi і призначена для адміністратора - надає йому можливість вносити в базу даних нові вакансії , видаляти зайняті, а також редагувати список надісланих анкет, відбираючи найбільш перспективні для діяльності підприємства.
Kontinental-HH.htm
Континенталь-NN
ВАТ "Континенталь -НН "
®
Відділкадрів
ПРОФЕСІЙНИЙ ПІДХІД ДО
ЛЮДСЬКИМ ресурсів
Сьогоднішній день і перспективні завдання, що стоять перед організацією,вимагають від її співробітників нових і сучасних рішень. Адміністраціяпідприємства проводить цілеспрямовану роботу по залученню в наші рядивисокопрофесійних фахівців з усіх напрямків діяльності.
Якщо Ви, ознайомившись зі списком вакансій, побачили для себеможливості до самореалізації, наша кадрова служба з цікавістю ознайомитьсяз Вашим резюме.
У будь-якому випадку, заповнивши анкету, Ви зможете потрапити до банку данихнашого відділу кадрів і розраховувати на зустрічну пропозицію з нашоюсторони.
Введіть пароль для доступу (Тимчасово парольне використовується)
Файл list.cgi - виконується програма.
Виводить список вакансій і конкурс на них на основі даних таблиці t1.
Має 1 кнопку:
- "Заповнити анкету" - запускає скрипт anketa.cgi і передає в ньогодані про обрану вакансії.
list.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Список Вакансій для користувача"); print qq (); print "Перелік вакансій"; print "Виберіть вакансію і заповніть анкету"; print "";
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare ( "SELECT * FROM t1 ;");
$ rows = $ sth-> execute (); print" "; print" "; print qq (№
Вакансія Конкурс намісце
Вашвибор); for ($ i = 0; $ ifetchrow_array;
$ i + +; print "
$ i";
$ i -; print "$ bakans
$ knkrs
";
)
$ sth-> finish () ;
$ dbh-> disconnect (); print ""; print ""; print ""; print ""; print "Анкети претендентів будуть розглянуті 25 січня
2003р. "; Print "";
print end_html ();
Файл anketa.cgi - виконується програма.
Виводить перелік основних вимог до кандидата на вакансію на основіданих таблиці t1 і пропонує претенденту заповнити анкетні дані просебе.
Має 2 кнопки:
- "Відправити" - запускає скрипт itog.cgi і передає в нього анкетні дані претендента;
- "Очистити форму" - стирає з форми помилково введені анкетні дані.
anketa.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Анкета"); print qq (); my $ pas = param ( "vibor ");
$ var = $ pas;
$ var = ~ s/D +//; if ($ pas eq "") (print qq (
Ви забули вибративакансію!); print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; goto quit;
)
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare (" SELECT * FROM t1; ");
$ rows = $ sth-> execute ();
print "Заповніть анкетні дані"; print qq (); print "Основні вимоги до кандидата"; for ($ i = 0; $ ifetchrow_array; if ($ i == $ var)
(print ""; print "Освіта-$ ed"; print "Спеціальність-$ Cpc"; print "Термін роботи за фахом, років -
$ Crok "; print "";
)
) print "";
$ sth-> finish ();
$ dbh-> disconnect ();
print ""; print ""; print "Прізвище ім'я по батькові"; print "Освіта вища нез/вища Ср технічне Ср спеціальна середня
"; print" Спеціальність "; print" Стаж роботи за фахом, років "; print" Адреса "; print "";
print qq {};
print "
"; print ""; print "";
quit: print end_html ();
Файл itog.cgi - виконувана програма.
Перевіряє введені анкетні дані на відповідність основнимвимогам до претендента, при виконанні яких заносить їх в таблицю t2 ізбільшує значення конкурсу на обрану вакансію в таблиці t1, вІнакше виводить мотивоване повідомлення про відмову у прийняттіанкети.
Має 2 кнопки:
- "Назад" - запускає скрипт itog.cgi;
- "На головну" - запускає скрипт Konti.cgi.
itog.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Додавання Анкети"); print qq {};
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare (" SELECT * FROM t1 ;");
$ rows = $ sth-> execute ();
$ fio = param ( 'fio');
$ eda = param (' ed');
$ eda0 = $ eda;
$ eda = ~ s/d +//;
$ eda0 = ~ s/D +//; < p> $ cpca = param ( 'cpc');
$ cpca = ~ tr/А-Я/а-а /;
$ croka = param (' crok ') ;
$ adress = param ( 'adress');
$ var = param (' vib');
$ var = ~ s/D +//; print ""; print qq (); for ($ i = 0; $ ifetchrow_array; if ($ i == $ var)
(if ($ ed = "вища") ($ ed0 = 0;) elsif ($ ed = "нез/вища") ($ ed0 = 1;) elsif
($ ed = "Ср технічне") ($ ed0 = 2;) elsif ($ ed = "Ср спеціальне") ($ ed0 = 3;)else ($ ed0 = 4;) if ($ eda0> $ ed0) ($ fe = 1;) else ($ fe = 0;) if ($ cpca ne $ Cpc) ($ fcp = 1;) else ($ fcp = 0;) if ($ croka <$ Crok) ($ fcr = 1;) else ($ fcr = 0;) if ($ fe == 1 or $ fcp == 1 or $ fcr == 1) (print qq (Вибачте, $ fio, але Вашаанкета не прийнята до розгляду через невідповідність зазначених в нійданих вимогам до кандидата);) else (my $ sth = $ dbh-> prepare ( "SELECT * FROM t2;"); my $ rows = $ sth-> execute ();
$ flag = 0; for ($ j = 0; $ jfetchrow_array; if ($ fio2 eq $ fio)
(
$ flag = 1;
$ knkrs = $ knkrs-1;
$ sql = "update t1 set knkrs = '$ knkrs' where prof = '$ bakans';";
$ dbh-> do ($ sql );
)
)
$ knkrs = $ knkrs 1;
$ sql = "update t1 set knkrs = ' $ knkrs 'where prof =' $ bakans';";
$ dbh-> do ($ sql);
$ sth-> finish (); if ($ flag = = 0) (print qq (Шановний, $ fio, Ваша анкета прийнята для участі вконкурсе.Желаем успіху !};
$ sql = "INSERT INTOt2 (fio, eda, cpca, croka, adress, vak) values ( '$ fio', '$ eda', '$ cpca', '$ croka', '$ adress ',' $ bakans')";
$ dbh-> do ($ sql);
) else (print qq (Шановний, $ fio, в базі даних вже є анкета на Ваше ім'я,прізвище, по батькові. Якщо Ви хочете заповнити нову анкету - змініть свої
ПІБ доповнивши, наприклад, цифровим символом ($ fio-2 ).};
)
)
)
) print qq {};
$ sth-> finish ();
$ dbh-> disconnect (); print "";
print ""; print " "; print qq (); print" "; print "";
print" "; print" "; print" "; print "";
print end_html ();
Файл BDvakans.cgi - виконується програма.
Виводить список вакансій на основі даних таблиці t1 і пропонуєадміністратору додати нові вакансії або видалити вже зайняті.
Має 3 кнопки:
- "Додати" - запускає скрипт Addvakan.cgi;
- "Видалити" -- запускає скрипт vakdel.cgi;
- "На головну" - запускає скрипт Konti.cgi.; і 2 посилання:
- "Список вакансій" - запускає скрипт BDvakans.cgi;
- "Список анкет" - запускає скрипт BDankets.cgi.
BDvakans.cgi
use CGI qw (: standard); use DBI; print header () ; print start_html ( "Список Вакансій"); print qq (); my $ pass = param ( "111"); if (111)
(print "База даних"; print ""; print qq (Список вакансій); print ""; print qq (Список анкет); print "";
print ""; print ""; print qq (Список вакансій
); print ""; print ""; print "";
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare ( "SELECT * FROM t1 ;");
$ rows = $ sth-> execute (); print" "; print" "; print qq (№
Вакансія
Пометітьна видалення); for ($ i = 0; $ ifetchrow_array;
$ i + +; print "
$ i
$ bakans
";
$ i -;
)
$ sth-> finish ();
$ dbh-> disconnect (); print ""; print ""; print ""; print ""; print "";
print ""; print ""; print ""; print "";
) else
(print h1 ( "Неправильний пароль !!!");
) < p> print end_html ();
Файл BDankets.cgi - виконується програма.
Виводить список анкет на основі даних таблиці t2 і пропонуєадміністратору видалити найменш перспективні.
Має 2 кнопки:
- "Видалити" - запускає скрипт ankdel.cgi;
- "На головну" - запускає скрипт Konti . cgi; і 2 посилання:
- "Список вакансій" - запускає скрипт BDvakans.cgi;
- "Список анкет" - запускає скрипт BDankets.cgi. < p> BDankets.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Список Анкет"); print qq (); my $ pass = param ( "111 "); print" База даних "; print" "; print qq (Список вакансій); print" "; print qq (Списоканкет); print "";
print qq (Список анкет);
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare ( "SELECT * FROM t2 ;");
$ rows = $ sth-> execute (); print" "; print" "; print qq ( №
Прізвище Ім'я По-батькові
Освіта
Спеціальність
Термін роботи по спец-ти
Адреса
Вакансія
Пометітьна видалення); for ($ i = 0; $ ifetchrow_array;
$ i + +; print "
$ i
$ fio
$ eda
$ cpca
$ croka
$ adress < p> $ vak
";
$ i -;
)
$ sth-> finish ();
$ dbh-> disconnect (); print ""; print ""; print ""; print ""; print "";
print ""; print ""; print " "; print "";
print end_html ();
Файл Addvakan.cgi - виконується програма.
Пропонує адміністратору форму для внесення даних для нової вакансії
Має 2 кнопки:
- "Відправити дані" - запускає скрипт Dob.cgi і передає в нього дані нової вакансії;
- "Очистити форму" - пере з форми помилково введені дані.
Addvakan.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Додавання Вакансії"); print qq (); print "Заповніть дані для нової вакансії"; print ""; print ""; print "Посада"; print "Освіта вища нез/вища Ср технічне Ср спеціальна середня
"; print " Спеціальність "; print" Стаж роботи за фахом, років "; print" "; print"
"; print" "; print" "; print" "; print end_html (); < p> Файл Dob.cgi - виконується програма.
Службова програма для перевірки наявності введених даних та їх внесенняв таблицю t1. При відсутності даних пропонує повернутися назад або наголовну сторінку.
Має 2 кнопки:
- "Назад" - запускає скрипт Addvakan.cgi;;
- "На головну" - запускає скрипт Konti. cgi;; і 2 посилання:
- "Список вакансій" - запускає скрипт BDvakans.cgi;
- "Список анкет" - запускає скрипт BDankets.cgi. < p> Dob.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Додавання Вакансії"); print qq (); print "База даних"; print " "; print qq (Список вакансій); print" "; print qq (Списоканкет); print "";
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare (" SELECT * FROM t1 ;");
my $ profv = param ( "profv"); my $ edv = param ( "edv"); my $ cpcv = param ( "cpcv"); my $ crokv = param ( "crokv ");
$ crokv = ~ s/D +//; if ($ profv ne "")
(
$ sql = qq (insert into t1 (prof, knkrs, ed, cpc, crok) values
( '$ profv', 0, '$ edv', '$ cpcv', '$ crokv');};
$ dbh-> do ($ sql); print "";
$ sth-> finish ();
$ dbh-> disconnect ();
) else (print qq (Ви не ввели дані. Повторітьвведення .};}
print ""; print ""; print ""; print "";
print ""; print ""; print ""; print "" ; print end_html ();
Файл vakdel.cgi-виконується програма.
Службова програма для видалення вакансії з таблиці t1.
Має 1 кнопку:
- "Назад" - запускає скрипт Konti.cgi; і 2 посилання:
- "Список вакансій" - запускає скрипт BDvakans.cgi;
- "Список анкет "- запускає скрипт BDankets.cgi.
vakdel.cgi
use CGI qw (: standard); use DBI; print header (); print start_html (" Видалення Вакансії "); print qq (); print "База даних"; print ""; print qq (Список вакансій); print ""; print qq (Списоканкет); print "";
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare (" SELECT * FROM t1 ;");
$ rows = $ sth-> execute ();
for ($ i = 0; $ ifetchrow_array; my $ var = param ( "vdel $ i ");
$ var = ~ s/D +//; if ($ i == $ var)
(
$ sql = "delete from t1 where prof = "$ bakans ";";
$ dbh-> do ($ sql);
)
$ i -;
)
$ sth-> finish ();
$ dbh-> disconnect ();
print "";
print ""; print ""; print "";
print end_html ();
Файл ankdel.cgi-виконується програма.
Службова програма для видалення анкети з таблиці t2 і зменшеннязначення конкурсу на вакансію в таблиці t1.
Має 1 кнопку:
- "На головну" - запускає скрипт Konti.cgi; і 2 посилання:
-- "Список вакансій" - запускає скрипт BDvakans.cgi;
- "Список анкет" - запускає скрипт BDankets.cgi.
ankdel.cgi
use CGI qw (: standard); use DBI; print header (); print start_html ( "Видалення Анкети"); print qq (); print "База даних"; print ""; print qq (Список вакансій); print " "; print qq (Списоканкет); print "";
$ dbh = DBI-> connect ( "dbi: mysql: konti ");
$ sth = $ dbh-> prepare (" SELECT * FROM t2 ;");
$ rows = $ sth-> execute ();
for ($ i = 0; $ ifetchrow_array; my $ var = param ( "vdel $ i ");
$ var = ~ s/D +//; if ($ i == $ var)
(
$ sql = "delete from t2 where fio = "$ fio ";";
$ dbh-> do ($ sql); my $ sth = $ dbh-> prepare (" SELECT * FROM t1; "); my $ rows = $ sth-> execute (); for ($ i = 0; $ ifetchrow_array; if ($ bakans eq $ vak)
(
$ knkrs = $ knkrs-1 ;
$ sql = "update t1 set knkrs = '$ knkrs' where prof = '$ vak';";
$ dbh-> do ($ sql);
)
)
$ sth-> finish ();
)
$ i -;
)
$ sth-> finish ();
$ dbh-> disconnect ();
print "";
print ""; print ""; print "";
print end_html ();
Схема розміщення інформації на Internet-сайті
На сервері інформація розташовується в такий спосіб:
| C: Apache |
| htdocs |
| | Kontinental-HH.htm |
| | Titul.htm |
| Cgi-bin |
| | Addanket.bat |
| | Addvakan.bat |
| | Addvakan.cgi |
| | Ankdel.bat |
| | Ankdel.cgi |
| | Anketa.bat |
| | Anketa.cgi |
| | BDankets.bat |
| | BDankets.cgi |
| | BDvakans.bat |
| | BDvakans.cgi |
| | Dob.bat |
| | Dob.cgi |
| | Itog.bat |
| | Itog.cgi |
| | Konti.bat |
| | Konti.cgi |
| | Konti.txt |
| | List.bat |
| | List.cgi |
| | Start.bat |
| | Vakdel.bat |
| | Vakdel.cgi |
Контрольний приклад роботи користувача.
Головна сторінка (Kontinental-HH.htm):
Вибір вакансії (list.cgi):
Заповнення анкети (anketa.cgi):
Успішне внесення анкети в базу даних ( itog.cgi):
Контрольний приклад роботи адміністратора
Перегляд списку вакансій (BDvakans.cgi).
Перегляд списку вакансій (BDankets.cgi).
Додавання нової вакансії (Addvakan.cgi)
Висновки.
. Розробка інформаційної системи на базі MySQL та Internet дозволяє створити велику базу даних. Дана система зручна у використанні та розробці програмно.
. Велике значення має те, що існує відділення програми управління базою даних від інтерфейсу.
. Інтерфейс полягає у створенні запитів на SQL, передачі їх сервером та отримання результату. Запити передаються у вигляді рядків. При отриманні запиту основну роботу виконує сервер. Клієнту надсилаються тільки дані, отримані в результаті отримання запиту. Це призводить до зниження навантаження, що дозволяє підвищити безпеку при роботі з даними. Перед відправкою запиту потрібна реєстрація на сервері.
. Легко організувати багатокористувацьку роботу.
Використана література.
1. Айсбарі С.: Корпоративні рішення на базі LINUX.
2. Орлов С. А.: Технології розробки ПЗ. Розробка складних програмних систем.
3. Матеріали лекцій.
