На нашем сайте Вы сможете найти готовые курсовые и дипломные работы по программированию
Сейчас работаем

Информационная система "Магазин Сантехники" 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

Купить 399,00 
Сразу после оплаты Вы сможете скачать работу и мы вышлем дополнительно файл с работой на электронную почту. Исходник программ Вы сможете отредактировать, как Вам нужно.
Комментарии (0)

ramil9209

/ /

Оставить комментарий

Ты не можешь комментировать

Только зарегистрированые пользователи имеют возможность комментировать работы
Похожие работы
Купить

399,00 

Сразу после оплаты Вы сможете скачать работу и мы вышлем дополнительно файл с работой на электронную почту. Исходник программ Вы сможете отредактировать, как Вам нужно.

Заказать через

Магазин сантехники.zip
1672429
Оцени работу

рейтинг

Информационная система "Магазин Сантехники" Delphi7+Access
Исходники на делфи + аксес. Авторизация, управление пользователями, печать отчетов
Категория: Образование
Стоимость: 399,00