DBGridEh Access

@Feelosoff · Регистрация: 05.01.2009

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

есть база данных, надо посчитать возраст человека и поставить "+" в нужную ячейку(от 15 до 23+ лет) средствами Delphi

Добавлено через 18 минут
достали меня с работы... нужно не плюс ставить а только в одной колонке возраст

Добавлено через 25 секунд
помогите кто может! очень надо

@Feelosoff · 10.06.2011, 08:43 **[ТС]**

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

Инструкция: Использование Excel из Delphi

Спасибо. Все получилось как надо!

@Feelosoff · 10.06.2011, 10:08 **[ТС]**

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

Спасибо. Все получилось как надо!

не все

нашел ошибку. при экспорте проскакивает ячейку. вроде вывод по порядку идет

@Feelosoff · 11.06.2011, 21:37 **[ТС]**

Delphi
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
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
qry1.First;
  for i := 0 to qry1.RecordCount -1 do
  begin
  Sheet.Cells[index,1].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,1]:=qry1.Fields.Fields[0].AsString;
  Sheet.Cells[index,2].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,2]:=qry1.Fields.Fields[1].AsString;
  Sheet.Cells[index,3].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,3]:=qry1.Fields.Fields[2].AsString;
  Sheet.Cells[index,4].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,4]:=qry1.Fields.Fields[3].AsString;
  Sheet.Cells[index,5].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,5]:=qry1.Fields.Fields[4].AsString;
  Sheet.Cells[index,6].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,6]:=qry1.Fields.Fields[5].AsString;
  Sheet.Cells[index,7].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,7]:=qry1.Fields.Fields[6].AsString;
  Sheet.Cells[index,8].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,8]:=qry1.Fields.Fields[7].AsString;
  Sheet.Cells[index,9].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,9]:=qry1.Fields.Fields[8].AsString;
  Sheet.Cells[index,10].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,10]:=qry1.Fields.Fields[9].AsString;
  Sheet.Cells[index,11].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,11]:=qry1.Fields.Fields[10].AsString;
  Sheet.Cells[index,12].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,12]:=qry1.Fields.Fields[11].AsString;
  Sheet.Cells[index,13].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,13]:=qry1.Fields.Fields[12].AsString;
  Sheet.Cells[index,14].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,14]:=qry1.Fields.Fields[13].AsString;
  Sheet.Cells[index,15].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,15]:=qry1.Fields.Fields[14].AsString;
  Sheet.Cells[index,16].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,16]:=qry1.Fields.Fields[15].AsString;
  Sheet.Cells[index,17].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,17]:=qry1.Fields.Fields[16].AsString;
  Sheet.Cells[index,18].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,18]:=qry1.Fields.Fields[17].AsString;
  Sheet.Cells[index,19].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,19]:=qry1.Fields.Fields[18].AsString;
  Sheet.Cells[index,20].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,20]:=qry1.Fields.Fields[19].AsString;
  Sheet.Cells[index,21].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,21]:=qry1.Fields.Fields[20].AsString;
  Sheet.Cells[index,22].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,22]:=qry1.Fields.Fields[21].AsString;
  Inc(index);
  qry1.Next;
  end;

как это можно упростить, не подскажите!!!!??

я пытался так:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
  for i := 0 to qry1.RecordCount -1 do
  begin
  Sheet.Cells[index,i1].select;
  Ap.Selection.MergeCells:=True;
  Ap.Selection.HorizontalAlignment:=3;
  Ap.Selection.WrapText:=True;
  Ap.Selection.Borders.LineStyle:=1;
  Ap.Selection.VerticalAlignment:=2;
  Sheet.Cells[index,i1]:=qry1.Fields.Fields[i2].AsString;
  Inc(index);
  Inc(i1);
  Inc(i2);
  qry1.Next;

i1 и i2 integer. но выдает ошибку и не вписывает данные

@MsGuns · 11.06.2011, 23:21

Вы плохо читали статью.
1. Используйте не поячеечную пересылку,а массивом вариантов.\
2. Используйте шаблоны Экселя, тогда отпадет необходимость объединения ячеек и присвоениея им нужных свойств в цикле

@Feelosoff · 12.06.2011, 00:27 **[ТС]**

если бы я знал как это сделать

в статье не нашел этого

@Feelosoff · 01.07.2011, 12:49 **[ТС]**

подскажите как мне сделать шаблоны и что надо для этого в Delphi сделать?

@MsGuns · 01.07.2011, 15:30

Про шаблоны Экселя наверное проще всего (и вернее) прочитать в справке самого Экселя, не правда ли ?

Добавлено через 11 минут
Правильная технология разработки отчетности заключается в максимально возможном отделении дизайна самой формы отчета и проектирования логики выборки данных с последующей группировкой, суммированием, анилитикой (синтезом) и т.д.

Использование Excel в этом плане весьма неплохо вписывается в эту технологию, т.к.:
1) Эксель имеет мощные и удобные средства дизайна форма отчета, форматирования страниц, титулов, заголовков, подвалов и т.д.
2) Эксель умеет напрямую "лазить" в очень многие БД (ADO DB + Jet OS Windows),
3) Эксель имеет специальное средство работы с предварительно размеченными формами отчетов (шаблонами)
4) Эксель замечательно "подкручивается" бэйсиком, на котором можно написать до 90% агоритма формирования самого отчетьа, начиная от формирования и выполнения запросов к базам данных (большинству промышленных баз, а уж с акцесом и MS SQL Server работает как с родными, что в общем-то не удивительно

5) Эксель имеет достаточно широкий спектр визуальных элементов для построения диаогов с пользователем
6) Эксель установлен на подавляющем большинстве ПК с ОС Windows и поэтому не требует никаких доинсталляций.
7) Эксель вполне мобилен и при правильном программировании отчет спокойно "переезжает" с одной редакции офиса на другую

Добавлено через 22 минуты
Вот простейшая схема проектирования СИСТЕМЫ отчетов:
1) На SQL сервере создается БД отчетов и пишется небольшая программа (например на Delphi) которая позволяет добавлять в эту базу новаые отчеты и вносить поправки в уже существующие
2) В этой Базе главный объект - "Отчет", у которого следующие осн.характеристики:
- Название отчета как пункта меню
- Текст SQL запроса (обычно хранимка с параметрами) на выборку информации для отчета к проблемной БД
- Форма или шаблон экселя для запроса параметров отчета для подстановки в хранимку
- Шаблон Экселя
- Имя стартового макроса Экселя если запуск процедуры формирования вне Экселя (например кнопка на форме Delphi)
- Список пользователей, имеющих доступ к отчету
3) Шаблон экселя представляет собою во-первых форму отчета с полной разметкой (титулы, заголовки колонок, колонтитулы, шрифты, стили, форматы и т.д.), а во-вторых коллекцию макросов, выполняющих "разноску" полученного от сервера датасета по ячейкам печатного листа, а также реализующих все "навороты" от простого суммирования итогов до построения графиков и отправки электронной почты.

Прикладная программа считывает из базы отчетов данные и отображает текущее меню в соответствии с пользователем (ПК). При выборе пункта меню программа извлекает из БД шаблон, сохраняет его на локальном диске (в Temp), после чего либо передает ему управление либо сразу либо предварительно выполняет запрос параметров, установливает соединение с сервером и запускает хранимку. По пролучении данных запускается стартовый макрос, который делает все остальное (т.е. фактически формирует отчет)

Такая система замечательна тем, что проектирование как самого отчета, так и логики выборки данных и обработки полученных результатов совершенно не зависит от среды разработки приложения (Делфи в данном случае). При этой системе отсутствует как класс деплой и инсталл, измененный (добавленный) админом (проектировщиком) отчет тут же становится досиупным всем пользователям сети. А это уже качественно новый уровень разработки, не требующий сопровождения Делфи-проектов (тот, кто занимался саппортом проектов прекрасно понимаю о чем речь) и сопутствующих ему затрат (как материально-временных, так и кадровых)

Конечно, спроектировать подобную систему "с нуля" значительно сложнее, чем склепать очередной типовой отчетец в каком-нибудь фаст-репорте, но окупают себя потраченные усилия довольно скоро и особенно эффективны при большом кол-ве разнообразных отчетов и (главное !) частой их правке !

@Feelosoff · 01.07.2011, 17:22 **[ТС]**

сделал через шаблоны. все работает почти как надо.
только один вопрос, надеюсь последний

у меня в одном столбце передаются данные с чекбокса(истина, ложь), а мне надо что бы отображалось в отчете ДА, НЕТ
Данные передаю массивом

@Feelosoff · 02.07.2011, 17:37 **[ТС]**

подскажите как сделать!!!

@natalo4ka · 02.07.2011, 17:43

MsGuns,
обясните как написать...

используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи.
если введена последовательность чисел образует арифметическую прогрессию, то найти произведение n членов этой прогрессии, в противном случае-упорядочить элементы последовательности в в нисходящем порядке.

Добавлено через 2 минуты
Feelosoff,
обясните как написать...

используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи.
если введена последовательность чисел образует арифметическую прогрессию, то найти произведение n членов этой прогрессии, в противном случае-упорядочить элементы последовательности в в нисходящем порядке.

@Pasha-1990 · 03.07.2011, 19:54

http://fiftry.com/?ref=2809624 зайдите на сайт,зарегистрируйтесь,просмотрите рекламу и получайте деньги!

@Шота · 04.07.2011, 00:41

Добрый вечер.У меня вопрос следующего характера помогите плиз.Как можно в эксель ставить время и дату .Можно ли текущее время фиксировать по кнопке, для следующего сравнении времени.Ctirl+Ж и Ctirl+Shift+Ж Не работает...

Добавлено через 7 минут
Добрый вечер.У меня вопрос следующего характера помогите плиз.Как можно в эксель ставить время и дату .Можно ли текущее время фиксировать по кнопке, для следующего сравнении времени.Ctirl+Ж и Ctirl+Shift+Ж Не работает...

@Feelosoff · 05.07.2011, 10:16 **[ТС]**

сделал через шаблоны. все работает почти как надо.
только один вопрос, надеюсь последний у меня в одном столбце передаются данные с чекбокса(истина, ложь), а мне надо что бы отображалось в отчете ДА, НЕТ
Данные передаю массивом

@MsGuns · 05.07.2011, 11:21

Delphi
1
2
только один вопрос, надеюсь последний у меня в одном столбце передаются данные с чекбокса(истина, ложь), а мне надо что бы отображалось в отчете ДА, НЕТ
Данные передаю массивом

Надеюсь, у Вас массив вариантов ? Вот и проверяйте на тру/фальш и присваивайте соотв.элементу массива "Да" или "Нет".

@Шота · 05.07.2011, 14:37

Люди кто самной переписывался не могу найти по поводу формул в эксель.

@Шота · 05.07.2011, 14:58

Просьба откликнутся.

@Feelosoff · 06.07.2011, 10:18 **[ТС]**

Delphi
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
procedure TForm1.Excel1Click(Sender: TObject);
  const
    ShortFileName = 'Абитуриент.xlt';
  Var
    ExcelApp, Workbook, Range, Cell1, Cell2, ArrayData: Variant;
    BeginCol, BeginRow, j: integer;
    RowCount, ColCount: Integer;
    FileName : String;
  Begin
     BeginCol := 1;
     BeginRow := 5;
     RowCount := mtblh1.RecordCount;
     ColCount := mtblh1.FieldDefs.Count;
     ExcelApp := CreateOleObject('Excel.Application');
     ExcelApp.Application.EnableEvents := false;
     FileName:=ExtractFilePath( Application.ExeName ) + ShortFileName;
     Workbook := ExcelApp.WorkBooks.Add(FileName);
     ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
     mtblh1.DisableControls;
     mtblh1.First;
     While Not mtblh1.eof Do
     Begin
         For J := 1 To mtblh1.FieldDefs.Count Do
         Begin
             ArrayData[mtblh1.RecNo, J] :=
              mtblh1.FieldbyName(mtblh1.FieldDefs.Items[j - 1].DisplayName).value;
         End;
         mtblh1.Next;
     End;
     mtblh1.EnableControls;
     Cell1 := WorkBook.WorkSheets[1].Cells[BeginRow, BeginCol];
     Cell2 := WorkBook.WorkSheets[1].Cells[BeginRow + RowCount - 1,
     BeginCol + ColCount - 1];
     Range := WorkBook.WorkSheets[1].Range[Cell1, Cell2];
     Range.Value := ArrayData;
     ArrayData := VarArrayCreate([1, RowCount, 1, ColCount], varVariant);
ExcelApp.Visible := True;

вот так передаю

@Feelosoff · 07.07.2011, 19:42 **[ТС]**

подскажите как сделать!!!

@MsGuns · 08.07.2011, 10:01

Delphi
1
2
3
4
5
6
7
8
9
10
11
Begin
   if mtblh1.Fields[j - 1] is TBooleanField then
     begin
       if mtblh1.Fields[j - 1].AsBoolean then
          ArrayData[mtblh1.RecNo, J] := 'Да'
       else
          ArrayData[mtblh1.RecNo, J] := 'Нет';
      end
    else
       ArrayData[mtblh1.RecNo, J] := mtblh1.Fields[j - 1].Value;
End;

@Feelosoff · 08.07.2011, 18:28 **[ТС]**

я вставил этот код в свою процедуру, он выдает ошибки на

Code
1
[Warning] Unit1.pas(227): FOR-Loop variable 'j' may be undefined after loop

Добавлено через 6 часов 46 минут
разобрался! спасибо за помощь!!!

Добавлено через 17 секунд
разобрался! спасибо за помощь!!!

Новые блоги и статьи Все статьи Все блоги /
Часы электронные Uhbif79 12.08.2026 Выкладываю программу часов. Программа позволяет: 1. Использовать системное время и дату, 2. Есть возможность вводить время и дату вручную. 3. Реализованы 2 будильника: начало и конец рабочего дня. . . .	Часы с будильником на основе класса QLCDNumber Uhbif79 12.08.2026 Всем добрый день, выкладываю программу часов с будильником на основе класса QLCDNumber. Здесь я пробовал самостоятельно создавал классы, впервые столкнулся с видимостью переменной одного класса из. . .	Установка MinGW GCC 16.2 и CMake 8Observer8 10.08.2026 VK Видео: https:/ / vkvideo. ru/ video-240781534_456239017 YouTube: eY5-5PyI9NM Текстовая версия	Неделя из жизни имитационной модели склада: мои кривые руки растут, откуда надо anaschu 10.08.2026 Неделя из жизни имитационной модели склада: как я почти написал неправильную логику и что с этим делать Работаю сейчас над учебно-рабочим проектом: строю в AnyLogic имитационную модель процессов. . .
Калькулятор для расчета родства russiannick 07.08.2026 1. Задача: Создать калькулятор для расчета родства. Родственных связей существует 8 ступеней, такие как: p - отец P - мать q - муж Q - жена b - брат B - сестра s - сын S - дочь	Мир по моей воле kumehtar 07.08.2026 Когда-то кажется, что всё просто. Ты весь такой светлый. Причиняешь добро. Борешься за справедливость в этом тёмном мире. Потом начинаешь замечать одну неприятную вещь. Почти каждый хороший. . .	Кредитный калькулятор Maks 05.08.2026 Решение задачи по прикладной информатике средствами 1С. Задача: Напишите приложение-калькулятор, которое помогает рассчитывать параметры кредита для аннуитетного и дифференцированного видов. . .	У нас сейчас поговорку "Опять 25" нужно переделать на "Опять +35". kumehtar 04.08.2026 С ностальгией вспоминаю времена моего детства, когда у нас и правда +25 - была максимальная температура летом. Раньше +25 °C реально казались вершиной жары, когда можно было весь день пропадать на. . .

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131

	DBGridEh Access 06.06.2011, 09:42. Показов 8572. Ответов 87 Метки нет (Все метки) есть база данных, надо посчитать возраст человека и поставить "+" в нужную ячейку(от 15 до 23+ лет) средствами Delphi Добавлено через 18 минут достали меня с работы... нужно не плюс ставить а только в одной колонке возраст Добавлено через 25 секунд помогите кто может! очень надо 1

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	11.06.2011, 23:21
	Вы плохо читали статью. 1. Используйте не поячеечную пересылку,а массивом вариантов.\ 2. Используйте шаблоны Экселя, тогда отпадет необходимость объединения ячеек и присвоениея им нужных свойств в цикле 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	12.06.2011, 00:27 [ТС]
	если бы я знал как это сделать в статье не нашел этого 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	01.07.2011, 12:49 [ТС]
	подскажите как мне сделать шаблоны и что надо для этого в Delphi сделать? 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	01.07.2011, 15:30
	Про шаблоны Экселя наверное проще всего (и вернее) прочитать в справке самого Экселя, не правда ли ? Добавлено через 11 минут Правильная технология разработки отчетности заключается в максимально возможном отделении дизайна самой формы отчета и проектирования логики выборки данных с последующей группировкой, суммированием, анилитикой (синтезом) и т.д. Использование Excel в этом плане весьма неплохо вписывается в эту технологию, т.к.: 1) Эксель имеет мощные и удобные средства дизайна форма отчета, форматирования страниц, титулов, заголовков, подвалов и т.д. 2) Эксель умеет напрямую "лазить" в очень многие БД (ADO DB + Jet OS Windows), 3) Эксель имеет специальное средство работы с предварительно размеченными формами отчетов (шаблонами) 4) Эксель замечательно "подкручивается" бэйсиком, на котором можно написать до 90% агоритма формирования самого отчетьа, начиная от формирования и выполнения запросов к базам данных (большинству промышленных баз, а уж с акцесом и MS SQL Server работает как с родными, что в общем-то не удивительно 5) Эксель имеет достаточно широкий спектр визуальных элементов для построения диаогов с пользователем 6) Эксель установлен на подавляющем большинстве ПК с ОС Windows и поэтому не требует никаких доинсталляций. 7) Эксель вполне мобилен и при правильном программировании отчет спокойно "переезжает" с одной редакции офиса на другую Добавлено через 22 минуты Вот простейшая схема проектирования СИСТЕМЫ отчетов: 1) На SQL сервере создается БД отчетов и пишется небольшая программа (например на Delphi) которая позволяет добавлять в эту базу новаые отчеты и вносить поправки в уже существующие 2) В этой Базе главный объект - "Отчет", у которого следующие осн.характеристики: - Название отчета как пункта меню - Текст SQL запроса (обычно хранимка с параметрами) на выборку информации для отчета к проблемной БД - Форма или шаблон экселя для запроса параметров отчета для подстановки в хранимку - Шаблон Экселя - Имя стартового макроса Экселя если запуск процедуры формирования вне Экселя (например кнопка на форме Delphi) - Список пользователей, имеющих доступ к отчету 3) Шаблон экселя представляет собою во-первых форму отчета с полной разметкой (титулы, заголовки колонок, колонтитулы, шрифты, стили, форматы и т.д.), а во-вторых коллекцию макросов, выполняющих "разноску" полученного от сервера датасета по ячейкам печатного листа, а также реализующих все "навороты" от простого суммирования итогов до построения графиков и отправки электронной почты. Прикладная программа считывает из базы отчетов данные и отображает текущее меню в соответствии с пользователем (ПК). При выборе пункта меню программа извлекает из БД шаблон, сохраняет его на локальном диске (в Temp), после чего либо передает ему управление либо сразу либо предварительно выполняет запрос параметров, установливает соединение с сервером и запускает хранимку. По пролучении данных запускается стартовый макрос, который делает все остальное (т.е. фактически формирует отчет) Такая система замечательна тем, что проектирование как самого отчета, так и логики выборки данных и обработки полученных результатов совершенно не зависит от среды разработки приложения (Делфи в данном случае). При этой системе отсутствует как класс деплой и инсталл, измененный (добавленный) админом (проектировщиком) отчет тут же становится досиупным всем пользователям сети. А это уже качественно новый уровень разработки, не требующий сопровождения Делфи-проектов (тот, кто занимался саппортом проектов прекрасно понимаю о чем речь) и сопутствующих ему затрат (как материально-временных, так и кадровых) Конечно, спроектировать подобную систему "с нуля" значительно сложнее, чем склепать очередной типовой отчетец в каком-нибудь фаст-репорте, но окупают себя потраченные усилия довольно скоро и особенно эффективны при большом кол-ве разнообразных отчетов и (главное !) частой их правке ! 1

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	01.07.2011, 17:22 [ТС]
	сделал через шаблоны. все работает почти как надо. только один вопрос, надеюсь последний у меня в одном столбце передаются данные с чекбокса(истина, ложь), а мне надо что бы отображалось в отчете ДА, НЕТ Данные передаю массивом 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	02.07.2011, 17:37 [ТС]
	подскажите как сделать!!! 0

@natalo4ka 43 / 0 / 0 Регистрация: 01.07.2011 Сообщений: 17
	02.07.2011, 17:43
	MsGuns, обясните как написать... используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи. если введена последовательность чисел образует арифметическую прогрессию, то найти произведение n членов этой прогрессии, в противном случае-упорядочить элементы последовательности в в нисходящем порядке. Добавлено через 2 минуты Feelosoff, обясните как написать... используя компоненты Edit, SpinEdit и StringGrid создать проект для решения следующей задачи. если введена последовательность чисел образует арифметическую прогрессию, то найти произведение n членов этой прогрессии, в противном случае-упорядочить элементы последовательности в в нисходящем порядке. 0

@Pasha-1990 0 / 0 / 1 Регистрация: 09.04.2011 Сообщений: 124
	03.07.2011, 19:54
	http://fiftry.com/?ref=2809624 зайдите на сайт,зарегистрируйтесь,просмотрите рекламу и получайте деньги! 0

@Шота 0 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 10
	04.07.2011, 00:41
	Добрый вечер.У меня вопрос следующего характера помогите плиз.Как можно в эксель ставить время и дату .Можно ли текущее время фиксировать по кнопке, для следующего сравнении времени.Ctirl+Ж и Ctirl+Shift+Ж Не работает... Добавлено через 7 минут Добрый вечер.У меня вопрос следующего характера помогите плиз.Как можно в эксель ставить время и дату .Можно ли текущее время фиксировать по кнопке, для следующего сравнении времени.Ctirl+Ж и Ctirl+Shift+Ж Не работает... 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	05.07.2011, 10:16 [ТС]
	сделал через шаблоны. все работает почти как надо. только один вопрос, надеюсь последний у меня в одном столбце передаются данные с чекбокса(истина, ложь), а мне надо что бы отображалось в отчете ДА, НЕТ Данные передаю массивом 0

@Шота 0 / 0 / 0 Регистрация: 03.07.2011 Сообщений: 10
	05.07.2011, 14:37
	Люди кто самной переписывался не могу найти по поводу формул в эксель. 0

@Feelosoff 11 / 11 / 2 Регистрация: 05.01.2009 Сообщений: 131
	07.07.2011, 19:42 [ТС]
	подскажите как сделать!!! 0