Реферат Розробка ІС обліку охоронюваних об'єктів ЧОП "Рубіж-М"

в папці Шаблони:

WorkbookName:=GetCurrentDir + « Templates « + »Работи.xlt«;:=CreateOleObject (»Excel.Application»);. Cursor:=crHourGlass;. Workbooks.Open (WorkbookName);

/ / Експорт даних з таблиці БД:

with DM do:=0;

PosInc:=4;. Cells [1,1]:=«Виконані роботи за період» + Chr (10) +

«за період з» + DateToStr (Date1) + « по » + DateToStr (Date2);

/ / Запит переліку робіт за заданий період:

dstEmpJobList.Parameters.ParamByName («pDate1»). Value:=Date1;. Parameters.ParamByName («pDate2»). Value:=Date2;. Parameters.ParamByName («pDate11» ). Value:=Date1;. Parameters.ParamByName («pDate22»). Value:=Date2;. Open;:=0;// Сума работ.First;

/ / Цикл по роботах: not dstEmpJobList.Eof do

begin

/ / Додавання нового рядка для роботи:

if i <> 0 then.Rows.Item [PosInc + i]. Select;. Selection.Insert;. Rows.Item [PosInc + i - 1]. Select;. Selection.Copy;. Rows.Item [PosInc + i]. Select; . ActiveSheet.Paste;. Application.CutCopyMode:=False;;. Cells [i + PosInc, 1]:=i +1;. Cells [i + PosInc, 2]:=dstEmpJobList.FieldByName («Датас»). AsString;. Cells [i + PosInc, 3]:=dstEmpJobList.FieldByName («ДатаПо»). AsString;. Cells [i + PosInc, 4]:=dstEmpJobList.FieldByName («Робота»). AsString;. Cells [i + PosInc, 5]:=dstEmpJobList.FieldByName («Кількість»). AsFloat;. Cells [i + PosInc, 6]:=dstEmpJobList.FieldByName («Вартість»). AsCurrency;. Cells [i + PosInc , 7]:=dstEmpJobList.FieldByName («Сума»). AsCurrency; (i);:=Sum + dstEmpJobList.FieldByName («Сума»). AsCurrency;. Next;;// While not dstEmpJobList.Eof.Cells [i + PosInc, 7]:=Sum;. Close;;// With.Visible:=True;. Quit;;. Cursor:=crDefault;;;

/ / Формування договору: Rep_Contract;: Variant;:=CreateOleObject («Word.Application»);. Cursor:=crHourGlass;. Documents.Open (GetCurrentDir + « Templates Договір. dot »);

/ / Дані договору та замовлення:. Selection.Goto (Name:=«НомерДог»);

ObjWord.Selection.TypeText (Text:=FormatFloat («0000», DM.dstOrders.FieldByName («NЗаказа»). AsFloat));. Selection.Goto (Name:=« ДатаДог »);. Selection.TypeText (Text:=GetRightDate(DM.dstOrders.FieldByName(&laquo;ДатаПриема&raquo;).AsDateTime));.Selection.Goto(Name :=«ДатаЗаказа»);. Selection.TypeText (Text:=GetRightDate(DM.dstOrders.FieldByName(&laquo;ДатаПриема&raquo;).AsDateTime));.Selection.Goto(Name :=«ДатаОконч»);. Selection.TypeText (Text:=GetRightDate (DM.dstOrders.FieldByName («ДатаСдачі»). AsDateTime));

/ / Дані клієнта:. Selection.Goto (Name:=«Замовник»);. Selection.TypeText (Text:=DM.tbOrgs.FieldByName («Найменування»). AsString); . Selection.Goto (Name:=«Заказчік2»);. Selection.TypeText (Text:=DM.tbOrgs.FieldByName («Найменування»). AsString);. Selection.Goto (Name:="Адреса") ;. Selection.TypeText (Text:=DM.tbOrgs.FieldByName («Адреса»). AsString);. Selection.Goto (Name:=«ІННЗак»);. Selection.TypeText (Text:=DM.tbOrgs. FieldByName («ІПН»). AsString);. Selection.Goto (Name:=«РеквізітиЗак»);. Selection.TypeText (Text:=DM.tbOrgs.FieldByName («Реквізити»). AsString);

/ / Реквізити компанії:. tbInfo.Open;

ObjWord.Selection.Goto (Name:=«Орг»);. Selection.Typ...