зависает программа

← →
Nikos (2003-04-30 14:20) [0]

Помогите пожалуйста.
Есть база данных, созданная в Paradox7. Она состоит из двух таблиц.
таб№1
Field Name | Type | Size | Key |
№Resp | + | | * |
Sername | A | 50 | |
Name | A | 50 | |
Patron | A | 50 | |
Password | A | 75 | |

таб№2
Field Name | Type | Size | Key |
№Res | + | | * |
№ID | l | | |
Data | @ | | |
TypeTest | A | 255 | |
Error | S | | |

Таб1 связана с таб2 по полю №Resp к №ID как один ко многим.
Создал модуль данных в делфи. Поместил туда объект TDatebase, 2 объекта TTable, и на каждый TTable установил по компоненте dateSource.
Открываю программно базу данных, открываю таблицу для внесения данных, при внесении данных программа засисает. Вот часть кода программы.

DMUser.dbUser.Open; //открываю БД
DMUser.TbResp.Open; //открываю таб№1
if not DMUser.TbResp.IsEmpty then LbFam.Caption:= "есть данные"; //проверяю не пустая ли она
DMUser.TbResp.Append; //добавляю новую строку
DMUser.TbResp.Last; //устанавливаю курсор на нее
DMUser.TbResp.Edit; // открываю доступ для редактирования
DMUser.TbResp["Rpname"]:="Name"; //внесение данных !!!ОШИБКА
DMUser.TbResp["rpsername"]:="Sername"; //ЗАВИСАНИЕ
DMUser.TbResp.Close;
DMUser.dbUser.Close;

← →
Соловьев (2003-04-30 14:25) [1]

> DMUser.TbResp.Append; //добавляю новую строку
> DMUser.TbResp.Last; //устанавливаю курсор на нее
> DMUser.TbResp.Edit; // открываю доступ для редактирования
>

Заменить на
DMUser.TbResp.Insert;
....
//тут делаем что надо
...
DMUser.TbResp.Post;

← →
MsGuns (2003-04-30 15:38) [2]

А во второй таблице ключ один ? Если так, то связь "Один-Ко-Многим" невозможна

← →
Виталий Панасенко (2003-04-30 20:15) [3]

Просто после DMUser.TbResp.Append; //добавляю новую строку
не нужно делать DMUser.TbResp.Last; //устанавливаю курсор на нее
- МЫ И ТАК УЖЕ ТАМ, а при вызове Last происходят разные штучки...

зависает программа Найти похожие ветки