Главная База знаний "Allbest" Программирование, компьютеры и кибернетика Розробка елементів гнучкої спеціалізованої системи приватного підприємства

Розробка елементів гнучкої спеціалізованої системи приватного підприємства

Реалізація гнучкої спеціалізованої системи підприємництва в середовищі Delphi 6.0 за допомогою технології доступу до баз даних ADO. Розробка елементів системи, її призначення для накопичення і обробки інформації про обіг товарів приватного підприємства.

Рубрика Программирование, компьютеры и кибернетика
Вид дипломная работа
Язык украинский
Дата добавления 26.10.2012
Размер файла 1,3 M

Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже

Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.

Страница:

ADOquery1. Active: =true;

GetCurrentDirectory (255,AppPath);

S_f: =APPPATH;

E: =cREATEoLEoBJECT ('Excel. Application');

workbook: =e. workbooks. add (s_f+'\Книга закупок. xlt" ');

findandinsert ('##data',datetostr (date));

ADOquery1. First;

i: =3; sum: =0;

while not ADOquery1. Eof do

begin

i: =i+1;

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery1date_doc. AsDateTime;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery1no_doc. AsInteger;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery1name_kontr. AsString;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery1summa. AsCurrency;

range. borders. linestyle: =1;

range. borders. weight: =2;

sum: =sum+ADOQuery1summa. AsCurrency;

ADOquery1. Next;

end;

i: =i+2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =sum;

range. borders. linestyle: =1;

range. borders. weight: =2;

end

else

begin

ADOquery2. SQL. Clear;

ADOquery2. SQL. Add ('select k. name_kontr,d. date_doc,d. summa,d. no_doc, d. doc from documents_id d left join kontragenty k where k. kod_kontr=d. kod_kontr and d. doc='+''''+'r'+''''+'and d. date_doc >='+''''+datetostr (datetimepicker1. Date) +''''+' and d. date_doc <='+''''+datetostr (datetimepicker2. Date) +''''+' order by d. date_doc');

ADOquery2. Active: =true;

GetCurrentDirectory (255,AppPath);

S_f: =APPPATH;

E: =cREATEoLEoBJECT ('Excel. Application');

workbook: =e. workbooks. add (s_f+'\Книга продажу. xlt" ');

findandinsert ('##data',datetostr (date));

ADOquery2. First;

i: =3; sum: =0;

while not ADOquery2. Eof do

begin

i: =i+1;

cell: =workbook. worksheets [1]. cells [i,1];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery2date_doc. AsDateTime;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,2];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOquery2no_doc. AsInteger;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,3];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery2name_kontr. AsString;

range. borders. linestyle: =1;

range. borders. weight: =2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =ADOQuery2summa. AsCurrency;

range. borders. linestyle: =1;

range. borders. weight: =2;

sum: =sum+ADOQuery2summa. AsCurrency;

ADOquery2. Next;

end;

i: =i+2;

cell: =workbook. worksheets [1]. cells [i,4];

range: =workbook. worksheets [1]. range [cell,cell];

range. value: =sum;

range. borders. linestyle: =1;

range. borders. weight: =2;

end;

e. visible: =true;

end;

end.

Размещено на Allbest.ru

Страница:


Подобные документы

Работы в архивах красиво оформлены согласно требованиям ВУЗов и содержат рисунки, диаграммы, формулы и т.д.
PPT, PPTX и PDF-файлы представлены только в архивах.
Рекомендуем скачать работу.

© 2000 — 2023, ООО «Олбест» Все права защищены