| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
ADODataSet.Edit идет на событие BeforeInsert. Почему? [D7, MSSQL]
Denmin © (2005-05-11 09:47:00)Здравствуйте.
procedure TForm1.ADOSet_cexpartyBeforeClose(DataSet: TDataSet);
begin
ADOSet_cexparty.Edit;
ADOSet_cexparty.Post;
end;
После ADOSet_cexparty.Edit; идет сюда. Кол-во записей 0. Или это такая особенность, если нет записи, то в таблицу SQL Server 2000, добавляется запись автоматом?
procedure TForm1.ADOSet_cexpartyBeforeInsert(DataSet: TDataSet);
begin
ADOSet_cexparty.Last;
if ADOSet_cexparty['party']<>null then
party:=ADOSet_cexparty['party']
else
party:=0;
end;
procedure TForm1.ADOSet_cexpartyAfterInsert(DataSet: TDataSet);
begin
ADOSet_cexparty.Edit;
ADOSet_cexparty['cex']:=DBLookupComboBox1.KeyValue;
ADOSet_cexparty['party']:=party+1;
ADOSet_cexparty.Post;
end;
Вопрос, почему после Edit идет на событие BeforeInsert? Заранее благодарен.
Max Zyuzin (2005-05-11 10:48:00) [1]>Denmin © (11.05.05 10:35) [3]
А кто сие писал? ЧТо то столько наворочено лишнего... и к тому же не корректно, на мой взгляд, может переписать все?
Denmin (2005-05-11 10:35:00) [2]к чему написано не знаю, давно писалось, а потом приостановили написание. я тоже задумался зачем. наверное так надо. спасибо за ответы.
Anatoly Podgoretsky (2005-05-11 10:05:00) [3]Чтобы было страшно
Max Zyuzin (2005-05-11 10:02:00) [4]>Denmin © (11.05.05 09:47)
Читаем справку про DatasetEdit, внимательно обращая внимание на If the dataset is empty, Edit calls Insert.
А вообще если не секрет к чему все то что написано в BeforeClose?
| |
