Создание отчёта в Word

@Neo_AVE · Регистрация: 04.05.2011

Студворк — интернет-сервис помощи студентам

Здравствуйте, пожалуйста, подскажите, как создать отчёт не в QuickRep, а в Word. Причем он должен содержать от каждой формы информацию именно из Label, как бы скопировать содержимое Label в отчет. Я впервые сталкиваюсь с созданием отчёта. Искала в форуме, не нашла то, что нужно. Заранее спасибо.

cpp_developer · 03.06.2011, 23:24

ваше окно или тдешное/системное? простите, но я не слежу за логикой вашей прогжки , поэтому всегда хорошо давать ответ, как в первый раз

.

@Neo_AVE · 03.06.2011, 23:27 **[ТС]**

Выходит, что системное, я обработчик события заключила в комментарий, и без него вылезло "системное" окошко

cpp_developer · 03.06.2011, 23:48

хорошо бы показать окно системной ошибки, о которой так много было сказано, или, хотя бы, текст

@Neo_AVE · 03.06.2011, 23:58 **[ТС]**

Не знаю как еще, у меня word стоит 2007 , может в этом дело? да вообще в чем может быть дело? может несколько word создать в папке?

Добавлено через 2 минуты

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
void __fastcall TFrmSrr::Btn2Click(TObject *Sender)
{
        FrmSrr->Close();
        vVarApp=CreateOleObject("Word.Application");   
        vVarApp.OleProcedure("Documents");  
        if(!fStart)
        {
            try{
              vVarApp=CreateOleObject("Word.Application");
              fStart=true;
            }
            catch(...)
            {
                MessageBox(0,"Ошибка при открытии сервера Word",
                             "Ошибка", MB_OK);
                return;
            }
        } 
        vVarApp.OlePropertySet("Visible",false);  
        Variant Doc=vVarApp.OlePropertyGet("Documents");        
        Doc.OleProcedure("Add");
        Doc.OleProcedure("Add");
        if(Doc.OlePropertyGet("Count")== 0)
        {
          vVarApp=CreateOleObject("Word.Application");
          fStart=true;
        }
        else if(Doc.OlePropertyGet("Count")>=1){
          MessageBox(0, "Документ уже создан",
               "Успешно!", MB_OK);
              // return;
        }
        vVarParagr=Doc.OleFunction("Item",1);  
        Doc.OleProcedure("Activate");
        vVarParph=Doc.OlePropertyGet("Paragraphs");   
        str="\t\tКОЛИЧЕСТВО\t\t";
        vVarParph.OleProcedure("Add");
        vVarParagraph=vVarParph.OleFunction("Item",1);
        vVarParagr.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
        vVarParagr.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
        vVarParagr.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
        vVarParagr.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
        vVarParph.OleProcedure("Add");
        //str="ÊÎËÈ×ÅÑÒÂÎ";
        //vVarParagraph=vVarParph.OleFunction("Item",1);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Size",22);
        v.OlePropertySet("Bold",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        vVarParph.OleProcedure("Add");
        //vVarParph.OleProcedure("Add");
        //vVarParph.OleProcedure("Add");
        str = "\t\t"+Lbl5->Caption;
        vVarParagraph=vVarParph.OleFunction("Item", 4);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Size",16);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",3);
        vVarParph.OleProcedure("Add");
}

Добавлено через 6 минут

Не по теме:

Я спать, завтра продолжим.Голова не варит

cpp_developer · 04.06.2011, 00:10

для меня логика вобче не понятна - вы сначала создаете объект, потом, если что-то не срослось, снова создаете объект , пытаясь что-то перехватить, потом снова возвращаетесь к каким-то своим мыслям, честно, не понимаю.

@Neo_AVE · 04.06.2011, 09:39 **[ТС]**

LK, а мне не понятен распорядок кода, вот в чем проблема. Запуталась

@Neo_AVE · 04.06.2011, 14:05 **[ТС]**

просто так вылезает ошибка

не смотря на то, что я закомментировала обработку исключения и if(...).

@Neo_AVE · 04.06.2011, 16:49 **[ТС]**

может какие-то файлы, библиотечные функции добавить? я ничего не добавляла

cpp_developer · 04.06.2011, 19:30

есть такой не хитрый способ - начиная с FrmSrr->Close(); добавляете по строчке кода, или по блоку кода, или по блочку в блоке кода, и ждете ошибку.

@Neo_AVE · 04.06.2011, 22:54 **[ТС]**

LK, верно Вы подметили

.

Добавлено через 2 часа 8 минут
у меня по центру не получается, только с левой стороны строится отчет:

C++
1
vVarParagraph.OlePropertySet("Alignment",1);

а как можно сделать, чтобы заглавие написать жирно и шрифтом 16 по центру и затем после него label?

cpp_developer · 04.06.2011, 23:58

это, правда, для таблиц, попробуйте,

вдруг прокатит

Для получения доступа к интерфейсу Application для Excel надо:

1. Включить в проект модули:

#include <ComObj.hpp>
#include <utilcls.h>

2. Определить - лучше глобально (для наглядности и удобства) - переменные, отражающие иерархию объектов Excel
Приложение->Набор книг->Книга->Набор страниц->Страница->ячейки(ячейка):

Variant vVarApp,vVarBooks,vVarBook,vVarSheets,
vVarSheet,vVarCells,vVarCell;

3. создать объект автоматизации:

vVarApp=CreateOleObject("Excel.Applicati on");

С этого момента можно пользоваться свойствами и методами созданного ole сервера, а именно:

Установка свойства.
vVarApp.OlePropertySet("имя", значение);

Чтение значения свойства.
переменная = app.OlePropertyGet("имя");

Вызов метода:
vVarApp.OleProcedure("имя",список параметров метода);

Сделаем приложение видимым (лучше наверное всетаки в конце, но так нагляднее - будет видно как идет заполнение таблиц и т.п.).
vVarApp.OlePropertySet("Visible",true);

Переменной vVarBooks присваивается значение Workbooks - свойство объекта Excel.Application, содержащее набор рабочих книг Excel.
vVarBooks=vVarApp.OlePropertyGet("Workbo oks");

SheetsInNewWorkbook задает количество листов в создаваемой книге, пусть в первой книге их будет 3(Кстати по умолчаню тоже создается книга, содержащая три листа).
vVarApp.OlePropertySet("SheetsInNewWorkb ook",3);

Добавляем книгу из 3 листов в объект vVarBooks.
vVarBooks.OleProcedure("Add");

Переменная vVarBook содержит ссылку на текущую книгу. (Пусть текущая книга 1).
vVarBook=vVarBooks.OlePropertyGet("Item" ,1);

Переменной vVarSheets присваиваем значение Worksheets - свойство объекта Excel.Application, содержащее набор страниц книги Excel.
vVarSheets=vVarBook.OlePropertyGet("Work sheets") ;
vVarSheet=vVarSheets.OlePropertyGet("Ite m",1);
vVarSheet.OlePropertySet("Name","Имя листа");

Основные шаги при заполнении таблицы повторяются:

1. Взять лист.
VarSheet=vVarSheets.OlePropertyGet("Item ",1);

2. Выбрать ячейку или группу ячеек на выбранном листе. Для отдельной ячейки (x и y координаты ячейки):
vVarCell=vVarSheet.OlePropertyGet("Cells ").
OlePropertyGet("Item",x,y);

Для группы ячеек:
vVarCell=vVarSheet.OlePropertyGet("Range ","A1:C4");
vVarCell.OleProcedure("Merge");

3. Установить режим выравнивания текста в ячейке (ячейках).
vVarCell.OlePropertySet("HorizontalAlign ment",-4108);
vVarCell.OlePropertySet("VerticalAlignme nt",-4108);
Выравнивание текста - вертикальное - Константы
xlHAlignCenter -4108
xlHAlignCenterAcrossSelection 7
xlHAlignDistributed -4117
xlHAlignFill 5
xlHAlignGeneral 1
xlHAlignJustify -4130
xlHAlignLeft -4131
xlHAlignRight -4152

Выравнивание текста - горизонтальное - Константы
xlVAlignBottom = -4107
xlVAlignCenter = -4108
xlVAlignDistributed = -4117
xlVAlignJustify = -4130
xlVAlignTop = -4160

4. Установить размер шрифта.
vVarCell.OlePropertyGet("Font").OlePrope rtySet("Size",15);

5. Установить цвет шрифта ячейки.
vVarCell.OlePropertyGet("Font").OlePrope rtySet("Color",clBlue);

6. Установить стиль шрифта ячейки.
//Жирный
vVarCell.OlePropertyGet("Font").
OlePropertySet("Bold",true);
//Курсив
vVarCell.OlePropertyGet("Font").
OlePropertySet("Italic",true);
//Зачеркнутый
vVarCell.OlePropertyGet("Font").
OlePropertySet("Strikethrough",true);
//Верхний индекс
vVarCell.OlePropertyGet("Font").
OlePropertySet("Superscript",true);
//Нижний индекс
vVarCell.OlePropertyGet("Font").
OlePropertySet("Subscript",true);
//Без линий
vVarCell.OlePropertyGet("Font").
OlePropertySet("OutlineFont",true);
//C тенью
vVarCell.OlePropertyGet("Font").
OlePropertySet("Shadow",true);
//Подчеркнутое одинарной линией по значению
vVarCell.OlePropertyGet("Font").
OlePropertySet("Underline",2);
//Подчеркнутое двойной линией по значению
vVarCell.OlePropertyGet("Font").
OlePropertySet("Underline",-4119);
//Подчеркнутое одинарной линией по ячейке
vVarCell.OlePropertyGet("Font").
OlePropertySet("Underline",4);
//Подчеркнутое двойной линией по значению
vVarCell.OlePropertyGet("Font").
OlePropertySet("Underline",5);

Здесь значение констант:
xlUnderlineStyleDouble = -4119,
xlUnderlineStyleDoubleAccounting = 5,
xlUnderlineStyleNone = -4142,
xlUnderlineStyleSingle = 2,
xlUnderlineStyleSingleAccounting = 4
7. Установить имя шрифта ячейки.
vVarCell.OlePropertyGet("Font").OlePrope rtySet("Name","Arial");

8. Установить заливку ячейки (если необходимо).
vVarCell.OlePropertyGet("Interior").
OlePropertySet("ColorIndex",35);

9. Установить значение данных.
vVarCell.OlePropertySet("Value","Мой текст");
vVarCell.OlePropertySet("Value",25);

10. Вписать формулы аналогично данным.
vVarCell.OlePropertySet("Value","=СУММ(A 1:A10)");

11. Если необходимо установить размер ячеек.
vVarCell.OlePropertySet("RowHeight", 20);
vVarCell.OlePropertySet("ColumnWidth",10 );

1.5 Рисуем рамки
Аналогично как и при заполнении таблицы рамка рисуется для выбранной ячейки или объединенной группы ячеек.
Шаги рисования рамки:
1. Взять лист.
2. Выбрать ячейку или группу ячеек на выбранном листе. Для отдельной ячейки (x и y координаты ячейки):
3. Задать шрифт для текста, выравнивание и заливку как показано в предыдущем параграфе.
4. Установить рамку вокруг выбранных ячеек проведением линий с выбранной стороны (Borders) с указанием стиля линии (LineStyle) толщины (Weight) и цвета линии(ColorIndex).
vVarCell.OlePropertyGet("Borders",10).
OlePropertySet("LineStyle",1);
vVarCell.OlePropertyGet("Borders",10).
OlePropertySet("Weight",4);
vVarCell.OlePropertyGet("Borders",10).
OlePropertySet("ColorIndex",46);

Константы, определяющие где проводить линию:
xlInsideHorizontal 12
xlInsideVertical 11
xlDiagonalDown 5
xlDiagonalUp 6
xlEdgeBottom 9
xlEdgeLeft 7
xlEdgeRight 10
xlEdgeTop 8
Константы стиля линии
xlContinuous 1
xlDash -4115
xlDashDot 4
xlDashDotDot 5
xlDot -4118
xlDouble -4119
xlSlantDashDot 13
xlLineStyleNone -4142
Толщина линии
xlHairline 1
xlMedium -4138
xlThick 4
xlThin 2
Таким образом для обрамления с 4х сторон ячейки или группы ячеек надо приведенные выше 3 строки кода повторить 4 раза (для каждой стороны).
5. Если необходимо установить размер ячеек.
vVarCell.OlePropertySet("RowHeight", 20);
vVarCell.OlePropertySet("ColumnWidth",10 );

6. Написать текст для отображения в рамке.
vVarCell.OlePropertySet("Value", "Наш текст");

Добавлено через 9 минут
и, по-моему, вот эту ссылку вам приводили уже не один раз

: Работа с OLE-сервером Word , но спросить оно, конечно, легче

@Neo_AVE · 05.06.2011, 10:05 **[ТС]**

LK, да Excel мне не нужен, просто не хотела программа создавать отчёт. Да и

Сообщение от LK

Работа с OLE-сервером Word

эту ссылку читала не один раз

. Заработало, но выводит не столбиком по центру, а с левой стороны. Так в Label существуют такие символы

C++
1
\n

и из-за них по центру не выравнивается текст.

Добавлено через 1 час 49 минут
Всё получилось. Остается таблицу сделать

. Она у меня StringGrid , при чем данные не произвольные, а введенные пользователем.как реализовать?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
vVarParagraphs.OleProcedure("Add");
 vVarParagraphs.OleProcedure("Add");
vVarParagraph=vVarParagraphs.OleFunction("Item",5);
 vVarParagraph.OlePropertySet("Alignment",1);
 vVarRange = vVarParagraph.OlePropertyGet("Range");
vVarDoc.OlePropertyGet("Tables").OleProcedure("Add", vVarRange, 3, 9,1,1);  //цифры что означают?
vVarTable=vVarDoc.OlePropertyGet("Tables").OleFunction("Item",1);
//Выравниваем таблицу по центру
 vVarTable.OlePropertyGet("Rows").
           OlePropertySet("Alignment",1);
 //Установка ширины таблицы
 vVarTable.OleFunction("AutoFitBehavior",2);
 //Сетка в таблице
  vVarApp.OlePropertyGet("ActiveWindow").
  OlePropertyGet("View").OlePropertySet("TableGridlines",true);
//Стиль таблицы
 vVarTable.OleFunction("AutoFormat",25);
//Занесение информации в ячейки
 for(int i=0;i <ColCount-1;i++)
 {
   for(int j=0;j<RowCount-1){
  vVarCell=vVarTable.OleFunction("Cell",i,j);   //Вот не понимаю как написать, у меня кроме этих чисел
  vVarCell.OleFunction("Select");                 // еще формула есть, после которой создается таблица
  v = vVarApp.OlePropertyGet("Selection").
           OlePropertyGet("Font");
  v.OlePropertySet("Size",16);

Вот таким образом нужно создать отчет , при чем "-" и "+" реализованы в программе, а скопировать нельзя?

@Neo_AVE · 05.06.2011, 11:47 **[ТС]**

Посмотрите плиз, в чем ошибка при нажатии на кнопку

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
Variant v,vVarParagraph,Var,Dms,Word;
        Word = CreateOleObject("Word.Application");
        Word.OlePropertySet("Visible", false);
        Variant Doc = Word.OlePropertyGet("Documents");
        Doc.OleProcedure("Add");
        if(Doc.OlePropertyGet("Count") != 1)
        {
        MessageBox(0, "Ошибка при создании документов",
                 "Ошибка", MB_OK);
        return;
        }
        Dms=Doc.OleFunction("Item",1);
        //Смотреть будем на первый документ
        Dms.OleProcedure("Activate");
        Var=Dms.OlePropertyGet("Paragraphs");
        Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
        Var.OleProcedure("Add");
        str3="ОТЧЁТ";
        vVarParagraph=Var.OleFunction("Item",1);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",16);
        v.OlePropertySet("Bold",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3="1.Расчёт срезки растительного слоя грунта:\n";
        vVarParagraph=Var.OleFunction("Item",2);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Italic",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3=FrmSrr->Lbl5->Caption;
        vVarParagraph=Var.OleFunction("Item",3);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);  //////////
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3="2.Вертикальная планировка:\n";
        vVarParagraph=Var.OleFunction("Item",7);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Italic",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3="Отметка планировки: "+FrmVpl->Lbl12_6->Caption+"\n"+FrmVpl->Lbl1_3->Caption;
        vVarParagraph=Var.OleFunction("Item",8);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);  /////
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3="3.Устройство выемки под фундамент:\n";
        vVarParagraph=Var.OleFunction("Item",12);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Italic",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3=FrmUstr->Lbl34->Caption+"\n"+FrmUstr->Lbl39->Caption+"\n"+
           FrmUstr->Lbl44->Caption+"\n"+FrmUstr->Lbl47_2->Caption+"\n"+
           FrmUstr->Lbl53_4->Caption+"\n"+FrmUstr->Lbl50_2->Caption+"\n"+
           FrmUstr->Lbl54_4->Caption+"\n"+FrmUstr->Lbl54_9->Caption+"\n"+
           FrmUstr->Lbl55_6->Caption;
        vVarParagraph=Var.OleFunction("Item",13);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1); //Конец первого документа
        Dms=Doc.OleFunction("Item",2);
        //Смотрим на второй документ
        Dms.OleProcedure("Activate");
        Var=Dms.OlePropertyGet("Paragraphs");
        Dms.OlePropertyGet("PageSetup").OlePropertySet("TopMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("LeftMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("RightMargin",28.35);
        Dms.OlePropertyGet("PageSetup").OlePropertySet("BottomMargin",28.35);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        Var.OleProcedure("Add");
        str3="4.Транспортировка грунта:\n";
        vVarParagraph=Var.OleFunction("Item",1);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Italic",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        Var.OleProcedure("Add"); //
        str3=Lbl20->Caption;
        vVarParagraph=Var.OleFunction("Item",2);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str3.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Word.OlePropertySet("Visible", true);

@Neo_AVE · 06.06.2011, 16:54 **[ТС]**

Как вставить иконку рабочей программы, дату и время в отчёт вместо колонтитулы?

Новые блоги и статьи Все статьи Все блоги /
Рефакторинг программы уравнивания. Massaraksh7 26.05.2026 Пример по предыдущей записи в блоге. Но, надо заметить, что, во-первых, там оптимизация не только математики, но и работы с базой данных, и с графами, а во-вторых, это ещё не всё.	Использование TThread в Lazarus для математических вычислений. Massaraksh7 25.05.2026 Производя рефакторинг своих программ на предмет ускорения их работы, обратил внимание на такой аспект, как сокращение времени матвычислений. Дело в том, что приходится работать с большими матрицами. . .	Модель здравосохранения 18. Чем здоровее работник, тем быстрее выгорает anaschu 24.05.2026 Имитационная модель корпоративного здравоохранения: что показывает математика Сегодня в модели рабочего коллектива на AnyLogic появились три новые механики — выгорание через накопленную усталость,. . .	Модель здравосохранения 17. Планы на выгорание anaschu 23.05.2026 Вот конкретная схема реализации: В классе Работник добавить: накопленнаяУсталость — растёт каждый час работы, снижается в перерывы и болезни коэффициентПрезентеизма — снижает продуктивность. . .
Изменение цветов в палитре gif файла aka фавикона russiannick 23.05.2026 Изменение цветов в палитре gif файла, юзаемого как фавиконка в составе html-файла, помещенная в base64, средствами нативного Java Script, навеянное сном в майский день. Для работы необходим браузер,. . .	Модель здравосохранения 16. Слишком хорошие и здоровые сотрудники уходят, недовольные зарплатой anaschu 23.05.2026 Отладка увольнений и настройка производительности Сегодня во второй половине дня разобрались с механикой увольнений и настроили коэффициент сложности заданий. Вот что было сделано. . . .	Как я стал коммунистом))) Модель сохранения здоровья сотрудников, запись блога номер 15 anaschu 23.05.2026 Внезапно хорошее здоровье сотрудников не нужно капиталистам?))	Модель здравоСохранения 15. Как мы чинили AnyLogic модель рабочего коллектива: сочленение диаграммы состояний болезней и поломок в ресурспул anaschu 23.05.2026 Как мы чинили AnyLogic модель рабочего коллектива Сегодня разобрались с пятью багами, из-за которых модель либо падала с ошибкой, либо давала совершенно бессмысленные результаты. Каждый баг был. . .

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239

	Создание отчёта в Word 01.06.2011, 18:24. Показов 13904. Ответов 33 Метки нет (Все метки) Здравствуйте, пожалуйста, подскажите, как создать отчёт не в QuickRep, а в Word. Причем он должен содержать от каждой формы информацию именно из Label, как бы скопировать содержимое Label в отчет. Я впервые сталкиваюсь с созданием отчёта. Искала в форуме, не нашла то, что нужно. Заранее спасибо. 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	03.06.2011, 23:24
	ваше окно или тдешное/системное? простите, но я не слежу за логикой вашей прогжки , поэтому всегда хорошо давать ответ, как в первый раз . 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	03.06.2011, 23:27 [ТС]
	Выходит, что системное, я обработчик события заключила в комментарий, и без него вылезло "системное" окошко 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	03.06.2011, 23:48
	хорошо бы показать окно системной ошибки, о которой так много было сказано, или, хотя бы, текст 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	04.06.2011, 00:10
	для меня логика вобче не понятна - вы сначала создаете объект, потом, если что-то не срослось, снова создаете объект , пытаясь что-то перехватить, потом снова возвращаетесь к каким-то своим мыслям, честно, не понимаю. 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	04.06.2011, 09:39 [ТС]
	LK, а мне не понятен распорядок кода, вот в чем проблема. Запуталась 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	04.06.2011, 14:05 [ТС]
	просто так вылезает ошибка не смотря на то, что я закомментировала обработку исключения и if(...). Изображения 0

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	04.06.2011, 16:49 [ТС]
	может какие-то файлы, библиотечные функции добавить? я ничего не добавляла 0

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	04.06.2011, 19:30
	есть такой не хитрый способ - начиная с FrmSrr->Close(); добавляете по строчке кода, или по блоку кода, или по блочку в блоке кода, и ждете ошибку. 1

@Neo_AVE 89 / 36 / 5 Регистрация: 04.05.2011 Сообщений: 239
	06.06.2011, 16:54 [ТС]
	Как вставить иконку рабочей программы, дату и время в отчёт вместо колонтитулы? 0