Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
2 из 2 « 1 2
 
Рейтинг 4.55/22: Рейтинг темы: голосов - 22, средняя оценка - 4.55
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
1

Работа с OLE. Вставка времени, даты и иконки программы.

07.06.2011, 09:07. Показов 4012. Ответов 30
Метки нет (Все метки)
Author24 — интернет-сервис помощи студентам
Добрый день, подскажите, пожалуйста как вставить время, дату?

Пыталась вставить иконку, ошибка при запуске отчета
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

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);
        Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture","\\Dipl.jpg",false,true,0,0);
        Var.OleProcedure("Add");
        str="ÎÒרÒ";
        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",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
Добавлено через 14 часов 45 минут
ау, помогите пожалуйста!
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
 07.06.2011, 09:07
Ответы с готовыми решениями:

Вставка даты и времени
Требуется вставлять дату и время в разных форматах, что-то типа такого: AnsiString...

Работа с изменением даты - без времени
Возникла необходимость поработать с датой - необходимо комп отправить в прошлое сначала на...

Формат Даты и Времени (работа с файлом)
Очень прошу помощь. Как считать с файла строку в формате даты и времени? К примеру строку...

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

30
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
07.06.2011, 17:30  [ТС] 21
Author24 — интернет-сервис помощи студентам
Sasha, картинка работает ,остается версию и название программы добавить
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
07.06.2011, 17:34 22
Цитата Сообщение от Neo_AVE Посмотреть сообщение
остается версию и название программы добавить
Куда добавить?
0
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
07.06.2011, 17:39  [ТС] 23
Sasha, где обычно в любых отчётах располагается название программы и версия. Наверное, в конце. Если у меня не умещается на одном листе, то все это продолжается на втором листе, но с возрастанием параграфа?
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
07.06.2011, 17:44 24
Цитата Сообщение от Neo_AVE Посмотреть сообщение
но с возрастанием параграфа?
Скорее всего да
0
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
08.06.2011, 11:12  [ТС] 25
Sasha, в каком месте писать фон документа? пишу,а он не появляется. или не тот вариант писала?
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

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");
        vVarParagraph=Var.OleFunction("Item",1);
        Dms.OlePropertyGet("Shapes").OleProcedure("AddPicture", (ExtractFilePath(Application->ExeName)+"Dipl.jpg").c_str(), false, true, 0, 0);
        Var.OleProcedure("Add");
        str="Дата: "+ Now().DateString(); //Добавление даты
        vVarParagraph=Var.OleFunction("Item",2);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Bold",false);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        Var.OleProcedure("Add");
        str="Время: "+ Now().TimeString();          //Добавление времени
        vVarParagraph=Var.OleFunction("Item",3);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Bold",false);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        Var.OleProcedure("Add");
        str="ОТЧЁТ";
        vVarParagraph=Var.OleFunction("Item",4);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",16);
        v.OlePropertySet("Bold",true);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        //Фон документа
        Dms.OlePropertyGet("Background").
        OlePropertyGet("Fill").OlePropertyGet("ForeColor").
        OlePropertySet("RGB",RGB(255,250,150));
        Dms.OlePropertyGet("Background").
         OlePropertyGet("Fill").
         OlePropertySet("Visible",-1);
        Dms.OlePropertyGet("Background").
         OlePropertyGet("Fill").
         OleFunction("Solid");
        Var.OleProcedure("Add");
        str="1.Расчёт срезки растительного слоя грунта:\n";
        vVarParagraph=Var.OleFunction("Item",5);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",14);
        v.OlePropertySet("Bold",false);
        v.OlePropertySet("Underline",1);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Var.OleProcedure("Add");
        str=Lbl5->Caption;
        vVarParagraph=Var.OleFunction("Item",6);
        v=vVarParagraph.OlePropertyGet("Range").OlePropertyGet("Font");
        v.OlePropertySet("Name","Arial");
        v.OlePropertySet("Size",12);
        v.OlePropertySet("Italic",true);
        v.OlePropertySet("Underline",0);
        vVarParagraph.OlePropertyGet("Range").
        OlePropertySet("Text",str.c_str());
        vVarParagraph.OlePropertySet("Alignment",1);
        Word.OlePropertySet("Visible", true);
        FrmSrr->Hide();
Добавлено через 16 часов 56 минут
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
08.06.2011, 12:55 26
Переключись в режим Веб-документ
0
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
08.06.2011, 13:44  [ТС] 27
Цитата Сообщение от Sasha Посмотреть сообщение
Переключись в режим Веб-документ
в смысле?
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
08.06.2011, 15:20 28
Цитата Сообщение от Neo_AVE Посмотреть сообщение
в смысле?
В прямом. в 2003 офисе в левом нижнем углу есть пиктограммы вот они и овечают за выбор режима
0
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
08.06.2011, 20:30  [ТС] 29
Почему только в Web-документе отображается, а так в обычном виде не может?

Добавлено через 3 часа 51 минуту
Всё равно ошибка при нажатии кнопки, когда параграф 37 , то есть не переходит на второй лист документа , мне нужно чтобы все было в одном документе
0
4956 / 2420 / 531
Регистрация: 05.06.2008
Сообщений: 7,518
Записей в блоге: 3
09.06.2011, 09:17 30
Цитата Сообщение от Neo_AVE Посмотреть сообщение
Всё равно ошибка при нажатии кнопки, когда параграф 37 , то есть не переходит на второй лист документа , мне нужно чтобы все было в одном документе
тогда делай без дополнительного параграфа
0
89 / 36 / 5
Регистрация: 04.05.2011
Сообщений: 239
09.06.2011, 19:49  [ТС] 31
как это без дополнительного параграфа?
0
09.06.2011, 19:49
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
 09.06.2011, 19:49
Помогаю со студенческими работами здесь

Алгоритм программы редактирования значений системного времени и системной даты используя системных
Разработать алгоритм программы редактирования значений системного времени и системной даты...

Произошли ошибки во время выполнения многошаговой операции OLE DB. По возможности, проверьте значения всех состояний OLE DB. Работа не выполнена
OleDbConnection cn = new OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" +...

Работа программы до указанной даты
Необходимо чтобы программа бежала определенное количество часов (допустим 1000) от момента ее...

Работа программы От и До определенного времени
Всем привет! Вот возник вопрос такой, у меня имееться два поля на форме, в одно поле я указыю от...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
2 из 2 « 1 2
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru