водить список клієнтів, що звернулися в фотосалон в даному місяці.
Кнопка назад, як завжди поверне оператора на головну форму.
В
Рисунок 6 - Форма В«Облік товарів і послугВ»
Натиснувши кнопку Нова продаж на головній формі, оператор потрапляє на форму В«Нова продажВ». У поля введення інформації про продаж слід ввести всю інформацію, необхідну в лівій частині форми, і натиснути кнопку Додати нову продаж. Система запише дані в базу даних (малюнок 7). Кнопка назад поверне оператора на головну форму, де він може натиснути Закрити і вийти з програми. br/>В
Малюнок 6 - Додати інформацію про поставку/продажу
7. Висновок
Фотосалон поєднує в собі крамниця фото-студію.
У магазині ведеться суворий облік проданих товарів, а також дані покупців, так як фототехніка коштує дорого і підлягає гарантійному ремонту і поверненню протягом певного часу. У разі будь-яких непорозумінь співробітник зможе легко подивитися всю його інформацію про продаж товару за допомогою автоматизованої системи В«Fotosalon.exeВ». p align="justify"> У відділі фото-студії співробітнику часто потрібно розрахувати вартість покупки клієнта, який замовив у нього печатку певної кількості фотографій на документи, нестандартного розміру або яких-небудь ще. Також, якщо клієнт приходить за готовими фотографіями не в день їх замовлення, то співробітникові фото студії потрібно знайти інформацію про послугу по якомусь відомому в даний момент параметру. p align="justify"> Для всього перерахованого вище і багато чого іншого дуже зручно використовувати автоматизовану інформаційну систему В«ФотосалонВ» розроблену під час написання даної курсової роботи.
8. Список використаних джерел
Архангельський А.Я. Delphi7.Справочное посібник - М.: ТОВ В«Біном-ПрессВ», 2004. p align="justify"> Іванов В.К., принижуватися Н.В. Практикум В«Інформаційні системиВ» - Москва, 2006. p align="justify"> 9. Додаток 1
Fotosalon;, in 'Unit1.pas' {Form1}, in 'Unit2.pas' {Form2}, in 'Unit3.pas' {Form3}, in 'Unit4.pas' {Form4} , in 'Unit5.pas' {Form5}, in 'Unit6.pas' {Form6};
{$ R *. res}. Initialize;. CreateForm (TForm1, Form1);. CreateForm (TForm2, Form2);. CreateForm (TForm3, Form3);. CreateForm (TForm4, Form4); . CreateForm (TForm5, Form5);. CreateForm (TForm6, Form6);. Run;. Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls; = class (TForm): TButton;: TButton ;: TButton;: TButton;: TButton; Button2Click (Sender: TObject); Button1Click (Sender: TObject); Button3Click (Sender: TObject); Button4Click (Sender: TObject); Button5Click (Sender: TObject);
{Private declarations}
{Public declarations};: TForm...
