
- •1 Вступ
- •2 Постановка задачі
- •2.1 Характеристика предметної області
- •2.2 Вимоги до програми
- •2.3 Структура вхідних даних
- •2.4 Структура вихідних даних
- •3 Комп’ютерна система
- •3.2 Вибір програмних засобів та операційної системи
- •4 Об’єктно-орієнтоване проектування
- •4.1 Інтерфейс програми
- •4.2 Алгоритм рішення задачі
- •5 Програмування та тестування
- •5.1 Розробка програми
- •5.2 Етапи відладки
- •5.3 Типи помилок
2.4 Структура вихідних даних
Вихідні дані – це величини, що виводяться в результаті роботи алгоритму.
Загальна структура бази даних не змінюється, відповідно структура вихідних даних буде такою, як і структура вхідних даних.
3 Комп’ютерна система
3.1 Технічні характеристики комп’ютера та зовнішніх пристроїв
- RAM 2 Гбайт.
- HDD 250 Гбайт.
- LG Flatron L195S.
- nVidia GeForce 7600 GS.
- Операційна система Microsoft Windows Seven.
Для функціонування програми необхідний наступний мінімальний
набір технічних і програмних засобів:
Процесор – 600 MГц;
Вільний простір на HDD – 25 Mбайт;
Оперативна пам’ять – 64 Mбайт
Дозволяюча можливість монітора – 800х600.
- Операційна система сімейства Microsoft Windows.
3.2 Вибір програмних засобів та операційної системи
При написанні даної програми було використано середовище роз-
робки програмного забезпечення компанії Borland – Borland Delphi 7.0.
Дане середовище розробки має всі необхідні інструменти для
використання необхідних вимог та функцій. Має можливість
підключати і використовувати бази даних, створювати графічний
інтерфейс та об’єкто-орієнтовну модель.
Операційна система сімейства Microsoft Windows. Найпоширеніша
операційна система, забезпечує функціонування графічних програм.
Програмне забезпечення для роботи з базами даних Paradox 7,
оскільки цей тип найбільше підходить при взаємодії з Delphi і гарантує
цілісність даних та доступність.
Delphi — це інтегроване середовище швидкої розробки
програмного забезпечення для роботи під Microsoft Windows. Воно
підтримує розробку Windows-застосунків на мові програмування Delphi,
яка є наступницею мови Object Pascal.
Delphi 2007, одинадцята версія, входить до складу CodeGear RAD
Studio 2007, яка також підтримує розробку на C++ для 32-
бітної Microsoft Windows, а також на Delphi і C# для
платформи Microsoft .NET. У Delphi 2009, що випущена у серпні 2008-
ого, бібліотеки VCL та IDE повністю переведені на Юнікод, також
з'явилися нові можливості компілятора (узагальнення (англ. Generics) і
(анонімні методи), в IDE було додано менеджер ресурсів та повністю
перебудовано менеджер проектів. Найновіша, чотирнадцята версія,
має назву Delphi 2010 і входить до Embarcadero RAD Studio 2010.
4 Об’єктно-орієнтоване проектування
4.1 Інтерфейс програми
Для створення зручного програмного інтерфейсу в Delphi 7 було використано додатковий компонент Alpha Controls. Alpha Controls – це набір стандартних та деяких унікальних компонентів які підтримують скіни (AlphaSkins),а також мають деякі додаткові можливості.
Рисунок 4.1 – Головна форма.
Рисунок 4.2 – Нагадування.
4.2 Алгоритм рішення задачі
Програма складається 12 форм які в свою чергу виконують різні функції.
.
Рисунок 4.3 – Кнопка додати.
procedure Tmain.N1Click(Sender: TObject);
begin
reminder.showmodal;
end;
procedure Tmain.N1Click(Sender: TObject);
begin
reminder.showmodal;
end;
procedure Tmain.N3Click(Sender: TObject);
begin
addnotes.showmodal;
end;
Основні функції програми розташовані в головному меню програми.
Рисунок 4.4 – Головне меню.
При додаванні даних в базу виконуються такі процедури:
procedure Taddnotes.Button1Click(Sender: TObject); procedure Taddphone.Button2Click(Sender: TObject); procedure Treminder.Button1Click(Sender: TObject);
Зразок додавання даних в базу даних:
procedure Taddnotes.Button1Click(Sender: TObject); var
dt:TDateTime;
begin
dt:=now;
main.Table3.Append;
main.Table3.FieldByName('name').AsString:=Edit1.Text;
main.Table3.FieldByName('text').AsString:=Memo1.Text;
main.Table3.FieldByName('date').AsDateTime:=dt;
main.Table3.Post;
main.Table3.Refresh;
Edit1.Clear;
Memo1.Clear;
Close;
end;
Процедура нагадування.
procedure Tmain.Timer1Timer(Sender: TObject);
var
NowDate, BDate: string;
begin
Table4.First;
While not Table4.Eof do
begin
NowDate:= DateTimeToStr(now);
BDate:= DateTimeToStr(Table4.FieldByName('rDate').AsDateTime);
Delete (NowDate, length(NowDate)-2, 2);
Delete (BDate, length(bdate)-2, 2);
IF NowDate = Bdate then
begin
table4.Delete;
Simple.ShowModal;
end
else
Table4.Next;
application.ProcessMessages;
end;
end;