ZEOS

Ваша IP адреса: 3.85.245.126
Сьогодні: 18.10.2019
19:35
Україна, Київська область, 09200, м. Кагарлик, вул. Паркова, 8
тел. (04573) 5-18-62, e-mail: kagecol_1@ukr.net
Мапа сайту Контакти Головна

Міні чат

BB-Коди

Погода

Натисніть на картинку для збільшення

Календар подій

Календар свят і подій. Листівки, вітання та побажання

Вік сайту

Реклама

Реклама

Авторизація

Календар новин

«  Жовтень 2019  »
ПнВтСрЧтПтСбНд
 123456
78910111213
14151617181920
21222324252627
28293031

Наше опитування

Оцініть наш сайт


Статистика

Онлайн всього: 1
Гостей: 1
Користувачів: 0



Реклама

Реклама 123

Кагарлицька загальноосвітня школа І-ІІІ ступенів №1

Мої учні вивчають СКБД Visual FoxPro

“Система керування базами даних (СКБД) Visual FoxPro.
Практичні роботи до уроків №1,2,3”



Вчитель:
Ковальчук О.С.

м.Кагарлик
2014-2015

Завантажити файл *.doc Завантажити файл *.pdf



ЗМІСТ


Урок №1. Практична робота №1.1. Створення проекту bals


Урок №1. Практична робота №1.2. Створення таблиці БД tabl1


Урок №2. Практична робота №2.1. Пошук ланцюга символів


Урок №2. Практична робота №2.2. Пошук ланцюга символів


Урок №2. Практична робота №2.3. В робочій папці користувача вже існує таблиця tabl1 (список учнів ліцею)


Урок №3. Практична робота №3.1. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи) та заміни прізвища ‘Подобенко’ на прізвище ‘Руденко’ у 5-му та 10-му записах.


Урок №3. Практична робота №3.2. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи). Вилучити записи 5 та 10. Стиснути таблицю.


Урок №3. Практична робота №3.3. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи). У записі 5 замінити прізвище ‘Подобенко на ‘Руденко’. Перейти до початку таблиці. Виконати пошук прізвища ‘Руденко’.


 

Перейти на змст

Урок №1. Практична робота №1.1. Створення проекту bals
В даній практичній роботі необхідно створити проект додатку bals, в який в на наступних уроках будуть добавлятися таблиці БД додатку, а також необхідні для додатку форми, звіти і інші компоненти додатку.
1. Для створення проекту bals виконати команду рядка меню File│Newабо
натиснути кнопку New панелі інструментів. На екрані відкриється вікно
діалога “New” з встановленою опцією Project. Натиснути кнопку New File
(мал. 1.3).
2. У вікні діалога “Create” необхідно задати ім’я проекту balsв полі вводу
Enter project і натиснути кнопку Сохранить.
3. Показати виконану роботу вчителю.
4. Закрити вікно конструктора проекту. Вийти на робочий стіл комп’ютера.

 

Перейти на зміст

Урок №1. Практична робота №1.2. Створення таблиці БД tabl1
В даній практичній роботі необхідно створити структуру таблиці БД з іменем tabl1, в якій буде знаходитися інформація про успішність учнів при вмвчені інформатики. Структура таблиці представлена в табл. 1.5.


Табл. 1.5. Структура таблиці БД tabl1

Ім’я поля

Тип поля

Опис поля

1

Number

Numeric(2,0)

Порядковий номер

2

LastName

Character(20)

Прізвище І’мя

3

Dt01

Character(5)

Оцінка за дату

4

Dt02

Character(5)

-//-

5

Dt03

Character(5)

-//-

6

Dt04

Character(5)

-//-

7

Dt05

Character(5)

-//-

8

Dt06

Character(5)

-//-

9

Dt07

Character(5)

-//-

10

Dt08

Character(5)

-//-

11

Dt09

Character(5)

-//-

12

Dt10

Character(5)

-//-

13

DelivDate

Date

Дата проведення розрахунку

14

Bed

Logical

Добре-Погано

15

Middle

Numeric(2,1)

Середня оцінка

16

Text

Memo

Різна інформація


1. Для створення таблиці БД tabl1 виконати команду рядка меню File│Newабо натиснути кнопку New панелі інструментів. На екрані відкриється вікно діалога “New” (мал.1.3). Вдіалоговому вікні “New” відібрати опцію Table інатиснути кнопку New File (мал. 1.3).
2. В вікні діалога “Create” ввести ім’я таблиці tabl1На екрані з’явитьсі вікно конструктора таблиць “Table Designer”. В вікні конструктора таблиці “Table Designer”ввести назви полів та їх типи.
3. Показати виконану роботу вчителю.
4. Закрити вікно конструктора проекту. Вийти на робочий стіл комп’ютера.

 

Перейти на зміст

 

Урок №2. Практична робота №2.1. Пошук ланцюга символів

В пам’яті комп’ютера існує змінна stro, яка складається з невизначеної кількості символів. Серед цих символів є ланцюжок символів’virus’. Підрахувати кількість повторень цього ланцюжка символів.
Розв’язок:

1. У СКБД FoxPro ввести текст програми з назвою test
CLEAR ALL
CLOSE ALL
STORE 0 TO n
STORE LEN(stro) TO k
FOR i = 1 TO k
        IF SUBSTR(stro,i,5) = ’virus’
             n = n + 1
        ENDIF
ENDFOR
IF n <> 0
    WAIT ‘Вірусів ‘ + STR(n) WIND
ELSE
    WAIT ‘Віруси відсутні‘ WIND
ENDIF
CLOSE

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю

 

Перейти на зміст

 

Урок №2. Практична робота №2.2. Пошук ланцюга символів

Оголосити двумірний масив з назвою tmp розміром 4x4 елемента. Заповнити масив числовими даними згідно приведеної таблиці.


1

1

1

1

2

2

2

2

3

3

3

3

4

4

4

4


Знайти суму елементів масиву. Знайдену суму вивести на екран монітора.

Розв’язок:
1. У СКБД FoxPro ввести текст програми з назвою test
CLEAR ALL
CLOSE ALL
STORE 0 TO nSuma
DECLARE tmp(4,4)
FOR i = 1 TO 4
        FOR k = 1 TO 4
                tmp(i,k) = i
        ENDFOR
ENDFOR
FOR i = 1 TO 4
        FOR k = 1 TO 4
                nSuma = nSuma + 1
        ENDFOR
ENDFOR
WAIT ‘Сума елементів таблиці = ‘ + STR(nSuma) WIND
CLOSE

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю

 

Перейти на зміст

 

Урок №2. Практична робота №2.3. В робочій папці користувача вже існує таблиця tabl1 (список учнів ліцею)

Структура таблиці складається із чотирьох полів:
1. name – прізвище ім’я учня С(24)
2. datr – дата народження учня D()
3. vik – вік учня N(2)
4. den – день народження учня C(10)

Розв’язок:

1. У СКБД FoxPro ввести текст програми з назвою test

CLEAR ALL
CLOSE ALL
USE tabl1
STORE 0 TO k,d
DO WHILE .NOT. EOF()
       k = YEAR(datr)
      d = DATE() – k
      REPLACE tabl1.vik WITH k
      d = CDOW(d)
      REPLACE tabl1.den WITH d
      SKIP
ENDDO
BROWSE
CLOSE

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю

 

Перейти на зміст

 

Урок №3. Практична робота №3.1. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи) та заміни прізвища ‘Подобенко’ на прізвище ‘Руденко’ у 5-му та 10-му записах.

1. У СКБД FoxPro ввести текст програми з назвою test

CLEAR ALL
CLOSE ALL
USE bals
FOR i = 1 TO 32
       APPEND BLANK
       REPLACE bals.name WITH ‘Петренко’
ENDFOR
GOTO 5
REPLACE bals.name WITH ‘Руденко’
BROWSE
GOTO 10
REPLACE bals.name WITH ‘Руденко’
BROWSE
QUIT

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю

 

Перейти на зміст

 

Урок №3. Практична робота №3.2. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи). Вилучити записи 5 та 10. Стиснути таблицю.
 
1. У СКБД FoxPro ввести текст програми з назвою test

CLEAR ALL
CLOSE ALL
USE bals
FOR i = 1 TO 32
        APPEND BLANK
        REPLACE bals.name WITH ‘Петренко’
ENDFOR
GOTO 5
DELETE
WAIT STR(RECCOUNT()) WIND
GOTO 10
DELETE
WAIT STR(RECCOUNT()) WIND
PACK
WAIT STR(RECCOUNT()) WIND
QUIT

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю

 

Перейти на зміст

 

Урок №3. Практична робота №3.3. Розробити програму заповнення таблиці bals прізвищем ‘Подобенко’ (32 записи). У записі 5 замінити прізвище ‘Подобенко на ‘Руденко’. Перейти до початку таблиці. Виконати пошук прізвища ‘Руденко’.
 
1. У СКБД FoxPro ввести текст програми з назвою test

CLEAR ALL
CLOSE ALL
USE bals
FOR i = 1 TO 32
        APPEND BLANK
        REPLACE bals.name WITH ‘Петренко’
ENDFOR
GOTO 5
REPLACE bals.name WITH ‘Руденко’
GOTO TOP
LOCATE FOR bals.name WITH
IF EOF()
WAIT ‘Запис не знайдено’ WIND
ELSE
WAIT bals.name WIND
ENDIF
QUIT

2. Зберегти програму на вінчестері
3. Запустити програму на виконання
4. Отриманий результат продемонструвати вчителю