Информационная система "Магазин Сантехники" Delphi7+Access

Задание

Информационная система Магазин Сантехники.

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

Система включает следующие функции:

• Авторизация/ Роли кассир, администратор
• Управление пользователями
• Ведение каталога товаров
• Ведение поступлений на склад
• Продажа товаров
• Формирование отчетов по остаткам товара, сколько продано, прайс лист, информация по скидкам
• Контроль объема продаж 
• Соотношение расхода и дохода
• Ведение бух учета по месяцам, кварталу, году, периоду

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

var
  Form2: TForm2;
  Res : Integer;

implementation

uses Unit3;

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);
begin
Application.Title:= 'Сообщение';
ADOQuery1.Active := False;
ADOQuery1.SQL.Clear();
ADOQuery1.SQL.Add('SELECT Товар.Код as [Код], Товар.Название as [Товар], Производитель.Название as [Производитель], ' +
' Категория.Название as [Категория], Товар.Расфасовка as [Расфасовка], Товар.Упаковка as [Упаковка], Товар.Примечание as [Примечание]      ' +
' FROM Категория INNER JOIN (Производитель INNER JOIN Товар ON Производитель.Код = Товар.Производитель) ' +
' ON Категория.Код = Товар.Код_категории ');
ADOQuery1.Active := True;
DBGrid1.Columns[0].Width := 50;
DBGrid1.Columns[1].Width := 150;
DBGrid1.Columns[2].Width := 150;
DBGrid1.Columns[3].Width := 100;
DBGrid1.Columns[4].Width := 100;
DBGrid1.Columns[5].Width := 50;
DBGrid1.Columns[6].Width := 150;
end;

procedure TForm2.Button1Click(Sender: TObject);
begin
Res := MessageBox(
    Self.Handle
    , PChar('Вы действительно хотите удалить выбранную запись?')
    , PChar('Сообщение')
    , MB_YESNO + MB_ICONINFORMATION //+ MB_APPLMODAL
  );

  case Res of
    IDYES : begin

  try

  ADOQueryDelete.SQL.Clear;
  ADOQueryDelete.SQL.Add('Delete * from Товар where Код = ' + DBGrid1.Fields[0].AsString);
  ADOQueryDelete.ExecSQL;
  ADOQueryDelete.SQL.Clear;

ADOQuery1.Active := False;
ADOQuery1.Active := True;
DBGrid1.Columns[0].Width := 50;
DBGrid1.Columns[1].Width := 150;
DBGrid1.Columns[2].Width := 150;
DBGrid1.Columns[3].Width := 100;
DBGrid1.Columns[4].Width := 100;
DBGrid1.Columns[5].Width := 50;
DBGrid1.Columns[6].Width := 150;
  except
  on e:Exception do
    ShowMessage(E.Message);

    end; end;
    IDNO : begin
      //Действия в случае, когда пользователь нажал кнопку "Нет".
    end;

    end;
  end;

procedure TForm2.Button2Click(Sender: TObject);
begin
    try

    ADOQueryInsert.close;

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

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

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