Форум программистов, компьютерный форум, киберфорум
C++ Builder
Форум программистов и сисадминов Киберфорум > Форум программистов > C/C++ > C++ > C++ Builder
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
1 из 2 1 2 »
 
Рейтинг 4.56/48: Рейтинг темы: голосов - 48, средняя оценка - 4.56
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18

Устранить ошибки

27.05.2012, 18:02. Показов 10270. Ответов 39
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Вот как выглядит собственно текст ошибки:
(C++ Ошибка)Unit 2.cpp(84):E2089 Identifier 'Button 5 Click' cannot have a type qualifier;
(C++ Ошибка)Unit 2.cpp(407):E2139 Declaration missing;
(C++ Ошибка)Unit 2.cpp(407):E2134 Compound statement missing.
 Комментарий модератора 
Цитата Сообщение от AsikA Посмотреть сообщение
ВЫДАЕТ ОШИБКУ В КОДЕ, ПОМОГИТЕ УСТРАНИТЬ
Caps lock off. Следующая тема с подобным заголовком будет удалена без предупреждений.
0
Лучшие ответы (1)
Сообщение: #3092767
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 27.05.2012, 18:02
Ответы с готовыми решениями:

Как найти и устранить утечку памяти
Программа в ходе ее выполнения разрастается. Я не могу найти где именно происходит утечка. В Unit1 обрабатываются события двух кнопок. Одна...

Как устранить ошибку invalid class typecast?
void __fastcall TForm1::Button2Click(TObject *Sender) { ADOTable1->Edit(); TMemoryStream* strm = new TMemoryStream(); ...

Помогите устранить ошибку: Access violation at address
for(int k = 0; k < 10; k++) { for(int l = 0; l < 30; l++) ...

39
 Аватар для Aleator
102 / 87 / 17
Регистрация: 04.05.2011
Сообщений: 1,330
27.05.2012, 18:13
Больше информации о проекте могло бы помочь.
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
27.05.2012, 18:28  [ТС]
Тема проекта: Система контроля за рациональным и экономичным использованием материальных ресурсов на предприятии
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
27.05.2012, 18:30
Он имел ввиду часть кода выложи где ошибка, чем больше покажеш тем легче будет сообществу разобраться.
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
27.05.2012, 18:53  [ТС]
как решать подобные ошибки или же это и не ошибка вовсе, а проблема в самом билдере?

Добавлено через 1 минуту
сейчас попробую

Добавлено через 21 минуту
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398

#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N5Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N15Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N6Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N7Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N10Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::N1Click(TObject *Sender)
{
Form2->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table1AfterScroll(TDataSet *DataSet)
{
Edit1->Text = Table1->FieldByName("Nomer_zakupki")->AsString;
Edit2->Text = Table1->FieldByName("Predmet_pokupki")->AsString;
Edit3->Text = Table1->FieldByName("Postavshik")->AsString;
Edit4->Text = Table1->FieldByName("Polnoe_naimenovanie")->AsString;
Edit5->Text = Table1->FieldByName("Strana_proizvoditel")->AsString;
Edit6->Text = Table1->FieldByName("Firma_proizvoditel")->AsString;
Edit7->Text = Table1->FieldByName("Data_pokupki")->AsString;
Edit8->Text = Table1->FieldByName("Cena_za_edinicu")->AsString;
Edit9->Text = Table1->FieldByName("Skidka")->AsString;
ComboBox1->Text = Table1->FieldByName("Tip_zakupki")->AsString;
Edit10->Text = Table1->FieldByName("RKO")->AsString;
Edit11->Text = Table1->FieldByName("Kolichestvo")->AsString;
Edit12->Text = Table1->FieldByName("Garantiyniy_period")->AsString;
Edit13->Text = Table1->FieldByName("Ed_izm")->AsString;
ComboBox3->Text = Table1->FieldByName("Sposob_postuplenia")->AsString;
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button5Click(TObject *Sender)
{
Table2->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button7Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table2->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table2AfterScroll(TDataSet *DataSet)
{
Edit14->Text = Table2->FieldByName("Дата расхода")->AsString;
Edit15->Text = Table2->FieldByName("Источник затрат")->AsString;
Edit16->Text = Table2->FieldByName("Сумма затрат")->AsString;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button14Click(TObject *Sender)
{
const AnsiString s1=", ";
s="";
if (Table2->FieldByName("Дата расхода")->AsString!=Edit14->Text)
{
        if (s !="") s+=s1;
      s+= "Дата расхода";
}
if(Table2->FieldByName("Источник затрат")->AsString!=Edit15->Text)
{
       if (s !="") s+=s1;
      s+="Источник затрат";
}
if(Table2->FieldByName("Сумма затрат")->AsString!=Edit16->Text)
{
        if (s !="") s+=s1;
     s+="Сумма затрат";
}
if (s !="")
{
if ( Application->MessageBox(
       ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table2->Edit();
Table2->FieldByName("Дата расхода")->AsString=Edit14->Text;
Table2->FieldByName("Источник затрат")->AsString=Edit15->Text;
Table2->FieldByName("Сумма затрат")->AsString=Edit16->Text;
Table2->Post();
}}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button15Click(TObject *Sender)
{
Table3->Insert();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button16Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table3->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table1AfterScroll(TDataSet *DataSet)
{
Edit17->Text = Table3->FieldByName("PKO №")->AsString;
Edit18->Text = Table3->FieldByName("Istochnik_zatrat")->AsString;
Edit19->Text = Table3->FieldByName("Data_rashoda")->AsString;
Edit20->Text = Table3->FieldByName("Predmet_rashoda")->AsString;
Edit21->Text = Table3->FieldByName("Ed_izm")->AsString;
Edit22->Text = Table3->FieldByName("Kolichestvo")->AsString;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button10Click(TObject *Sender)
{
const AnsiString s1=", ";
s="";
if (Table3->FieldByName("PKO №")->AsString!=Edit17->Text)
{
        if (s !="") s+=s1;
      s+= "PKO №";
}
if(Table3->FieldByName("Istochnik_zatrat")->AsString!=Edit18->Text)
{
       if (s !="") s+=s1;
      s+="Istochnik_zatrat";
}
if(Table3->FieldByName("Data_rashoda")->AsString!=Edit19->Text)
{
        if (s !="") s+=s1;
     s+="Data_rashoda";
}
if(Table3->FieldByName("Predmet_rashoda")->AsString!=Edit20->Text)
{
        if (s !="") s+=s1;
     s+="Predmet_rashoda";
}
if(Table3->FieldByName("Ed_izm")->AsString!=Edit21->Text)
{
        if (s !="") s+=s1;
     s+="Ed_izm";
}
if(Table3->FieldByName("Kolichestvo")->AsString!=Edit22->Text)
{
        if (s !="") s+=s1;
     s+="Kolichestvo";
}
if (s !="")
{
if ( Application->MessageBox(
       ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table3->Edit();
Table3->FieldByName("PKO №")->AsString=Edit17->Text;
Table3->FieldByName("Istochnik_zatrat")->AsString=Edit18->Text;
Table3->FieldByName("Data_rashoda")->AsString=Edit19->Text;
Table3->FieldByName("Predmet_rashoda")->AsString=Edit20->Text;
Table3->FieldByName("Ed_izm")->AsString=Edit21->Text;
Table3->FieldByName("Kolichestvo")->AsString=Edit22->Text;
Table3->Post();
}}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button12Click(TObject *Sender)
{
Form5->QuickRep1->Preview();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button13Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Вы действительно хотите распечатать?",
        "подтвердите",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Form5->QuickRep1->Print();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::FormCreate(TObject *Sender)
{
Edit1->Text = Table1->FieldByName("Nomer_zakupki")->AsString;
Edit2->Text = Table1->FieldByName("Predmet_pokupki")->AsString;
Edit3->Text = Table1->FieldByName("Postavshik")->AsString;
Edit4->Text = Table1->FieldByName("Polnoe_naimenovanie")->AsString;
Edit5->Text = Table1->FieldByName("Strana_proizvoditel")->AsString;
Edit6->Text = Table1->FieldByName("Firma_proizvoditel")->AsString;
Edit7->Text = Table1->FieldByName("Data_pokupki")->AsString;
Edit8->Text = Table1->FieldByName("Cena_za_edinicu")->AsString;
Edit9->Text = Table1->FieldByName("Skidka")->AsString;
ComboBox1->Text = Table1->FieldByName("Tip_zakupki")->AsString;
Edit10->Text = Table1->FieldByName("RKO")->AsString;
Edit11->Text = Table1->FieldByName("Kolichestvo")->AsString;
Edit12->Text = Table1->FieldByName("Garantiyniy_period")->AsString;
Edit13->Text = Table1->FieldByName("Ed_izm")->AsString;
ComboBox3->Text = Table1->FieldByName("Sposob_postuplenia")->AsString;
Edit14->Text = Table2->FieldByName("Дата расхода")->AsString;
Edit15->Text = Table2->FieldByName("Источник затрат")->AsString;
Edit16->Text = Table2->FieldByName("Сумма затрат")->AsString;
Edit17->Text = Table3->FieldByName("PKO №")->AsString;
Edit18->Text = Table3->FieldByName("Istochnik_zatrat")->AsString;
Edit19->Text = Table3->FieldByName("Data_rashoda")->AsString;
Edit20->Text = Table3->FieldByName("Predmet_rashoda")->AsString;
Edit21->Text = Table3->FieldByName("Ed_izm")->AsString;
Edit22->Text = Table3->FieldByName("Kolichestvo")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button18Click(TObject *Sender)
{
Table1->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button3Click(TObject *Sender)
{
if ( Application->MessageBox("Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table1->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button2Click(TObject *Sender)
{
const AnsiString s1=", ";
s="";
if (Table1->FieldByName("Nomer_zakupki")->AsString!=Edit1->Text)
{
        if (s !="") s+=s1;
      s+= "Nomer_zakupki";
}
if(Table1->FieldByName("Predmet_pokupki")->AsString!=Edit2->Text)
{
       if (s !="") s+=s1;
      s+="Predmet_pokupki";
}
if(Table1->FieldByName("Postavshik")->AsString!=Edit3->Text)
{
        if (s !="") s+=s1;
     s+="Postavshik";
}
if(Table1->FieldByName("Polnoe_naimenovanie")->AsString!=Edit4->Text)
{
        if (s !="") s+=s1;
     s+="Polnoe_naimenovanie";
}
 
if(Table1->FieldByName("Strana_proizvoditel")->AsString!=Edit5->Text)
{
        if (s !="") s+=s1;
     s+="Strana_proizvoditel";
}
if(Table1->FieldByName("Firma_proizvoditel")->AsString!=Edit6->Text)
{
        if (s !="") s+=s1;
     s+="Firma_proizvoditel";
}
if(Table1->FieldByName("Data_pokupki")->AsString!=Edit7->Text)
{
        if (s !="") s+=s1;
     s+="Data_pokupki";
}
 
if(Table1->FieldByName("Cena_za_edinicu")->AsString!=Edit8->Text)
{
        if (s !="") s+=s1;
     s+="Cena_za_edinicu";
}
if(Table1->FieldByName("Skidka")->AsString!=Edit9->Text)
{
        if (s !="") s+=s1;
     s+="Skidka";
}
if(Table1->FieldByName("Tip_zakupki")->AsString!=ComboBox1->Text)
{
        if (s !="") s+=s1;
     s+="Tip_zakupki";
}
if(Table1->FieldByName("RKO")->AsString!=Edit10->Text)
{
        if (s !="") s+=s1;
     s+="RKO";
}
if(Table1->FieldByName("Kolichestvo")->AsString!=Edit11->Text)
{
        if (s !="") s+=s1;
     s+="Kolichestvo";
}
if(Table1->FieldByName("Garantiyniy_period")->AsString!=Edit12->Text)
{
        if (s !="") s+=s1;
     s+="Garantiyniy_period";
}
if(Table1->FieldByName("Ed_izm")->AsString!=Edit13->Text)
{
        if (s !="") s+=s1;
     s+="Ed_izm";
}
if(Table1->FieldByName("Sposob_postuplenia")->AsString!=ComboBox3->Text)
{
        if (s !="") s+=s1;
     s+="Sposob_postuplenia";
}
 
    if (s !="")
{
if ( Application->MessageBox(
                ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table1->Edit();
Table1->FieldByName("Nomer_zakupki")->AsString=Edit1->Text;
Table1->FieldByName("Predmet_pokupki")->AsString=Edit2->Text;
Table1->FieldByName("Postavshik")->AsString=Edit3->Text;
Table1->FieldByName("Polnoe_naimenovanie")->AsString=Edit4->Text;
Table1->FieldByName("Strana_proizvoditel")->AsString=Edit5->Text;
Table1->FieldByName("Firma_proizvoditel")->AsString=Edit6->Text;
Table1->FieldByName("Data_pokupki")->AsString=Edit7->Text;
Table1->FieldByName("Cena_za_edinicu")->AsString=Edit8->Text;
Table1->FieldByName("Skidka")->AsString=Edit9->Text;
Table1->FieldByName("Tip_zakupki")->AsString=ComboBox1->Text;
Table1->FieldByName("RKO")->AsString=Edit10->Text;
Table1->FieldByName("Kolichestvo")->AsString=Edit11->Text;
Table1->FieldByName("Garantiyniy_period")->AsString=Edit12->Text;
Table1->FieldByName("Ed_izm")->AsString=Edit13->Text;
Table1->FieldByName("Sposob_postuplenia")->AsString=ComboBox3->Text;
Table1->Post();
}
}
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button4Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table1->Delete();
}
//---------------------------------------------------------------------------
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
27.05.2012, 19:05
Я чет тоже не нахожу ошибку, фигурные скобки все вроде парные и стоять вроде правильно может просто попробуйте кнопку удалить и по новой создать и добавить туда событие.
C++
1
2
3
4

void __fastcall TForm2::Button5Click(TObject *Sender)
 {
 Table2->Insert();
 }
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
27.05.2012, 19:08
C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

void __fastcall TForm2::Table1AfterScroll(TDataSet *DataSet)
 {
 Edit1->Text = Table1->FieldByName("Nomer_zakupki")->AsString;
 Edit2->Text = Table1->FieldByName("Predmet_pokupki")->AsString;
 Edit3->Text = Table1->FieldByName("Postavshik")->AsString;
 Edit4->Text = Table1->FieldByName("Polnoe_naimenovanie")->AsString;
 Edit5->Text = Table1->FieldByName("Strana_proizvoditel")->AsString;
 Edit6->Text = Table1->FieldByName("Firma_proizvoditel")->AsString;
 Edit7->Text = Table1->FieldByName("Data_pokupki")->AsString;
 Edit8->Text = Table1->FieldByName("Cena_za_edinicu")->AsString;
 Edit9->Text = Table1->FieldByName("Skidka")->AsString;
 ComboBox1->Text = Table1->FieldByName("Tip_zakupki")->AsString;
 Edit10->Text = Table1->FieldByName("RKO")->AsString;
 Edit11->Text = Table1->FieldByName("Kolichestvo")->AsString;
 Edit12->Text = Table1->FieldByName("Garantiyniy_period")->AsString;
 Edit13->Text = Table1->FieldByName("Ed_izm")->AsString;
 ComboBox3->Text = Table1->FieldByName("Sposob_postuplenia")->AsString;
} // !!!!!!!!!!!!!!!!!!!! Скобка была потеряна
//---------------------------------------------------------------------------
void __fastcall TForm2::Button5Click(TObject *Sender)
{
Table2->Insert();
}
Подозреваю что гдето еще есть лишняя
0
 Аватар для Samrisbe
1365 / 732 / 67
Регистрация: 28.01.2011
Сообщений: 2,069
27.05.2012, 19:11
Как потеряна? вот человека код там есть скобка...
Миниатюры
Устранить ошибки  
0
wtf!?
 Аватар для Flyer
750 / 281 / 25
Регистрация: 21.05.2010
Сообщений: 732
27.05.2012, 19:20
Не там смотришь, Samrisbe
Нету скобки
C++
1
2
3
4
5
6
7
8

ComboBox3->Text = Table1->FieldByName("Sposob_postuplenia")->AsString;
// вот тут должна быть но ее нема
 //---------------------------------------------------------------------------
 
 void __fastcall TForm2::Button5Click(TObject *Sender)
 {
 Table2->Insert();
 }
1
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
27.05.2012, 21:11  [ТС]
[C++ Ошибка] Unit2.cpp(111): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(112): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(117): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(122): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(160): E2171 Body has already been defined for function '_fastcall TForm2::Table1AfterScroll(TDataSet *)'
[C++ Ошибка] Unit2.cpp(173): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(174): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(179): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(184): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(189): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(194): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(199): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(285): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(286): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(291): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(296): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(301): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(307): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(312): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(317): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(323): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(328): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(333): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(338): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(343): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(343): E2228 Too many error or warning messages

Добавлено через 1 минуту
Я добавила скобочку, теперь выдает эти ошибки
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
27.05.2012, 21:15
Укажите номер строки в коде в которой выдает ошибки
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
28.05.2012, 01:39  [ТС]
[C++ Ошибка] Unit2.cpp(111): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(112): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(117): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(122): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(160): E2171 Body has already been defined for function '_fastcall TForm2::Table1AfterScroll(TDataSet *)'
[C++ Ошибка] Unit2.cpp(173): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(174): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(179): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(184): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(189): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(194): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(199): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(285): E2451 Undefined symbol 's'
[C++ Ошибка] Unit2.cpp(286): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(291): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(296): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(301): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(307): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(312): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(317): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(323): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(328): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(333): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(338): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(343): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(343): E2228 Too many error or warning messages

Добавлено через 2 часа 57 минут
Я тут исправила кое-что, теперь выдает только такую ошибку:


[C++ Ошибка] Unit2.cpp(162): E2171 Body has already been defined for function '_fastcall TForm2::Table1AfterScroll(TDataSet *)'
[C++ Ошибка] Unit2.cpp(178): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(183): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(188): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(193): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(198): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(203): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(291): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(296): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(301): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(306): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(312): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(317): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(322): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(328): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(333): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(338): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(343): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(348): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(353): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(358): E2096 Illegal structure operation
[C++ Ошибка] Unit2.cpp(363): E2096 Illegal structure operation
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
28.05.2012, 01:59
Укажите номер строки в коде в которой выдает ошибки
!!!!!!
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
28.05.2012, 03:30  [ТС]
[C++ Ошибка] Unit3.cpp(325): E2451 Undefined symbol 'Edit23' // НОМЕР СТРОКИ-325
[C++ Ошибка] Unit3.cpp(326): E2451 Undefined symbol 'Edit24' // НОМЕР СТРОКИ-326
[C++ Ошибка] Unit3.cpp(327): E2451 Undefined symbol 'Edit25' // НОМЕР СТРОКИ-327
[C++ Ошибка] Unit3.cpp(328): E2451 Undefined symbol 'Edit26' // НОМЕР СТРОКИ-328
[C++ Ошибка] Unit3.cpp(336): E2096 Illegal structure operation // НОМЕР СТРОКИ-336
[C++ Ошибка] Unit3.cpp(341): E2096 Illegal structure operation // НОМЕР СТРОКИ-341
[C++ Ошибка] Unit3.cpp(346): E2096 Illegal structure operation // НОМЕР СТРОКИ-346
[C++ Ошибка] Unit3.cpp(351): E2096 Illegal structure operation // НОМЕР СТРОКИ-351
[C++ Ошибка] Unit3.cpp(357): E2096 Illegal structure operation // НОМЕР СТРОКИ-357



сейчас выложу и измененный код

Добавлено через 3 минуты
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N11Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N16Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N17Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::N1Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Table1->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button3Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table1->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table1AfterScroll(TDataSet *DataSet)
{
Edit1->Text = Table1->FieldByName("Dokum_№")->AsString;
Edit2->Text = Table1->FieldByName("Naim_org")->AsString;
Edit3->Text = Table1->FieldByName("Data_sostavlenia")->AsString;
Edit4->Text = Table1->FieldByName("Debet")->AsString;
Edit5->Text = Table1->FieldByName("Kredit")->AsString;
Edit6->Text = Table1->FieldByName("Summa")->AsString;
Edit7->Text = Table1->FieldByName("Prinyato_ot")->AsString;
Edit8->Text = Table1->FieldByName("Osnovanie")->AsString;
Edit9->Text = Table1->FieldByName("Glavniy_buhgalter")->AsString;
Edit10->Text = Table1->FieldByName("Kassir")->AsString;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button2Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table1->FieldByName("Dokum_№")->AsString!=Edit1->Text)
{
        if (s !="") s+=s1;
      s+= "Dokum_№";
}
if(Table1->FieldByName("Naim_org")->AsString!=Edit2->Text)
{
       if (s !="") s+=s1;
      s+="Naim_org";
}
if(Table1->FieldByName("Data_sostavlenia")->AsString!=Edit3->Text)
{
        if (s !="") s+=s1;
     s+="Data_sostavlenia";
}
if(Table1->FieldByName("Debet")->AsString!=Edit4->Text)
{
        if (s !="") s+=s1;
     s+="Debet";
}
 
if(Table1->FieldByName("Kredit")->AsString!=Edit5->Text)
{
        if (s !="") s+=s1;
     s+="Kredit";
}
if(Table1->FieldByName("Summa")->AsString!=Edit6->Text)
{
        if (s !="") s+=s1;
     s+="Summa";
}
if(Table1->FieldByName("Prinyato_ot")->AsString!=Edit7->Text)
{
        if (s !="") s+=s1;
     s+="Prinyato_ot";
}
 
if(Table1->FieldByName("Osnovanie")->AsString!=Edit8->Text)
{
        if (s !="") s+=s1;
     s+="Osnovanie";
}
if(Table1->FieldByName("Glavniy_buhgalter")->AsString!=Edit9->Text)
{
        if (s !="") s+=s1;
     s+="Glavniy_buhgalter";
}
if(Table1->FieldByName("Kassir")->AsString!=Edit10->Text)
{
        if (s !="") s+=s1;
     s+="Kassir";
}
   if (s !="")
{
if ( Application->MessageBox(
                ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table1->Edit();
Table1->FieldByName("Dokum_№")->AsString=Edit1->Text;
Table1->FieldByName("Naim_org")->AsString=Edit2->Text;
Table1->FieldByName("Data_sostavlenia")->AsString=Edit3->Text;
Table1->FieldByName("Debet")->AsString=Edit4->Text;
Table1->FieldByName("Kredit")->AsString=Edit5->Text;
Table1->FieldByName("Summa")->AsString=Edit6->Text;
Table1->FieldByName("Prinyato_ot")->AsString=Edit7->Text;
Table1->FieldByName("Osnovanie")->AsString=Edit8->Text;
Table1->FieldByName("Glavniy_buhgalter")->AsString=Edit9->Text;
Table1->FieldByName("Kassir")->AsString=Edit10->Text;
Table1->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button8Click(TObject *Sender)
{
Table2->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button11Click(TObject *Sender)
{
Table3->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button10Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table2->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button13Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Действительно хотите удалить запись?",
        "Подтвердите решение",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Table3->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button6Click(TObject *Sender)
{
Form4->QuickRep1->Preview();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button7Click(TObject *Sender)
{
if ( Application->MessageBox(
        "Вы действительно хотите распечатать?",
        "подтвердите",
        MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
        Form4->QuickRep1->Print();        
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table2AfterScroll(TDataSet *DataSet)
{
Edit11->Text = Table2->FieldByName("Naim_org")->AsString;
Edit12->Text = Table2->FieldByName("Nomer_dok")->AsString;
Edit13->Text = Table2->FieldByName("Data_sostavlenia")->AsString;
Edit14->Text = Table2->FieldByName("Debet")->AsString;
Edit15->Text = Table2->FieldByName("Kredit")->AsString;
Edit16->Text = Table2->FieldByName("Summa")->AsString;
Edit17->Text = Table2->FieldByName("Vidat")->AsString;
Edit18->Text = Table2->FieldByName("Osnovanie")->AsString;
Edit19->Text = Table2->FieldByName("Ruk_organizacii")->AsString;
Edit20->Text = Table2->FieldByName("Glavniy_buhgalter")->AsString;
Edit21->Text = Table2->FieldByName("Kassir")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table2->FieldByName("Naim_org")->AsString!=Edit11->Text)
{
        if (s !="") s+=s1;
      s+= "Naim_org";
}
if(Table2->FieldByName("Nomer_dok")->AsString!=Edit12->Text)
{
       if (s !="") s+=s1;
      s+="Nomer_dok";
}
if(Table2->FieldByName("Data_sostavlenia")->AsString!=Edit13->Text)
{
        if (s !="") s+=s1;
     s+="Data_sostavlenia";
}
if(Table2->FieldByName("Debet")->AsString!=Edit14->Text)
{
        if (s !="") s+=s1;
     s+="Debet";
}
 
if(Table2->FieldByName("Kredit")->AsString!=Edit15->Text)
{
        if (s !="") s+=s1;
     s+="Kredit";
}
if(Table1->FieldByName("Summa")->AsString!=Edit16->Text)
{
        if (s !="") s+=s1;
     s+="Summa";
}
if(Table2->FieldByName("Vidat")->AsString!=Edit17->Text)
{
        if (s !="") s+=s1;
     s+="Vidat";
}
 
if(Table2->FieldByName("Osnovanie")->AsString!=Edit18->Text)
{
        if (s !="") s+=s1;
     s+="Osnovanie";
}
if(Table2->FieldByName("Ruk_organizacii")->AsString!=Edit19->Text)
{
        if (s !="") s+=s1;
     s+="Ruk_organizacii";
}
if(Table2->FieldByName("Glavniy_buhgalter")->AsString!=Edit20->Text)
{
        if (s !="") s+=s1;
     s+="Glavniy_buhgalter";
}
if(Table2->FieldByName("Kassir")->AsString!=Edit21->Text)
{
        if (s !="") s+=s1;
     s+="Kassir";
}
   if (s !="")
{
if ( Application->MessageBox(
                ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table2->Edit();
Table2->FieldByName("Naim_org")->AsString=Edit11->Text;
Table2->FieldByName("Nomer_dok")->AsString=Edit12->Text;
Table2->FieldByName("Data_sostavlenia")->AsString=Edit13->Text;
Table2->FieldByName("Debet")->AsString=Edit14->Text;
Table2->FieldByName("Kredit")->AsString=Edit15->Text;
Table2->FieldByName("Summa")->AsString=Edit16->Text;
Table2->FieldByName("Vidat")->AsString=Edit17->Text;
Table2->FieldByName("Osnovanie")->AsString=Edit18->Text;
Table2->FieldByName("Ruk_organizacii")->AsString=Edit19->Text;
Table2->FieldByName("Glavniy_buhgalter")->AsString=Edit20->Text;
Table2->FieldByName("Kassir")->AsString=Edit21->Text;
Table2->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table3AfterScroll(TDataSet *DataSet)
{
Edit22->Text = Table3->FieldByName("На дату")->AsString;
Edit23->Text = Table3->FieldByName("Место издержки")->AsString; // ошибка
Edit24->Text = Table3->FieldByName("Отклонение от норматива")->AsString; // ошибка
Edit25->Text = Table3->FieldByName("Статья затрат")->AsString; // ошибка
Edit26->Text = Table3->FieldByName("Экономия/Затратность")->AsString; // ошибка
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table3->FieldByName("На дату")->AsString!=Edit22->Text) // ошибка
{
        if (s !="") s+=s1;
      s+= "На дату";
}
if(Table3->FieldByName("Место издержки")->AsString!=Edit23->Text) // ошибка
{
       if (s !="") s+=s1;
      s+="Место издержки";
}
if(Table3->FieldByName("Отклонение от норматива")->AsString!=Edit24->Text) // ошибка
{
        if (s !="") s+=s1;
     s+="Отклонение от норматива";
}
if(Table3->FieldByName("Статья затрат")->AsString!=Edit25->Text) // ошибка
{
        if (s !="") s+=s1;
     s+="Статья затрат";
}
 
if(Table3->FieldByName("Экономия/Затратность")->AsString!=Edit26->Text) // ошибка
{
        if (s !="") s+=s1;
     s+="Экономия/Затратность";
}
   if (s !="")
{
if ( Application->MessageBox(
                ("Действительно хотите изменить запись?"+s+"?").c_str(),
        "Подтвердите изменение",
        MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table3->Edit();
Table3->FieldByName("На дату")->AsString=Edit22->Text;
Table3->FieldByName("Место издержки")->AsString=Edit23->Text;
Table3->FieldByName("Отклонение от норматива")->AsString=Edit24->Text;
Table3->FieldByName("Статья затрат")->AsString=Edit25->Text;
Table3->FieldByName("Экономия/Затратность")->AsString=Edit26->Text;
Table3->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::FormCreate(TObject *Sender)
{
Edit1->Text = Table1->FieldByName("Dokum_№")->AsString;
Edit2->Text = Table1->FieldByName("Naim_org")->AsString;
Edit3->Text = Table1->FieldByName("Data_sostavlenia")->AsString;
Edit4->Text = Table1->FieldByName("Debet")->AsString;
Edit5->Text = Table1->FieldByName("Kredit")->AsString;
Edit6->Text = Table1->FieldByName("Summa")->AsString;
Edit7->Text = Table1->FieldByName("Prinyato_ot")->AsString;
Edit8->Text = Table1->FieldByName("Osnovanie")->AsString;
Edit9->Text = Table1->FieldByName("Glavniy_buhgalter")->AsString;
Edit10->Text = Table1->FieldByName("Kassir")->AsString;
Edit11->Text = Table2->FieldByName("Naim_org")->AsString;
Edit12->Text = Table2->FieldByName("Nomer_dok")->AsString;
Edit13->Text = Table2->FieldByName("Data_sostavlenia")->AsString;
Edit14->Text = Table2->FieldByName("Debet")->AsString;
Edit15->Text = Table2->FieldByName("Kredit")->AsString;
Edit16->Text = Table2->FieldByName("Summa")->AsString;
Edit17->Text = Table2->FieldByName("Vidat")->AsString;
Edit18->Text = Table2->FieldByName("Osnovanie")->AsString;
Edit19->Text = Table2->FieldByName("Ruk_organizacii")->AsString;
Edit20->Text = Table2->FieldByName("Glavniy_buhgalter")->AsString;
Edit21->Text = Table2->FieldByName("Kassir")->AsString;
Edit22->Text = Table3->FieldByName("На дату")->AsString;
Edit23->Text = Table3->FieldByName("Место издержки")->AsString;
Edit24->Text = Table3->FieldByName("Отклонение от норматива")->AsString;
Edit25->Text = Table3->FieldByName("Статья затрат")->AsString;
Edit26->Text = Table3->FieldByName("Экономия/Затратность")->AsString;
}
//---------------------------------------------------------------------------
0
Эксперт С++
 Аватар для Avazart
8484 / 6151 / 615
Регистрация: 10.12.2010
Сообщений: 28,683
Записей в блоге: 30
28.05.2012, 03:31
И че я теперь сам строки считать должен?
Код в теги надо оформлять...
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
28.05.2012, 03:39  [ТС]
Ну, я просто выделила строки с ошибками. Может мне их другим цветом выделить? Минуточку...
0
1569 / 505 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
28.05.2012, 03:42

Не по теме:

Ахахаха)))))
Цвет - наше все! :)



Добавлено через 2 минуты
AsikA, Вы бы лучше проект выложили... У Вас Едитов нету, либо они названы как-то иначе. Либо они вообще на другой форме:

C++
1
2
3
4

Form3->Edit23->Text = Table3->FieldByName("Место издержки")->AsString; // ошибка
Form3->Edit24->Text = Table3->FieldByName("Отклонение от норматива")->AsString; // ошибка
Form3->Edit25->Text = Table3->FieldByName("Статья затрат")->AsString; // ошибка
Form3->Edit26->Text = Table3->FieldByName("Экономия/Затратность")->AsString; // ошибка
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
28.05.2012, 03:43  [ТС]
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
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
#include "Unit2.h"
#include "Unit3.h"
#include "Unit4.h"
#include "Unit5.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm3 *Form3;
//---------------------------------------------------------------------------
__fastcall TForm3::TForm3(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N11Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N12Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N16Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N17Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::N13Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::N1Click(TObject *Sender)
{
Form3->Hide();
Form1->Show();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button1Click(TObject *Sender)
{
Table1->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button3Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table1->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table1AfterScroll(TDataSet *DataSet)
{
Edit1->Text = Table1->FieldByName("Dokum_№")->AsString;
Edit2->Text = Table1->FieldByName("Naim_org")->AsString;
Edit3->Text = Table1->FieldByName("Data_sostavlenia")->AsString;
Edit4->Text = Table1->FieldByName("Debet")->AsString;
Edit5->Text = Table1->FieldByName("Kredit")->AsString;
Edit6->Text = Table1->FieldByName("Summa")->AsString;
Edit7->Text = Table1->FieldByName("Prinyato_ot")->AsString;
Edit8->Text = Table1->FieldByName("Osnovanie")->AsString;
Edit9->Text = Table1->FieldByName("Glavniy_buhgalter")->AsString;
Edit10->Text = Table1->FieldByName("Kassir")->AsString;
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button2Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table1->FieldByName("Dokum_№")->AsString!=Edit1->Text)
{
if (s !="") s+=s1;
s+= "Dokum_№";
}
if(Table1->FieldByName("Naim_org")->AsString!=Edit2->Text)
{
if (s !="") s+=s1;
s+="Naim_org";
}
if(Table1->FieldByName("Data_sostavlenia")->AsString!=Edit3->Text)
{
if (s !="") s+=s1;
s+="Data_sostavlenia";
}
if(Table1->FieldByName("Debet")->AsString!=Edit4->Text)
{
if (s !="") s+=s1;
s+="Debet";
}
 
if(Table1->FieldByName("Kredit")->AsString!=Edit5->Text)
{
if (s !="") s+=s1;
s+="Kredit";
}
if(Table1->FieldByName("Summa")->AsString!=Edit6->Text)
{
if (s !="") s+=s1;
s+="Summa";
}
if(Table1->FieldByName("Prinyato_ot")->AsString!=Edit7->Text)
{
if (s !="") s+=s1;
s+="Prinyato_ot";
}
 
if(Table1->FieldByName("Osnovanie")->AsString!=Edit8->Text)
{
if (s !="") s+=s1;
s+="Osnovanie";
}
if(Table1->FieldByName("Glavniy_buhgalter")->AsString!=Edit9->Text)
{
if (s !="") s+=s1;
s+="Glavniy_buhgalter";
}
if(Table1->FieldByName("Kassir")->AsString!=Edit10->Text)
{
if (s !="") s+=s1;
s+="Kassir";
}
if (s !="")
{
if ( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",
MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table1->Edit();
Table1->FieldByName("Dokum_№")->AsString=Edit1->Text;
Table1->FieldByName("Naim_org")->AsString=Edit2->Text;
Table1->FieldByName("Data_sostavlenia")->AsString=Edit3->Text;
Table1->FieldByName("Debet")->AsString=Edit4->Text;
Table1->FieldByName("Kredit")->AsString=Edit5->Text;
Table1->FieldByName("Summa")->AsString=Edit6->Text;
Table1->FieldByName("Prinyato_ot")->AsString=Edit7->Text;
Table1->FieldByName("Osnovanie")->AsString=Edit8->Text;
Table1->FieldByName("Glavniy_buhgalter")->AsString=Edit9->Text;
Table1->FieldByName("Kassir")->AsString=Edit10->Text;
Table1->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button8Click(TObject *Sender)
{
Table2->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button11Click(TObject *Sender)
{
Table3->Insert();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button10Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table2->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button13Click(TObject *Sender)
{
if ( Application->MessageBox(
"Действительно хотите удалить запись?",
"Подтвердите решение",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Table3->Delete();
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button6Click(TObject *Sender)
{
Form4->QuickRep1->Preview(); 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::Button7Click(TObject *Sender)
{
if ( Application->MessageBox(
"Вы действительно хотите распечатать?",
"подтвердите",
MB_YESNO+MB_ICONEXCLAMATION)==IDYES)
Form4->QuickRep1->Print(); 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table2AfterScroll(TDataSet *DataSet)
{
Edit11->Text = Table2->FieldByName("Naim_org")->AsString;
Edit12->Text = Table2->FieldByName("Nomer_dok")->AsString;
Edit13->Text = Table2->FieldByName("Data_sostavlenia")->AsString;
Edit14->Text = Table2->FieldByName("Debet")->AsString;
Edit15->Text = Table2->FieldByName("Kredit")->AsString;
Edit16->Text = Table2->FieldByName("Summa")->AsString;
Edit17->Text = Table2->FieldByName("Vidat")->AsString;
Edit18->Text = Table2->FieldByName("Osnovanie")->AsString;
Edit19->Text = Table2->FieldByName("Ruk_organizacii")->AsString;
Edit20->Text = Table2->FieldByName("Glavniy_buhgalter")->AsString;
Edit21->Text = Table2->FieldByName("Kassir")->AsString;
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button9Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table2->FieldByName("Naim_org")->AsString!=Edit11->Text)
{
if (s !="") s+=s1;
s+= "Naim_org";
}
if(Table2->FieldByName("Nomer_dok")->AsString!=Edit12->Text)
{
if (s !="") s+=s1;
s+="Nomer_dok";
}
if(Table2->FieldByName("Data_sostavlenia")->AsString!=Edit13->Text)
{
if (s !="") s+=s1;
s+="Data_sostavlenia";
}
if(Table2->FieldByName("Debet")->AsString!=Edit14->Text)
{
if (s !="") s+=s1;
s+="Debet";
}
 
if(Table2->FieldByName("Kredit")->AsString!=Edit15->Text)
{
if (s !="") s+=s1;
s+="Kredit";
}
if(Table1->FieldByName("Summa")->AsString!=Edit16->Text)
{
if (s !="") s+=s1;
s+="Summa";
}
if(Table2->FieldByName("Vidat")->AsString!=Edit17->Text)
{
if (s !="") s+=s1;
s+="Vidat";
}
 
if(Table2->FieldByName("Osnovanie")->AsString!=Edit18->Text)
{
if (s !="") s+=s1;
s+="Osnovanie";
}
if(Table2->FieldByName("Ruk_organizacii")->AsString!=Edit19->Text)
{
if (s !="") s+=s1;
s+="Ruk_organizacii";
}
if(Table2->FieldByName("Glavniy_buhgalter")->AsString!=Edit20->Text)
{
if (s !="") s+=s1;
s+="Glavniy_buhgalter";
}
if(Table2->FieldByName("Kassir")->AsString!=Edit21->Text)
{
if (s !="") s+=s1;
s+="Kassir";
}
if (s !="")
{
if ( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",
MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table2->Edit();
Table2->FieldByName("Naim_org")->AsString=Edit11->Text;
Table2->FieldByName("Nomer_dok")->AsString=Edit12->Text;
Table2->FieldByName("Data_sostavlenia")->AsString=Edit13->Text;
Table2->FieldByName("Debet")->AsString=Edit14->Text;
Table2->FieldByName("Kredit")->AsString=Edit15->Text;
Table2->FieldByName("Summa")->AsString=Edit16->Text;
Table2->FieldByName("Vidat")->AsString=Edit17->Text;
Table2->FieldByName("Osnovanie")->AsString=Edit18->Text;
Table2->FieldByName("Ruk_organizacii")->AsString=Edit19->Text;
Table2->FieldByName("Glavniy_buhgalter")->AsString=Edit20->Text;
Table2->FieldByName("Kassir")->AsString=Edit21->Text;
Table2->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Table3AfterScroll(TDataSet *DataSet)
{
Edit22->Text = Table3->FieldByName("На дату")->AsString;
Edit23->Text = Table3->FieldByName("Место издержки")->AsString; [COLOR="Yellow"]// ошибка[/COLOR]
Edit24->Text = Table3->FieldByName("Отклонение от норматива")->AsString; [COLOR="#ffff00"]// ошибка[/COLOR]
Edit25->Text = Table3->FieldByName("Статья затрат")->AsString; [COLOR="#ffff00"]// ошибка[/COLOR]
Edit26->Text = Table3->FieldByName("Экономия/Затратность")->AsString; [COLOR="#ffff00"]// ошибка[/COLOR]
}
//---------------------------------------------------------------------------
void __fastcall TForm3::Button12Click(TObject *Sender)
{
AnsiString s;
const AnsiString s1=", ";
s="";
if (Table3->FieldByName("На дату")->AsString!=Edit22->Text) [COLOR="#ffff00"]// ошибка[/COLOR]
{
if (s !="") s+=s1;
s+= "На дату";
}
if(Table3->FieldByName("Место издержки")->AsString!=Edit23->Text) [COLOR="#ffff00"]// ошибка[/COLOR]
{
if (s !="") s+=s1;
s+="Место издержки";
}
if(Table3->FieldByName("Отклонение от норматива")->AsString!=Edit24->Text) [COLOR="#ffff00"]// ошибка[/COLOR]
{
if (s !="") s+=s1;
s+="Отклонение от норматива";
}
if(Table3->FieldByName("Статья затрат")->AsString!=Edit25->Text) [COLOR="#ffff00"]// ошибка[/COLOR]
{
if (s !="") s+=s1;
s+="Статья затрат";
}
 
if(Table3->FieldByName("Экономия/Затратность")->AsString!=Edit26->Text) [COLOR="#ffff00"]// ошибка[/COLOR]
{
if (s !="") s+=s1;
s+="Экономия/Затратность";
}
if (s !="")
{
if ( Application->MessageBox(
("Действительно хотите изменить запись?"+s+"?").c_str(),
"Подтвердите изменение",
MB_YESNO+MB_ICONQUESTION)==IDYES)
{
Table3->Edit();
Table3->FieldByName("На дату")->AsString=Edit22->Text;
Table3->FieldByName("Место издержки")->AsString=Edit23->Text;
Table3->FieldByName("Отклонение от норматива")->AsString=Edit24->Text;
Table3->FieldByName("Статья затрат")->AsString=Edit25->Text;
Table3->FieldByName("Экономия/Затратность")->AsString=Edit26->Text;
Table3->Post();
}}}
//---------------------------------------------------------------------------
 
void __fastcall TForm3::FormCreate(TObject *Sender)
{
Edit1->Text = Table1->FieldByName("Dokum_№")->AsString;
Edit2->Text = Table1->FieldByName("Naim_org")->AsString;
Edit3->Text = Table1->FieldByName("Data_sostavlenia")->AsString;
Edit4->Text = Table1->FieldByName("Debet")->AsString;
Edit5->Text = Table1->FieldByName("Kredit")->AsString;
Edit6->Text = Table1->FieldByName("Summa")->AsString;
Edit7->Text = Table1->FieldByName("Prinyato_ot")->AsString;
Edit8->Text = Table1->FieldByName("Osnovanie")->AsString;
Edit9->Text = Table1->FieldByName("Glavniy_buhgalter")->AsString;
Edit10->Text = Table1->FieldByName("Kassir")->AsString;
Edit11->Text = Table2->FieldByName("Naim_org")->AsString;
Edit12->Text = Table2->FieldByName("Nomer_dok")->AsString;
Edit13->Text = Table2->FieldByName("Data_sostavlenia")->AsString;
Edit14->Text = Table2->FieldByName("Debet")->AsString;
Edit15->Text = Table2->FieldByName("Kredit")->AsString;
Edit16->Text = Table2->FieldByName("Summa")->AsString;
Edit17->Text = Table2->FieldByName("Vidat")->AsString;
Edit18->Text = Table2->FieldByName("Osnovanie")->AsString;
Edit19->Text = Table2->FieldByName("Ruk_organizacii")->AsString;
Edit20->Text = Table2->FieldByName("Glavniy_buhgalter")->AsString;
Edit21->Text = Table2->FieldByName("Kassir")->AsString;
Edit22->Text = Table3->FieldByName("На дату")->AsString;
Edit23->Text = Table3->FieldByName("Место издержки")->AsString;
Edit24->Text = Table3->FieldByName("Отклонение от норматива")->AsString;
Edit25->Text = Table3->FieldByName("Статья затрат")->AsString;
Edit26->Text = Table3->FieldByName("Экономия/Затратность")->AsString;
}
//---------------------------------------------------------------------------
0
1569 / 505 / 48
Регистрация: 04.04.2009
Сообщений: 1,891
28.05.2012, 03:46
AsikA,
Цитата Сообщение от The_Immortal Посмотреть сообщение
Вы бы лучше проект выложили...
0
3 / 3 / 1
Регистрация: 27.05.2012
Сообщений: 18
28.05.2012, 04:22  [ТС]
Вот оно грузилось долго, я чуть не заснула.
Вложения
Тип файла: rar Аська.rar (2.69 Мб, 12 просмотров)
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 28.05.2012, 04:22
Помогаю со студенческими работами здесь

Устранить округление при выполнении арифметических операций над числами
Если написать так pk равен 833 long long S=Edit1-&gt;Text.ToInt(); long long n=Edit2-&gt;Text.ToInt(); long double pk=S/n; если...

устранить ошибки
Привет! Я уже обращался с подобной просьбой, но остался без ответа. помогите пожалуйста. срочно надо! задача такова что нужно написать...

Как устранить ошибки?
Всем привет!!! Cкачал и установил jdk1.6.0_16. В блокноте написал : class InvalidDef{ public static void main(String args){ byte...

Устранить ошибки в коде.
uses crt,graphabc,timers; var t,x0,y0,w,h,x,y:integer; c:char; procedure Ganim; begin write('текст'); end; procedure...

Не могу устранить ошибки
Помогите выходят ошибки Ошибка C2678 бинарный &quot;+=&quot;: не найден оператор, принимающий левый операнд типа &quot;cv::cuda::GpuMat&quot; (или...


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

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
1 из 2 1 2 »
Новые блоги и статьи
Первый деплой
lagorue 16.01.2026
Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .
Расчёт переходных процессов в цепи постоянного тока
igorrr37 16.01.2026
/ * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит токи на L и напряжения на C в установ. режимах до и. . .
Восстановить юзерскрипты Greasemonkey из бэкапа браузера
damix 15.01.2026
Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes
lagorue 13.01.2026
А пригодятся-ли мне знания kubernetes в России?
Сукцессия микоризы: основная теория в виде двух уравнений.
anaschu 11.01.2026
https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/
WordPad для Windows 11
Jel 10.01.2026
WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .
Classic Notepad for Windows 11
Jel 10.01.2026
Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает?
Neotwalker 09.01.2026
В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru