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

1 Аналитическая часть 5
1.1 Характеристика предприятия 5
1.2. Анализ существующей технологии учета товарно-материальных ценностей 6
1.2.1. Общая характеристика организации складского учета в ООО «Байт» 6
1.2.2. Анализ бизнес-процессов технологии складского учета 10
1.3.Описание экономической сущности задачи автоматизации склада 13
1.4 Постановка задачи на разработку ЭИС 16
1.5.Анализ существующих разработок 20
2. Проектная часть 26
2.1.Описание функциональных подсистем ЭИС 26
2.2 Новая технология складского учета ООО «Байт» 27
2.3 Описание обеспечивающих подсистем 28
2.4. Обоснование выбора средств разработки 41
3.Экспериментальная часть 43
3.1. Описание процесса разработки программного обеспечения 43
3.2. Руководство администратора 45
3.3. Руководство пользователя 48
4 Экономическая часть 58
5.Безопасность жизнедеятельности 62
Литература 70

пособие для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /О. М. Горелик, Л. А. Парамонова, Э. Ш. Низамова.-М.: КноРус, 2007.-252 с.Граничин, О.Н. Информационные технологии в управлении: учеб. пособие для студентов вузов, обучающихся по специальностям "Прикладная информатика (по областям) и "Менеджмент организации (по специализации "Информационный менеджмент")" /О. Н. Граничин, В. И. Кияев.-М.: Интернет-Ун-т Информ. Технологий, 2010.-335 с.Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.ДнепровА. Г. Microsoft Access 2007. Cамоучитель. - М.: Финансы и статистика, 2009. – 361с.Емельянова Н.З., Партыка Т.Л., Попов И.И. Защита информации в персональном компьютере. – М.: Форум, 2009. – 368 с.Завгородний В.И. Комплексная защита в компьютерных системах: Учебное пособие. – М.: Логос; ПБОЮЛ Н.А.Егоров, 2011. - 264 с.Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.Ивасенко, А.Г. Информационные технологии в экономике и управлении: учеб. пособие для студентов вузов, обучающихся по специальностям "Прикладная информатика (по областям)", "Менеджмент орг.", "Гос. и муницип. упр." /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2009.-153 с.Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.Карпова Т. С. Базы данных: модели, разработка, реализация.- СПб.: Питер, 2007. – 302с.Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с.Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009.Максимов, Н.В. Технические средства информатизации: [учебник по специальностям "Информатика и вычисл. техника", "Прикладная информатика (по областям)"] /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2008.-591 с.Максимов, Н.В. Технические средства информатизации: учеб. для студентов учреждений сред. проф. образования, обучающихся по группе специальностей "Информатика и вычисл. техника" и для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика (по областям)" /Н. В. Максимов, Т. Л. Партыка, И. И. Попов.-М.: Форум, 2010.-606 с.Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009.Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 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 Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\DATA\skl.mdf',SIZE= 7168KB,MAXSIZE=UNLIMITED,FILEGROWTH= 1024KB)LOGON(NAME=N'skl_log',FILENAME=N'C:\Program Files\Microsoft SQL Server\MSSQL10_50.SQLEXPRESS\MSSQL\DATA\skl_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:\skl\connect.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:\skl\connect.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].Title.caption:='Код'; form6.DBGrid1.Columns[1].Title.caption:='Площадь'; form6.DBGrid1.Columns[2].Title.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].Title.caption:='Код'; form8.DBGrid1.Columns[1].Title.caption:='Наименование'; form8.DBGrid1.Columns[2].Title.caption:='Адрес'; form8.DBGrid1.Columns[3].Title.caption:='ИНН'; form8.DBGrid1.Columns[4].Title.caption:='Телефон'; form8.DBGrid1.Columns[5].Title.caption:='Контактное лицо'; form8.show;end;procedure TForm1.N9Click(Sender: TObject);var i:integer;begin form11.DBGrid1.Columns[0].Title.caption:='Наименование'; form11.DBGrid1.Columns[1].Title.caption:='Принято'; form11.DBGrid1.Columns[2].Title.caption:='Кол-во'; form11.DBGrid1.Columns[3].Title.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].Title.caption:='Наименование'; form13.DBGrid1.Columns[1].Title.caption:='Отгружено'; form13.DBGrid1.Columns[2].Title.caption:='Кол-во'; form13.DBGrid1.Columns[3].Title.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].Title.caption:='Код'; form15.DBGrid1.Columns[1].Title.caption:='Тип'; form15.DBGrid1.Columns[2].Title.caption:='Дата'; form15.DBGrid1.Columns[3].Title.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:\skl\xlt\torg14.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:\skl\xlt\torg14.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:\skl\xlt\torg18.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:\skl\xlt\ost.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:\skl\xlt\isp_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:\skl\xlt\stat_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;