Разработка автоматизированного рабочего места начальника склада организации по предоставлению IT-услуг

Дипломная Купить готовую Узнать стоимостьмоей работы

Nomen](NOTNULLPRIMARYKEY,(40)NULL,(10)NULL, NULL) ONGOТаблицаoperUSEGO/****** Object: Table. oper] Script Date: 05/12/2015 18:11:30 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE. oper](NOTNULLPRIMARYKEY, NULL, NULL,(10)NULL)ONGOТаблица Pos_naklUSEGO/****** Object: Table. pos_nakl] Script Date: 05/12/2015 18:12:23 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE. pos_nakl… Читать ещё >

Разработка автоматизированного рабочего места начальника склада организации по предоставлению IT-услуг (реферат, курсовая, диплом, контрольная)

Содержание

1. Аналитическая часть
- 1. 1. Характеристика предприятия
- 1. 2. Анализ существующей технологии учета товарно-материальных ценностей
  - 1. 2. 1. Общая характеристика организации складского учета в ООО «Байт»
  - 1. 2. 2. Анализ бизнес-процессов технологии складского учета
- 1. 3. Описание экономической сущности задачи автоматизации склада
- 1. 4. Постановка задачи на разработку ЭИС
- 1. 5. Анализ существующих разработок
2. Проектная часть
- 2. 1. Описание функциональных подсистем ЭИС
- 2. 2. Новая технология складского учета ООО «Байт»
- 2. 3. Описание обеспечивающих подсистем
- 2. 4. Обоснование выбора средств разработки
3. Экспериментальная часть
- 3. 1. Описание процесса разработки программного обеспечения
- 3. 2. Руководство администратора
- 3. 3. Руководство пользователя
4. Экономическая часть
5. Безопасность жизнедеятельности
Литература

пособие для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.

М.: Кно.

Рус, 2007.-252 с. Граничин, О. Н. Информационные технологии в управлении: учеб. пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям) и «Менеджмент организации (по специализации «Информационный менеджмент»)» /О. Н. Граничин, В. И. Кияев.

М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем.

— М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с. 135Гринберг, А. С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос.

и муницип. упр." ] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.

М.: ЮНИТИ, 2010.-479 с. Диго, С. М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности «Прикладная информатика (по обл.)» ] /С.М. Диго.

М.: Финансы и статистика, 2010.-591 с.Днепров.

А. Г. M icrosoft Access 2007. Cамоучитель. — М.: Финансы и статистика, 2009. -.

361с.Емельянова Н. З., Партыка Т. Л., Попов И. И. Защита информации в персональном компьютере. — М.: Форум, 2009. — 368 с. Завгородний В. И. Комплексная защита в компьютерных системах: Учебное пособие. — М.: Логос; ПБОЮЛ Н. А. Егоров, 2011. ;

264 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям & quot;Прикладная информатика (по обл.)", «Менеджмент орг.», «Гос. и муницип. упр.& quot;] /А. Г. Ивасенко, А. Ю.

Гридасов, В. А. Павленко.

М.: Кно.

Рус, 2011.-153 с. Ивасенко, А. Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям & quot;Прикладная информатика (по областям)", «Менеджмент орг.», «Гос. и муницип. упр.& quot; /А. Г. Ивасенко, А.

Ю. Гридасов, В. А. Павленко.

М.: Кно.

Рус, 2009.-153 с. Информатика: [учеб. для вузов по специальности & quot;Прикладная информатика (по обл.)" и др. экон. специальностям] / А. Н. Гуда [и др.]; под общ.

ред. В. И. Колесникова.

М.: Дашков и К°, 2010.-399 с. Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.

М.: Юрайт, 2010.-910 с. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.

М.: Высш. образование, 2010.-480 с. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям /.

В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.

М.: Юрайт, 2009.-624 с. Карпова Т. С. Базы данных: модели, разработка, реализация.

СПб.: Питер, 2007. — 302с. Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с. Коноплева, И. А. Информационные технологии: учеб.

пособие: [для вузов по специальности & quot;Прикладная информатика (по областям)] /И. А. Коноплева, О. А.

Хохлова, А. В. Денисов.

М.: Проспект, 2010.-294 с. Кудинов, Ю. И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.

СПб.: Лань, 2009.-255 с. Луенбергер, Д. Д. Информатика: учеб.

метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям / Дэвид Дж. Луенбергер; пер. с англ.

Ю. Л. Цвирко под ред. д.т.н.

К. К. Колина.

М.: Техносфера, 2008.-447 с. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.

Максимов, Н. В. Технические средства информатизации: [учебник по специальностям «Информатика и вычисл. техника», «Прикладная информатика (по областям)» ] /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.

М.: Форум, 2008.-591 с. Максимов, Н. В. Технические средства информатизации: учеб. для студентов учреждений сред. проф. образования, обучающихся по группе специальностей & quot;Информатика и вычисл. техника& quot; и для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика (по областям)» /Н. В. Максимов, Т. Л.

Партыка, И. И. Попов.

М.: Форум, 2010.-606 с. Малыхина, М. П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.

Марков, А. С. Базы данных: Введ. в теорию и методологию: [Учеб. по специальности «Прикладная математика и информатика» ] /А.С. Марков, К. Ю. Лисовский.

М.: Финансы и статистика, 2009.-511 с. Мишенин А. И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 сПроектирование экономических систем: Учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов — М.: Финансы и статистика, 2010.

Романов А. Г. Автоматизация служб предприятия. — Курск: КПО, 2010.

Симонович С. В. Общая информатика — СПб: Питер, 2008. — 431 с. Симонович С. В. Информатика для юристов и экономистов. — СПб.: Питер, 2007. -.

633с.Степанов А. Н. Информатика: учебное пособие. — СПб: Питер Пресс, 2012. — 764 с. Стражева Н.

С., Стражев А. В. Бухгалтерский учет. — М.: Диалог, 2008. -.

252с.Уткин В. Б., Балдин К. В. Информационные системы и технологии в экономике. — М.: ЮНИТИ, 2008. -.

453с.Фаронов В. А. Delphi. Программирование на языке высокого уровня. М.: 2010.

Приложение 1Листинг создания базы данных/****** Object: Database [skl] Script Date: 05/12/2015 18:13:18 ******/CREATEDATABASE[skl]ONPRIMARY (NAME=N'skl', FILENAME=N'C:Program FilesMicrosoft SQL ServerMSSQL10₅₀.SQLEXPRESSMSSQLDATAskl.mdf', SIZE= 7168KB, MAXSIZE=UNLIMITED, FILEGROWTH= 1024KB) LOGON (NAME=N'skl_log', FILENAME=N'C:Program FilesMicrosoft SQL ServerMSSQL10₅₀.SQLEXPRESSMSSQLDATAskl_log.ldf', SIZE= 1024KB, MAXSIZE= 2048GB, FILEGROWTH= 10%)GOALTERDATABASE[skl]SETCOMPATIBILITY_LEVEL= 100GOIF (1 =FULLTEXTSERVICEPROPERTY ('IsFullTextInstalled'))beginEXEC[skl]. dbo]. sp_fulltext_database]@action='enable'endGOALTERDATABASE[skl]SETANSI_NULL_DEFAULTOFFGOALTERDATABASE[skl]SETANSI_NULLSOFFGOALTERDATABASE[skl]SETANSI_PADDINGOFFGOALTERDATABASE[skl]SETANSI_WARNINGSOFFGOALTERDATABASE[skl]SETARITHABORTOFFGOALTERDATABASE[skl]SETAUTO_CLOSEOFFGOALTERDATABASE[skl]SETAUTO_CREATE_STATISTICSONGOALTERDATABASE[skl]SETAUTO_SHRINKOFFGOALTERDATABASE[skl]SETAUTO_UPDATE_STATISTICSONGOALTERDATABASE[skl]SETCURSOR_CLOSE_ON_COMMITOFFGOALTERDATABASE[skl]SETCURSOR_DEFAULTGLOBALGOALTERDATABASE[skl]SETCONCAT_NULL_YIELDS_NULLOFFGOALTERDATABASE[skl]SETNUMERIC_ROUNDABORTOFFGOALTERDATABASE[skl]SETQUOTED_IDENTIFIEROFFGOALTERDATABASE[skl]SETRECURSIVE_TRIGGERSOFFGOALTERDATABASE[skl]SETDISABLE_BROKERGOALTERDATABASE[skl]SETAUTO_UPDATE_STATISTICS_ASYNCOFFGOALTERDATABASE[skl]SETDATE_CORRELATION_OPTIMIZATIONOFFGOALTERDATABASE[skl]SETTRUSTWORTHYOFFGOALTERDATABASE[skl]SETALLOW_SNAPSHOT_ISOLATIONOFFGOALTERDATABASE[skl]SETPARAMETERIZATIONSIMPLEGOALTERDATABASE[skl]SETREAD_COMMITTED_SNAPSHOTOFFGOALTERDATABASE[skl]SETHONOR_BROKER_PRIORITYOFFGOALTERDATABASE[skl]SETREAD_WRITEGOALTERDATABASE[skl]SETRECOVERYSIMPLEGOALTERDATABASE[skl]SETMULTI_USERGOALTERDATABASE[skl]SETPAGE_VERIFYCHECKSUMGOALTERDATABASE[skl]SETDB_CHAININGOFFGO1.Таблица skladUSE[skl]GO/****** Object: Table [dbo]. sklad] Script Date: 05/12/2015 18:06:49 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. sklad]([mesto][int]NULL,[plos][money]NULL,[nam][nvarchar](30)NULL)ON[PRIMARY]GO2.

Таблица cnstUSE[skl]GO/****** Object: Table [dbo]. cnst] Script Date: 05/12/2015 18:07:49 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. cnst]([nam][nvarchar](255)NULL,[dir][nvarchar](255)NULL,[adr][nvarchar](255)NULL,[inn][nvarchar](255)NULL,[tel][nvarchar](255)NULL,[oper][nvarchar](255)NULL)ON[PRIMARY]GO3. Таблица contragUSE[skl]GO/****** Object: Table [dbo]. contrag] Script Date: 05/12/2015 18:08:57 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo].

contrag]([code][int]notnullprimarykey,[nam][nvarchar](40)NULL,[adr][nvarchar](255)NULL,[inn][nvarchar](20)NULL,[tel][nvarchar](20)NULL,[oper][nvarchar](25)NULL)ON[PRIMARY]GO4. Таблица gur_hran USE[skl]GO/****** Object: Table [dbo]. gur_hran] Script Date: 05/12/2015 18:09:34 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. gur_hran]([mesto][int]notNULLprimarykey,[cd_prod][int]notNULL,[kol][int]NULL)ON[PRIMARY]GOТаблица nomenUSE[skl]GO/****** Object: Table [dbo]. nomen] Script Date: 05/12/2015 18:10:40 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. nomen]([code][int]NOTNULLPRIMARYKEY,[nam][nvarchar](40)NULL,[edizm][nvarchar](10)NULL,[stm][money]NULL)ON[PRIMARY]GOТаблицаoperUSE[skl]GO/****** Object: Table [dbo]. oper] Script Date: 05/12/2015 18:11:30 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. oper]([code][int]NOTNULLPRIMARYKEY,[contrag][int]NULL,[day][datetime]NULL,[typ][nvarchar](10)NULL)ON[PRIMARY]GOТаблица Pos_naklUSE[skl]GO/****** Object: Table [dbo].

pos_nakl] Script Date: 05/12/2015 18:12:23 ******/SETANSI_NULLSONGOSETQUOTED_IDENTIFIERONGOCREATETABLE[dbo]. pos_nakl]([code_oper][int] NOTNULL,[code_prod][int] NOTNULL,[kol][int]NULL,[prih][int]NULL,[rash][int]NULL,[code_str][int]NULL)ON[PRIMARY]GOПриложение 2Листинг программного кода основных форм программыprocedure TForm1. N15Click (Sender: TObject);var f: textfile; q1, q2:string;begin assignfile (f,'c:sklconnect.txt'); reset (f); readln (f, q1); readln (f, q2); closefile (f); form18. Edit1.Text:=q1; form18. Edit2.Text:=q2; form18. Show;end;procedure TForm1. FormCreate (Sender: TObject);var f: textfile; q1, q2:string;begin assignfile (f,'c:sklconnect.txt'); reset (f); readln (f, q1); readln (f, q2); closefile (f); adoconnection1. Close; adoconnection1. ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog='+trim (q2)+';Data Source='+trim (q1)+';Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096';end;procedure TForm1. N3Click (Sender: TObject);begin adoquery3. Open; if form1. ADOQuery3.RecordCount>0 then begin form5. edit1.Text:=form1.ADOQuery3nam.AsString; form5. edit2.Text:=form1.ADOQuery3dir.AsString; form5. edit3.Text:=form1.ADOQuery3adr.AsString; form5. edit4.Text:=form1.ADOQuery3inn.AsString; form5. edit5.Text:=form1.ADOQuery3tel.AsString; form5. edit6.Text:=form1.ADOQuery3oper.AsString; end; form5. Show;end;procedure TForm1. N7Click (Sender: TObject);begin form1. close;end;procedure TForm1. N4Click (Sender: TObject);begin with form1. ADOQuery4 do begin close; sql. Clear; sql. Add ('select * from sklad'); active:=true; end; form6. DBGrid1.Columns[0]. T itle. caption:='Код'; form6. DBGrid1.Columns[1]. T itle. caption:='Площадь'; form6. DBGrid1.Columns[2]. T itle. caption:='Наименование'; form6. show;end;procedure TForm1. N8Click (Sender: TObject);begin with form1. adoquery6 do begin close; sql. Clear; sql. Add ('select * from contrag'); active:=true; end; form8. DBGrid1.Columns[0].

T itle. caption:='Код'; form8. DBGrid1.Columns[1]. T itle. caption:='Наименование'; form8. DBGrid1.Columns[2]. T itle. caption:='Адрес'; form8. DBGrid1.Columns[3]. T itle. caption:='ИНН'; form8. DBGrid1.Columns[4].

T itle. caption:='Телефон'; form8. DBGrid1.Columns[5]. T itle. caption:='Контактное лицо'; form8. show;end;procedure TForm1. N9Click (Sender: TObject);var i: integer;begin form11. DBGrid1.Columns[0]. T itle. caption:='Наименование'; form11. DBGrid1.Columns[1]. T.

itle.caption:='Принято'; form11. DBGrid1.Columns[2]. T itle. caption:='Кол-во'; form11. DBGrid1.Columns[3]. T itle. caption:='Номер строки'; with form1. ADOQuery11 do begin close; sql. Clear; sql. add ('select max (code) from oper'); open; end; if form1. ADOQuery11.RecordCount=0 then form11. edit1.Text:='1' else form11. Edit1.Text:=inttostr (1+form1.ADOQuery11Column1.AsInteger); form11. DateTimePicker1. Date:=now; form11. ComboBox1.clear; with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select * from contrag'); open; end; for i:=1 to form1. ADOQuery6.RecordCount do begin form11. ComboBox1.Items.Add (trim (form1.ADOQuery6nam.AsString)); form1. adoquery6. Next; end; with form1. ADOQuery10 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form11.Edit1.Text); active:=true; end; form11. Show;end;procedure TForm1. N10Click (Sender: TObject);var i: integer;begin form13. DBGrid1.Columns[0]. T itle. caption:='Наименование'; form13. DBGrid1.Columns[1].

T itle. caption:='Отгружено'; form13. DBGrid1.Columns[2]. T itle. caption:='Кол-во'; form13. DBGrid1.Columns[3]. T itle. caption:='Номер строки'; with form1. ADOQuery11 do begin close; sql. Clear; sql. add ('select max (code) from oper'); open; end; if form1. ADOQuery11.RecordCount=0 then form13. edit1.Text:='1' else form13. Edit1.Text:=inttostr (1+form1.ADOQuery11Column1.AsInteger); form13. DateTimePicker1. Date:=now; form13. ComboBox1.clear; with form1. ADOQuery6 do begin close; sql. Clear; sql. Add ('select * from contrag'); open; end; for i:=1 to form1. ADOQuery6.RecordCount do begin form13. ComboBox1.Items.Add (trim (form1.ADOQuery6nam.AsString)); form1. adoquery6. Next; end; with form1. ADOQuery10 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form13.Edit1.Text); active:=true; end; form13. Show;end;procedure TForm1. N11Click (Sender: TObject);begin with form1. ADOQuery15 do begin close; sql. Clear; sql. add ('SELECT contrag. nam, oper. typ, oper. day, oper. code FROM contrag INNER JOIN oper ON contrag. code = oper. contrag'); active:=true; end; form15. DBGrid1.Columns[0]. T.

itle.caption:='Код'; form15. DBGrid1.Columns[1]. T itle. caption:='Тип'; form15. DBGrid1.Columns[2]. T itle. caption:='Дата'; form15. DBGrid1.Columns[3]. T itle. caption:='Номер'; form15. Show;end;procedure TForm11. RzBitBtn4Click (Sender: TObject);begin with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('delete from pos_nakl where code_oper='+edit1.Text); execsql; end; form11. close;end;procedure TForm11. RzBitBtn5Click (Sender: TObject);var i: integer; ms: integer;begin with form1. adoquery4 do begin close; sql. Clear; sql. add ('select * from sklad'); open; end; ms:=0; for i:=1 to form1. ADOQuery4.RecordCount do begin with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen where nam='+form1.Label1.Caption+trim (form1.ADOQuery10nam.AsString)+form1.Label1.Caption); open; end; with form1. ADOQuery13 do begin close; sql. Clear; sql. add ('select * from gur_hran where (mesto='+form1.adoquery4mesto.AsString+') and (cd_prod='+form1.ADOQuery1code.AsString+')'); open; end; if (form1.ADOQuery13kol.AsInteger>=form1.ADOQuery10kol.AsInteger) then ms:=form1.ADOQuery4mesto.AsInteger; end; with form1. ADOQuery13 do begin close; sql. Clear; sql. Add ('update gur_hran set kol=kol-'+form1.ADOQuery10kol.AsString+' where mesto='+inttostr (ms)); execsql; end; with form1. ADOQuery9 do begin close; sql. Clear; sql. Add ('delete from pos_nakl where code_str='+form1.ADOQuery10code_str.AsString); execsql; end; with form1. ADOQuery10 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form11.Edit1.Text); open; end; showmessage ('Удалено');end;procedure TForm11. RzBitBtn1Click (Sender: TObject);var i: integer;begin form12. ComboBox1.clear; with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from nomen'); open; end; for i:=1 to form1. ADOQuery1.RecordCount do begin form12. ComboBox1.Items.Add (trim (form1.ADOQuery1nam.AsString)); form1. ADOQuery1. Next; end; form12. ComboBox2.Clear; with form1. ADOQuery4 do begin close; sql. Clear; sql. Add ('select * from sklad'); open; end; for i:=1 to form1. ADOQuery4.RecordCount do begin form12. ComboBox2.Items.Add (trim (form1.adoquery4nam.AsString)); form1. ADOQuery4. Next; end; form12. Show;end;procedure TForm11. RzBitBtn3Click (Sender: TObject);begin form1. ADOQuery8. open; with form1. ADOQuery6 do begin close; sql. Clear; sql. add ('select * from contrag where nam='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open; end; form1. ADOQuery8.AppendRecord ([edit1.Text, form1. ADOQuery6code.AsInteger, datetimepicker1. date,'приход']); edit1. Text:=inttostr (1+strtoint (edit1.Text)); with form1. ADOQuery10 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form11.Edit1.Text); open; end; showmessage ('Накладная закрыта');end;procedure TForm11. RzBitBtn2Click (Sender: TObject);var calc: toocalc; i: integer;begincalc:=toocalc.Create ('c:sklxlttorg14.xlt'); form1. ADOQuery3. Open; form1. ADOQuery10.First; for i:=1 to form1. ADOQuery10.RecordCount do begin calc. Cell[28+i, 1]: =i; calc. Cell[28+i, 5]: =trim (form1.adoquery10nam.AsString); with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen where nam='+form1.Label1.Caption+trim (form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc. Cell[28+i, 45]: =form1.ADOQuery1nam.AsString; calc. Cell[28+i, 17]: =form1.ADOQuery1code.AsString; calc. Cell[28+i, 64]: =form1.ADOQuery1stm.AsString; calc. Cell[28+i, 71]: =form1.ADOQuery10kol.AsString; calc. Cell[28+i, 75]: =form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc. Cell[28+i, 93]: =form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1. adoquery10. next; end; calc. Cell[19,12]: ='оператор'; form1. ADOQuery3. Open; calc. Cell[19,30]: =form1.ADOQuery3oper.AsString; calc. Cell[21,30]: =form1.ADOQuery6oper.AsString; calc. Cell[16,63]: =edit1.Text; calc. Cell[16,72]: =datetostr (datetimepicker1.date); calc. Cell[8,87]: =form1.ADOQuery3inn.AsString; calc. Cell[7,1]: =form1.ADOQuery3nam.AsString;calc.Visible:=true;end;procedure TForm15. RzBitBtn1Click (Sender: TObject);var calc: toocalc; i: integer;begincalc:=toocalc.Create ('c:sklxlttorg14.xlt'); form1. ADOQuery3. Open; if trim (form1.ADOQuery15typ.AsString)='приход' then begin with form1. ADOQuery10 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); open; end; form1. ADOQuery10.First; for i:=1 to form1. ADOQuery10.RecordCount do begin calc. Cell[28+i, 1]: =i; calc. Cell[28+i, 5]: =trim (form1.adoquery10nam.AsString); with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen where nam='+form1.Label1.Caption+trim (form1.adoquery10nam.AsString)+form1.Label1.Caption); open; end; calc. Cell[28+i, 45]: =form1.ADOQuery1nam.AsString; calc. Cell[28+i, 17]: =form1.ADOQuery1code.AsString; calc. Cell[28+i, 64]: =form1.ADOQuery1stm.AsString; calc. Cell[28+i, 71]: =form1.ADOQuery10kol.AsString; calc. Cell[28+i, 75]: =form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc. Cell[28+i, 93]: =form1.ADOQuery10kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1. adoquery10. next; end; end else begin with form1. ADOQuery14 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.rash, pos_nakl.kol, pos_nakl.code_str FROM nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod where pos_nakl.code_oper='+form1.ADOQuery15code.AsString); active:=true; end; form1. ADOQuery14.First; for i:=1 to form1. ADOQuery14.RecordCount do begin calc. Cell[28+i, 1]: =i; calc. Cell[28+i, 5]: =trim (form1.adoquery10nam.AsString); with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen where nam='+form1.Label1.Caption+trim (form1.adoquery14nam.AsString)+form1.Label1.Caption); open; end; calc. Cell[28+i, 45]: =form1.ADOQuery1nam.AsString; calc. Cell[28+i, 17]: =form1.ADOQuery1code.AsString; calc. Cell[28+i, 64]: =form1.ADOQuery1stm.AsString; calc. Cell[28+i, 71]: =form1.ADOQuery14kol.AsString; calc. Cell[28+i, 75]: =form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; calc. Cell[28+i, 93]: =form1.ADOQuery14kol.Asinteger*form1.ADOQuery1stm.AsCurrency; form1. adoquery10. next; end; end; calc. Cell[19,12]: ='оператор'; form1. ADOQuery3. Open; calc. Cell[19,30]: =form1.ADOQuery3oper.AsString; with form1. ADOQuery6 do begin close; sql. Clear; sql. add ('select * from contrag where nam='+form1.Label1.Caption+trim (form1.adoquery15nam.AsString)+form1.Label1.Caption); open; end; calc. Cell[21,30]: =form1.ADOQuery6oper.AsString; calc. Cell[16,63]: =form1.ADOQuery15code.AsString; calc. Cell[16,72]: =form1.ADOQuery15day.AsString; calc. Cell[8,87]: =form1.ADOQuery3inn.AsString; calc. Cell[7,1]: =form1.ADOQuery3nam.AsString;calc.Visible:=true;end;end.Приложение 3Листинг программного кода отчетов1.

Торг-18procedure TForm1. N181Click (Sender: TObject);var i: integer;begin with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen'); open; end; form16. ComboBox1.clear; for i:=1to form1. ADOQuery1.RecordCount do begin form16. ComboBox1.Items.Add (trim (form1.ADOQuery1nam.AsString)); form1. adoquery1. Next; end; form16. Show;end;procedure TForm16. RzBitBtn1Click (Sender: TObject);var calc: toocalc; i, ost: integer;beginwith form1. ADOQuery1 dobegin close; sql. Clear; sql. add ('select * from nomen where nam='+form1.Label1.Caption+trim (combobox1.Text)+form1.Label1.Caption); open;end;calc:=toocalc.Create ('c:sklxlttorg18.xlt'); with form1. adoquery16 do begin close; sql. Clear; sql. add ('SELECT nomen. nam, pos_nakl.prih, pos_nakl.rash, oper. code, nomen. edizm FROM oper INNER JOIN (nomen INNER JOIN pos_nakl ON nomen. code = pos_nakl.code_prod) ON oper. code = pos_nakl.code_oper where (oper.day>=(convert (DATETIME,'+form1.Label1.Caption+datetostr (datetimepicker1.date)+form1.Label1.Caption+', 104))) and (oper.day<=(convert (DATETIME,'+form1.Label1.Caption+datetostr (datetimepicker2.date)+form1.Label1.Caption+', 104))) and (pos_nakl.code_prod='+form1.ADOQuery1code.AsString+')'); open; end; form1. ADOQuery3. Open; calc. Cell[7,1]: =trim (form1.ADOQuery3nam.AsString); calc. Cell[29,16]: =datetostr (datetimepicker1.date); calc. Cell[29,42]: =datetostr (datetimepicker2.date); calc. ActivateSheet (2); ost:=0; calc. Cell[1,14]: =combobox1.Text; calc. Cell[2,13]: =form1.ADOQuery1edizm.AsString; for i:=1 to form1. ADOQuery16.RecordCount do begin with form1. ADOQuery8 do begin close; sql. Clear; sql. add ('select * from oper where code='+form1.adoquery16code.AsString); open; end; ost:=ost+form1.ADOQuery16prih.AsInteger-form1.adoquery16rash.AsInteger; calc. Cell[7+i, 1]: =form1.ADOQuery8day.AsString; calc. Cell[7+i, 10]: =form1.ADOQuery16code.AsString; calc. Cell[7+i, 19]: =form1.ADOQuery16prih.AsString; calc. Cell[7+i, 28]: =form1.ADOQuery16rash.AsString; calc. Cell[7+i, 37]: =ost; form1. ADOQuery16. Next; end; calc. visible:=true;end;2. Складские остаткиprocedure TForm1. N12Click (Sender: TObject);var calc: toocalc; i: integer;begincalc:=toocalc.Create ('c:sklxltost.xlt'); with form1. ADOQuery1 do begin close; sql. Clear; sql. Add ('select * from nomen'); open; end; for i:=1 to adoquery1. RecordCount do begin with form1. ADOQuery17 do begin close; sql. Clear; sql. add ('select sum (prih), sum (rash) from pos_nakl where code_prod='+form1.ADOQuery1code.AsString); open; end; calc. Cell[5,1]: =form1.ADOQuery1nam.AsString; if form1. ADOQuery17Column1.AsInteger-form1.ADOQuery17Column2.AsInteger>0 then calc. Cell[5,2]: =form1.ADOQuery17Column1.AsInteger-form1.ADOQuery17Column2.AsInteger else calc. Cell[5,2]: ='0'; calc. Cell[5,3]: =form1.ADOQuery1edizm.AsString; if i<form1.ADOQuery1.RecordCount then calc. InsertRow (5,true); form1. ADOQuery1. Next; end; calc. Cell[2,2]: =datetostr (now);calc.Visible:=true;end;Использование складских площадейprocedure TForm1. N13Click (Sender: TObject);var calc: toocalc; i, j: integer;begin calc:=toocalc.Create ('c:sklxltisp_pl.xlt'); with form1. ADOQuery4 do begin close; sql. Clear; sql. add ('select * from sklad'); open; end; for i:=1 to form1. ADOQuery4.RecordCount do begin with form1. ADOQuery13 do begin close; sql. Clear; sql. add ('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; if form1. ADOQuery13.RecordCount>0 then begin for j:=1 to form1. ADOQuery13.RecordCount do begin with form1. ADOQuery1 do begin close; sql. Clear; sql. add ('select * from nomen where code='+form1.ADOQuery13cd_prod.AsString); open; end; if form1. ADOQuery13kol.AsInteger>0 then begin calc. Cell[4,3]: =form1.ADOQuery1nam.AsString; calc. Cell[4,4]: =form1.ADOQuery13kol.AsString; calc. Cell[4,5]: =form1.ADOQuery1edizm.AsString; calc. InsertRow (4,true); end; if j=form1.ADOQuery13.RecordCount then calc. Cell[4,1]: =form1.ADOQuery4nam.AsString; if j=form1.ADOQuery13.RecordCount then calc. Cell[4,2]: =form1.ADOQuery4plos.AsString; form1. ADOQuery13. Next; end; end; form1. ADOQuery4. Next; end; calc. Visible:=true;end;4.Сводный отчет по площадямprocedure TForm1. N14Click (Sender: TObject);var calc: toocalc;i, j, pl1,pl2,fl:integer;begin calc:=toocalc.Create ('c:sklxltstat_plos.xlt'); with form1. ADOQuery4 do begin close; sql. Clear; sql. add ('select * from sklad'); open; end; pl1:=0; pl2:=0; for i:=1 to form1. ADOQuery4.RecordCount do begin fl:=0; with form1. ADOQuery13 do begin close; sql. Clear; sql. add ('select * from gur_hran where mesto='+form1.ADOQuery4mesto.AsString); open; end; if form1. ADOQuery13.RecordCount>0 then begin for j:=1 to form1. ADOQuery13.RecordCount do begin if form1. ADOQuery13kol.AsInteger>0 then fl:=1; form1. ADOQuery13. Next; end; end; if (form1.ADOQuery13.RecordCount=0) or (fl=0) then pl1:=pl1+form1.ADOQuery4plos.AsInteger else pl2:=pl2+form1.ADOQuery4plos.AsInteger; if fl=0 then begin calc. cell[10,1]: =form1.ADOQuery4nam.AsString; calc. Cell[10,2]: =form1.ADOQuery4plos.AsString; calc. InsertRow (10,true); end; form1. ADOQuery4. Next; end; calc. Cell[3,2]: =pl2; calc. Cell[4,2]: =pl1; calc. Cell[5,3]: =int (100*pl1/(pl2+pl1)); calc. Visible:=true;end;

Показать весь текст

Список литературы

Гайдамакин Н.А. Автоматизированные информационные системы, базы и банки данных. — М: Гелиос АРВ, 2009. — 524с.
Гладкий А. А. Бухучет и финансы для руководителей и менеджеров М.: 2007
Горелик, О.М. Управленческий учет и анализ: [учеб. пособие для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.-М.: КноРус, 2007.-252 с.
Граничин, О.Н. Информационные технологии в управлении: учеб. пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям) и «Менеджмент организации (по специализации «Информационный менеджмент»)» /О. Н. Граничин, В. И. Кияев.-М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с.
Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий — М.: ИНТУИТ.ру, 2009. с.135
Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351 400 «Прикладная информатика (по обл.)», 61 100 «Менеджмент орг.», 61 000 «Гос. и муницип. упр."] /А.С. Гринберг, Н. Н. Горбачев, А. С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности «Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
Днепров А. Г. Microsoft Access 2007. Cамоучитель. — М.: Финансы и статистика, 2009. — 361с.
Емельянова Н.З., Партыка Т. Л., Попов И. И. Защита информации в персональном компьютере. — М.: Форум, 2009. — 368 с.
Завгородний В.И. Комплексная защита в компьютерных системах: Учебное пособие. — М.: Логос; ПБОЮЛ Н. А. Егоров, 2011. — 264 с.
Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям «Прикладная информатика (по обл.)», «Менеджмент орг.», «Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
Ивасенко, А.Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям «Прикладная информатика (по областям)», «Менеджмент орг.», «Гос. и муницип. упр.» /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2009.-153 с.
Информатика: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /А. Н. Гуда [и др.]; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.
Информатика: учебник для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и другим экономическим специальностям /[В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности «Прикладная информатика (по обл.)» и др. экон. специальностям] /[В. В. Трофимов и др.]; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. экон. специальностям /В. В. Трофимов и др.]; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
Карпова Т. С. Базы данных: модели, разработка, реализация.- СПб.: Питер, 2007. — 302с.
Комплексная система защиты информации на предприятии. Часть 1. — М.: Московская Финансово-Юридическая Академия, 2008. — 124 с.
Коноплева, И.А. Информационные технологии: учеб. пособие: [для вузов по специальности «Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности «Прикладная информатика» /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика» и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М.: ДИАЛОГ-МЭФИ, 2009.
Максимов, Н.В. Технические средства информатизации: [учебник по специальностям «Информатика и вычисл. техника», «Прикладная информатика (по областям)"] /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2008.-591 с.
Максимов, Н.В. Технические средства информатизации: учеб. для студентов учреждений сред. проф. образования, обучающихся по группе специальностей «Информатика и вычисл. техника» и для студентов вузов, обучающихся по специальности 80 801 «Прикладная информатика (по областям)» /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2010.-606 с.
Малыхина, М.П. Базы данных: основы, проектирование, использование. — СПб: БХВ Петербург.2009.
Марков, А.С. Базы данных: Введ. в теорию и методологию: [Учеб. по специальности «Прикладная математика и информатика"] /А.С. Марков, К. Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
Проектирование экономических систем: Учебник / Г. Н. Смирнова, А. А. Сорокин, Ю. Ф. Тельнов — М.: Финансы и статистика, 2010.
Романов А.Г. Автоматизация служб предприятия. — Курск: КПО, 2010.
Симонович С. В. Общая информатика — СПб: Питер, 2008. — 431 с.
Симонович С.В. Информатика для юристов и экономистов. — СПб.: Питер, 2007. — 633с.
Степанов А.Н. Информатика: учебное пособие. — СПб: Питер Пресс, 2012. — 764 с.
Стражева Н. С., Стражев А. В. Бухгалтерский учет. — М.: Диалог, 2008. — 252с.
Уткин В.Б., Балдин К. В. Информационные системы и технологии в экономике. — М.: ЮНИТИ, 2008. — 453с.
Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010

Заполнить форму текущей работой

Купить готовую работу