Вам нужна дипломная работа?
Интересует Информатика?
Оставьте заявку
на Дипломную работу
Получите бесплатную
консультацию по
написанию
Сделайте заказ и
скачайте
результат на сайте
1
2
3

Автомитизация учета продаж предприятия

  • 100 страниц
  • 35 источников
  • Добавлена 22.07.2015
5 390 руб. 7 700 руб.
  • Содержание
  • Часть работы
  • Список литературы
  • Вопросы/Ответы
СОДЕРЖАНИЕ
ВВЕДЕНИЕ……………..……………..……………..……………..……………...4
1 АНАЛИЗ ДЕЯТЕЛЬНОСТИ КОМПАНИИ ООО «ГОРОДОК»…………….. 6
1.1 Технико-экономическая характеристика предметной области………….6
1.1.1 Организационная структура и объект управления………………..6
1.1.2 Организация предметной области……………..……………..…….9
1.2 Экономическая сущность информационных задач……………..………..11
1.2.1 Общие сведения о задачах……………..……………..……………..11
1.2.2 Декомпозиция комплекса задач……………..……………..……….12
1.3 Обоснование проектных решений по автоматизированному решению экономико-информационных задач……………..……………..…………..13
1.3.1 Выбор задач, входящих в комплекс……………..……………..…...13
1.3.2 Обоснование необходимости создания АИС……………..………..15
1.3.3 Необходимое информационное обеспечение комплекса задач…...18
2 РАЗРАБОТКА АВТОМАТИЗИРОВАННОЙ СИСТЕМЫ УЧЕТА
ПРОДАЖ……………..……………..……………..……………..……………..…..22
2.1 Информационное обеспечение комплекса задач……………..…………...22
2.1.1 Внемашинное информационное обеспечение……………..……….22
2.1.2 Внутримашинная реализация комплекса задач……………..……...23
2.2 Технологическое обеспечение комплекса задач……………..……………38
2.2.1 Организация технологии работы с информацией……………..…...38
2.2.2 Основные операции технологического процесса……………..……41
2.3 Программное обеспечение комплекса задач……………..……………..…42
2.3.1 Общие положения……………..……………..……………..………..42
2.3.2 Структурная схема программного средства……………..…………44
2.3.3 Описание программных модулей……………..……………..……...48
3. ОБОСНОВАНИЕ ЭКОНОМИЧЕСКОЙ ЭФФЕКТИВНОСТИ
ПРОЕКТА……………..……………..……………..……………..……………..….53
3.1 Анализ источников экономической эффективности……………..……….53
3.2 Оценка экономической эффективности разработки компьютерной программы……………..……………..……………..……………..…………53
ЗАКЛЮЧЕНИЕ……………..……………..……………..……………..…………..64
СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ……………..……………..…66
ПРИЛОЖЕНИЕ ЛИСТИНГ ПРОГРАММЫ……………..……………..………..70

Фрагмент для ознакомления

Create(Owner); zakForm.Top:=240; zakForm.Left:=3; zakForm.Caption:='создание заказа'; zakForm.Show; zakForm.Button1.Visible:=true; zakForm.GroupBox1.Visible:=false; zakForm.GroupBox2.Visible:=false; zakForm.GroupBox4.Visible:=false; zakForm.GroupBox5.Visible:=false; zakForm.GroupBox3.Left:=2; zakForm.GroupBox3.Top:=2;end;procedure TMainClientsForm.N14Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск наличия товара по наименованию'; nomer_poisk:=1; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false;end;procedure TMainClientsForm.N15Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='проверка ср.годности расх. материала'; nomer_poisk:=2; poisk.Edit1.Visible:=false; poisk.Label1.Visible:=false;poisk.Label3.Visible:=false; poisk.Label2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N16Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='поиск размещения товара'; nomer_poisk:=3; poisk.Label2.Visible:=false; poisk.Label3.Visible:=false; poisk.Label7.Visible:=false; poisk.Edit2.Visible:=false; poisk.Edit3.Visible:=false; poisk.Edit4.Visible:=false; poisk.Edit5.Visible:=false; poisk.Edit6.Visible:=false; poisk.Edit7.Visible:=false; poisk.UpDown1.Visible:=false; poisk.UpDown2.Visible:=false; poisk.UpDown3.Visible:=false; poisk.UpDown4.Visible:=false; end;procedure TMainClientsForm.N17Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='просмотр хронологии накладных'; nomer_poisk:=4; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Накладные в период' end;procedure TMainClientsForm.N18Click(Sender:TObject);begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addForm'); mainflag:=false; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOTable8;mainclientsform.ADOTable8.Active:=true;MainClientsForm.BuildGridDatabaseDirectoryItem('Сведения о доставке', mainclientsform.DataSource1);DirectoryForm.TableDBGrid.Fields[0].DisplayLabel:='№ записи';DirectoryForm.TableDBGrid.Fields[1].DisplayLabel:='код';DirectoryForm.TableDBGrid.Fields[2].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[3].DisplayLabel:='время';//DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='куда';DirectoryForm.TableDBGrid.Fields[4].DisplayLabel:='дата';DirectoryForm.TableDBGrid.Fields[5].DisplayLabel:='транспорт';DirectoryForm.TableDBGrid.Fields[6].DisplayLabel:='адрес';end;procedure TMainClientsForm.N110Click(Sender:TObject);var poisk:Tparampoik;begin IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); IsMDIChildOpen(MainClientsForm,'addform'); IsMDIChildOpen(MainClientsForm,'parampoik'); poisk:=Tparampoik.Create(Owner); poisk.Left:=530; poisk.Top:=3; poisk.Width:=300; poisk.Caption:='создание отчета "проданные товары"'; nomer_poisk:=8; poisk.Label1.Visible:=false; poisk.Edit1.Visible:=false; poisk.Label7.Caption:='Проданные товары в период'; poisk.Button1.Caption:='Создать отчет'end;procedure TMainClientsForm.N11Click(Sender:TObject);var naklForm: Taddform;begin mainflag:=false; IsMDIChildOpen(MainClientsForm,'naklForm'); IsMDIChildOpen(MainClientsForm,'addForm'); naklForm:=Taddform.Create(Owner); naklForm.Top:=240; naklForm.Left:=3; naklForm.Caption:='создание накладной'; naklForm.Show; // zakForm.Button1.Visible:=true; naklForm.GroupBox1.Visible:=false; naklForm.GroupBox2.Visible:=false; naklForm.GroupBox3.Visible:=false; naklForm.GroupBox5.Visible:=false; naklForm.GroupBox4.Left:=2; naklForm.GroupBox4.Top:=2; naklForm.GroupBox4.Width:=600; naklForm.GroupBox4.Height:=250;end;procedure TMainClientsForm.N19Click(Sender:TObject);var poisk:Tparampoik;begin end;end.unit addsorce;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls, DBCtrls ;type TaddForm = class(TForm) Panel1: TPanel; GroupBox1: TGroupBox; Label15: TLabel; Edit18: TEdit; Label16: TLabel; Edit19: TEdit; Edit20: TEdit; Edit21: TEdit; Edit22: TEdit; Label17: TLabel; Label18: TLabel; Edit23: TEdit; GroupBox2: TGroupBox; Edit16: TEdit; Button1: TButton; DBNavigator1: TDBNavigator; Edit13: TEdit; Label10: TLabel; Label9: TLabel; Label8: TLabel; Label7: TLabel; Label5: TLabel; Label2: TLabel; Label1: TLabel; Edit1: TEdit; ComboBox1: TComboBox; Edit5: TEdit; Edit2: TEdit; Edit3: TEdit; Edit17: TEdit; Label14: TLabel; Label4: TLabel; Label3: TLabel; Label6: TLabel; Edit8: TEdit; Edit7: TEdit; Edit6: TEdit; Edit9: TEdit; UpDown4: TUpDown; UpDown1: TUpDown; Edit10: TEdit; UpDown5: TUpDown; Edit12: TEdit; UpDown6: TUpDown; Edit11: TEdit; Label13: TLabel; Label12: TLabel; Label11: TLabel; Edit14: TEdit; Edit15: TEdit; UpDown2: TUpDown; Edit4: TEdit; UpDown3: TUpDown; GroupBox3: TGroupBox; Label19: TLabel; Label20: TLabel; Label21: TLabel; Edit24: TEdit; Edit25: TEdit; Edit26: TEdit; Edit27: TEdit; Edit28: TEdit; Edit29: TEdit; Label22: TLabel; Button2: TButton; GroupBox4: TGroupBox; Label23: TLabel; Edit30: TEdit; Edit31: TEdit; Edit32: TEdit; UpDown7: TUpDown; UpDown8: TUpDown; Label24: TLabel; Edit33: TEdit; Label25: TLabel; Edit34: TEdit; Label26: TLabel; Edit35: TEdit; Label27: TLabel; Label28: TLabel; Edit36: TEdit; Edit37: TEdit; Label29: TLabel; Edit38: TEdit; Label30: TLabel; Edit39: TEdit; Label31: TLabel; Edit40: TEdit; Button3: TButton; Label32: TLabel; Edit41: TEdit; Label33: TLabel; Label34: TLabel; Edit43: TEdit; GroupBox5: TGroupBox; Label35: TLabel; Label36: TLabel; Label37: TLabel; Label38: TLabel; Label39: TLabel; Label40: TLabel; Edit44: TEdit; Edit45: TEdit; Edit46: TEdit; Edit47: TEdit; Edit48: TEdit; Edit49: TEdit; Button4: TButton; Label41: TLabel; Edit42: TEdit;procedure Button4Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject);procedure Button2Click(Sender:TObject);procedure Button3Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var addForm: TaddForm; naim:string;ed_izm:string;kolvo:integer;cena:real;nomerpartiya:string;sernum:string;srok_godnost:tdate;data_postavka:tdate;postavchik:string;description:string; location:string; location_part:string; primech:string; Ayear, amonth,aday:word; razmer_part,kol:integer; id_part,idaddional,idlocation,idzapas:integer; idtov:integer;implementationuses MainClients;{$R *.dfm}procedure TaddForm.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure TaddForm.Button1Click(Sender:TObject);begin naim:=Edit1.Text; ed_izm:=ComboBox1.Text; kolvo:=strtoint(Edit2.Text); cena:=strtofloat(Edit3.Text); nomerpartiya:=Edit4.Text; sernum:=Edit5.Text; postavchik:=Edit12.Text; description:=Edit13.Text; location:=Edit14.Text; location_part:=Edit15.Text; primech:=Edit16.Text; Ayear:=strtoint(Edit8.Text); amonth:= strtoint(Edit7.Text); aday:= strtoint(Edit6.Text); srok_godnost:=encodedate(Ayear, amonth,aday); Ayear:=strtoint(Edit11.Text); amonth:= strtoint(Edit10.Text); aday:= strtoint(Edit9.Text); god:= strtoint(Edit43.Text); modelavto:=Edit41.Text; model:=Edit42.Text; data_postavka :=encodedate(Ayear, amonth,aday); razmer_part:=strtoint(Edit17.Text); if naim<>'' then begin MainClientsForm.ADOTable7.Active:=true; MainClientsForm.ADOTable7.Insert; MainClientsForm.ADOTable7.FieldByName('Nom_part').AsString:=nomerpartiya; MainClientsForm.ADOTable7.FieldByName('kolichestvo').AsInteger:= razmer_part; MainClientsForm.ADOTable7.FieldByName('otkuda').AsString:= postavchik; MainClientsForm.ADOTable7.FieldByName('kogda').AsDateTime:=data_postavka; MainClientsForm.ADOTable7.FieldByName('description').AsString:=description; MainClientsForm.ADOTable7.Post; id_part:=MainClientsForm.ADOTable7.FieldByName('IdPartiya').AsInteger; MainClientsForm.ADOTable6.Active:=true; MainClientsForm.ADOTable6.Insert; MainClientsForm.ADOTable6.FieldByName('ser_num').AsString:= sernum; MainClientsForm.ADOTable6.FieldByName('srok_godnost').AsDateTime:=srok_godnost; MainClientsForm.ADOTable6.FieldByName('model').AsString:= model; MainClientsForm.ADOTable6.FieldByName('marka').AsString:= modelavto; MainClientsForm.ADOTable6.FieldByName('god').AsInteger:=god; MainClientsForm.ADOTable6.Post; idaddional:= MainClientsForm.ADOTable6.FieldByName('idaddional').AsInteger; MainClientsForm.ADOTable5.Active:=true; MainClientsForm.ADOTable5.Insert; MainClientsForm.ADOTable5.FieldByName('Location').AsString:= location; MainClientsForm.ADOTable5.FieldByName('addional_location').AsString:= location_part; MainClientsForm.ADOTable5.FieldByName('notes').AsString:= primech; MainClientsForm.ADOTable5.Post; idlocation:= MainClientsForm.ADOTable5.FieldByName('IdLocation').AsInteger; MainClientsForm.ADOTable1.Active:=true; MainClientsForm.ADOTable3.Active:=true; MainClientsForm.ADOTable3.Insert; MainClientsForm.ADOTable3.FieldByName('Izmerenie').AsString :=ed_izm; MainClientsForm.ADOTable3.FieldByName('zapas').AsInteger :=kolvo; MainClientsForm.ADOTable3.FieldByName('stoimost').AsFloat :=kolvo*cena; MainClientsForm.ADOTable3.Post; idzapas:=MainClientsForm.ADOTable3.FieldByName('idZapas').AsInteger; MainClientsForm.ADOTable1.Insert; MainClientsForm.ADOTable1.FieldByName('nameTovar').AsString:= naim; MainClientsForm.ADOTable1.FieldByName('idLocation').AsInteger:=idlocation; MainClientsForm.ADOTable1.FieldByName('idAddional').AsInteger:= idaddional; MainClientsForm.ADOTable1.FieldByName('idPartiya').AsInteger:= id_part; MainClientsForm.ADOTable1.FieldByName('idZapas').AsInteger:= idzapas; MainClientsForm.ADOTable1.Post; end;end;procedure TaddForm.Button2Click(Sender:TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;var iddostavka:integer;begin tovar:=Edit24.Text; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; //mainclientsform.ADOQuery1.Active :=true; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit24.Text<>'' then begin srtkl := edit24.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; stroka_SQL:='select * from tovar where tovar.nametovar like :P1'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; kol:= mainclientsform.ADOQuery2.RecordCount; if kol=0 then showmessage('такого товара не существует') else begin idtov:=mainclientsform.ADOQuery2.FieldByName('idtovar').AsInteger; mainclientsform.ADOTable4.Active:=true; mainclientsform.ADOTable4.Insert; mainclientsform.ADOTable4.FieldByName('idTovar').AsInteger:=idtov; mainclientsform.ADOTable4.FieldByName('kolichestvo').AsInteger:=strtoint(Edit29.Text); mainclientsform.ADOTable4.FieldByName('lico').AsString:=Edit28.Text; mainclientsform.ADOTable4.FieldByName('iddostavka').AsInteger:=strtoint(Edit42.Text); Ayear:=strtoint(Edit27.Text); amonth:= strtoint(Edit26.Text); aday:= strtoint(Edit25.Text); srok_godnost:=encodedate(Ayear, amonth,aday); mainclientsform.ADOTable4.FieldByName('kogda').AsDateTime:=srok_godnost; mainclientsform.ADOTable4.Post; end;end;procedure TaddForm.Button3Click(Sender:TObject);var tovar, srtkl,name_poisk,sqlwhere,stroka_SQL :string;p1:tparameter;begin tovar:=Edit33.Text; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear; P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit33.Text<>'' then begin srtkl := edit33.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; stroka_SQL:='select * from tovar where tovar.nametovar like :P1'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; kol:= mainclientsform.ADOQuery2.RecordCount; if kol=0 then showmessage('такого товара не существует') else begin idtov:=mainclientsform.ADOQuery2.FieldByName('idtovar').AsInteger; mainclientsform.ADOTable2.Active:=true; mainclientsform.ADOTable2.Insert; mainclientsform.ADOTable2.FieldByName('idTovar').AsInteger:=idtov; mainclientsform.ADOTable2.FieldByName('kolichestvo').AsInteger:=strtoint(Edit35.Text); mainclientsform.ADOTable2.FieldByName('Lico').AsString:=Edit34.Text; mainclientsform.ADOTable2.FieldByName('stoimost').AsFloat:=strtofloat(Edit37.Text); mainclientsform.ADOTable2.FieldByName('otkuda').AsString:=Edit36.Text; mainclientsform.ADOTable2.FieldByName('kuda').AsString:=Edit38.Text; mainclientsform.ADOTable2.FieldByName('idPartiya').AsInteger:= strtoint(Edit39.Text); mainclientsform.ADOTable2.FieldByName('IdZakaz').AsInteger:= strtoint(Edit40.Text); mainclientsform.ADOTable2.FieldByName('provodka').AsString:='N'; Ayear:=strtoint(Edit32.Text); amonth:= strtoint(Edit31.Text); aday:= strtoint(Edit30.Text); srok_godnost:=encodedate(Ayear, amonth,aday); mainclientsform.ADOTable2.FieldByName('vremya').AsDateTime:=srok_godnost; mainclientsform.ADOTable2.post; end;end;procedure TaddForm.Button4Click(Sender:TObject);var pdate, ptime:tdatetime;fakt, lico, transport, adres:string;begin pdate:=strtodate(edit44.Text); ptime:=strtotime(edit45.Text); fakt:=edit46.Text; lico:=edit47.Text; transport:= edit48.Text; adres:=Edit49.Text; mainclientsform.ADOTable8.Active:=true; mainclientsform.ADOTable8.Insert; mainclientsform.ADOTable8.FieldByName('date').AsDateTime:=pdate; mainclientsform.ADOTable8.FieldByName('time').AsDateTime:=ptime; mainclientsform.ADOTable8.FieldByName('end').AsString:=fakt; mainclientsform.ADOTable8.FieldByName('lico').AsString:=lico; mainclientsform.ADOTable8.FieldByName('transport').AsString:=transport; mainclientsform.ADOTable8.FieldByName('adres').AsString:=adres; mainclientsform.ADOTable8.Post;end;end.unit parampoisk;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DB, ADODB, Menus, ChildTemplate, Grids, DBGrids,addsorce, StdCtrls, Mask,DateUtils, ExtCtrls, ComCtrls,DBCtrls,OleServer, ExcelXP, OleCtnrs, ComObj ;type Tparampoik = class(TForm) Button1: TButton; GroupBox1: TGroupBox; Label1: TLabel; Edit1: TEdit; Edit2: TEdit; UpDown1: TUpDown; Edit3: TEdit; Edit4: TEdit; UpDown2: TUpDown; Edit5: TEdit; UpDown3: TUpDown; Edit6: TEdit; UpDown4: TUpDown; Edit7: TEdit; Label2: TLabel; Label3: TLabel; Label7: TLabel;procedure RzBitBtn4Click(Sender:TObject);procedure RzBitBtn3Click(Sender:TObject);procedure RzBitBtn2Click(Sender:TObject);procedure RzBitBtn1Click(Sender:TObject);procedure FormClose(Sender: TObject; var Action: TCloseAction);procedure Button1Click(Sender:TObject); private { Private declarations } public { Public declarations } end;var parampoik: Tparampoik; ChildTemplateForm1: TChildTemplateForm; ff:string; flagpoisk:boolean; p1,p2,p3:tparameter;all:boolean;ahour, aminute, asecond, amillisecond :word;priznak:string;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string;idnakl,idzapas,i,sravn,kolnakl,kolzapas, rezerv_kol:integer;implementationuses mainclients;{$R *.dfm}procedure Tparampoik.FormClose(Sender: TObject; var Action: TCloseAction);begin Action:=caFree;end;procedure Tparampoik.RzBitBtn2Click(Sender:TObject);begin{RzCheckBox16.Checked:=false;RzCheckBox17.Checked:=false;RzCheckBox1.Checked:=false;RzCheckBox2.Checked:=false;RzCheckBox3.Checked:=false;RzCheckBox4.Checked:=false;//RzCheckBox5.Checked:=false;RzCheckBox6.Checked:=false;RzCheckBox7.Checked:=false;//RzCheckBox8.Checked:=false;RzCheckBox9.Checked:=false;RzCheckBox10.Checked:=false;//RzCheckBox11.Checked:=false;RzCheckBox12.Checked:=false;RzCheckBox13.Checked:=false;RzCheckBox14.Checked:=false;RzCheckBox15.Checked:=false;RzCheckBox18.Checked:=false;RzCheckBox19.Checked:=false;}end;procedure Tparampoik.RzBitBtn3Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform;all:boolean;stroka_SQL,pole,tabl, srtkl,name_poisk, sqlwhere:string; fl_book, fl_avtor, fl_izdat, fl_location, fl_vid, fl_category:boolean;begin{flagsort:=false;} MainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery1; mainclientsform.ADOQuery1.Active:=false; mainclientsform.ADOQuery1.SQL.Clear; P1 :=mainclientsform.ADOQuery1.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;end;procedure Tparampoik.RzBitBtn4Click(Sender:TObject);begin flagpoisk:=false; MainClientsForm.IsMDIChildOpen(MainClientsForm,'parampoik');end;procedure Tparampoik.Button1Click(Sender:TObject);var ChildTemplateForm:TChildTemplateform; timenach,timekon:tdatetime; var XlApplication: OleVariant; XLWorkSheet: OleVariant;beginMainClientsForm.IsMDIChildOpen(MainClientsForm,'DBDirectoryTemplateForm'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'addform'); MainClientsForm.IsMDIChildOpen(MainClientsForm,'ChildTemplateForm'); ChildTemplateForm:=TChildTemplateform.Create(Owner); ChildTemplateForm.Left:=0; ChildTemplateForm.Top:=3; mainclientsform.DataSource1.DataSet:=mainclientsform.ADOQuery2; mainclientsform.ADOQuery2.Active:=false; mainclientsform.ADOQuery2.SQL.Clear;if nomer_poisk=1 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;sqlwhere:= ' where (zapas.idzapas = ( select tovar.idzapas from tovar where tovar.nametovar like :P1))';stroka_SQL:='select * from tovar where (tovar.nametovar like:P1)'; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=2 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%'; P1.Value := timenach; end;sqlwhere:= ' where addional.srok_godnost < :P1'; stroka_SQL:='select tovar.nametovar, addional.srok_godnost from tovar,addional'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end;if nomer_poisk=3 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring; if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end;sqlwhere:= ' where (location.idlocation = ( select tovar.idlocation from tovar where tovar.nametovar like :P1))'; stroka_SQL:='select * from location '+sqlwhere ; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=4 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2)'; stroka_SQL:='select * from Nakladnaya'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=5 then beginP1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl);end; P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftstring; if edit2.Text<>'' then begin srtkl := edit2.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P2.Value:=srtkl; P2.Size:=Length(srtkl); end; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; if edit5.Text<>'' then begin srtkl := edit5.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P3.Value:=srtkl; P3.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;sqlwhere:= ' where ((tovar.nametovar like :P1) and (addional.marka like :P2 )and (addional.model like :P3 ))'; stroka_SQL:='select tovar.nametovar, addional.* from tovar,addional'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; end; end; if nomer_poisk=6 then beginP1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftstring;if edit1.Text<>'' then begin srtkl := edit1.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P1.Value:=srtkl; P1.Size:=Length(srtkl); end; P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftstring; if edit2.Text<>'' then begin srtkl := edit2.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P2.Value:=srtkl; P2.Size:=Length(srtkl); end; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; if edit5.Text<>'' then begin srtkl := edit5.Text;name_poisk:= 'Tovar.nameTovar' end; if srtkl<>'' then beginsrtkl:='%'+ srtkl+'%';P3.Value:=srtkl; P3.Size:=Length(srtkl); end;ChildTemplateForm.Label1.Caption:='Информация о товарах: '+edit1.Text;// sqlwhere:= ' where ((tovar.nametovar like :P1) and (addional.marka like :P2 )and (addional.model like :P3 ))';// stroka_SQL:='select tovar.nametovar, addional.* from tovar,addional';sqlwhere:= ' where ((addional.idaddional = tovar.idaddional) and (tovar.idzapas=zapas.idzapas) )';stroka_SQL:='select * from tovar,addional,zapas '+sqlwhere ; //+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act2.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin XLWorkSheet.cells[i+3,2]:=inttostr(i); XLWorkSheet.cells[i+3,3]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('Ser_num').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('marka').AsString; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('model').AsString; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('god').AsString; XLWorkSheet.cells[i+3,8]:=mainclientsform.ADOQuery2.FieldByName('zapas').Asinteger; XLWorkSheet.cells[i+3,9]:=mainclientsform.ADOQuery2.FieldByName('izmerenie').AsString; XLWorkSheet.cells[i+3,10]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; mainclientsform.ADOQuery2.Next; end; end; end; end; if nomer_poisk=7 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon;sqlwhere:= ' where (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2) and (nakladnaya.idtovar=tovar.idtovar)'; stroka_SQL:='select * from tovar,Nakladnaya'+ sqlwhere;// stroka_SQL:='select * from tovar,location where ' mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act3.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin XLWorkSheet.cells[i+3,2]:=inttostr(i);XLWorkSheet.cells[i+3,3]:=datetostr(mainclientsform.ADOQuery2.FieldByName('vremya').Asdatetime); XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('idnakladnaya').asinteger; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('kolichestvo').asinteger; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; mainclientsform.ADOQuery2.Next; end; end; end;end; if nomer_poisk=8 then begin P1 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P1.Name:='P1'; p1.DataType := ftdatetime;// P1.Direction := ptInput; ayear:= strtoint(Edit4.Text);amonth:=strtoint(Edit3.Text);aday:=strtoint(Edit2.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timenach:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); ayear:= strtoint(Edit7.Text);amonth:=strtoint(Edit6.Text);aday:=strtoint(Edit5.Text);ahour:=0;aminute:=0;asecond:=0;amillisecond:=0; timekon:=encodedatetime(Ayear, amonth,aday,ahour,aminute,asecond,amillisecond); P2 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P2.Name:='P2'; p2.DataType := ftdatetime; P1.Value := timenach; P2.Value := timekon; P3 :=mainclientsform.ADOQuery2.Parameters.AddParameter; P3.Name:='P3'; p3.DataType := ftstring; P3.Value := 'y';sqlwhere:= ' where (Nakladnaya.provodka = :P3) and (Nakladnaya.vremya > :P1) and (nakladnaya.vremya < :P2) and (nakladnaya.idtovar=tovar.idtovar)'; stroka_SQL:='select * from tovar, Nakladnaya'+ sqlwhere; mainclientsform.ADOQuery2.SQL.Add(stroka_SQL); if stroka_SQL<>'' then begin mainclientsform.ADOQuery2.Active:=true; mainclientsform.ADOQuery2.ExecSQL; if mainclientsform.ADOQuery2.RecordCount>0 then begin try XlApplication := GetActiveOleObject('Excel.Application'); except XlApplication := CreateOleObject('Excel.Application'); end; XlApplication.Workbooks.Open[ExtractFilePath(Application.ExeName)+'act3.xlt', 0, true]; XlApplication.Visible := true; XLWorkSheet := XlApplication.ActiveWorkBook.ActiveSheet; mainclientsform.ADOQuery2.First; for i:=1 to mainclientsform.ADOQuery2.RecordCount do begin if mainclientsform.ADOQuery2.FieldByName('provodka').AsString = 'y' then begin XLWorkSheet.cells[i+3,2]:=inttostr(i);XLWorkSheet.cells[i+3,3]:=datetostr(mainclientsform.ADOQuery2.FieldByName('vremya').Asdatetime); XLWorkSheet.cells[i+3,4]:=mainclientsform.ADOQuery2.FieldByName('nametovar').AsString; XLWorkSheet.cells[i+3,5]:=mainclientsform.ADOQuery2.FieldByName('idnakladnaya').asinteger; XLWorkSheet.cells[i+3,6]:=mainclientsform.ADOQuery2.FieldByName('kolichestvo').asinteger; XLWorkSheet.cells[i+3,7]:=mainclientsform.ADOQuery2.FieldByName('stoimost').asinteger; end; mainclientsform.ADOQuery2.Next; end; end; end; end;end;end.

СПИСОК ИСПОЛЬЗОВАННЫХ ИСТОЧНИКОВ

1. Абдикеев Н. М., Китова О.В. Корпоративные информационные системы управления. М.: ИНФРА-М, 2011.
2. Агальцов, В.П. Базы данных. В 2-х т. Т. 2. Распределенные и удаленные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 272 c.
3. Балдин К. В. Информационные системы в экономике [Текст] : Учебник / К.В. Балдин, В. Б. Уткин, Информационные системы в экономике . - М: Издательско-торговая корпорация «Дашков и К», 2012. - 395 с.
4. Баронов В.В., Калянов Г.Н., Попов Ю.И., Рыбников А.И., Титовский И.Н. Автоматизация управления предприятием // М.: ИНФРА-М, 2011, -239с.
5. Варфоломеева А.О. Информационные системы предприятия [Текст] : Учебное пособие / А.О.Варфоломеева, В.П.Романов, А.В.Коряковский Информационные системы предприятия –М.: ООО "Научно-издательский центр ИНФРА-М", 2013. –283 с.
6. Гагарина Л.Г. Разработка и эксплуатация автоматизированных информационных систем [Текст] : Учебное пособие / Л.Г.Гагарина Разработка и эксплуатация автоматизированных информационных систем.– М: Издательский Дом "ФОРУМ"; М: ООО "Научно-издательский центр ИНФРА-М", 2013. - 384 с.
7. Гвоздева В.А. Информатика, автоматизированные информационные технологии и системы [Текст]: Учебник / В.А. Гвоздева Информатика, автоматизированные информационные технологии и системы – М: Издательский Дом «ФОРУМ»; Москва : Издательский Дом «ИНФРА-М», 2011. - 544 с.
8. Глушков В.М. Основы безбумажной информатики, М., Наука, 2011.
9. Голицына О. Л., Максимов Н. В., Попов И. И. Базы данных; М.: Форум –2012. - 400 c.
10. Головко М.В. Проекты ИС для крупных предприятий: от бессистемного управления к системам управления знаниями //Директору информационной службы, № 4, 2012. - С. 2.
11. Заботина Н.Н. Проектирование информационных систем: Учебное пособие Москва: Издательский Дом «ИНФРА-М», 2011– 331 с.
12. Затонский, А.В. Информационные технологии: разработка информационных моделей и систем [Текст]: Учебное пособие / А.В.Затонский. – Москва: Издательский Центр РИОР; Москва: ООО «Научно-издательский центр ИНФРА-М», 2014. – 344 с.
13. Информационные системы в экономике : Учеб. пособие По дисциплине "Информ. системы в экономике" /Е.Н. Ефимов, С.М. Патрушина, Л.Ф. Панферова, Л.И. Хашиева. - М. Ростов н/Д. : МарТ, 2004. - 350 с. : ил. ; 20 см. - (Информационные системы). - Библиогр.: с. 342-345 (40 назв.)
14. Информационные системы в экономике/Под ред. В.В. Дика. - М.:Финансы и статистика, 2013.
15. Информационные технологии в экономике и управлении / под ред. В. В. Трофимова. – М.: Юрайт, 2011. – 478 с.
16. Исаев Г. Н. Информационные системы в экономике /Исаев Г.Н.; Изд-во "Омега Л", авторские права, оформление, ООО "ОАСИС". - Москва : Омега Л, cop. 2010. - Систем. требования: Pentium 500 Mhz ; 64 Mb ; Windows ; 40 Мб на жестком диске ; SVGA 16 Мб (минимальное разрешение 800х600) ; CD дисковод со скоростью чтения 16x, клавиатура, мышь, браузер. 1 электрон. опт. диск (CD-ROM) : цв. ; 13 см. - (Электронный учебник)
17. Карминский А.М., Черников Б.В. Применение информационных систем в экономике. М.: ИНФРА-М, 2012.
18. Карпова И. П. Базы данных; Питер - Москва, 2013. - 240 c.
19. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.
20. Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-Петербург, 2012. - 464 c.
21. Компьютерные информационные системы управленческой деятельности/Под ред. Проф. Титоренко Г.А. - М.: Экономическое образование, 2012.
22. Кузин, А.В. Базы данных: Учебное пособие для студ. высш. учеб. заведений / А.В. Кузин, С.В. Левонисова. - М.: ИЦ Академия, 2012. - 320 c.
23. Кузнецов С. Д. Базы данных; Академия - Москва, 2012. - 496 c.
24. Кузнецова Т.В. Инструкция по делопроизводсту, порядок составления //Секретарское дело 1999. №2. С. 3 -6.
25. Кумскова И. А. Базы данных; КноРус - Москва, 2011. - 488 c.
26. Лафоре Р. Объектно-ориентированное программирование в С++; Питер - Москва, 2011. – 928 c.
27. Маклафлин, Б. Объектно-ориентированный анализ и проектирование / Б. Маклафлин. - СПб.: Питер, 2013. - 608 c.
28. Модели жизненного цикла ПО. WWW: http://wm-help.net/books-online/book/57663/57663-2.html.
29. Одинцов Б.Е., Романов А.Н. Информационные ресурсы и технологии в экономике. Вузовский учебник, 2013.
30. Прикладная информатика: учебное пособие. Под ред. Денисова Д.В.-М: Московский финансово-промышленный университет «Синергия», 2012.
31. Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463 c.
32. Туманов, В.Е. Основы проектирования реляционных баз данных; Бином, 2012. - 420 c.
33. Федотова Е. Л. Информационные технологии и системы [Текст] : Учеб. пособие / Е.Л.Федотова Информационные технологии и системы – М: Издательский Дом "ФОРУМ", 2013. – 352 с.
34. Фуфаев Э. В., Фуфаев Д. Э. Базы данных; М.:Академия, 2013 – 320 c.
35. Штерн В. С++; М.:Лори – 2013. - 860 c.

СОДЕРЖАНИЕ

ВВЕДЕНИЕ

1. Обоснование проектных решений

1.1 Описание области

1.2 Постановка задачи

1.3 План-график выполнения проекта

1.4 Затраты на внедрение ИС

2. Проектная ЧАСТЬ

2.1 Описание компонентов проекта решения

2.2 Описание технологии автоматизации

2.3 Реализация требований, поддержка надежность системы и безопасность данных

ВЫВОД

СПИСОК ИСПОЛЬЗУЕМЫХ ИСТОЧНИКОВ

ПРИЛОЖЕНИЯ

ВВЕДЕНИЕ

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

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

Предмет исследования - бизнес-процессы оптовой торговли предприятия ООО "Карапузик".

Объект исследования - автоматизация учета оптовой продажи товаров.

Цель работы: разработать автоматизированную информационную систему (АИС) предприятия (на примере ООО "Карапузик") для автоматизации отдела оптовых продаж.

Задачи исследования:

1) рассмотреть основные понятия и компоненты ИС

2) изучить основные технологии проектирования ИС

3) рассмотреть основные этапы проектирования ИС

4) проводить исследования и анализ в этой области и разработка ис предприятия для автоматизации отдела оптовых продаж ООО "Карапузик"

5) выполнить расчет экономической эффективности от внедрения разработанной ИС предприятия ООО "Карапузик"

1. ОБОСНОВАНИЕ ПРОЕКТНЫХ РЕШЕНИЙ

1.1 Описание области

автоматизация учета продажи торговли

История компании началась в 2000 году, с открытием трц "Галерея". Сегодня группа компаний объединяет сеть рознично-оптовых магазинов "Карапузик" и luxury-центр "Детская Галерея "пятигорск".

Основным акционером компании является ООО "Синдика" - крупнейшей в России публичной диверсифицированной холдинговой компанией, которая имеет активы, которые работают в таких областях, как телекоммуникации, банковские услуги, розничная и оптовая торговля, туризм и медицинские услуги.

Узнать стоимость работы