Что делает эта функция

18.01.2013, 02:28. **Показов** 575. **Ответов** 1

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

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
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
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
String q,z;
String x,s,g,X;
q="";
if(Form16->RadioGroup1->ItemIndex==0)
{
q="01";
z="Январь";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==1)
{
z="Февраль";
q="02";
x="28.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==2)
{
q="03";
z="Март";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==3)
{
q="04";
z="Апрель";
x="30.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==4)
{
q="05";
z="Май";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==5)
{
q="06";
z="Июнь";
x="30.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==6)
{
q="07";
z="Июль";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==7)
{
z="Август";
q="08";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==8)
{
z="Сентябрь";
q="09";
x="30.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==9)
{
z="Октябрь";
q="10";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==10)
{
z="Ноябрь";
q="11";
x="30.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
if(Form16->RadioGroup1->ItemIndex==11)
{
z="Декабрь";
q="12";
x="31.";
x=x+q;
x=x+".";
x=x+MaskEdit1->Text;
X=q+"."+"01."+MaskEdit1->Text;
}
 
 
if(MaskEdit1->Text=="    ")
{
Application->MessageBoxA("Введите год","Предупреждения!",MB_OK);
}
if(Form16->RadioGroup1->ItemIndex==-1)
{
Application->MessageBoxA("Месяц не выбран","Предупреждения!",MB_OK);
}
if(Edit1->Text=="")
{
Application->MessageBoxA("Не задан номер акта","Предупреждения!",MB_OK);
}
if((MaskEdit1->Text!="    ") && (Form16->RadioGroup1->ItemIndex!=-1) && (Edit1->Text!=""))
{
int i,k;
 
for(i=1;i<X.Length();i++)
if (X[i]=='.')
{
X.Delete(i,1);
X.Insert("/",i);
}
for(i=1;i<x.Length();i++)
if (x[i]=='.')
{
x.Delete(i,1);
x.Insert("/",i);
}
s=AnsiString(x);
s.Delete(3,10);
g=AnsiString(x);
g.Delete(1,3);
g.Delete(3,10);
x.Delete(1,2);
x.Insert(g,0);
x.Delete(4,2);
x.Insert(s,4);
 
 
ADOQuery1->Close();
ADOQuery1->SQL->Clear();
ADOQuery1->SQL->Text="SELECT SpravicnikTovarov.NazvTov, SpravicnikTovarov.Ed_izmerenia, SpisaniaMbp2.Kol, SpravicnikTovarov.Cena_za_ed, [SpravicnikTovarov]![Cena_za_ed]*[SpisaniaMbp2]![Kol] AS Выражение1, SpisaniaMbp1.Data FROM SpravicnikTovarov INNER JOIN (SpisaniaMbp1 INNER JOIN SpisaniaMbp2 ON SpisaniaMbp1.NomVed = SpisaniaMbp2.NomVed) ON SpravicnikTovarov.Id_tovara = SpisaniaMbp2.Id_tovara WHERE SpisaniaMbp1.Data Between #"+X+"# And #"+x+"#";
ADOQuery1->Open();
 
if(Form16->ADOQuery1->RecordCount==0)
{
Application->MessageBoxA("Отчет не создан, нет записей в этом интервале","Предупреждения!",MB_OK);
}
else
{
((TfrxMemoView *) frxReport1->FindObject("Memo3"))->Text = Edit1->Text;
 
String k;
k=z;
k=k+" "+MaskEdit1->Text;
((TfrxMemoView *) frxReport1->FindObject("Memo6"))->Text =k;
Form16->frxReport1->ShowReport();
 
}
}

@Neal · 18.01.2013, 22:03

Функция показывает отчет справочника товаров за выбранный месяц и год.

Добавлено через 1 час 26 минут
Я бы мог разобрать код по строкам, но, думаю, этого не понадобится.

Новые блоги и статьи Все статьи Все блоги /
Как использовать OAuth2 со Spring Security в Java Javaican 14.05.2025 Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .	Анализ текста на Python с NLTK и Spacy AI_Generated 14.05.2025 NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .	Реализация DI в PHP Jason-Webb 13.05.2025 Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .	Обработка изображений в реальном времени на C# с OpenCV stackOverflow 13.05.2025 Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .	POCO, ACE, Loki и другие продвинутые C++ библиотеки NullReferenced 13.05.2025 В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C# UnmanagedCoder 13.05.2025 Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .	Создаем CLI приложение на Python с Prompt Toolkit py-thonny 13.05.2025 Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .	Конвейеры ETL с Apache Airflow и Python AI_Generated 13.05.2025 ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .	Выполнение асинхронных задач в Python с asyncio py-thonny 12.05.2025 Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .	Работа с gRPC сервисами на C# UnmanagedCoder 12.05.2025 gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .

@Neal 83 / 78 / 14 Регистрация: 14.06.2012 Сообщений: 261
	18.01.2013, 22:03
	Функция показывает отчет справочника товаров за выбранный месяц и год. Добавлено через 1 час 26 минут Я бы мог разобрать код по строкам, но, думаю, этого не понадобится. 0

Опции темы