МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ
Кабардино-Балкарський Державний Університет ім. Бербекова х.м.
Виконав: студент
Факультету Інформатики та Управління
Перевірив:
Нальчик 2003р.
Зміст.
1. Введення.
2 База даних та способи її подання.
3. Властивості полів бази даних.
4. Цілі і завдання.
5. Розробка системного меню.
6. Опис програми.
6.1 Інструкції щодо використання програми.
6.2 Опис процедур.
7. Результати.
8. Висновок.
9. Лістинг програми.
1.Вступ.
На сьогоднішній день у світі працюють сотні мільйонів персональнихкомп'ютерів. Вчені, економісти, політики вважають, що до початку третина -го тисячоліття:
- кількість комп'ютерів у світі зрівнялася із кількістю жителів розвиненихкраїн.
- більшість цих комп'ютерів буде включено у світові інформаційніные мережі.
- вся накопичена людством до початку третього тисячоліття інформаціябуде переведена в комп'ютерну (двійкову) форму, а вся інформація будеготуватися за допомогою (або за участю) комп'ютерів; вся інформація будебезстроково зберігатися в комп'ютерних мережах;
- повноцінний член суспільства третього тисячоліття повинен буде каждодневале взаємодіяти з локальними, регіональними чи світовими мережами здопомогою комп'ютерів.
При такій комп'ютеризації практично всіх галузейжиттєдіяльнесті людини виникає питання про створення програм дозволяють створюватиподібні бази даних. Тому і була розроблена дана програма, котораю дозволяє створити базу даних, що зберігає в собі інформацію проуспішності школярів ..
2.База даних і способи її подання.
База Даних (БД) - це інформація, представлена у вигляді двовимірнихтаблиць. БД містить безліч рядків, кожен з яких відповідаєоб'єкту. Для кожного об'єкта використовуються певні незалежні позиції,які називаються полями. Уявімо собі таку БД, що містить рядки істовпці (найпростіший випадок). Кожен рядок, що називається так само записом,відповідає певному об'єкту. Кожен стовпець містить значеннявідповідних даних про об'єкт.
БД може складатися не з однієї таблиці, а з двох, трьох і більше.
Додаткову інформацію про об'єкт можна зберігати в додатковихтаблицях.
Одне з потужних засобів БД полягає в тому, що інформацію можнавпорядковувати за тим критерієм, який задає користувач. У Pascal БДнадається у вигляді списку термів види: імя_предіката_бази
(поля_запісі). Імена БД описуються в розділі. Доступ до записів БДздійснюється за допомогою предиката бази. pascal надає доситьбагато коштів по роботі з такими БД: завантаження, запис, додавання і т.д.
База даних - це організована структура, призначена для зберіганняінформації. У сучасних базах даних зберігаються не тільки дані, але йінформація.
Це твердження легко пояснити, якщо, наприклад, розглянути базу данихвеликого банку. У ній є всі необхідні відомості про клієнтів, про їхадреси, кредитну історію, стан розрахункових рахунків, фінансовихопераціях і т.д. Доступ до цієї бази даних мається в досить великоїкількості співробітників банку, але серед них навряд чи знайдеться така особа,яка має доступ до всієї бази цілком і при цьому здатне одноосібновносити в неї довільні зміни. Крім даних, база містить методи ізасоби, що дозволяють кожному зі співробітників оперувати тільки з тимиданими, які входять в його компетенцію. В результаті взаємодіїданих, що містяться в базі, з методами, доступними конкретним співробітникам,утворюється інформація, яку вони споживають і на підставі якої вмежах власної компетенції роблять введення і редагування даних.
З поняттям бази даних тісно зв'язане поняття системи керування базоюданих. Це комплекс програмних засобів, призначених для створенняструктури нової бази, наповнення її вмістом, редагування вмістуі візуалізації інформації. Під візуалізацією інформації бази розумієтьсявідбір відображаються даних відповідно із заданим критерієм, що їхупорядкування, оформлення і наступна видача на пристрої висновку абопередачі по каналах зв'язку. У світі існує безліч систем управліннябазами даних. Попри те, що вони можуть по-різному працювати з різнимиоб'єктами і надають користувачу різні функції і засоби,більшість СУБД спираються на єдиний усталений комплекс основних понять.
Це дає нам можливість розглянути одну систему й узагальнити її поняття,прийоми і методи на весь клас СУБД. В якості такого навчального об'єкта мивиберемо СУБД Pascal 7.0, що входить в пакет Pascal 7.0.
3.Свойства полів бази даних.
Поля бази даних не просто визначають структуру бази - вони ще визначаютьгрупові властивості даних, записуваних в комірки, що належать кожному зполів. Нижче перераховані основні властивості полів таблиць баз даних наприкладі СУБД Pascal 7.0 .. o Ім'я поля - визначає, як слід звертатися до даних цього поля при автоматичних операціях з базою (за замовчуванням імена полів використовуються як заголовків стовпців таблиць). o Тип поля - визначає тип даних, які можуть міститися в даному полі. o Розмір поля - визначає максимальну довжину (в символах) даних, які можуть розміщуватися в даному полі. o Формат поля - визначає спосіб форматування даних в комірках, що належать поля. o Маска вводу - визначає форму, в якій вводяться дані а поле
(засіб автоматизації введення даних). o Підпис - визначає заголовок стовпця таблиці для даного поля (якщо підпис не вказана, то як заголовок стовпця використовується властивість
Ім'я поля). o Значення за замовчуванням - те значення, яке вводиться в комірки поля автоматично (засіб автоматизації введення даних). o Умова на значення - обмеження, яке використовується для перевірки правильності введення даних (засіб автоматизації введення, яке використовується, як правило, для даних, що мають числовий тип, грошовий тип або тип дати). o Повідомлення про помилку - текстове повідомлення, яке видається автоматично при спробі введення в поле помилкових даних. o Обов'язкове поле - властивість, що визначає обов'язковість заповнення цього поля при наповненні бази. o Порожні рядки - властивість, що дозволяє введення порожніх строкових даних (від властивості Обов'язкове поле відрізняється тим, що відноситься не до всіх типів даних, а лише для деяких, наприклад до текстових). o Індексовані полі - якщо поле володіє цією властивістю, всі операції, пов'язані з пошуком або сортуванням записів за значенням, що зберігається в даному полі, істотно прискорюються. Крім того, для індексованих полів можна зробити так, що значення в записах будуть перевірятися по цьому полю на наявність повторів, що дозволяє автоматично виключити дублювання даних.
Оскільки в різних полях можуть міститися дані різного типу, то йвластивості у полів можуть відрізнятися в залежності від типу даних. Так,наприклад, список вищевказаних властивостей полів відноситься в основному до полівтекстового типу.
Поля інших типів можуть мати або не мати ці властивості, але можуть додаватидо них і свої. Наприклад, для даних, що представляють дійсні числа,важливою властивістю є кількість знаків після десяткової коми. Зіншого боку, для полів, що використовуються для зберігання малюнків,звукозаписів, відео кліпів та інших об'єктів OLE, більшість вищевказанихвластивостей не мають сенсу.
4.Целі і завдання.
При створенні цієї програми стояли наступні цілі:
. Написати програму, яка дозволила б обробляти, сортувати і змінювати інформацію про автостоянки.
Так само при створенні цієї програми стояли наступні завдання:
. Дана програма повинна мати простий і зручний інтерфейс користувача.
. Дана програма повинна мати малу ресурсомісткість.
5.Разработка системного меню.
Системне меню або основне меню повинне забезпечувати зручневзаємодія користувача з програмою. У меню мають увійти пунктизбереження, перегляду, введення нових даних і.т.д. Користувачеві потрібно всьоголише натиснути кнопку 'enter'. У меню даної програми є шістьпунктів:
1-Створення файлу
2-Додавання запесі
3-Коригування запесі
4-Перегляд запесі з файлу
5-Видалення запесі
6-Вихід
1 - Створення нового файлу - Створюється новий файл з ім'ям заданимпoльзователем програми
2 - Перегляд вмісту файлу - на екран по черзі видаються раннєвід запису у вигляді:
Прізвище господаря:
Ім'я хазяїна: марка машини: модель маштни: тип кузова: номер машини: регіон: рік випуску: колір:
3 - Додавання запису - Створення нового запису і фото додаючи його в кінецьзапису.
4 - Пошук по номеру палати - Дозволяє знаходити дані про відпочиваючим за номером палати, в якому зареєстрований відпочиваючий.
5 - Вихід з програми - вихід з програми
6.Опісаніе програми.
6.1Інструкція щодо використання програми.
Для запуску цієї програми необхідно перейти на диск 3.5 "A"додається до даної роботи і ввійти в директорію «KYRSOVAI».
Створення бази даних.
Для того щоб створити базу даних користувачу необхідно натиснутипункт «СТВОРЕННЯ файла» у головному меню за допомогою «ENTER». Після цьогоз'явиться такий рядок: «ПОСТАВТЕ Ім` я файла ЯКИЙ СОЗДОВАТЬСЯ ».
Далі через «ENTER» вводяться дані.
Доповнення даних.
Для додатки даних необхідно натиснути кнопку «ENTER». Післяцього з'явитися такий рядок: «ПОСТАВТЕ Ім` я файла В ЯКИЙ
Добовлять ЗАПИС »
Вииход.
Возврощает в головну програму.
2. Опис процедур.
Creatfile-створення файлу;
Addrecord-додавання запесі;
Inputfile-введення даних;
Redzap-коректування;
Openfile-перегляд;
Clearfile-видалення.
Висновок.
Виконана робота дозволяє будь-якому користувачеві з легкістю створювати великі обсяги інформації, обробляти їх, сортувати, робити вибірки за певними критеріями.
Використання такої програми в сучасному світізначно полегшує діяльність людини.
Program kursovay;uses Crt, Dos; type prokat = record
Sname_Hozaina, Name_Hozaina: string [15]; markauto: string [20]; model_auto: string [20]; tip_kyzova: string [20]; nomer_auto: string [ 20]; region: integer; god_vipyska: integer; color: string [20]; end; var f: file of prokat; zn, filename: string; k: integer; label 11;
(-- -------------------------------------------------- -------}
procedure Creatfile; begin writeln ( 'Задайте ім'я файлу, який буде створюватися'); readln (filename); assign (f, filename); rewrite (f); end ;
{----------------------------------------- ------------------}
procedure Addrecord; var rez: integer; ch: char; begin while rez0 do begin writeln ( 'Задайте ім'я файлу, в який буде додаватися запис '); readln (filename); assign (f, filename); reset (f); rez: = IOResult; if rez0 then begin writeln (' Перевірте правильність імені файлу! '); writeln (' Чи буде повторне завдання імені файлу? (Y/N) '); readln (ch); if (ch =' n ') or (ch =' N ') then halt (0); end; end; seek (f, filesize ( f)); end;
{==================================== ======================}
procedure Inputfile; var st: prokat; k: char; begin repeat writeln ( 'Введіть дані про новому клієнта: '); write (' Прізвище Господаря: ');readln (st.Sname_Hozaina); write ( 'Ім'я Господаря:');readln (st.Name_Hozaina); write ( 'марка машини:'); readln (st.markauto); write ( 'модель машини:'); readln (st.model_auto); write ( 'тип кузова:');readln (st.tip_kyzova); write ( 'номер машини:'); readln (st.Nomer_auto); write ( 'регіон:'); readln (st.region); write ( 'рік випуску:'); readln (st . God_vipyska); write ( 'колір:'); readln (st.color); write (f, st); write ( 'Чи треба вводити дані про нового клієнта?
(Y/N )>'); readln (k); writeln; until (k = 'n') or (k = 'N'); close (f); end;
(== ================================================== =====}
procedure redzap;var st: prokat; filename, str: string;
Sname_Hozaina2, Name_Hozaina2: string [15]; markauto2: string [20]; model_auto2: string [20]; tip_kyzova2: string [20]; nomer_auto2: string [20]; region2: integer; god_vipyska2: integer; color2: string [20]; x: integer;begin writeln ( 'Задайте ім'я файлу'); readln (filename); assign (f, filename); reset (f); with st do begin write ( 'Введіть прізвище клієнта:'); readln (str); x: = 0 ; while not eof (f) do begin read (f, st); if st.Sname_Hozaina = str then begin writeln ( 'Введіть нові дані про клієнта:'); write ( 'Прізвище господаря:');readln (st.Sname_Hozaina); write ( 'Ім'я хазяїна:'); readln (st.Name_Hozaina); write ( 'марка машини:'); readln (st.markauto); write ( 'модель машини:'); readln ( st.model_auto); write ( 'тип кузова:'); readln (st.tip_kyzova); write ( 'номер машини:'); readln (st.nomer_auto); write ( 'регіон:'); readln (st.region ); write ( 'рік випуску:'); readln (st.god_vipyska); write ( 'колір:'); readln (st.color);
Sname_Hozaina2: = Sname_Hozaina; markauto2: = markauto;
Name_Hozaina2: = Name_Hozaina; color2: = color;
Nomer_auto2: = Nomer_auto; model_auto2: = model_auto;
God_vipyska2: = God_vipyska; tip_kyzova2: = tip_kyzova ; region2: = region; seek (f, filepos (f) -1); write (f, st); x: = 1; end; end; close (f); end; if x = 0 then begin writeln ( ' Записи з таким прізвищем немає! '); readln end;end;
{======================================== ======================}
procedure Openfile; var rez: integer; ch: char; begin while rez0 do begin writeln ( ' Задайте ім'я файлу '); readln (filename); assign (f, filename); reset (f); rez: = IOResult; if rez0 then begin writeln (' Перевірте правильність імені файлу! '); writeln (' Чи буде повторне завдання імені файлу? (Y/N) '); readln (ch); if (ch =' n ') or (ch =' N ') then halt (0); end; end; end;
{================================================ ============}
procedure Outputfile; var st: prokat; k: char; begin writeln ( 'Хочете подивитися дані про клієнтів? (Y/N)'); readln (k); if (k = 'y') or (k = 'Y') then while not eof (f) do begin read (f, st); clrscr; writeln ( 'Прізвище господаря:', st.Sname_Hozaina ); writeln ( 'Ім'я хазяїна:', st.Name_Hozaina); writeln ( 'марка машини:', st.markauto); writeln ( 'модель машини:', st.model_auto); writeln ( 'тип кузова:', st . tip_kyzova); writeln ( 'номер машини:', st.nomer_auto); writeln ( 'регіон;', st.region); writeln ( 'рік випуску:', st.god_vipyska); writeln ( 'колір:', st . color); writeln ( 'Для продовження натисніть (enter)'); readln; end; close (f); end;
{=============== =========================================}
procedure Clearfile; var st: prokat; studtoout: string [20]; fo: file of prokat; begin writeln ( 'Задайте ім'я файлу, з якого віддаляються елементи'); readln (filename); assign (f, filename); reset (f ); assign (fo, 'newfile.dat'); rewrite (fo); writeln ( 'Задайте прізвище клієнта, запис про якевидаляється '); readln (studtoout); while not eof (f) do begin read (f, st); if st.sname_Hozainastudtoout then write (fo, st); end; close (f); close (fo); erase ( f); rename (fo, filename); end;
(ОСНОВНА ЧАСТИНА ПРОГРАМИ)
Begin 11: clrscr; writeln ( 'МЕНЮ:'); writeln ('1: Створення файлу '); writeln ('2: Додавання записати файл'); writeln ('3: Коригування запису '); writeln ('4: Перегляд файлу'); writeln ('5: Видалення запису з файлу '); writeln ( '6: Вихід з програми '); readln (k); case k of 1: begin Creatfile; Inputfile end;
2: begin Addrecord; Inputfile end;
3: redzap ;
4: begin Openfile; Outputfile end;
5: Clearfile;
6: Halt; else writeln ( 'Ошібка.Повторіте номер режиму.') end;goto 11;
End.
