Создание базы данных магазина спортивных товаров. Описание интерфейсной части программы. Листинг программы, страница 2

При редактировании и удалении записей вам не удастся добавить значение в поле «наличие» т.к. оно добавляется автоматически.

Формирование отчета.

Для формирования отчета необходимо нажать на кнопку «отчет» после чего появится новая форма.

 

Нужно выбрать вид необходимых для вывода товаров и нажать на кнопку «ОК», после чего появиться отчет в виде документа html.

 

Работа с таблицей «склад».

Работа с этой таблицей аналогична работе с таблицей товар, только обратите внимание на то что, мы можем добавлять только тех поставщиков, которые есть в таблице  «поставщики» и выбирать только тот шифр, который есть в таблице товар.

 

Работа с таблицей «проданные товары».

При редактировании и добавлении количество проданных товаров необходимо вводить в поле «введите количество» при нажатии на кнопку «ОК»  введенное количество сложится с общим количеством и автоматически количество проданных товаров отнимется от  количества товаров находящихся на складе. Для удобства работы имеется кнопка «показать» при нажатии на которую выводится название, интересующего нас товара и количество единиц, оставшихся на складе.

Формирование отчета.

При нажатии на кнопку «отчёт» выводится новая форма

 

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

После нажатия на кнопку показать будет выдан отчет. Внешний вид отчета и более подробное описание будет приведено ниже.

Работа с таблицей «Поставщики» аналогична работе с таблицами «виды товаров и склад».

Листинг программы.

program SdiApp;

uses

Forms,

SDIMAIN in 'SDIMAIN.PAS' {SDIAppForm},

ABOUT in 'ABOUT.PAS' {AboutBox},

Unit1 in 'Unit1.pas' {DataModule1: TDataModule},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3};

{$R *.RES}

begin

Application.Initialize;

Application.CreateForm(TSDIAppForm, SDIAppForm);

Application.CreateForm(TAboutBox, AboutBox);

Application.CreateForm(TDataModule1, DataModule1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.Run;

end.

unit SDIMAIN;

interface

uses Windows, Classes, Graphics, Forms, Controls, Menus,

Dialogs, StdCtrls, Buttons, ExtCtrls, ComCtrls, ImgList, StdActns,

ActnList, ToolWin, Grids, DBGrids, Mask, DBCtrls;

type

TSDIAppForm = class(TForm)

OpenDialog: TOpenDialog;

SaveDialog: TSaveDialog;

ToolBar1: TToolBar;

ToolButton9: TToolButton;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

ToolButton3: TToolButton;

ToolButton4: TToolButton;

ToolButton5: TToolButton;

ToolButton6: TToolButton;

ActionList1: TActionList;

FileNew1: TAction;

FileOpen1: TAction;

FileSave1: TAction;

FileSaveAs1: TAction;

FileExit1: TAction;

EditCut1: TEditCut;

EditCopy1: TEditCopy;

EditPaste1: TEditPaste;

HelpAbout1: TAction;

StatusBar: TStatusBar;

ImageList1: TImageList;

MainMenu1: TMainMenu;

File1: TMenuItem;

FileNewItem: TMenuItem;

FileOpenItem: TMenuItem;

FileSaveItem: TMenuItem;

FileSaveAsItem: TMenuItem;

N1: TMenuItem;

FileExitItem: TMenuItem;

Edit1: TMenuItem;

CutItem: TMenuItem;

CopyItem: TMenuItem;

PasteItem: TMenuItem;

Help1: TMenuItem;

HelpAboutItem: TMenuItem;