Ошибка: Dataset not in edit or insert mode

@bubles · Регистрация: 04.01.2013

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

Здравствуйте!
Добавляю данные в таблицу, при нажатии на кнопку "ОК" выскакивает эта ошибка "dataset not in edit or insert mode".

Код на добавление

Delphi
1
Form3.tbl1.Insert;

Код на редактирование

Delphi
1
Form3.tbl1.Edit;

код на удаление

Delphi
1
Form3.tbl1.Delete;

Как Эту ошибку исправить?

Скандербег · 05.01.2015, 22:00

Показанный "код на добавление" не является кодом на добавление, "код на редактирование" не является... и т.д.
Указанные методы только подготовка к соответствующим действиям и при их вызове озвученной ошибки происходить не может.
Следовательно, ошибка где-то в другом месте кода и чтобы ее локализовать и диагностировать нужно видеть все остальное.

@bubles · 05.01.2015, 23:00 **[ТС]**

Весь код на эту форму

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
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
unit sotrudniki;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DB, ADODB, Grids, DBGrids, StdCtrls, Buttons, Mask, DBCtrls,
  ComCtrls, ExtCtrls, Menus;
 
type
  TForm3 = class(TForm)
    btn1: TBitBtn;
    btn2: TBitBtn;
    btn3: TBitBtn;
    btn4: TBitBtn;
    btn5: TBitBtn;
    lbl2: TLabel;
    dbgrd1: TDBGrid;
    dbgrd2: TDBGrid;
    ds1: TDataSource;
    tbl1: TADOTable;
    tbl2: TADOTable;
    ds2: TDataSource;
    lbl1: TLabel;
    grp1: TGroupBox;
    lbl3: TLabel;
    lbl4: TLabel;
    lbl5: TLabel;
    lbl6: TLabel;
    lbl7: TLabel;
    lbl8: TLabel;
    lbl9: TLabel;
    dbedtfio: TDBEdit;
    dbedtadres: TDBEdit;
    dbedtdoljnost: TDBEdit;
    dbedttelefon: TDBEdit;
    dbedtoklad: TDBEdit;
    btn6: TBitBtn;
    dtp1: TDateTimePicker;
    atncfldtbl1id_rabotnika: TAutoIncField;
    wdstrngfldtbl1fio: TWideStringField;
    dtmfldtbl1data_rogdenija: TDateTimeField;
    wdstrngfldtbl1adres: TWideStringField;
    wdstrngfldtbl1doljnost: TWideStringField;
    wdstrngfldtbl1telefon: TWideStringField;
    intgrfldtbl1id_transport: TIntegerField;
    dtmfldtbl1data_priema: TDateTimeField;
    wdstrngfldtbl1oklad: TWideStringField;
    DateTimePicker1: TDateTimePicker;
    BitBtn1: TBitBtn;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    BitBtn2: TBitBtn;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N3: TMenuItem;
    tbl2id_rabotnika: TIntegerField;
    tbl2id_transporta: TIntegerField;
    tbl2nomer: TStringField;
    tbl2id_uslugi: TIntegerField;
    tbl2inv_nomer: TStringField;
    tbl2tip_kuzova: TStringField;
    tbl2god_vipuska: TStringField;
    tbl2marka1: TStringField;
    BitBtn3: TBitBtn;
    procedure btn1Click(Sender: TObject);
    procedure btn2Click(Sender: TObject);
    procedure btn3Click(Sender: TObject);
    procedure btn4Click(Sender: TObject);
    procedure btn5Click(Sender: TObject);
    procedure btn6Click(Sender: TObject);
    procedure grp1Exit(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure N1Click(Sender: TObject);
    procedure N3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form3: TForm3;
 
implementation
 
uses transport, glawnaja, avtorizacija, otchet_sotrudnik;
 
{$R *.dfm}
 
procedure TForm3.BitBtn1Click(Sender: TObject);
var filtr, add: string;
begin
 tbl1.filtered:=false;
filtr:='';
if length(edit1.text) > 0 then
  filtr:= 'fio LIKE '+  #39 + Edit1.Text + '%' + #39;
if length(edit2.text) > 0 then
begin
  if length(filtr) > 0 then add:= ' and ' else add:='';
  filtr:=filtr + add + 'adres LIKE '+  #39 + Edit2.Text + '%' + #39;
end;
if length(edit3.text) > 0 then
begin
  if length(filtr) > 0 then add:= ' and ' else add:='';
  filtr:=filtr + add + 'doljnost LIKE '+  #39 + Edit3.Text + '%' + #39;
end;
  if length(filtr) > 0 then
  begin
   tbl1.Filter:= filtr;
    tbl1.filtered:=true;
  end
  else Showmessage('Все поля пусты!');
end;
 
 
procedure TForm3.BitBtn2Click(Sender: TObject);
var filtr, add: string;
begin
  tbl1.Filter:= filtr;
    tbl1.filtered:=true;
Edit1.Text:='';
Edit2.Text:='';
Edit3.Text:='';
tbl1.Refresh;
end;
 
procedure TForm3.BitBtn3Click(Sender: TObject);
begin
Form3.tbl2.Delete;
end;
 
procedure TForm3.BitBtn4Click(Sender: TObject);
begin
Form10.Show;
Form10.frxReport1.ShowReport;
end;
 
procedure TForm3.btn1Click(Sender: TObject);
begin
Form3.tbl1.Insert;
dbedtfio.Visible:=true;
dbedtadres.Visible:=true;
dbedtdoljnost.Visible:= true;
dbedttelefon.Visible:=true;
dbedtoklad.Visible:=true;
lbl1.Visible:=true;
lbl2.Visible:=false;
lbl3.Visible:=true;
lbl4.Visible:=true;
lbl5.Visible:=true;
lbl6.Visible:=true;
lbl7.Visible:=true;
lbl8.Visible:=true;
lbl9.Visible:=true;
btn4.Visible:=true;
btn5.Visible:=true;
btn6.Visible:=true;
Form3.grp1.Visible:=true;
Form3.dtp1.Visible:=true;
Form3.DateTimePicker1.Visible:=true;
end;
 
procedure TForm3.btn2Click(Sender: TObject);
begin
form3.tbl1.Edit;
dbedtfio.Visible:=true;
dbedtadres.Visible:=true;
dbedtdoljnost.Visible:= true;
dbedttelefon.Visible:=true;
dbedtoklad.Visible:=true;
lbl1.Visible:=false;
lbl3.Visible:=true;
lbl2.Visible:=true;
lbl4.Visible:=true;
lbl5.Visible:=true;
lbl6.Visible:=true;
lbl7.Visible:=true;
lbl8.Visible:=true;
lbl9.Visible:=true;
btn4.Visible:=true;
btn5.Visible:=true;
btn6.Visible:=true;
Form3.grp1.Visible:=true;
Form3.dtp1.Visible:=true;
Form3.DateTimePicker1.Visible:=true;
end;
 
procedure TForm3.btn3Click(Sender: TObject);
begin
Form3.tbl1.Delete;
end;
 
procedure TForm3.btn4Click(Sender: TObject);
begin
Form3.tbl1.FieldByName('data_priema').AsString:=FormatDateTime('dd/mm/yyyy', Form3.dtp1.Date);
Form3.tbl1.FieldByName('data_rogdenija').AsString:=FormatDateTime('dd/mm/yyyy',Form3.DateTimePicker1.Date);
{if Form4.tbl1.Modified then
begin
Form3.tbl1.FieldByName('id_rabotnika').Value := Form4.tbl1.FieldByName('id_rabotnika').Value;
Form4.tbl1.Post;
  end;    }
  Form3.tbl1.Post;
 // Form3.tbl2.Post;
dbedtfio.Visible:=False;
dbedtadres.Visible:=False;
dbedtdoljnost.Visible:= false;
dbedttelefon.Visible:=False;
dbedtoklad.Visible:=False;
lbl1.Visible:=False;
lbl2.Visible:=False;
lbl3.Visible:=False;
lbl4.Visible:=False;
lbl5.Visible:=False;
lbl6.Visible:=False;
lbl7.Visible:=False;
lbl8.Visible:=False;
lbl9.Visible:=False;
btn4.Visible:=False;
btn5.Visible:=False;
btn6.Visible:=False;
Form3.grp1.Visible:=False;
Form3.dtp1.Visible:=False;
Form3.DateTimePicker1.Visible:=False;
end;
 
procedure TForm3.btn5Click(Sender: TObject);
begin
Form3.tbl1.Cancel;
Form3.tbl2.Cancel;
dbedtfio.Visible:=False;
dbedtadres.Visible:=False;
dbedtdoljnost.Visible:= false;
dbedttelefon.Visible:=False;
dbedtoklad.Visible:=False;
lbl1.Visible:=False;
lbl2.Visible:=False;
lbl3.Visible:=False;
lbl4.Visible:=False;
lbl5.Visible:=False;
lbl6.Visible:=False;
lbl7.Visible:=False;
lbl8.Visible:=False;
lbl9.Visible:=False;
btn4.Visible:=False;
btn5.Visible:=False;
btn6.Visible:=False;
Form3.grp1.Visible:=False;
Form3.dtp1.Visible:=False;
Form3.DateTimePicker1.Visible:=False;
end;
 
procedure TForm3.btn6Click(Sender: TObject);
begin
form3.tbl2.Insert;
Form4.BitBtn3.Visible:=true;
Form4.Show;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  dbedtfio.Visible:=False;
dbedtadres.Visible:=False;
dbedtdoljnost.Visible:= false;
dbedttelefon.Visible:=False;
dbedtoklad.Visible:=False;
lbl1.Visible:=False;
lbl2.Visible:=False;
lbl3.Visible:=False;
lbl4.Visible:=False;
lbl5.Visible:=False;
lbl6.Visible:=False;
lbl7.Visible:=False;
lbl8.Visible:=False;
lbl9.Visible:=False;
btn4.Visible:=False;
btn5.Visible:=False;
btn6.Visible:=False;
Form3.grp1.Visible:=False;
Form3.dtp1.Visible:=False;
Form3.DateTimePicker1.Visible:=False;
end;
 
procedure TForm3.grp1Exit(Sender: TObject);
begin
    if Form3.tbl1.Modified then
    Form3.tbl1.Post;
end;
 
 
 
procedure TForm3.N1Click(Sender: TObject);
begin
Form2.Show;
Form3.Hide;
end;
 
procedure TForm3.N3Click(Sender: TObject);
begin
Form1.close;
end;
 
end.

Скандербег · 05.01.2015, 23:05

Проект нужен, весь проект вместе с файлом БД, а не этот текст, где мало чего понятно.
Ошибки эффективно находятся при отладке.

@mac1eod · 08.01.2015, 12:39

Не увидел что бы у вас происходило открытие датасета. Отсюда и ошибка. Попробуйте перед Form3.tbl1.Insert, Form3.tbl1.Edit и тд вставить Form3.tbl1.Open.
А лучше

Delphi
1
2
3
Form3.tbl1.SQL.Clear;
Form3.tbl1.SQL.Text:='SELECT * FROM %название_вашей_таблицы%';
Form3.tbl1.Active:=True;

@NotBeginner · 09.01.2015, 00:18

mac1eod, если я правильно понял, то tbl - это table, а у него свойства sql нет.

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

procedure TForm3.grp1Exit(Sender: TObject);
begin
* * if Form3.tbl1.Modified then
* * Form3.tbl1.Post;
end;

попробуйте вот так

Delphi
1
2
3
  if Form3.tbl1.Modified then
 Form3.tbl1.Post
    else Form3.tbl1.Cancel

Новые блоги и статьи Все статьи Все блоги /
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	Контроль уникальности заводского номера - вариант №2 Maks 24.03.2026 В отличие от предыдущего варианта добавлено прерывание циклов: Процедура ПередЗаписью(Отказ, РежимЗаписи, РежимПроведения) / / Запрос для поиска дублей в регистре сведений Запрос = Новый. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip	Жизнь в неопределённости kumehtar 23.03.2026 Жизнь — это постоянное существование в неопределённости. Например, даже если у тебя есть список дел, невозможно дойти до точки, где всё окончательно завершено и больше ничего не осталось. В принципе,. . .	Модель здравоСохранения: работники работают быстрее после её введения. anaschu 23.03.2026 geJalZw1fLo Корпорация до введения программа здравоохранения имела много невыполненных работниками заданий, после введения программы количество заданий выросло. Но на выплатах по больничным это. . .	Контроль уникальности заводского номера - вариант №1 Maks 23.03.2026 Алгоритм контроля уникальности заводского (или серийного) номера на примере нетипового документа выдачи шин для спецтехники с табличной частью, разработанного в конфигурации КА2. Данные берутся из. . .

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	05.01.2015, 22:00
	Показанный "код на добавление" не является кодом на добавление, "код на редактирование" не является... и т.д. Указанные методы только подготовка к соответствующим действиям и при их вызове озвученной ошибки происходить не может. Следовательно, ошибка где-то в другом месте кода и чтобы ее локализовать и диагностировать нужно видеть все остальное. 1

Скандербег 1076 / 989 / 340 Регистрация: 07.08.2012 Сообщений: 2,790
	05.01.2015, 23:05
	Проект нужен, весь проект вместе с файлом БД, а не этот текст, где мало чего понятно. Ошибки эффективно находятся при отладке. 0