Ошибка при добавлении данных

[Sting_23]

Подскажите пожалуйста.

procedur/e TFormAdd.btn1Click(Sender: TObject);
var
  id_vid_peredachi: Integer;
  id_radioset, id_meropriyatiya: Integer;
begin
  id_vid_peredachi:= StrToInt(cbb1.KeyValue);
  id_radioset:= StrToInt(cbbid_radioseti.KeyValue);
  id_meropriyatiya:= StrToInt(cbbid_meropriyatiya.KeyValue);
 
 {with dtmdl1.tblMain do
 begin }
  dtmdl1.tblMain.Insert;
  dtmdl1.tblMain.Fields[1].Value:= Date;
  dtmdl1.tblMain.Fields[2].Value:= edt1.Text ;
  dtmdl1.tblMain.Fields[3].Value:= id_vid_peredachi;
  dtmdl1.tblMain.Fields[4].Value:= edt2.Text;
  dtmdl1.tblMain.Fields[5].Value:= edt3.Text + edt4.Text + lbl13.Caption + edt5.Text + edt6.Text + cbb6.Text;
  dtmdl1.tblMain.Fields[6].Value:= edt8.Text;
  dtmdl1.tblMain.Fields[7].Value:= id_radioset;
  dtmdl1.tblMain.Fields[8].Value:= id_meropriyatiya;
  dtmdl1.tblMain.Fields[10].Value:= edt7.Text;
  dtmdl1.tblMain.Post;
 {end;}
 dtmdl1.qryMain.Active:= False;
 dtmdl1.qryMain.Active:= True;
 
 edt1.Text:= '';
 edt2.Text:= '';
 edt3.Text:= '';
 edt4.Text:= '';
 edt5.Text:= '';
 edt6.Text:= '';
 
  MainForm.dbgrdh1.Columns[3].Visible:= False;
  MainForm.dbgrdh1.Columns[4].Visible:= False;
  MainForm.dbgrdh1.Columns[7].Visible:= False;
  MainForm.dbgrdh1.Columns[8].Visible:= False;
  MainForm.dbgrdh1.Columns[9].Visible:= False;
  MainForm.dbgrdh1.Columns[10].Visible:= False;
  MainForm.dbgrdh1.Columns[0].Width:= 80;
  MainForm.dbgrdh1.Columns[1].Width:= 80;
  MainForm.dbgrdh1.Columns[2].Width:= 200;
  MainForm.dbgrdh1.Columns[5].Width:= 200;
  MainForm.dbgrdh1.Columns[6].Width:= 165;
 
  Close;
 
  dtmdl2.qryPozivnoi.Active:= False;
  dtmdl2.qryPozivnoi.Active:= True;
end;

Выполняю добавление данных в БД. Если БД пустая, то добавляется две записи (первая пустая). А если уже есть записи в БД, то новая добавляется, но изменяется предыдущая запись. Подскажите в чем может быть проблема?

[evg_m]

В наличии DBgrid с разрешенной возможностью автоматического перевода набора данных (таблицы tblMain) в режим редактирования.
сделай DBgrid.ReadOnly =true и попробуй.

[northener]

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

В наличии DBgrid с разрешенной возможностью автоматического перевода набора данных (таблицы tblMain) в режим редактирования.
сделай DBgrid.ReadOnly =true и попробуй.

Думал о таком варианте. Но имхо было бы исключение при вызове Insert. Ну разве что присутствует ещё и DBNavigator, а автор бездумно жмакает на его кнопки.

[evg_m]

Думал о таком варианте. Но имхо было бы исключение при вызове Insert.

Необязательно, если автомат "срабатывает" на других наборах данных.

dtmdl1.tblMain.

dtmdl1.qryMain.

В любом случае надо копаться в методах главной формы.
В вызовах показа форм(ы) редакции. (подозреваю что их там не одна).

procedur/e TFormAdd.btn1Click(Sender: TObject);
var

Покажи как вызывается(показывается) эта самая форма TFormAdd.
Особенно если эти вызовы висят на DBNavigator. то и с каким именно набором данных связан этот навигатор.

Ну разве что присутствует ещё и DBNavigator,

Никогда им не пользуюсь, поэтому сразу даже не подумал о таком.

[Sting_23]

DBNavigator-a нет.
Вызывается форма просто по нажатию кнопки.

procedure TMainForm.btnADDClick(Sender: TObject);
begin
 FormAdd.ShowModal;
end;

Весь код формы:

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, DBGridEh, ExtCtrls, sPanel, DBCtrlsEh, DBLookupEh, StdCtrls,
  Mask, sMaskEdit, sLabel, sButton, sComboBox, sGroupBox, sEdit;

type
  TFormAdd = class(TForm)
    lbl1: TsLabel;
    edt1: TsMaskEdit;
    lbl2: TsLabel;
    cbb1: TDBLookupComboboxEh;
    lbl3: TsLabel;
    lbl4: TsLabel;
    lbl5: TsLabel;
    cbbid_radioseti: TDBLookupComboboxEh;
    lbl6: TsLabel;
    cbbid_meropriyatiya: TDBLookupComboboxEh;
    spnl1: TsPanel;
    grp1: TsGroupBox;
    grp2: TsGroupBox;
    grp3: TsGroupBox;
    grp4: TsGroupBox;
    lbl7: TsLabel;
    edt2: TsMaskEdit;
    lbl8: TsLabel;
    edt3: TsMaskEdit;
    edt4: TsMaskEdit;
    edt5: TsMaskEdit;
    edt6: TsMaskEdit;
    lbl9: TsLabel;
    lbl10: TsLabel;
    lbl11: TsLabel;
    lbl12: TsLabel;
    lbl13: TsLabel;
    cbb6: TsComboBox;
    grp5: TsGroupBox;
    btn1: TsButton;
    btn2: TsButton;
    edt7: TsEdit;
    edt8: TsEdit;
    procedure btn2Click(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormAdd: TFormAdd;

implementation

uses
  Unit1, Unit2, Unit4;

{$R *.dfm}



procedure TFormAdd.btn2Click(Sender: TObject);
begin
 edt1.Text:= '';
 edt2.Text:= '';
 edt3.Text:= '';
 edt4.Text:= '';
 edt5.Text:= '';
 edt6.Text:= '';
 cbb1.Text:= '';
 cbbid_radioseti.Text:= '';
 cbbid_meropriyatiya.Text:= '';

 FormAdd.Close;
end;






procedure TFormAdd.btn1Click(Sender: TObject);
var
  id_vid_peredachi: Integer;
  id_radioset, id_meropriyatiya: Integer;
begin
  id_vid_peredachi:= StrToInt(cbb1.KeyValue);
  id_radioset:= StrToInt(cbbid_radioseti.KeyValue);
  id_meropriyatiya:= StrToInt(cbbid_meropriyatiya.KeyValue);

 {with dtmdl1.tblMain do
 begin }
  dtmdl1.tblMain.Insert;
  dtmdl1.tblMain.Fields[1].Value:= Date;
  dtmdl1.tblMain.Fields[2].Value:= edt1.Text ;
  dtmdl1.tblMain.Fields[3].Value:= id_vid_peredachi;
  dtmdl1.tblMain.Fields[4].Value:= edt2.Text;
  dtmdl1.tblMain.Fields[5].Value:= edt3.Text + edt4.Text + lbl13.Caption + edt5.Text + edt6.Text + cbb6.Text;
  dtmdl1.tblMain.Fields[6].Value:= edt8.Text;
  dtmdl1.tblMain.Fields[7].Value:= id_radioset;
  dtmdl1.tblMain.Fields[8].Value:= id_meropriyatiya;
  dtmdl1.tblMain.Fields[10].Value:= edt7.Text;
  dtmdl1.tblMain.Post;
 {end;}
 dtmdl1.qryMain.Active:= False;
 dtmdl1.qryMain.Active:= True;

 edt1.Text:= '';
 edt2.Text:= '';
 edt3.Text:= '';
 edt4.Text:= '';
 edt5.Text:= '';
 edt6.Text:= '';

  MainForm.dbgrdh1.Columns[3].Visible:= False;
  MainForm.dbgrdh1.Columns[4].Visible:= False;
  MainForm.dbgrdh1.Columns[7].Visible:= False;
  MainForm.dbgrdh1.Columns[8].Visible:= False;
  MainForm.dbgrdh1.Columns[9].Visible:= False;
  MainForm.dbgrdh1.Columns[10].Visible:= False;
  MainForm.dbgrdh1.Columns[0].Width:= 80;
  MainForm.dbgrdh1.Columns[1].Width:= 80;
  MainForm.dbgrdh1.Columns[2].Width:= 200;
  MainForm.dbgrdh1.Columns[5].Width:= 200;
  MainForm.dbgrdh1.Columns[6].Width:= 165;

  Close;

  dtmdl2.qryPozivnoi.Active:= False;
  dtmdl2.qryPozivnoi.Active:= True;
end;


end.

Вроде ничего сверхестественного, делал уже такое. Но почему сейчас не работает не пойму.

[evg_m]

Покажи как вызывается(показывается) эта самая форма TFormAdd.

код процедур в которых есть что-нибудь из

formAdd.Show;
formAdd.Visible:=true;
formAdd.ShowModal;

Это будет скорее всего Mainform из unit1
и формы в которых используется qryMain (опять же mainform).
P.S. прошу прощения увидел ShowModal

Вызывается форма просто по нажатию кнопки.

procedure TMainForm.btnADDClick(Sender: TObject);
begin
 FormAdd.ShowModal;
end;

НО проблемы скорее всего именно там. точнее совокупность.

сначала добавляем в mainform и видимо использованием qryMain (на форуме КОД НЕ ПРИВЕДЕН)
как? пока остается загадкой.
потом ЕЩЕ раз добавляем в FormAdd приведенным здесь(на форуме) кодом.

Еще раз повторюсь.
Чтобы ГАРАНТИРОВАННО избавиться (хотя бы на время тестирования) от "мистических" добавлений посредством Mainform.dbgrid (ИЛИ других)
укажи DBgrid.readOnly :=true;
проблемы останутся ? или возникнут новые ? например скажет что не могу изменить (редактировать) данные.

Конечно же есть еще вариант с неверно написанными триггерами (но это вряд ли) хотя какие -то макросы в Access могут иметь место.
А также всяческие AfterPost/BeforePost в DataModule.
BreakPoint на ....Insert; (на начало добавления)
и F7 чтобы увидеть что мы ЕЩЕ будет делать (кроме "видимых невооруженным глазом" действий по заполнению полей).

Телепатия подсказала
Изменяет исключительно поля завязанные на DBLookUp... ?

то новая добавляется, но изменяется предыдущая запись

Выкиньте maintbl и ДЕЛАЙТЕ все добавления напрямую через qryMain.
и ПЕРЕНЕСИТЕ Insert/Post в главную форму. вот ТАК

qry.Insert;
formadd.ShowModal;
qry.Post;

да и заполнение тоже можно СЮДА же (после ShowModal).

[Sting_23]

Ваша телепатия вас не подводит. Действительно проблемы при изменении DBLookUp. Попробую исправить. Спасибо за подсказку. Результат озвучу.

[northener]

<OFFTOP>
Вот будь моя воля, выкинул бы из Дельфи все DBAware компоненты. Оставил бы только TDBGrid, но сделал бы его всегда ReadOnly. Всё равно они все изначально заточены под IDAPI. И под Парадокс.
И пусть даже мне от этого станет хуже. Зато новые программы станут более грамотными.
</OFFTOP>