Информационная система "Цветочный магазин" Delphi7+Access

Задание

Информационная система для учета поступления и продаж товаров в Цветочном Магазине. Реализация на Делфи + Аксес

Функционал программы

Функции системы:

• Авторизация
• Ведение справочников категорий товаров, товаров, покупателей, поставщиков
• Учет поступлений на склад
• Реализация товара - Продажа
• Статистика продаж
• Вывод отчета о статистике продаж в Эксель
• Управление пользователями

Фрагмент программного кода

procedure TForm1.N8Click(Sender: TObject);
begin
 Form5.Show;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
   if(Unit2.Role <> null)
  then
  begin
     sLabel1.Caption := 'Вы зашли, как: ' + Unit2.Role + ' ' + Unit2.FIO ;
  end;
  if Unit2.Role = 'Менеджер'
  then  N8.Visible := false;


end;

procedure TForm1.N4Click(Sender: TObject);
begin
   Form6.Show;
end;

procedure TForm1.N5Click(Sender: TObject);
begin
   Form7.Show;
end;

procedure TForm1.N6Click(Sender: TObject);
begin
   Form8.Show;
end;

procedure TForm1.N2Click(Sender: TObject);
begin
   Form9.Show;
end;

procedure TForm1.N7Click(Sender: TObject);
begin
   Form10.Show;
end;

end.

Скриншот архива с проектом

Пояснения по запуску программы

• Установить Аксес 2010 и выше
• Запустить файл Project1.exe