Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
lab_rab_pascal_delphi.doc
Скачиваний:
0
Добавлен:
01.05.2025
Размер:
6.06 Mб
Скачать
    1. Шифрування бази відповідей

Гра повністю написана, але, щоб правильно відповісти на питання, не обов'язково все знати. Що може перешкодити користувачеві відкрити файл lucky.ini і прочитати там правильну відповідь. Звідси висновок: базу даних відповідей необхідно зашифрувати! Ми не будемо використовувати складних шифраторів, а застосуємо просту операцію хоr. Отже, додамо на початку обробника події OnCreate форми Forml наступний код:

procedure TForml.FormCreate (Sender: TObject);

label ran;

begin

// Зіставимо змінну fl і повний шлях до файлу lucky.ini

AssignFile (fI, ss);

// Змінна f2 буде відповідати за файл C: \ xor.ini

AssignFile (f2, 'C: \ xor.ini');

Reset (fl); // відкриваємо файл на читання

Rewrite (f2); // відкриваємо файл на запис

while not eof (fl) do // поки не досягнуть кінець файла

begin

Read (fl, cop); // читаємо lucky.ini

cop: = chr (ord (сор) хог 123); // Дешифруючи дані

Write (f2, cop); // записуємо їх в xor.ini

end;

CloseFile (fl); CloseFile (f2); // Закриваємо файли

Randomize; // активізуємо генератор випадкових чисел

    1. Тепер необхідно внести деякі зміни до розділу оголошення змінних.

var

fl, f2: file of char;

cop: char;

    1. У процедурі обробки події OnCreate, перевизначте змінну ss:

ss: = 'c: \ xor.ini'; // розміщення бази даних

..І нарешті, зашіфруйте файл lucky.ini. Для цього на швидку руку створіть програму, скопіюйте з нашої гри фрагмент коду, який дешифрує базу питань. Так як хоr - абсолютно оборотна функція (тому й ненадійна) цим же способом можна зашифрувати і базу. Приклад зашифрованою бази питань зображений на рис. 2.11.

    1. В ідкомпілюйте і запустіть програму.

  1. Файл Close All.

  2. Оформіть звіт по лабораторній роботі: тема і мета роботи; послідовність виконання роботи.

Delphi 7.

Лабораторна робота № 9.

Тема: Проектування субд в середовищі delphi.

Мета: Ознайомитись з компонентами роботи з субд.

Постановка завдання:

У військкоматі ведеться облік юнаків допризовного та призовного віку. Є наступні дані: район, прізвище, рік народження, номер особової справи, придатність до служби ("придатний" або "не придатний"). Програма повинна відповідати наступним вимогам:

  • Працювати в двох режимах: введення і пошуку інформації

  • В режимі пошуку формувати такі запити:

1. вивести список юнаків, призваних на службу в заданому році (після досягнення 18 років);

2. кількість придатних юнаків для кожного з районів;

3. вивести список юнаків, придатних до служби;

4. кількість юнаків, придатних і непридатних до служби;

5. відсортувати список за абеткою в порядку зростання і в порядку убування;

6. знайти самого «старого» і самого молодого юнака;

7. список юнаків, прізвище яких починається на задану букву;

8. створити таблицю archive аналогічної структури, скопіювати в неї всі дані з основної таблиці.

9. вивести до звіту відсортований за прізвищами список юнаків, придатних до служби.

Короткі теоретичні відомості. Створення і перегляд псевдонімів баз даних

Створити або змінити шлях до існуючих псевдонімів БД можна двома способами.

Спосіб перший. Запустити утиліту BDE Administrator. Вибрати в меню Object - New. Визначити назву і шлях до файлів БД.

Спосіб другий. Запустити утиліту DataBase DeskTop. Вибрати в меню Tools - Alias Manager. Натиснувши кнопку New можна створити новий псевдонім, або змінити шлях до існуючого в області вікна Path.

Типи полей таблиці в Paradox 7

Тип

Позначення

Опис значення

Alpha

А

Рядок символів. Довжина не більше 255 символів

Number

N

Число з плаваючою крапкою. Діапазон -10307 ... 10308. Точність 15 цифр мантиси

Money

$

Грошова сума. Відрізняється від типу Number тим, що в значенні відображається грошовий знак. Позначення грошового знаку залежить від установок Windows

Short

S

Ціле число. Діапазон -32 768 ... 32767

Longlnteger

I

Ціле число. Діапазон -2 147 483 648 ... 2 147483647

BCD

#

Число в двіково – десятковому форматі

Date

D

Дата. Діапазон 01.01.9999 до н. э. ... 31.12.9999

Time

Т

Час

Timestamp

@

Дата и час

Memo

M

Рядок символів. Довжина не обмежена. Перші 240 символів зберігаються в файлі таблиці, інші в файлі з розширенням MB

Formatted Memo

F

Рядок символів. Відрізняється від типу Memo тим, що рядок може містити форматований текст

Graphic

G

Графічне зображення. Формати BMP, PCX, TIF, GIF і EPS. При завантаженні в поле зображення перетвориться до формату BMP. Для зберігання ізо-бражения використовується файл з розширенням MB

OLE

О

Дані у форматі, який підтримується технологією OLE. Дані зберігаються у файлі з розширенням MB

Соседние файлы в предмете [НЕСОРТИРОВАННОЕ]