Разработка базы данных по продаже в магазине одежды

     Из  созданной системы можно построить  базу данных, которая поможет в  ежедневной работе Магазина одежды.

     Возможны  следующие пути будущих исследований:

• более детальное изучение предметной области (в частности, дальнейшая декомпозиция диаграмм);
• реализация новых функций в информационной системе;
• применение файл-серверных или клиент-серверных технологий;
• переработка информационной системы для использования в предприятиях сложной структуры (с сетью филиалов).

     Созданная система является открытой и может  быть модифицирована лицами, владеющими навыками программирования (создания баз данных) в среде Delphi .

     Таким образом, все цели и задачи, поставленные в данной курсовой работе, выполнены  полностью, а полученные результаты могут быть использованы в реальности. 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

     Библиографический список 

     

1. В.В. Фаронов, Учебный курс, Программирование баз  данных в Delphi 7,Москва, Санкт-Петербург, 2003.-461 с.
2. В.Э.Гофман, А.Д. Хоменко. Работа с базами данных в Delphi / -CПб.: БХВ – Санкт-Петербург,2000.-672с.
3. Г. Гарсиа-Молина. Системы баз данных. Полный курс. / Г. Гарсиа-Молина, Д. Ульман, Д. Уидом. – М.: Вильямс, 2003. – 1088 с.
4. Г.Н. Калянов CASE. Структурный системный анализ (автоматизация и применение). М.: Лори, 1996. – 242 с.
5. Е.В. Мещереков, А.Д. Хоменко, Публикация баз данных в Интернете.-СПб.:БХВ-Петербург, 2001.-560 с.

6. Информатика. Учебное пособие  /Под ред. В.Г. Кирия. – Иркутск: ИрГТУ, 1998 часть 2. – 382с.

7. Карпова Т.С. "Базы данных: модели, разработка"  - СПб.: Питер, 2001, 304 с.

 
 
 

     Приложение  1

     Руководство оператора.

При запуске  программы Shop на экране появляется главная  форма, содержащая кнопки для перехода к таблицам «Ассортимент», «Поставщики» и «Накладные» (рис.1).

Рис. 1.  Главная форма Магазин одежды “Fashion Street” 

При нажатии  на кнопку Ассортимент, мы переходим  к таблице Ассортимент.

Рис.2. Ассортимент

Для того чтобы отфильтровать таблицу, необходимо выбрать по какому признаку мы будем ее фильтровать и нажать кнопку Выбор. При нажатии на клавишу Добавить на нижней панели появляется новое окно – shDobav, в которое необходимо ввести данные новой вещи.

Рис.3. Ассортимент(Добавить)

При нажатии  на кнопку Замена, появляется окно shZamena. В этой форме можно изменить необходимые данные .

Рис.4. Ассортимент (Замена)

Для удаления какой-либо строки из таблицы нужно  нажать кнопку Удалить и в появившемся  окне выбрать нужный вариант.

Рис.5. Ассортимент(Удалить)

При нажатии  на главной форме на кнопку Поставщики мы перейдем к таблице со списком поставщиков нашего магазина, в которой мы так же сможем добавить, заменить или удалить необходимую нам запись (рис.7).

Рис.7.Таблица Поставщики

Нажимая кнопку Добавить, появляется новая  форма – shDobavP, в которой мы можем добавить новую запись в таблицу (рис.8).

Рис.8 Поставщики (Добавить)

Для того чтобы заменить запись в таблице нажмем кнопку Замена (рис.9). Для удаления нажимаем на кнопку Удалить (рис.5).

Рис.9 Поставщики (Замена)

   Для перехода к форме с накладными необходимо  нажать кнопку Накладные на главное форме (рис.10). Форма содержит две таблицы:в первой – название фирмы, тип накладной, скидка, цена, количество и стоимость и вторая – наименование, количество, цена и итог.

Рис.10.Таблица Накладные

Мы можем  произвести поиск накладной по дате, для этого просто ввести дату в форму находящуюся на нижней панели и его номер окрасится в синий цвет в верхней таблице (рис.11).

Рис.11. Накладные (Фильтрация)

Так же для поиска необходимой накладной мы можем нажать кнопку Поиск, где при выборе номера накладной появляются все его данные (рис.12). 

Рис.12. Накладные (Поиск)

Для перехода к отчету необходимо нажать правой кнопкой мыши на необходимую для нас строку верхней таблицы. В нем представлен отчет товаре:

• дата;
• наименование товара;
• количество;
• цена;
• сумма;
• итоговое количество наименований;
• итоговая стоимость всех товаров.

 
 

           Приложение 2

     Листинг исходного кода ИС

unit shMainU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, ExtCtrls, StdCtrls, Buttons, jpeg, MPlayer; 

type

  TshMain = class(TForm)

    Image1: TImage;

    BitBtn1: TBitBtn;

    BitBtn2: TBitBtn;

    BitBtn3: TBitBtn;

    procedure BitBtn1Click(Sender: TObject);

    procedure BitBtn2Click(Sender: TObject);

    procedure BitBtn3Click(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shMain: TshMain; 

implementation 

uses shAssortU, shPostavU, dmShopU, shNakladU; 

{$R *.dfm} 

procedure TshMain.BitBtn1Click(Sender: TObject);

begin

  shAssort.Visible:=true;

end; 

procedure TshMain.BitBtn2Click(Sender: TObject);

begin

     shPostav.Visible:=true;

end; 

procedure TshMain.BitBtn3Click(Sender: TObject);

begin

     shNaklad.Visible:=true;

end; 

end.

unit shAssortU; 

interface 

uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, Grids, DBGrids, ExtCtrls, ComCtrls, jpeg, StdCtrls, DBCtrls,

  Spin, DBTables, DB; 

type

  TshAssort = class(TForm)

    Panel1: TPanel;

    DBGrid1: TDBGrid;

    Panel2: TPanel;

    ComboBox1: TComboBox;

    Image1: TImage;

    RadioGroup1: TRadioGroup;

    SpinEdit1: TSpinEdit;

    Label1: TLabel;

    Button1: TButton;

    Label2: TLabel;

    Label3: TLabel;

    Label4: TLabel;

    Panel3: TPanel;

    Button2: TButton;

    Button3: TButton;

    Button4: TButton;

    SpinEdit2: TSpinEdit;

    SpinEdit3: TSpinEdit;

    Image2: TImage;

    procedure FormCreate(Sender: TObject);

    procedure DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

      DataCol: Integer; Column: TColumn; State: TGridDrawState);

    procedure RadioGroup1Click(Sender: TObject); 

    procedure Button2Click(Sender: TObject);

    procedure Button3Click(Sender: TObject);

    procedure Button4Click(Sender: TObject); 

  private

    { Private declarations }

  public

    { Public declarations }

  end; 

var

  shAssort: TshAssort; 

implementation 

uses dmShopU, shDobavU, shZamenaU; 

{$R *.dfm} 
 
 

procedure TshAssort.FormCreate(Sender: TObject);

begin

    CurrencyDecimals:=2

     end; 

procedure TshAssort.DBGrid1DrawColumnCell(Sender: TObject;

  const Rect: TRect; DataCol: Integer; Column: TColumn;

  State: TGridDrawState);

  const

  clPaleGreen = TColor($CCFFCC);

  clPaleRed = TColor($CCCCFF); 

  begin

   if Column.Field.DataSet.FieldByName('TType').asstring='Vesna\Leto' then

  if (gdFocused in State) then

        DBGrid1.Canvas.Brush.Color:= clBlue

      else

      begin

         DBGrid1.Canvas.Brush.Color := clPaleGreen; 

     DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

   end

else

  begin

if Column.Field.DataSet.FieldByName('TType').asstring='Osen\Zima' then

if (gdFocused in State) then

        DBGrid1.Canvas.Brush.Color:= clRed

      else

         DBGrid1.Canvas.Brush.Color := clYellow;

DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

end;

procedure TshAssort.RadioGroup1Click(Sender: TObject);

begin 

if RadioGroup1.ItemIndex=0 then DM.Tovar.Filtered:=false; 

   if RadioGroup1.ItemIndex=1 then

   begin

      dm.Tovar.Filter:='TYear='+inttostr(SpinEdit1.Value);

      dm.Tovar.Filtered:=true;

   end; 

      if RadioGroup1.ItemIndex=2 then

      begin

         dm.Tovar.Filter:='TRozn>='+floattostr(spinedit2.Value)+'and TRozn<='+floattostr(spinedit3.Value);

         dm.Tovar.Filtered:=true;

      end; 

        if RadioGroup1.ItemIndex=3 then

        begin

           dm.Tovar.Filter:='TName='''+combobox1.Text+'''' ;

           dm.Tovar.Filtered:=true;

        end;