3.2 Вибір програмних засобів та операційної системи

При написанні даної програми було використано середовище розробки програмного забезпечення компанії Borland – Borland Delphi 7.0.

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

Операційна система сімейства Microsoft Windows. Найпоширеніша

операційна система, забезпечує функціонування графічних програм.

Програмне забезпечення для роботи з базами даних FoxPro, цей тип підходить при взаємодії з Delphi і гарантує цілісність.Delphi – є середовищем розробки програм, яке використовує багато передових ідей і концепцій, закладених в графічному інтерфейсі Windows. Як відомо, середовище розробки великою мірою визначає ефективність роботи програміста. У середовищі програмування Delphi є всі необхідні інструменти для того, щоб створювати повноцінні програми. Писати, компілювати і тестувати програму – все це можна робити, не виходячи з Delphi.

4 Об’єктно-орієнтоване проектування

4.1 Інтерфейс програми

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

Рисунок 4.1 – Головна форма

Рисунок 4.2 – Постачальники

Рисунок 4.3 – Звіти

Рисунок 4.4 – Сервіс

4.2 Алгоритм рішення задачі

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

На сторінці «Перелік товарів» знаходяться такі кнопки

Рисунок 4.5 – Кнопки «Додати», «Редагувати», «Видалити».

procedure TForm1.Button4Click(Sender: TObject);

begin

g:=true;

form3.showmodal;

end;

procedure TForm1.Button5Click(Sender: TObject);

begin

if table1.RecordCount>0 then begin

g:=false;

form3.ShowModal;

end else Showmessage ('Нет информации для редоктирования);

end;

procedure TForm1.Button6Click(Sender: TObject);

begin

if table1.RecordCount>0 then begin

if messagedlg('Выделеноя строка будет удалена.Продолжить?',mtconfirmation,[mbok,mbno],0)=mrok then

table1.delete;

end else showmessage('Нет даных для удаления');

end;

На сторінці «Звіти» розміщені елементи за допомогою яких можна переглянути звіти за надходженням та видачею товару його кількість та суму.

Рисунок 4.6 – «Надходження», «Видача», «Звіт»

procedure TForm1.Button7Click(Sender: TObject);

begin

if table1.RecordCount>0 then begin

t:=true;

form4.showmodal;

end else Showmessage ('Список товара пуст');

end;

procedure TForm1.Button8Click(Sender: TObject);

begin

if table3.RecordCount>0 then begin

t:=false;

form4.ShowModal;

end else Showmessage ('Склад пуст');

end;

procedure TForm1.Button10Click(Sender: TObject);

begin

Form5.QRLabel9.Caption:=datetostr(date);

Form5.QuickRep2.Preview;

//form5.ShowModal;

end;