Проектирование и разработка информационной системы для учета ремонтных работ и обслуживания оргтехники фирмы ООО "Компьютерный мир" г. Самара
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
WordApplication1.Disconnect;.Restore;;;;.WordApplication1.Disconnect;.Restore;.ADOTabZakaz.Filtered:=False;;Panel3.Visible=True Then:=ExtractFilePath(Application.ExeName)+Doc5.doc;:=ExtractFilePath(Application.ExeName)+Doc\Отчет №2.doc;.WordApplication1.Connect;.Minimize;.WordApplication1.Documents.Open(N,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,,EmptyParam,EmptyParam,EmptyParam,EmptyParam);.WordDocument1.ConnectTo(DM.WordApplication1.ActiveDocument).WordDocument1.SaveAs(Save);:=DateToStr(DateTimePicker1.Date);.WordDocument1.Tables.Item(1).Cell(3,2).Range.InsertBefore(St1);:=DateToStr(DateTimePicker2.Date);.WordDocument1.Tables.Item(1).Cell(4,2).Range.InsertBefore(St2);.ADOTabZakaz.Filter:=ДатаЗаказа>=+St1+ AND ДатаЗаказа<=+St2+ AND КодМастера=+IntToStr(DM.ADOTabMasterКодМастера.Value);.ADOTabZakaz.Filtered:=True;:=DM.ADOTabZakazМастер.Value;.WordDocument1.Tables.Item(1).Cell(5,2).Range.InsertBefore(St1);:=1; Sum:=0;DM.ADOTabZakaz do;not EOF do:=IntToStr(i);.WordDocument1.Tables.Item(2).Cell(2+i,1).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakazДатаЗаказа.Value);.WordDocument1.Tables.Item(2).Cell(2+i,2).Range.InsertBefore(St1);:=DM.ADOTabZakazТехника.Value;.WordDocument1.Tables.Item(2).Cell(2+i,3).Range.InsertBefore(St1);:=DM.ADOTabZakazНомерТехники.Value;.WordDocument1.Tables.Item(2).Cell(2+i,4).Range.InsertBefore(St1);:=DM.ADOTabZakazКлиент.Value;.WordDocument1.Tables.Item(2).Cell(2+i,5).Range.InsertBefore(St1);DM.ADOTabZakazВызов.Value=True then.WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore(ДА).WordDocument1.Tables.Item(2).Cell(2+i,6).Range.InsertBefore(НЕТ):=DM.ADOTabZakazМастер.Value;.WordDocument1.Tables.Item(2).Cell(2+i,7).Range.InsertBefore(St1);:=DateToStr(DM.ADOTabZakazДатаВыполнения.Value);.WordDocument1.Tables.Item(2).Cell(2+i,8).Range.InsertBefore(St1);:=DM.ADOTabZakazОплата.Value;.WordDocument1.Tables.Item(2).Cell(2+i,9).Range.InsertBefore(St1);DM.ADOTabZakazДоставка.Value=True then.WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore(ДА).WordDocument1.Tables.Item(2).Cell(2+i,10).Range.InsertBefore(НЕТ);:=Format(%m,[DM.ADOTabZakazСумма.Value]);.WordDocument1.Tables.Item(2).Cell(2+i,11).Range.InsertBefore(St1);:=Sum+DM.ADOTabZakazСумма.Value;.WordDocument1.Tables.Item(2).Rows.Add(EmptyParam);(i);;;;.WordDocument1.Tables.Item(2).Rows.Item(2+i).Delete;:=Format(%m,[Sum]);.WordDocument1.Tables.Item(3).Cell(1,2).Range.InsertBefore(St1);
Except(Шаблон документа не найден!);
DM.WordApplication1.Disconnect;.Restore;;;;.WordApplication1.Disconnect;.Restore;.ADOTabZakaz.Filtered:=False;;;.
Copyright © 2008-2014 geum.ru рубрикатор по предметам рубрикатор по типам работ пользовательское соглашение