Размещено на http://www.allbest.ru/

Размещено на http://www.allbest.ru/

МІНІСТЕРСТВО ОСВІТИ І НАУКИ УКРАЇНИ

Полтавський національний технічний університет

імені Юрія Кондратюка

Фінансово-економічний факультет

Кафедра “Інформатики та комп'ютерної техніки”

Звіт

по практикуму

з дисципліни

Інформатика

на тему:

Розробка у середовищі foxpro 8.0 прикладного меню бази даних „абітурієнти”

Виконала:

студентка групи 103-ЕП

Стешенко Марина Анатоліївна

ПОЛТАВА - 2005

Вступ

Завдання на виконання комп'ютерного практикуму базується на курсовій роботі, яку ми виконували протягом другого семестру з дисципліни „Інформатика та комп'ютерна техніка” у середовищі FoxPro 8.0.

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

· Таблиці - довідники та основна облікова таблиця, які заповнені інформацією;

· Розроблені запити для вирішення поставлених задач за допомогою генератора запитів;

· Розроблений формат звіту для виведення результатів вирішених задач.

Під час комп'ютерного практикуму ми повинні продовжити розробку системи керування базою даних та у процесі роботи виконати наступне:

1. У режимі конструктора розробити на основі основної облікової таблиці форму, які вміщуватиме:

· Всі поля облікової таблиці;

· Кнопки переходу по записах: „Перша”, „Попередня”, „Наступна”, „Остання”;

· Кнопки „Редагувати”, „Доповнити”, „Зберегти”, „Відмінити”;

· Кнопку „Вихід”.

2. Створити за допомогою майстра та конструктора:

· Форми для можливості редагування інформації всіх інших таблиць;

· Форми-діалогу на введення умови вибірки та подальшого виклику звіту для показу результату вибірки;

· Форму, яка вміщатиме інформацію про назву програми та її автора.

3. Створити головне меню проекту з реалізацією можливостей:

· Огляду та редагування змісту всіх таблиць (пункт „довідники”);

· Запуску форми обліку (пункт „облік”);

· Запуск на виконання запропонованих задач з викликом форми-діалогу на введення умови вибірки та подальшого виклику звіту для показу результату вибірки (пункт „задачі”);

· Показу інформації про назву програми, автора та інше (пункт „про програму”)

· Підготувати звіт з описом створення кожного пункту завдання та екранними копіями вікон проекту.

Розробка головної форми обліку

У наведеному прикладі буде розглянуто створення системи керування базою даних для автоматизації облік поступаючих абітурієнтів. Основними елементами інтерфейсу можна назвати системне меню та форми. Меню, як елементу поєднуючого всі інші елементи програми, буде присвячений окремий розділ. Зараз приступимо до розгляду інструментів побудови форм. Ми створюємо форму ведення обліку витрачання продуктів, яка вміщуватиме всі поля, необхідні для отримання повної картини результатів функціонування підприємства та буде зручною для роботи голови відділу. Саме зі створення цієї форми-обліку і почнемо роботу.

Проект - це звичайна таблиця, в якій зберігаються відомості про компоненти прикладної системи. Вкладки вікна менеджера проектів якраз і відображують різноманітні типи цих компонентів:

Ш All - всі компоненти.

Ш Data - база даних, її таблиці та вільні таблиці, запити.

Ш Documents - форми, звіти, мітки.

Ш Classes - класи об'єктів.

Ш Code - програмні коди, бібліотеки, інші прикладні програми.

Ш Other - файли меню, текстові файли та інші.

У існуючому проекті відкриваємо папку Documents-Form і натискаємо на кнопку New. Для створення форм FoxPro пропонує три інструменти:

ь Form Wizard - майстер створення найпростіших форм для роботи з даними однієї таблиці.

ь One-to-Many Form Wizard - майстер створення форм для двох, пов'язаних відношенням „один до багатьох” таблиць.

ь Form Designer - конструктор форм, який дозволяє створити форми практично будь-якого рівня складності.

Обираємо New form.

Після цього з'явиться вікно конструктора форм та панель інструментів Form Controls. Панель інструментів Form Controls об'єднує стандартні, визначені в FoxPro об'єкти керування та деякі інші інструменти . Якщо дана панель відсутня, то виконуємо View-Toolbars-Form Controls.

Розглянемо більш детально деякі з об'єктів панелі інструментів:

Label - об'єкт ярлик. Дозволяє ввести у форму текст як об'єкт.

Текст може розміщуватися на кількох рядках. Для цього при введенні в кінці рядка потрібно натиснути клавішу Enter. Використовується для розміщення на формі різних заголовків, пояснювальних текстів.

Text Box - поле введення чи виведення інформації. Створює об'єкт, у якому можна відобразити значення змінної чи поля таблиці та редагувати його, використовуючи всі можливості FoxPro.

Command Button - командна кнопка. Об'єкт, який найчастіше використовується для запуску певної послідовності команд - функції або процедури.

Для встановлення властивостей форми та об'єктів керування викоритовуємо вікно Properties . Воно може мати три області: область об'єктів, область властивостей, область подій.

У верхній частині вікна Properties знаходиться список що розкривається і містить усі об'єкти форми. Він дозволяє вибрати будь-який об'єкт форми чи саму форму.

Область властивостей, методів та подій містить п'ять вкладок категорій: All, Data, Methods, Layout, Other, в яких відображуються для вибраного об'єкта відповідно: всі властивості, методи та

події; властивості, пов'язані з даними об'єкта; методи (події) об'єкта; властивості, пов'язані з розміщенням та форматуванням об'єкта; інші властивості, що не ввійшли в попередні категорії.

Наша облікова таблиця вміщує в себе п'ять полів, саме вони необхідні нам при створенні цієї форми. За допомогою панелі інструментів починаємо додавати елементи у форму. Для цього використовуємо наступні елементи: для створення заголовків полів використовуємо Label, для створення полів використовуємо Text Box та Combo Box , для створення кнопок переходу по записах та обробки записів обираємо елемент Command Button. Після цього клацаємо правою кнопкою миші довільно на будь-якому полі і обираємо у випадаючому меню пункт Properties.

У полі Name пишемо назви наших полів cmbFilm, txtDate1, txtDate2, txtName, txtNomer та назви кнопок - перший, попередній, наступний, останній, редагувати, зберегти, доповнити, відмінити, вихід.

У полі ControlSource усіх Text Box залишаємо з даними до цього комп'ютером назвами. У полі RowSourse для Combo2 вказуємо джерело рядка із довідкової таблиці: spec.cname. У полі RowSourse type ставимо 6 Fields, тобто блокуємо поле з таблиці.

У полі ReadOnly - обираємо T.True - не для змін, тільки читання.

Форма повинна мати наступний вигляд:

Для кнопок у вікні редагування коду у процедурі Click пишемо наступний текст програми (на кожну кнопку окремо):

Перша

Select abitur

GO TOP

thisform.Text1.Value=abitur.nid_abitur

thisform.Text2.value=abitur.csir_name

thisform.Text3.Value=abitur.date

thisform.Combo2.Value=abitur.nid_spec

thisform.Combo2.Requery

thisform.Combo3.Value=abitur.nid_tup

thisform.Combo3.Requery

Попередня

SELECT abitur

thisform.Text1.Value=abitur.nid_abitur

thisform.Text2.value=abitur.csir_name

thisform.Text3.Value=abitur.date

thisform.Combo2.value=1

thisform.Combo3.value=2

Наступна

Select abitur

IF NOT EOF()

SKIP 1

thisform.Text1.Value=abitur.nid_abitur

thisform.Text2.value=abitur.csir_name

thisform.Text3.Value=abitur.date

thisform.Combo2.Value=abitur.nid_spec

thisform.Combo2.Requery

thisform.Combo3.Value=abitur.nid_tup

thisform.Combo3.Requery

ENDIF

Остання

Select abitur

GO BOTTOM

thisform.Text1.Value=abitur.nid_abitur

thisform.Text2.value=abitur.csir_name

thisform.Text3.Value=abitur.date

thisform.Combo2.Value=abitur.nid_spec

thisform.Combo2.Requery

thisform.Combo3.Value=abitur.nid_tup

thisform.Combo3.Requery

Редагувати

m.AddorEdit=2

m.kod1=thisform.Text1.value

m.kod2=thisform.Text2.Value

m.kod3=thisform.Text3.Value

m.kod4=thisform.Combo2.Value

m.kod5=thisform.Combo3.Value

thisform.Command1.Enabled= .F.

thisform.Command2.Enabled= .F.

thisform.Command3.Enabled= .F.

thisform.Command4.Enabled= .F.

thisform.Command5.Enabled= .F.

thisform.Command6.Enabled= .T.

thisform.Command7.Enabled= .T.

thisform.Command8.Enabled= .F.

thisform.Command9.Enabled= .F.

thisform.Text1.ReadOnly= .F.

thisform.Text2.ReadOnly= .F.

thisform.Text3.ReadOnly= .F.

thisform.Combo2.ReadOnly= .F.

thisform.Combo3.ReadOnly= .F.

Доповнити

SELECT abitur

SET DELETED OFF

SELECT MAX(abitur.nid_abitur) as MaxNomer FROM abitur INTO CURSOR curMax

SET DELETED ON

m.AddorEdit=1

m.kod1=thisform.Text1.value

m.kod2=thisform.Text2.Value

m.kod3=thisform.Text3.Value

m.kod4=thisform.Combo2.Value

m.kod5=thisform.Combo3.value

thisform.Text1.Value=curMax.MaxNomer + 1

thisform.Text2.Value=""

thisform.Text3.Value=""

thisform.Command1.Enabled= .F.

thisform.Command2.Enabled= .F.

thisform.Command3.Enabled= .F.

thisform.Command4.Enabled= .F.

thisform.Command5.Enabled= .F.

thisform.Command6.Enabled= .T.

thisform.Command7.Enabled= .T.

thisform.Command8.Enabled= .F.

thisform.Command9.Enabled= .F.

thisform.Text1.ReadOnly= .F.

thisform.Text2.ReadOnly= .F.

thisform.Text3.ReadOnly= .F.

thisform.Combo2.ReadOnly= .F.

thisform.Combo3.ReadOnly= .F.

Зберегти

SELECT abitur

IF m.Add OR Edit=2

replace abitur.nid_abitur WITH thisform.Text1.Value

replace abitur.csir_name WITH thisform.Text2.Value

replace abitur.date WITH thisform.Text3.Value

replace abitur.nid_spec WITH spec.cname

replace abitur.nid_tup WITH tupu.name_tup

ENDIF

IF m.Add OR Edit=1

APPEND BLANK

replace abitur.nid_abitur WITH thisform.Text1.Value

replace abitur.csir_name WITH thisform.Text2.Value

replace abitur.date WITH CTOD(thisform.Text3.Value)

replace abitur.nid_spec WITH spec.cname

replace abitur.nid_tup WITH tupu.name_tup

GO BOTTOM

ENDIF

if m.add or Edit=0

thisform.Command1.Enabled= .T.

thisform.Command2.Enabled= .T.

thisform.Command3.Enabled= .T.

thisform.Command4.Enabled= .T.

thisform.Command5.Enabled= .T.

thisform.Command6.Enabled= .F.

thisform.Command7.Enabled= .F.

thisform.Command8.Enabled= .T.

thisform.Command9.Enabled= .T.

thisform.Text1.ReadOnly= .T.

thisform.Text2.ReadOnly= .T.

thisform.Text3.ReadOnly= .T.

thisform.Text1.Value=abitur.nid_abitur

thisform.Text2.value=abitur.csir_name

thisform.Text3.Value=abitur.date

thisform.Combo2.Value=abitur.nid_spec

thisform.Combo2.Requery

thisform.Combo3.Value=abitur.nid_tup

thisform.Combo3.Requery

endif

Відмінити

if m.AddorEdit=0

thisform.Text1.value=m.kod1

thisform.Text2.Value=m.kod2

thisform.Text3.Value=m.kod3

thisform.Combo2.Value=m.kod4

thisform.Combo3.Value=m.kod5

thisform.Command1.Enabled= .T.

thisform.Command2.Enabled= .T.

thisform.Command3.Enabled= .T.

thisform.Command4.Enabled= .T.

thisform.Command5.Enabled= .T.

thisform.Command6.Enabled= .F.

thisform.Command7.Enabled= .F.

thisform.Command8.Enabled= .T.

thisform.Command9.Enabled= .T.

thisform.Text1.ReadOnly= .T.

thisform.Text2.ReadOnly= .T.

thisform.Text3.ReadOnly= .T.

endif

Вихід

release thisform

Після цього у полі Caption пишемо назву форми: Облік.

У полі Name пишемо: Oblik .

Для форми у процедурі Init пишемо наступну послідовність команд:

SELECT obli_k

thisform.cmbFilm.value=1

thisform.txtNomer.Value=obli_k.nid_oblik

thisform.txtDate1.Value=obli_k.date1

thisform.txtDate2.Value=Obli_k.date2

thisform.txtName.Value=obli_k.cname_kl

SET DELETED ON

PUBLIC m.kod1, m.kod2, m.kod3, m.kod4, m.kod5, m.AddorEdit

Для форми у процедурі Load використовуємо таку послідовність команд:

SET DELETE ON

m.AddorEdit = 0

При натисненні кнопки Run Form, дана форма буде мати вигляд:

Створення допоміжних форм

Для подальшої зручності роботи з довідниками - доповнення, редагування, знищення записів та інше створюємо форми на кожну таблицю-довідник.

· Форми для можливості редагування інформації у довідниках

Для створення цих форм зкористаємося допомогою майстра. У існуючому проекті відкриваємо папку Documents-Form і натискаємо на кнопку New. У результаті з'явиться вікно в якому нам пропонується створити форму двома шляхами: за допомогою майстра та у режимі конструктора. Обираємо Form Wizard. Далі, користуючись підказкою майстра на кожному кроці створюємо форми для всіх наші довідкових таблиць.

Обираємо таблицю і поля з неї.

Обираємо тип форми.

Обираємо умову сортування.

Називаємо форму і зберігаємо її у папці Forms нашого проекту.

Одержану форму у режимі Modify редагуємо на свій смак. Вона буде мати вигляд:

Аналогічно робимо всі інші форми.

* Форми-діалогу для видалення запису

Будь яке знищення веде до втрати інформації, тому необхідно внести додаткове попередження на натискання кнопки Видалити користувачем при роботі з формою обліку. Форму з іменем Delete створюємо у режимі конструктора. Вона містить дві кнопки та текст запиту на видалення. Для кнопки Так у процедурі Click пишемо послідовність команд:

m.IsDel = 0

RELEASE ThisForm

Для кнопки Ні пишемо наступну послідовність команд:

m.IsDel = 1

RELEASE ThisForm

Дана форма матиме вигляд:

* Форми Про програму

Кожна програма повинна мати свою візитну картку. Форма з іменем About створюється саме з цією метою . Створюємо її аналогічно попередній, за допомогою конструктора. Вона відображує відомості про автора програми, її назву та інше і має наступний вигляд:

Створення головного меню проекту

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

Довідники. Включає в себе випадаюче меню зі списком довідників для внесення змін у довідникові таблиці. Всі функції внесення змін виконуються у екранному режимі. Пункт Довідники розгортається у випадаюче підменю.

Облік. Дозволяє відкрити облікову форму, яка використовується для внесення результатів призначень і переміщень робітників. Цей пункт можна розглядати як основний у програмі.

Задачі. Включає в себе всі пункти які пов'язані із створенням необхідних відображень на підставі інформації з таблиць бази даних. Цей пункт меню логічно завершує роботи програми, надаючи можливість отримати ту чи іншу інформацію на підставі створення відображень.

Про програму. Виконання цього пункту меню надає користувачеві отримати інформацію про автора програми, її номер, версію, права власності та ін. Ця інформація надається у спеціальному вікні і викликається безпосередньо з пункту меню «Про програму».

Вихід. Цей пункт передбачає закінчення роботи з програмою і коректний вихід з неї.

Створення системи меню у VFP може виконуватися програмним шляхом або за допомогою конструктора меню.

Для створення головного меню проекту у існуючому проекті відкриваємо папку Other-Menus і натискаємо на кнопку New. У результаті з'явиться вікно в якому нам пропонується створити Menu або Shortcut. Обираємо Menu.

При виклику конструктора меню в меню View головного меню FoxPro додаються дві команди - General Options та Menu Options.

Команда General Options викликає одноіменне діалогове вікно.

Ставимо галочку у Menu code-Setup і пишемо наступну послідовність команд:

Після написання процедури переходимо до створення безпосередньо меню.

Стовпець Prompt містить поле для введення назв пунктів меню.

Стовпець Result містить список, що включає в себе чотири варіанта дій:

Command - буде виконуватися команда, яку введено в поле наступного стовпця;

Pad Name - до створюваного меню приєднується вбудоване меню системи FoxPro.

Submenu - дозволяє створити меню наступного рівня. Для створення такого підменю потрібно натиснути кнопку Create, яка з'являється в полі праворуч.

Procedure - викликає вікно редагування коду, де можна ввести довільний фрагмент програми. Цей фрагмент буде виконуватися при виборі відповідного пункту.

Останній стовпець Options містить кнопки виклику вікна встановлення опцій вибраного пункту меню.

Кнопки Insert, Insert Bar та Delete призначені для вставки та видалення пунктів меню.

Кнопка Preview дозволяє проглянути структуру системи меню в процесі його створення.

У поле Prompt вносимо всі назви пунктів меню: Довідники, Облік, Задачі, Про програму, Вихід.

У полі Result ставимо Submenu тобто випадаючий список, для пунктів Довідники і Задачі:

Command ставимо для кнопок меню, які будуть викликатися безпосередньо з панелі меню програми, тобто для пункту Облік і Про програму, для кнопки Вихід ставимо Procedure.

Для пункту Вихід пишемо наступну послідовність команд:

SET SYSMENU TO DEFAULT

SHOW WINDOW ALL

SHOW WINDOW "COMMAND"

SHOW WINDOW "STANDARD"

CANCEL

Для меню Довідники вносимо у поле Prompt назви наших форм. У полі Result ставимо Command, а у полі Options пишемо наступну команду: Do form „шлях до форми”і так далі для кожної форми.

Для меню Задачі вносимо у поле Prompt назви наших форм: 1 , 2, 3. І робимо аналогічні дії.

Висновок

програма управління база даних

Однією з основних сфер використання комп'ютера в сучасному інформатизованому суспільстві є зберігання й обробка великих обсягів інформації. Процес вирішення будь-якої задачі на комп'ютері являє собою обробку даних. Даними можуть бути, наприклад, числа, літери, слова, прізвища працівників якогось закладу, підприємства чи установи, їх адреси, телефони, показники роботи підприємства і таке інше.

Нагадаємо, що база даних - це систематизоване сховище інформації певної предметної галузі, до якого можуть мати доступ різні користувачі для вирішення своїх завдань.

Завдання на виконання комп'ютерного практикуму базується на курсовій роботі, яку ми виконували протягом другого семестру з дисципліни „Інформатика та комп'ютерна техніка” у середовищі FoxPro 8.0. Завдання моєї роботи: „Облік фільмів відеопрокату міста”.

Напротязі розробки всіх поставлених переді мною завдань у середовищі FoxPro 8.0 по „Обліку продуктів на підприємстві громадського харчування” я впевнилася втому, що слід бути дуже уважною, адже, це є запорукою позитивного кінцевого результату. Наприклад, неуважно вказуючи шлях до якогось елемента нашого проекту чи невірно вказані дані, задані нами попередньо при створенні того чи іншого об'єкту, то в подальшій нашій роботі можуть виникнути труднощі, яких можна було б уникнути завдяки ретельній перевірці усіх виконуваних нами дій.

Тож слід ретельно перевіряти всі дані, і це допоможе уникнути помилок.

Список використаної літератури

1. Клименко В.І., Рогоза М.Є. Бази даних. СУБД Visual FoxPro 6.0.: Навч. пос. - П.: ПНТУ,2002.

Размещено на Allbest