[Aps]

Всем привет.

Возникла небольшая проблемка:
На PageControl1 размещен groupbox. в котором размещены DBEdit подключенные к таблице, и одна кнопка добавить новую запись в таблицу. Проблема в том, что при нажатии на эту кнопку форма закрывается, почему не могу понять.

код кнопки:

Код:

procedure TfEditor.BitBtn2Click(Sender: TObject);
begin
if DM.TPriemPerevod.Modified then
DM.TPriemPerevod.Post;
DM.TPriemPerevod.Append;
DBEdit48.SetFocus;
end;

БД сделана в акцессе, подключена через адо.

И еще вопрос как при вызове формы с PageControl, выделить первую вкладку?

Заранее спасибо.

[ALexandr555]

по второму

Код:

procedure TForm1.FormShow(Sender: TObject);
begin
PageControl1.ActivePageIndex:=0;
end;

а в первом не так должно быть?

Код:

if DM.TPriemPerevod.Modified then
 begin
  DM.TPriemPerevod.Post;
  DM.TPriemPerevod.Append;
  DBEdit48.SetFocus;
 end;

[NumLock]

Код:

PageControl1.ActivePageIndex:=0;

ставишь точку останова на if и по F7 вперед смотреть...

[Aps]

Попробывал на добавление, выдает ошибку: TPriemPerevodataSet not in edit or insert mode. в чем проблема может быть?

[Ildar-tsr]

Я не понимаю почему сначала идет команда запостить изменения, а после нее добавления записи? Или на данный код логика не распространяется?

[NumLock]

это уже ALexandr555 сумбур внес. у ТС вполне сносно было, но из-за отсутствия форматирования кода не читабельно:

Код:

if DM.TPriemPerevod.Modified then
  DM.TPriemPerevod.Post;
DM.TPriemPerevod.Append;
DBEdit48.SetFocus;

сначала идет проверка на изменение записи и если запись изменялась, то данные постятся. а уж потом выполняется добавление новой записи. это кнопка добавления новой записи.

[Ildar-tsr]

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

при нажатии на эту кнопку форма закрывается, почему не могу понять.

Это я понимаю основная проблема. Код кнопки:
Если есть изменения, то постим;
Добавляем новую запись;
Фокусируемся на едите.

Вопрос:
Где расположен DBEdit48?
Попробуйте закомменитровать:

Код:

//DBEdit48.SetFocus;

Может быть она не закрывается, а фокусируется на другой форме и кажется, что окно закрывается.
А если окно модальное, то надо посмотреть чтоб у данной кнопки свойство ModalResult не было установлено в mrCancel.

[Aps]

Дбедит 48 находится на панеле на 4 вкладке. Пробовал без сет фокуса, эфект тотже.

[Ildar-tsr]

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

БД сделана в акцессе, подключена через адо.

Может тогда поделитесь проектом, мы дружно посмотрим его и поможем решить проблему, вместо того чтоб гадать. Если конечно не сверхсекретные данные в базе.

[Aps]

держите архив с исходниками.
Ну уж такое дело, гляньте еще в отчете на первую таблицу запрос. немогу понять почему он работает только после открытия закрытия программы, вернее обновляет результат.

[Aps]

на счет запроса это конечно не обязательно просто интересно почему он не обновляет результаты при открытии формы.
Я решил сделать запрос на кнопку, результаты запроса заносятся в stringgrid а потом просто все в exell выкидывает, кстати на кнопке все корректно работает.