Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Poyasnyuvalna_zapiska.doc
Скачиваний:
0
Добавлен:
01.04.2025
Размер:
1.27 Mб
Скачать

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;

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