Проектирование ИС управления магазином компьютерных товаров

Связь, коммуникации.

5. Природно –  климатические  факторы:

• Расположение и связь с транспортными сетями.

6. Факторы инфраструктуры:

• Средства транспорта, связи и коммуникации.
• Сети ЭВМ и информационные системы.
• Обслуживающие системы и прочие.

К внутренним факторам образовательного проекта можно отнести:

Операционно-технологические – совокупность необходимых воздействий (состав, структура, параметры) на элементы проекта, обеспечивающих получение требуемых результатов; определенная последовательность (маршрут) осуществления этих воздействий; образ исходного состояния объектов преобразования; определение и разработка средств преобразования. Результат решения задач операционно – технологического проектирования представляет собой технологический процесс проекта.

 

Заключение

В соответствии с поставленными задачами проектирования информационной системы в рамках курсового проекта были выполнены следующие этапы:

• выполнен анализ предметной области;
• разработана функциональная схема информационной системы управления магазином компьютерных товаров;
• разработана концепция, выбраны архитектура построения и платформа реализации системы;
• спроектирована концептуальная модель ИС;
• спроектирована логическая модель системы ИС на основе концептуальной модели;
• разработана информационной системы управления магазином компьютерных товаров;

Результатом работы стала информационной системы управления магазином компьютерных товаров (на примере компьютерного магазина «НИКС»).

Интерфейс программы прост и понятен даже человеку, не имеющему специальной компьютерной подготовки. Разработанное нами в виде стандартного файла методическое руководство пользователя облегчает освоение программы на начальной стадии использования.

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

Разработанный нами программный продукт разработан в  объектно-ориентированной среде программирования Borland Delphi 7. Выбор этой среды объясняется простотой разработки приложений. Удобный интерфейс позволяет легко работать с визуальными компонентами. Открытая архитектура Borland Delphi 7 позволяет применять встроенный стандартный набор инструментальных средств, как в процессе создания приложений, так и для расширения и развития базовых возможностей самой системы.

 

Список использованных источников

1. Антосенков Е., Кокин Ю.. Реформа заработной платы - ожидание и реальность. //Экономист. 2009. - №4.
2. Бакаревич Ю. Самоучитель Microsoft Access 2002 /Ю. Бакаревич, Н. Пушкина. - СПб.: БХВ – Петербург, 2007. – 720 с.
3. Бобровский С. Delphi7 учебный курс /С. Бобровский. – СПб.: Питер, 2009. – 834с.
4. Бойко В.В.Проектирование баз данных информационных систем / Бойко В.В., Савинков В.М.  – 2-е изд. – М.: Финансы и статистика, 1989. – 350 с.;
5. Гончаров А.Ю. Access 2012 /А.Ю. Гончаров. – М.: Кудиц – Образ, 2012. – 964с.
6. Дейт К. Дж. Введение в системы баз данных.: Пер. с англ. / Дейт К. Дж.  – 6-е изд. – Киев: Диалектика, 2011. – 784 с.;
7. Ефимычев Ю.И., Стрелкова Л.В., Ильичева Н.М. Организация производства: Учебное пособие. - Н. Новгород: Изд-во ННГУ, 2004. - 230 с.
8. Залесский, Г.Е. Реструктуризация производства / Г.Е. Залесский. - М.: Изд-во МГУ, 2006. - 118 с.
9. Маклаков С.В. BPwin и Erwin. CASE-средства разработки информационных систем. - М.: ДИАЛОГ-МИФИ, 2010. - 256 с.
10. Маклаков С.В. Создание информационных систем с AllFusion Modeling Suit / Маклаков С.В. - М. :ДиалогМИФИ, 2012. – 432с.;
11. Михеева В. Microsoft Access 2010 / В. Михеева, И. Харитонова. - СПб.: БХВ – Петербург, 2009. – 1040с.
12. Минин Э. В., Щербаков В. И.. Заработная плата: вопросы и ответы: Справочно-методическое пособие. - Н.: Профиздат, 2009.
13. Никифоров, А.Д. Финансы предприятий: учеб. пособие для вузов / А.Д. Никифоров. - 2-е изд., стер. - М.: Дрофа, 2006. - 719 с.
14. Новицкий, Н.И. Инновационное планирование и управление производством: учебник / Н.И. Новицкий. - М.: Новое знание, 2007. - 159 с.
15. Рендольф Н. Visual Studio 2010 для профессионалов / Рендольф Н., Гарднер Д., Андерсон К., Минутилло М. - Киев: Диалектика, 2011.-1184 с.;
16. Родостовец В.П. Бухгалтерский учет для предприятий /В.П. Родостовец. – Алматы: Каржы – Каражат, 2010. – 978с.
17. Симонович С. Специальная информатика /С. Симонович, Г. Евсеев, А. Алексеев. – М.: АСТпресс, 2013. – 478с.
18. Смурыгина И. Бюллетень бухгалтера: В помощь бухгалтеру /И. Смурыгина, К. Жанбыршиева // БИКО – 2007. - №6. – с.6-9
19. Сачко Н.С. Теоретические основы организации производства. - Мн.: Книжный Дом, 2006. - 320 с.20.
20. Сухарев М. Золотая книга Delphi. – М.: «Наука и техника», 2010.
21. Титоренко Г. А. Автоматизированные информационные технологии в экономике. / Г. А. Титоренко. - М. : Юнити, 2008. – 400 c.
22. Турцова О.Г. Организация производства и управления предприятием, - Мн.: Инфра-М, 2005. - 528 с.22.
23. Фаронов В. Система программирования Delphi /В. Фаронов. – СПб.: БХВ-Петербург, 2007. – 888с.
24. Фаронов В. Программирование баз данных в Delphi /В. Фаронов. – СПб.: Питер, 2011. – 759с.
25. Черемных С.В. Структурированный анализ систем IDEF-технологии/ С.В. Черемных, И.О. Семенов, В.С. Ручкин. – М: Финансы и статистика, 2010.-208 с.;

 

 

Приложение 1

Блок-схема

 

 

 

 

 

 

 

 

 

 

 

Приложение 1 (продолжение)

 

 

Процедуры блок-схемы B, C, D и E аналогичны процедурам A.

 

 Приложение 2

Форма «Склад»

 

Форма «Приход товара»

 

 

 

 

Приложение 2 (продолжение)

Форма «Продажа товара»

 

 

Приложение 3

Форма «Статистика прихода»

 

Форма «Статистика продаж»

 

 

 

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

   

uses

  Forms,

  Unit1 in 'Unit1.pas' {Form1},

  Unit2 in 'Unit2.pas' {Form2},

  Unit3 in 'Unit3.pas' {OKBottomDlg},

  Unit4 in 'Unit4.pas' {Form4},

  Unit5 in 'Unit5.pas' {Form5},

  Unit6 in 'Unit6.pas' {Form6},

  Unit8 in 'Unit8.pas' {Form8},

  Unit9 in 'Unit9.pas' {Form9},

  Unit7 in 'Unit7.pas' {Form7},

 

{$R *.res}

                                              

begin

  Application.Initialize;

Form6 := TForm6.Create(Application);

//Form6.Show;

  //Form6.Update;

  while Form6.Timer1.Enabled do

 

  Application.ProcessMessages;

 

  Application.CreateForm(TForm1, Form1);

  Application.CreateForm(TForm8, Form8);

  Application.CreateForm(TForm9, Form9);

  Application.CreateForm(TForm7, Form7);

  Application.CreateForm(TForm10, Form10);

  Application.CreateForm(TForm11, Form11);

  Application.CreateForm(TForm12, Form12);

  Application.CreateForm(TForm13, Form13);

  Form6.Hide;

  Form6.Free;

  Application.CreateForm(TForm2, Form2);

  Application.CreateForm(TOKBottomDlg, OKBottomDlg);

 

  Application.Run;

  end.

unit Unit1;

 

interface

 

uses

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

  Dialogs, Menus, StdCtrls, Grids, ComCtrls, ToolWin, ImgList, AppEvnts,

  ExtCtrls, XPMan, ShellApi, sSkinManager, sButton, dxSkinsCore,

  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,

  dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans, dxSkiniMaginary,

  dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin,

  dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,

  dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,

  dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,

  dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver, dxSkinSpringTime,

  dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters,

  dxSkinValentine, dxSkinXmas2008Blue, cxLookAndFeels, dxSkinsForm;

 

type

 

sport = record

  fam,name,otch,datau,dolg,INN,Pens,DR,spas,Npas,vpas,city,str,dom,kv,tel,sem,dety:string[40];

end;

 

  dengi=record

    Fam:string[20];

    Im:string[15];

    ot:string[20];

    kol_hour:string[10];

    tarif:string[20];

  end;

  zap=record

    sp:sport;

    den:dengi;

  end;

  TForm1 = class(TForm)

    MainMenu1: TMainMenu;

    N1: TMenuItem;

    N3: TMenuItem;

    PopupMenu1: TPopupMenu;

    Button2: TButton;

    Button3: TButton;

    N5: TMenuItem;

    N10: TMenuItem;

    N12: TMenuItem;

    N13: TMenuItem;

    N4: TMenuItem;

    N14: TMenuItem;

    N15: TMenuItem;

    N16: TMenuItem;

    N17: TMenuItem;

    N18: TMenuItem;

    N19: TMenuItem;

    N20: TMenuItem;

    N21: TMenuItem;

    N22: TMenuItem;

    Button1: TButton;

    N23: TMenuItem;

    ToolBarMenuItem: TMenuItem;

    StatusBarMenuItem: TMenuItem;

    N27: TMenuItem;

    ToolBar1: TToolBar;

    StatusBar1: TStatusBar;

    Button5: TButton;

    ImageList1: TImageList;

    N11: TMenuItem;

    OpenDialog1: TOpenDialog;

    N24: TMenuItem;

    ColorDialog1: TColorDialog;

    DateTimePicker1: TDateTimePicker;

    SaveDialog1: TSaveDialog;

    PageControl1: TPageControl;

    TabSheet1: TTabSheet;

    StringGrid1: TStringGrid;

    TabSheet2: TTabSheet;

    StringGrid2: TStringGrid;

    FontDialog1: TFontDialog;

    N25: TMenuItem;

    N26: TMenuItem;

    N6: TMenuItem;

    N7: TMenuItem;

    N8: TMenuItem;

    N9: TMenuItem;

    N28: TMenuItem;

    N29: TMenuItem;

    N31: TMenuItem;

    N30: TMenuItem;

    ToolButton1: TToolButton;

    ToolButton2: TToolButton;

    ToolButton3: TToolButton;

    ToolButton4: TToolButton;

    ToolButton5: TToolButton;

    ToolButton6: TToolButton;

    ToolButton7: TToolButton;

    ToolButton8: TToolButton;

    ToolButton9: TToolButton;

    ToolButton10: TToolButton;

    N33: TMenuItem;

    ApplicationEvents1: TApplicationEvents;

    Timer1: TTimer;

    Button6: TButton;

    Label1: TLabel;

    N32: TMenuItem;

    XPManifest1: TXPManifest;

    procedure FormShow(Sender: TObject);

    procedure Button1Click(Sender: TObject);

    procedure N5Click(Sender: TObject);

    procedure N13Click(Sender: TObject);

    procedure ToolBarMenuItemClick(Sender: TObject);

    procedure StatusBarMenuItemClick(Sender: TObject);

    procedure Button2Click(Sender: TObject);

   

    procedure N30Click(Sender: TObject);

    procedure ApplicationEvents1ActionExecute(Action: TBasicAction;

      var Handled: Boolean);

    procedure Timer1Timer(Sender: TObject);

    procedure Button6Click(Sender: TObject);

    procedure ToolButton11Click(Sender: TObject);

    procedure ToolButton4Click(Sender: TObject);

    procedure ToolButton1Click(Sender: TObject);

    procedure N12Click(Sender: TObject);

    procedure ToolButton6Click(Sender: TObject);

    procedure N9Click(Sender: TObject);

    procedure ToolButton9Click(Sender: TObject);

    procedure N33Click(Sender: TObject);

    procedure N2Click(Sender: TObject);

    procedure ToolButton10Click(Sender: TObject);

    procedure N6Click(Sender: TObject);

    procedure ToolButton5Click(Sender: TObject);

 

 

 

   private

    { Private declarations }

  public

    { Public declarations }

  end;

 

 

var

  s:sport;

  Form1: TForm1;

  n:integer;

  h:boolean;

 

implementation

 

uses Unit7, Unit2, Unit5, Unit4, Unit8, Unit9, Unit10, Unit11, Unit12,

  Unit13;

 

{$R *.dfm}

 

procedure TForm1.FormShow(Sender: TObject);

begin

  form7.ShowModal;

  with form1.stringgrid1 do

  begin

    cells[0,0]:='Фамилия';

    cells[1,0]:='Имя';

    cells[2,0]:='Отчество';

    cells[3,0]:='Кол-во  отработанных ч. за нед.';

    cells[4,0]:='Размер  почасовой ставки';

  end;

  with form1.stringgrid2 do

  begin

    cells[0,0]:='Фамилия';

    cells[1,0]:='Имя';

    cells[2,0]:='Отчество';

    cells[3,0]:='Дата  устройства на работу';

    cells[4,0]:='Занимаемая  должность';

    cells[5,0]:='ИНН';

    cells[6,0]:='Пенсионный';

    cells[7,0]:='Дата  рождения';

    cells[8,0]:='Серия  паспорта';

    cells[9,0]:='Номер  паспорта';

    cells[10,0]:='Кем  выдан';

    cells[11,0]:='Город';

    cells[12,0]:='Улица';

    cells[13,0]:='Дом';

    cells[14,0]:='Квартира';

    cells[15,0]:='Телефон';

    cells[16,0]:='Семейное  положение';

    cells[17,0]:='Кол-во  детей';

  end;

end;            

 

procedure TForm1.Button1Click(Sender: TObject);{прописана кнопка добавить в таб.1}

begin

form2.Show;

Form2.Button3.Visible:=false;

Form2.Button4.Visible:=false;

 

end;

 

procedure TForm1.N5Click(Sender: TObject); {о программе}

begin

Form5.Showmodal

end;

                                         

procedure TForm1.N13Click(Sender: TObject);{выход из программы}

begin

If Tag = 0 Then

Begin

ShowMessage('Вы действительно хотите выйти?');

Tag:=1;

     Close;

end;

end;

procedure TForm1.ToolBarMenuItemClick(Sender: TObject);

begin

  // Спрятать  или показать панель инструментов

  ToolBar1.Visible := not ToolBar1.Visible;

  ToolBarMenuItem.Checked := not ToolBarMenuItem.Checked;

end;

 

procedure TForm1.StatusBarMenuItemClick(Sender: TObject);

begin

    // Спрятать  или показать строку состояния

  StatusBar1.Visible := not StatusBar1.Visible;

  StatusBarMenuItem.Checked := not StatusBarMenuItem.Checked;

end;

 

 

procedure TForm1.Button2Click(Sender: TObject); {подсчет суммы двух последних столбцов, зарплата}

var

  i:integer;

  begin

if form1.StringGrid1.Cells[0,1]<>'' then begin

  for i:=1 to form9.stringgrid1.rowcount do

  form9.StringGrid1.rows[i].Clear;

     for i:=1 to form9.stringgrid1.rowcount-1 do begin

      if form1.stringgrid1.Cells[0,i]='' then break;

     form9.stringgrid1.Cells[0,i]:=form1.stringgrid1.Cells[0,i];

     form9.stringgrid1.Cells[1,i]:=form1.stringgrid1.Cells[1,i];

     form9.stringgrid1.Cells[2,i]:=form1.stringgrid1.Cells[2,i];

     form9.stringgrid1.Cells[3,i]:=inttostr(strtoint(form1.stringgrid1.Cells[3,i])*strtoint(form1.stringgrid1.Cells[4,i]));

 

     end; end;

     form9.showmodal;

end;

 

procedure TForm1.Button3Click(Sender: TObject); {справкоа о сотруднике в виде анкеты}

begin

i:=form1.StringGrid2.Row;

with form1.StringGrid2 do begin

  form4.Edit1.Text:=cells[0,i];

  form4.Edit2.Text:=cells[1,i];

  form4.Edit3.Text:=cells[2,i];

  form4.Edit4.Text:=cells[3,i];

  form4.Edit6.Text:=cells[4,i];

  form4.Edit5.Text:=cells[5,i];

  form4.Edit7.Text:=cells[6,i];