Вход

Информационные системы учета надзорных проверок в военной прокуратуре.

Дипломная работа*
Код 100726
Дата создания 2016
Страниц 113
Источников 32
Покупка готовых работ временно недоступна.
7 680руб.

Содержание

Содержание

Введение 3
1.ТЕХНИЧЕСКИЙ ПРОЕКТ 6
1.1.Описание предметной области 6
1.2 Обоснование необходимости разработки информационной системы 8
1.3. Информационно-логическая модель системы 14
1.4. Требования к техническому и программному обеспечению 18
2 РАБОЧИЙ ПРОЕКТ 28
2.1. Общие сведения о работе системы 28
2.2. Функциональное назначение системы 29
2.3. Инсталляция и запуск установленного программного продукта 32
2.4. Даталогическая модель системы 37
2.5.Руководство программиста 44
2.6. Руководство пользователя 46
2.7. Сообщения системы 57
2.8. Вопросы информационной безопасности 59
3.Тестирование системы 68
4.Оценка экономической эффективности проекта 74
4.2.Оценка эффективности оптимизации технологических процессов 78
4.3.Оценка обобщающих показателей экономической эффективности 80
Заключение 84
Список использованных источников 85
Приложение 89

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

Список использованных источниковАгальцов, В.П. Базы данных. В 2-х т.Т. 1. Локальные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c.Акперов, И.Г. Информационные технологии в менеджменте: Учебник / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. - М.: НИЦ ИНФРА-М, 2013. - 400 c.Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В. Максимов, И.И. Попов. - М.: Форум, 2012. - 400 c.Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.Диго, С.М. Базы данных: проектирование и использование: [Учеб.для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.Исаев, Г.Н. Информационные технологии: Учебное пособие / Г.Н. Исаев. - М.: Омега-Л, 2013. - 464 c.Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-Петербург, 2012. - 464 c.Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с.Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009.Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c.Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009.Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 сСоветов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463 c.Степанов А.Н. Информатика: учебное пособие. – СПб: Питер Пресс, 2012. – 764 с.Стражева Н. С., Стражев А. В. Бухгалтерский учет. - М.: Диалог, 2008. – 252с.Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. - М.: ИЦ Академия, 2012. - 320 c.Хлебников, А.А. Информационные технологии: Учебник / А.А. Хлебников. - М.: КноРус, 2014. - 472 c.Черников, Б.В. Информационные технологии управления: Учебник / Б.В. Черников. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 368 c.Чиртик, А.А. : Программирование в Delphi /А.А.Чиртик. - СПб: Питер, 2012. – 312 с.ПриложениеПрограммный кодvar Form1: TForm1;implementationuses Unit2, Unit5, Unit8, Unit9, Unit10, Unit11, Unit12, Unit13, Unit14, Unit16, Unit17, Unit18;{$R *.dfm}procedure TForm1.N6Click(Sender:TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from obct'); active:=true; end; form2.DBGrid1.columns[0].title.caption:='Код'; form2.DBGrid1.columns[1].title.caption:='Наименование'; form2.DBGrid1.columns[2].title.caption:='Адрес'; form2.DBGrid1.columns[3].title.caption:='ФИО начальника'; form2.DBGrid1.columns[4].title.caption:='Телефон'; form2.show;end;procedure TForm1.N5Click(Sender:TObject);beginclose;end;procedure TForm1.N7Click(Sender:TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select * from sotr'); active:=true; end; with form1.ADOQuery11 do begin close; sql.Clear; sql.add('select * from view_8'); active:=true; end; form5.DBGrid1.Columns[0].Title.caption:='Код'; form5.DBGrid1.Columns[1].Title.caption:='ФИО'; form5.DBGrid1.Columns[2].Title.caption:='Звание'; form5.DBGrid1.Columns[3].Title.caption:='Уровень доступа'; form5.DBGrid1.Columns[4].Title.caption:='Должность'; form5.Show;end;procedure TForm1.N8Click(Sender:TObject);begin with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from vid_pr'); active:=true; end; form8.DBGrid1.Columns[0].Title.caption:='Код'; form8.DBGrid1.Columns[1].Title.caption:='Наименование'; form8.Show;end;procedure TForm1.N9Click(Sender:TObject);begin with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from vid_rs'); active:=true; end; form9.DBGrid1.Columns[0].Title.caption:='Код'; form9.DBGrid1.Columns[1].Title.caption:='Наименование'; form9.Show;end;procedure TForm1.N10Click(Sender:TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from obct'); active:=true; end; with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select * from sotr'); active:=true; end; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from vid_rs'); active:=true; end; with form1.ADOQuery3 do begin close; sql.Clear; sql.Add('select * from vid_pr'); active:=true; end; with form1.ADOQuery7 do begin close; sql.Clear; sql.Add('select max(code) from gur_pr'); open; end; if form1.ADOQuery7.RecordCount=0 then form10.Edit1.Text:='1' else form10.Edit1.Text:=inttostr(1+form1.ADOQuery7column1.AsInteger); form10.DBGrid1.Columns[0].Title.caption:='Код'; form10.DBGrid1.Columns[1].Title.caption:='Проверка'; form10.DBGrid1.Columns[2].Title.caption:='Вид проверки'; form10.DBGrid1.Columns[3].Title.caption:='Вид нарушения'; form10.DBGrid1.Columns[4].Title.caption:='Примечание'; form10.DBGrid1.Columns[5].Title.caption:='Ущерб'; form10.RzBitBtn2.Enabled:=false; form10.show;end;procedure TForm1.N11Click(Sender:TObject);begin with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('SELECT gur_pr.code, gur_pr.day1, gur_pr.day2, sotr.fio, obct.nam FROM sotr INNER JOIN (obct INNER JOIN gur_pr ON obct.code = gur_pr.code_ob) ON sotr.code = gur_pr.code_sotr'); active:=true; end; form11.DBGrid1.Columns[0].Title.caption:='Код'; form11.DBGrid1.Columns[1].Title.caption:='Начало'; form11.DBGrid1.Columns[2].Title.caption:='Окончание'; form11.DBGrid1.Columns[3].Title.caption:='ФИО проверяющего'; form11.DBGrid1.Columns[4].Title.caption:='Объект'; form11.Show;end;procedure TForm1.FormCreate(Sender:TObject);var f:textfile; s:string;beginassignfile(f,'c:\prok\connect.txt');reset(f);readln(f,s);adoconnection1.Close;adoconnection1.ConnectionString:='Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=prok;Data Source='+trim(s);adoconnection1.Open;n4.Enabled:=false;n2.Enabled:=false;n3.Enabled:=false;end;procedure TForm1.N1Click(Sender:TObject);begin with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select * from sotr'); active:=true; end; form12.Show;end;procedure TForm1.N12Click(Sender:TObject);begin form13.Show;end;procedure TForm1.N13Click(Sender:TObject);begin form14.Show;end;procedure TForm1.N14Click(Sender:TObject);begin form16.Show;end;procedure TForm1.N15Click(Sender:TObject);begin form17.DateTimePicker1.Date:=now; form17.DateTimePicker2.Date:=now; with form1.ADOQuery2 do begin close; sql.Clear; sql.Add('select * from sotr'); active:=true; end; form17.Show;end;procedure TForm1.N16Click(Sender:TObject);begin with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select * from dolgn'); active:=true; end; form18.Show;end;end.unit Unit10;var Form10: TForm10;implementationuses Unit1;{$R *.dfm}procedure TForm10.RzBitBtn4Click(Sender:TObject);beginclose;end;procedure TForm10.RzBitBtn1Click(Sender:TObject);begin form1.ADOQuery5.Open; with form1.ADOQuery5 do begin close; sql.Clear; sql.Add('delete from gur_pr where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from gur_pr'); open; end; rzbitbtn2.Enabled:=true; form1.ADOQuery5.AppendRecord([edit1.Text,form1.ADOQuery2code.AsInteger,datetimepicker1.Date,datetimepicker2.Date,form1.ADOQuery1code.AsInteger]); with form1.ADOQuery8 do begin close; sql.Clear; sql.Add('SELECT * from view_2 where code_prov='+edit1.Text); active:=true; end; showmessage('Проверка открыта');end;procedure TForm10.RzBitBtn2Click(Sender:TObject);var code:integer;begin with adoquery1 do begin close; sql.Clear; sql.Add('select max(code) from det_pr '); open; end; if adoquery1.RecordCount=0 then code:=1 else code:=1+adoquery1column1.AsInteger; form1.ADOQuery6.Open; form1.ADOQuery6.AppendRecord([code,edit1.Text,form1.ADOQuery3code.AsInteger,form1.ADOQuery4code.AsInteger,edit3.Text,edit2.Text]); edit3.clear; edit2.Text:='0'; with form1.ADOQuery8 do begin close; sql.Clear;sql.Add('SELECT det_pr.code, det_pr.code_prov, vid_pr.nam, vid_rs.nam, det_pr.prim, det_pr.uss FROM vid_rs INNER JOIN (vid_pr INNER JOIN det_pr ON vid_pr.code = det_pr.code_pr) ON vid_rs.code = det_pr.code_rs where code_prov='+edit1.Text); active:=true; end; showmessage('Добавлено');end;end.unit Unit11;var Form11: TForm11;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TForm11.RzBitBtn3Click(Sender:TObject);beginclose;end;procedure TForm11.RzBitBtn2Click(Sender:TObject);begin with form1.ADOQuery6 do begin close; sql.Clear; sql.add('delete from det_pr where code_prov='+form1.ADOQuery9code.AsString); execsql; end; with form1.ADOQuery5 do begin close; sql.Clear; sql.add('delete from gur_pr where code='+form1.ADOQuery9code.AsString); execsql; end; with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('SELECT gur_pr.code, gur_pr.day1, gur_pr.day2, sotr.fio, obct.nam FROM sotr INNER JOIN (obct INNER JOIN gur_pr ON obct.code = gur_pr.code_ob) ON sotr.code = gur_pr.code_sotr'); active:=true; end; showmessage('Удалено');end;procedure TForm11.RzBitBtn1Click(Sender:TObject);var calc:toocalc; i:integer;begin calc:=toocalc.Create('c:\prok\xlt\karta.xlt'); with form11.ADOQuery1 do begin close; sql.Clear; sql.Add('select * from view_3 where code='+dbtext1.Caption); open; end; for i:=1 to form11.ADOQuery1.RecordCount do begin calc.Cell[9,1]:=form11.ADOQuery1expr1.AsString; calc.Cell[9,2]:=form11.ADOQuery1Expr2.AsString; calc.Cell[9,3]:=form11.ADOQuery1uss.AsString; if i<form11.adoquery1.RecordCount then calc.InsertRow(9,true); form11.ADOQuery1.next; end; calc.Cell[3,2]:=form11.ADOQuery1nam.AsString; calc.Cell[6,2]:=form11.ADOQuery1fio.AsString; calc.Cell[4,2]:=form11.ADOQuery1day1.AsString; calc.Cell[5,2]:=form11.ADOQuery1day2.AsString; calc.Visible:=true;end;end.unit Unit12;var Form12: TForm12;implementationuses Unit1;{$R *.dfm}procedure TForm12.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm12.RzBitBtn1Click(Sender:TObject);begin if trim(edit1.Text)=trim(form1.ADOQuery2passw.AsString) then begin form1.N1.Enabled:=false; form1.N2.Enabled:=true; form1.N3.Enabled:=true; form1.N4.Enabled:=true; if trim(form1.ADOQuery2dost.AsString)='Пользователь' then form1.N7.Enabled:=false; form12.close; end else begin showmessage('Неверен логин/пароль'); end;end;end.unit Unit13;var Form13: TForm13;implementationuses Unit1, UOOcalc;{$R *.dfm}procedure TForm13.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm13.RzBitBtn1Click(Sender:TObject);var calc:toocalc; i:integer;beginif datetimepicker1.Date>datetimepicker2.Date then showmessage('Некорректный ввод интервала дат') elsebegincalc:=toocalc.Create('c:\prok\xlt\gur_pr.xlt');with adoquery1 dobegin close; sql.Clear; sql.add('select * from view_1 where (day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104)))'); open;end;for i:=1 to form13.ADOQuery1.RecordCount dobegin calc.Cell[6,1]:=form13.ADOQuery1code.AsInteger; calc.Cell[6,2]:=form13.ADOQuery1day1.AsString; calc.Cell[6,3]:=form13.ADOQuery1day2.AsString; calc.Cell[6,4]:=form13.ADOQuery1fio.AsString; calc.Cell[6,5]:=form13.ADOQuery1nam.AsString; calc.InsertRow(6,true); form13.ADOQuery1.Next;end;calc.Visible:=true;end;end;end.unit Unit14;procedure TForm14.RzBitBtn1Click(Sender:TObject);var i,j,k:integer; ExcelApp:Variant;begin ExcelApp:= CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('c:\prok\xlt\otch_sotr.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from vid_rs'); active:=true; end; with form1.ADOQuery2 do begin close; sql.Clear; sql.add('select * from sotr'); active:=true; end; for i:=1 to form1.ADOQuery4.RecordCount do begin excelapp.cells[5,2+i]:=trim(form1.ADOQuery4nam.AsString); excelapp.cells[5,2+i].borders.linestyle:=1; form1.ADOQuery4.Next; end; for i:=1 to form1.ADOQuery2.RecordCount do begin k:=0; for j:=1 to form1.ADOQuery4.RecordCount do begin with form14.adoquery1 do begin close; sql.clear;sql.add('select * from view_4 where (day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104))) and (fio='+form1.Label1.Caption+trim(form1.ADOQuery2fio.AsString)+form1.Label1.Caption+') and (nam='+form1.Label1.Caption+trim(form1.ADOQuery4nam.AsString)+form1.Label1.Caption+')'); open; end;excelapp.cells[5+i,2+j]:=form14.ADOQuery1.RecordCount; excelapp.cells[5+i,2+j].borders.linestyle:=1; k:=k+form14.ADOQuery1.RecordCount; form1.ADOQuery4.Next; end; excelapp.cells[5+i,2]:=k; excelapp.cells[5+i,2].borders.linestyle:=1; excelapp.cells[5+i,1]:=trim(form1.ADOQuery2fio.AsString); excelapp.cells[5+i,1].borders.linestyle:=1; form1.ADOQuery2.Next; form1.ADOQuery4.First; end; excelapp.cells[3,2]:=datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.date); excelapp.visible:=true; excelapp:=unassigned;end;procedure TForm14.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm14.RzBitBtn3Click(Sender:TObject);var i:integer;begin with adoquery2 do begin close; sql.Clear;sql.add('SELECT dbo.sotr.code, dbo.det_pr.code AS Expr1, dbo.sotr.fio fROM dbo.det_pr INNER JOIN dbo.sotr ON dbo.det_pr.code = dbo.sotr.code INNER JOIN dbo.gur_pr ON dbo.det_pr.code_prov = dbo.gur_pr.code AND dbo.sotr.code = dbo.gur_pr.code_sotr '); sql.add('where (gur_pr.day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (gur_pr.day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104)))'); open; end; for i:=1 to adoquery2.RecordCount do begin series1.Addx(adoquery2expr1.AsInteger,adoquery2fio.AsString); adoquery2.next; end;end;end.unit Unit15;var Form15: TForm15;implementationuses Unit1;{$R *.dfm}procedure TForm15.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm15.RzBitBtn1Click(Sender:TObject);var code:integer;begincode:=form1.adoquery2code.asinteger;with form1.ADOQuery2 dobegin close; sql.Clear; sql.Add('update sotr set passw='+form1.Label1.Caption+trim(edit1.Text)+form1.Label1.Caption); execsql; close; sql.Clear; sql.Add('select * from sotr'); active:=true;end;form1.ADOQuery2.Locate('code',edit1.Text,[]);showmessage('Записано');end;end.unit Unit16;var Form16: TForm16;implementationuses Unit1, ComObj, Unit14;{$R *.dfm}procedure TForm16.RzBitBtn1Click(Sender:TObject);var ExcelApp:variant; i,j,k:integer;begin ExcelApp:= CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('c:\prok\xlt\spravka.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from vid_rs'); active:=true; end; with form1.ADOQuery3 do begin close; sql.Clear; sql.add('select * from vid_pr'); active:=true; end; k:=0; for i:=1 to form1.ADOQuery4.RecordCount do begin excelapp.cells[5,1+i]:=trim(form1.ADOQuery4nam.AsString); excelapp.cells[5,1+i].borders.linestyle:=1; form1.ADOQuery4.Next; end; form1.ADOQuery4.First; for i:=1 to form1.ADOQuery3.RecordCount do begin for j:=1 to form1.ADOQuery4.RecordCount do begin with form16.adoquery1 do begin close; sql.clear; sql.add('SELECT * from view_6 where (nam='+form1.Label1.Caption+trim(form1.ADOQuery3nam.AsString)+form1.Label1.Caption+') and (expr3='+form1.ADOQuery4code.AsString+')'); sql.Add('and (day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104)))'); open; end; k:=k+form16.ADOQuery1Expr2.AsInteger; excelapp.cells[5+i,1+j]:=form16.ADOQuery1expr2.AsString; excelapp.cells[5+i,1+j].borders.linestyle:=1; form1.ADOQuery4.Next; end; series1.AddX(k,trim(form1.ADOQuery3nam.AsString)); k:=0; excelapp.cells[5+i,1]:=trim(form1.ADOQuery3nam.AsString); excelapp.cells[5+i,1].borders.linestyle:=1; form1.ADOQuery3.Next; form1.ADOQuery4.First; end; excelapp.cells[3,2]:=datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.date); excelapp.visible:=true; excelapp:=unassigned;end;procedure TForm16.RzBitBtn3Click(Sender:TObject);beginclose;end;end.unit Unit17;var Form17: TForm17;implementationuses Unit1, ComObj, Unit16;{$R *.dfm}procedure TForm17.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm17.RzBitBtn1Click(Sender:TObject);var ExcelApp:variant; j:integer;begin ExcelApp:= CreateOleObject('Excel.Application'); ExcelApp.workbooks.open('c:\prok\xlt\spr_sotr.xlt'); ExcelApp.WorkSheets[1].Activate; ExcelApp.Visible := False; with ADOQuery1 do begin close; sql.Clear; sql.add('select * from view_7'); open; end; with form1.ADOQuery4 do begin close; sql.Clear; sql.add('select * from vid_rs'); open; end; for j:=1 to form1.ADOQuery4.RecordCount do begin with ADOQuery1 do begin close; sql.Clear; sql.add('select * from view_7 where (fio='+form1.Label1.Caption+trim(form1.ADOQuery2fio.AsString)+form1.Label1.Caption+') and (nam='+form1.Label1.Caption+trim(form1.ADOQuery4nam.AsString)+form1.Label1.Caption+') and '); sql.Add('(day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104)))'); open; end; excelapp.cells[8+j,1]:=j; excelapp.cells[8+j,1].borders.linestyle:=1; excelapp.cells[8+j,2]:=form1.adoquery4nam.AsString; excelapp.cells[8+j,2].borders.linestyle:=1; excelapp.cells[8+j,3]:=adoquery1.RecordCount; excelapp.cells[8+j,3].borders.linestyle:=1; form1.ADOQuery4.Next; end; with form1.ADOQuery9 do begin close; sql.Clear; sql.Add('SELECT gur_pr.code, gur_pr.day1, gur_pr.day2, sotr.fio, obct.nam FROM sotr INNER JOIN (obct INNER JOIN gur_pr ON obct.code = gur_pr.code_ob) ON sotr.code = gur_pr.code_sotr where (gur_pr.code_sotr='+form1.ADOQuery2code.AsString+') and ' ); sql.Add('(day2>=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker1.date)+form1.Label1.Caption+', 104))) and (day2<=(convert(DATETIME,'+form1.Label1.Caption+datetostr(datetimepicker2.date)+form1.Label1.Caption+', 104)))'); active:=true; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select * from dolgn where code_dol='+form1.ADOQuery2code_dol.asstring); open; end; excelapp.cells[2,2]:=form1.ADOQuery10nam.AsString; excelapp.cells[3,2]:=form1.ADOQuery2fio.AsString; excelapp.cells[5,3]:=form1.ADOQuery9.RecordCount; excelapp.cells[4,2]:=datetostr(datetimepicker1.Date)+'-'+datetostr(datetimepicker2.date); excelapp.visible:=true; excelapp:=unassigned;end;end.unit Unit18;interfaceuses Unit1;{$R *.dfm}procedure TForm18.RzBitBtn1Click(Sender:TObject);beginclose;end;procedure TForm18.RzRapidFireButton1Click(Sender:TObject);begin with adoquery1 do begin close; sql.Clear; sql.Add('select max(code_dol) from dolgn'); open; end; form1.ADOQuery10.AppendRecord([form18.ADOQuery1COLUMN1.AsInteger+1,edit1.Text]); edit1.clear; showmessage('Записано');end;end.unit Unit2;var Form2: TForm2;implementationuses Unit1, Unit3, Unit4;{$R *.dfm}procedure TForm2.RzBitBtn3Click(Sender:TObject);beginclose;end;procedure TForm2.RzBitBtn1Click(Sender:TObject);begin with adoquery1 do begin close; sql.Clear; sql.Add('select max(code) from obct'); open; end; if form2.ADOQuery1.RecordCount=0 then form3.Edit1.Text:='1' else form3.Edit1.Text:=inttostr(1+form2.ADOQuery1column1.AsInteger); form3.Edit2.clear; form3.Edit3.clear; form3.Edit4.clear; form3.Edit5.clear; form3.Show;end;procedure TForm2.RzBitBtn2Click(Sender:TObject);begin form4.Edit1.Text:=form1.ADOQuery1code.AsString; form4.Edit2.Text:=form1.ADOQuery1nam.AsString; form4.Edit3.Text:=form1.ADOQuery1adr.AsString; form4.Edit4.Text:=form1.ADOQuery1ruk.AsString; form4.Edit5.Text:=form1.ADOQuery1tel.AsString; form4.Show;end;end.unit Unit3;interfaceuses}procedure TForm3.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm3.RzBitBtn1Click(Sender:TObject);begin form1.ADOQuery1.AppendRecord([edit1.Text,edit2.Text,edit3.Text,edit4.Text,edit5.Text]); form3.Edit2.clear; form3.Edit3.clear; form3.Edit4.clear; form3.Edit5.clear; form3.Edit1.Text:=inttostr(1+strtoint(edit1.Text)); showmessage('Записано');end;end.unit Unit4;interfaceprocedure TForm4.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm4.RzBitBtn1Click(Sender:TObject);begin with form1.ADOQuery1 do begin close; sql.Clear; sql.Add('update obct set nam='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update obct set adr='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update obct set ruk='+form1.Label1.Caption+trim(edit4.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update obct set tel='+form1.Label1.Caption+trim(edit5.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from obct'); active:=true; end; form1.ADOQuery1.Locate('code',edit1.Text,[]); showmessage('Записано');end;end.unit Unit5;procedure TForm5.RzBitBtn3Click(Sender:TObject);beginclose;end;procedure TForm5.RzBitBtn1Click(Sender:TObject);begin with adoquery1 do begin close; sql.Clear; sql.Add('select max(code) from sotr'); open; end; with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select * from dolgn'); active:=true; end; if form5.ADOQuery1.RecordCount=0 then form6.Edit1.Text:='1' else form6.Edit1.Text:=inttostr(1+form5.ADOQuery1column1.AsInteger); form6.Edit2.clear; form6.Edit3.clear; form6.Show;end;procedure TForm5.RzBitBtn2Click(Sender:TObject);begin form7.Edit1.Text:=form1.ADOQuery11code.AsString; form7.Edit2.Text:=form1.ADOQuery11fio.AsString; form7.Edit3.Text:=form1.ADOQuery11zvanie.AsString; if trim(form1.ADOQuery11dost.AsString)='Пользователь' then form7.RadioButton1.Checked:=true else form7.RadioButton2.Checked:=true; with form1.ADOQuery10 do begin close; sql.Clear; sql.Add('select * from dolgn'); active:=true; end; form7.Show;end;procedure TForm5.RzBitBtn4Click(Sender:TObject);beginform15.Show;end;end.unit Unit6;procedure TForm6.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm6.RzBitBtn1Click(Sender:TObject);var dost:string;beginif radiobutton1.Checked=true then dost:=radiobutton1.Caption else dost:=radiobutton2.Caption;form1.ADOQuery2.AppendRecord([edit1.Text,edit2.Text,edit3.Text,dost,'',form1.ADOQuery10code_dol.AsInteger]); form6.Edit2.clear; form6.Edit3.clear; form6.Edit1.Text:=inttostr(1+strtoint(edit1.Text)); with form1.ADOQuery11 do begin close; sql.Clear; sql.add('select * from view_8'); active:=true; end;showmessage('Записано');end;end.unit Unit7;procedure TForm7.RzBitBtn2Click(Sender:TObject);beginclose;end;procedure TForm7.RzBitBtn1Click(Sender:TObject);var dost:string;beginif radiobutton1.Checked=true then dost:=radiobutton1.Caption else dost:=radiobutton2.Caption;with form1.ADOQuery2 dobegin close; sql.Clear; sql.Add('update sotr set fio='+form1.Label1.Caption+trim(edit2.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update sotr set zvanie='+form1.Label1.Caption+trim(edit3.Text)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update sotr set dost='+form1.Label1.Caption+trim(dost)+form1.Label1.Caption+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('update sotr set code_dol='+form1.ADOQuery10code_dol.asstring+' where code='+edit1.Text); execsql; close; sql.Clear; sql.Add('select * from sotr'); active:=true;end;with form1.ADOQuery11 do begin close; sql.Clear; sql.add('select * from view_8'); active:=true; end;form1.ADOQuery11.Locate('code',edit1.Text,[]);showmessage('Записано');end;end.unit Unit8;var Form8: TForm8;implementationuses Unit1;{$R *.dfm}procedure TForm8.RzRapidFireButton1Click(Sender:TObject);var code:integer;begin with adoquery1 do begin close; sql.Clear; sql.Add('select max(code) from vid_pr'); open; end; if form8.ADOQuery1.RecordCount=0 then code:=1 else code:=form8.ADOQuery1column1.AsInteger+1; form1.ADOQuery3.AppendRecord([code,edit1.Text]); edit1.clear; showmessage('Записано');end;end.unit Unit9;interfaceusesprocedure TForm9.RzRapidFireButton1Click(Sender:TObject);var code:integer ;begin with form9.ADOQuery1 do begin close; sql.Clear; sql.add('select max(code) from vid_rs'); open; end; if adoquery1.RecordCount=0 then code:=1 else code:=1+form9.ADOQuery1Expr1000.AsInteger; form1.ADOQuery4.AppendRecord([code,edit1.Text]); edit1.clear; showmessage('Записано');end;end.

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


Список использованных источников
1. Агальцов, В.П. Базы данных. В 2-х т.Т. 1. Локальные базы данных: Учебник / В.П. Агальцов. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 352 c.
2. Акперов, И.Г. Информационные технологии в менеджменте: Учебник / И.Г. Акперов, А.В. Сметанин, И.А. Коноплева. - М.: НИЦ ИНФРА-М, 2013. - 400 c.
3. Венделева, М.А. Информационные технологии в управлении: Учебное пособие для бакалавров / М.А. Венделева, Ю.В. Вертакова. - М.: Юрайт, 2013. - 462 c.
4. Голицына, О.Л. Базы данных: Учебное пособие / О.Л. Голицына, Н.В. Максимов, И.И. Попов. - М.: Форум, 2012. - 400 c.
5. Грекул В. И., Денищенко Г. Н., Коровкина Н. Л. Проектирование информационных систем. — М.: Интернет-университет информационных технологий – М.: ИНТУИТ.ру, 2009. с.135
6. Гринберг, А.С. Информационные технологии управления: [Учеб. пособие для вузов по специальностям 351400 "Прикладная информатика (по обл.)", 061100 "Менеджмент орг.", 061000 "Гос. и муницип. упр."] /А.С. Гринберг, Н.Н. Горбачев, А.С. Бондаренко.-М.: ЮНИТИ, 2010.-479 с.
7. Диго, С.М. Базы данных: проектирование и использование: [Учеб. для вузов по специальности "Прикладная информатика (по обл.)"] /С.М. Диго.-М.: Финансы и статистика, 2010.-591 с.
8. Ивасенко, А.Г. Информационные технологии в экономике и управлении: [учеб. пособие для вузов по специальностям "Прикладная информатика (по обл.)", "Менеджмент орг.", "Гос. и муницип. упр."] /А. Г. Ивасенко, А. Ю. Гридасов, В. А. Павленко.-М.: КноРус, 2011.-153 с.
9. Информатика: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /А. Н. Гуда [и др.] ; под общ. ред. В. И. Колесникова.-М.: Дашков и К°, 2010.-399 с.
10. Информатика: учебник для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и другим экономическим специальностям /[В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2010.-910 с.
11. Информационные системы и технологии в экономике и управлении: [учеб. для вузов по специальности "Прикладная информатика (по обл.)" и др. экон. специальностям] /[В. В. Трофимов и др.] ; под ред. В. В. Трофимова.-М.: Высш. образование, 2010.-480 с.
12. Информационные технологии: [учеб. для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. экон. специальностям /В. В. Трофимов и др.] ; под ред. проф. В. В. Трофимова.-М.: Юрайт, 2009.-624 с.
13. Исаев, Г.Н. Информационные технологии: Учебное пособие / Г.Н. Исаев. - М.: Омега-Л, 2013. - 464 c.
14. Карпова, И.П. Базы данных: Учебное пособие / И.П. Карпова. - СПб.: Питер, 2013. - 240 c.
15. Кириллов, В.В. Введение в реляционные базы данных.Введение в реляционные базы данных / В.В. Кириллов, Г.Ю. Громов. - СПб.: БХВ-Петербург, 2012. - 464 c.
16. Комплексная система защиты информации на предприятии. Часть 1. – М.: Московская Финансово-Юридическая Академия, 2008. – 124 с.
17. Коноплева, И.А. Информационные технологии: учеб. пособие : [для вузов по специальности "Прикладная информатика (по областям)] /И. А. Коноплева, О. А. Хохлова, А. В. Денисов.-М.: Проспект, 2010.-294 с.
18. Кудинов, Ю.И. Основы современной информатики: учеб. пособие для студентов вузов, обучающихся по специальности "Прикладная информатика" /Ю. И. Кудинов, Ф. Ф. Пащенко.-СПб.: Лань, 2009.-255 с.
19. Луенбергер, Д.Д. Информатика: учеб.-метод. пособие для студентов вузов, обучающихся по специальности 080801 "Прикладная информатика" и др. междисциплинарным специальностям /Дэвид Дж. Луенбергер ; пер. с англ. Ю. Л. Цвирко под ред. д.т.н. К. К. Колина.-М.: Техносфера, 2008.-447 с.
20. Маклаков, С.В. Bpwin и Erwin. Case-средства разработки информационных систем − М. : ДИАЛОГ-МЭФИ, 2009.
21. Максимов, Н.В. Современные информационные технологии: Учебное пособие / Н.В. Максимов, Т.Л. Партыка, И.И. Попов. - М.: Форум, 2013. - 512 c.
22. Малыхина, М.П. Базы данных: основы, проектирование, использование. – СПб: БХВ Петербург.2009.
23. Марков, А.С. Базы данных: Введ. в теорию и методологию : [Учеб. по специальности "Прикладная математика и информатика"] /А.С. Марков, К.Ю. Лисовский.-М.: Финансы и статистика, 2009.-511 с.
24. Мишенин А.И. Теория экономических информационных систем. — М.: Финансы и статистика, 2010. 240 с
25. Советов, Б.Я. Базы данных: теория и практика: Учебник для бакалавров / Б.Я. Советов, В.В. Цехановский, В.Д. Чертовской. - М.: Юрайт, 2013. - 463 c.
26. Степанов А.Н. Информатика: учебное пособие. – СПб: Питер Пресс, 2012. – 764 с.
27. Стражева Н. С., Стражев А. В. Бухгалтерский учет. - М.: Диалог, 2008. – 252с.
28. Фаронов В.А. Delphi. Программирование на языке высокого уровня. М.: 2010
29. Фуфаев, Э.В. Базы данных: Учебное пособие для студентов учреждений высшего профессионального образования / Э.В. Фуфаев, Д.Э. Фуфаев. - М.: ИЦ Академия, 2012. - 320 c.
30. Хлебников, А.А. Информационные технологии: Учебник / А.А. Хлебников. - М.: КноРус, 2014. - 472 c.
31. Черников, Б.В. Информационные технологии управления: Учебник / Б.В. Черников. - М.: ИД ФОРУМ, НИЦ ИНФРА-М, 2013. - 368 c.
32. Чиртик, А.А. : Программирование в Delphi /А.А.Чиртик. - СПб: Питер, 2012. – 312 с.
Пожалуйста, внимательно изучайте содержание и фрагменты работы. Деньги за приобретённые готовые работы по причине несоответствия данной работы вашим требованиям или её уникальности не возвращаются.
* Категория работы носит оценочный характер в соответствии с качественными и количественными параметрами предоставляемого материала, который не является научным трудом, не является выпускной квалификационной работой и представляет собой результат обработки, структурирования и форматирования собранной информации, но может использоваться в качестве источника для подготовки работы указанной тематики.
Сколько стоит
консультация по подготовке материалов?
1
Заполните заявку - это бесплатно и ни к чему вас не обязывает. Окончательное решение вы принимаете после ознакомления с условиями выполнения работы.
2
Менеджер оценивает работу и сообщает вам стоимость и сроки.
3
Вы вносите предоплату 25% и мы приступаем к работе.
4
Менеджер найдёт лучшего автора по вашей теме, проконтролирует выполнение работы и сделает всё, чтобы вы остались довольны.
5
Автор примет во внимание все ваши пожелания и требования вуза, оформит работу согласно ГОСТ, произведёт необходимые доработки БЕСПЛАТНО.
6
Контроль качества проверит работу на уникальность.
7
Готово! Осталось внести доплату и работу можно скачать в личном кабинете.
После нажатия кнопки "Узнать стоимость" вы будете перенаправлены на сайт нашего официального партнёра Zaochnik.com
© Рефератбанк, 2002 - 2018