Добавление в DBGrid с избыточностью

[Droid]

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

И еще вопрос у меня 2 DBLocupComboBox, все они присоеденены к одной таблице но к разным ее столбцам. Как мне сделать так, чтобы при выборе значения в одном DBLocupComboBox мне во втором показывало только, то значение которое соответсвует id - 1 ?

var
  FD_OS: TFD_OS;
  os: integer;
implementation

uses Unit1, Unit2, Unit4;

{$R *.dfm}

procedure TFD_OS.BitBtn2Click(Sender: TObject);
begin
FD_OS.Close;
end;

procedure TFD_OS.ListBox1Click(Sender: TObject);
begin
os:=FD_OS.listbox1.itemindex+1;
end;

procedure TFD_OS.FormActivate(Sender: TObject);
begin
os:=1;
end;

procedure TFD_OS.BitBtn1Click(Sender: TObject);
var
idd,idp: integer;
begin
idd:=DBLCB1.KeyValue;
DBLCB2.KeyValue:=idd;
idp:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_OS.Close;
DM.ADOQ_OS.SQL.Clear;
DM.ADOQ_OS.SQL.Text:='INSERT INTO osnovnoy_soputstvuyhiy_diagnoz (id_diagnoza,id_pacienta,osn_sop,data_ustanovleniya_diagnoza,dop_info) VALUES (:idd,:idp,:os,:d,:m1);';
DM.ADOQ_OS.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_OS.Parameters.ParamByName('os').Value:=os;
DM.ADOQ_OS.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
Dm.ADOQ_OS.Parameters.ParamByName('idd').Value:=idd;
Dm.ADOQ_OS.Parameters.ParamByName('idp').Value:=idp;
DM.ADOQ_OS.ExecSQL;

DM.ADOQ_OS.Close;
DM.ADOQ_OS.SQL.Clear;
DM.ADOQ_OS.SQL.Add('SELECT * FROM osnovnoy_soputstvuyhiy_diagnoz,diagnoz');
DM.ADOQ_OS.Open;

все понял надо было обновление по другому написать ))

procedure TFD_OS.BitBtn1Click(Sender: TObject);
var
idd,idp: integer;
begin
idd:=DBLCB1.KeyValue;
idp:=DM.ADOQ_PACid_pacienta.Value;
DM.ADOQ_OS.Close;
DM.ADOQ_OS.SQL.Clear;
DM.ADOQ_OS.SQL.Text:='INSERT INTO osnovnoy_soputstvuyhiy_diagnoz (id_diagnoza,id_pacienta,osn_sop,data_ustanovleniya_diagnoza,dop_info) VALUES (:idd,:idp,:os,:d,:m1)';
DM.ADOQ_OS.Parameters.ParamByName('m1').Value:=memo1.Text;
dm.ADOQ_OS.Parameters.ParamByName('os').Value:=os;
DM.ADOQ_OS.Parameters.ParamByName('d').Value:= FormatDateTime('yyyy-mm-dd', datetimepicker1.Date);
Dm.ADOQ_OS.Parameters.ParamByName('idd').Value:=idd;
Dm.ADOQ_OS.Parameters.ParamByName('idp').Value:=idp;
DM.ADOQ_OS.ExecSQL;
//обновление 
DM.ADOQ_OS.Close;
DM.ADOQ_OS.SQL.Clear;
DM.ADOQ_OS.SQL.Add('SELECT * FROM osnovnoy_soputstvuyhiy_diagnoz osd INNER JOIN diagnoz dz ON dz.id_diagnoza=osd.id_diagnoza WHERE id_pacienta=:idpac');
DM.ADOQ_OS.Parameters.ParamByName('idpac').Value:=idp;
DM.ADOQ_OS.Open;
end;

Как мне с Locup - ом сделать можно ?

[Vasuha]

В обработчик события изменения первого DbLookupCombobox вставьте:
DbLookupCombobox2.KeyValue = (значение поля к которому он привязан)