• Registered: 2015-03-18
  • Posts: 94

Topic: Исключить из сохранения дублирующие записи

Добрый день. Помогите пожалуйста,дописать  данный скрипт, что бы исключить сохранение дубликатов.

procedure Form1_TableGrid1_OnChange (Sender: string);
begin
   Form1.ed1.Text:= Form1.TableGrid1.Cells[1,0];
   Form1.ed2.Text:= Form1.TableGrid1.Cells[2,0];
   Form1.ed3.Text:= Form1.TableGrid1.Cells[1,1];
   Form1.ed4.Text:= Form1.TableGrid1.Cells[2,1];
   Form1.ed5.Text:= Form1.TableGrid1.Cells[1,2];
   Form1.ed6.Text:= Form1.TableGrid1.Cells[2,2];
   Form1.ed7.Text:= Form1.TableGrid1.Cells[1,3];
   Form1.ed8.Text:= Form1.TableGrid1.Cells[2,3];
   Form1.ed9.Text:= Form1.TableGrid1.Cells[1,4];
   Form1.ed10.Text:= Form1.TableGrid1.Cells[2,4];
   Form1.ed11.Text:= Form1.TableGrid1.Cells[1,5];
   Form1.ed12.Text:= Form1.TableGrid1.Cells[2,5];
   Form1.ed13.Text:= Form1.TableGrid1.Cells[1,6];
   Form1.ed14.Text:= Form1.TableGrid1.Cells[2,6];
   Form1.ed15.Text:= Form1.TableGrid1.Cells[1,7];
   Form1.ed16.Text:= Form1.TableGrid1.Cells[2,7];
   Form1.ed17.Text:= Form1.TableGrid1.Cells[1,8];
   Form1.ed18.Text:= Form1.TableGrid1.Cells[2,8];
   Form1.ed19.Text:= Form1.TableGrid1.Cells[1,9];
   Form1.ed20.Text:= Form1.TableGrid1.Cells[2,9];

   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed1.sqlValue+','+Form1.ed2.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed3.sqlValue+','+Form1.ed4.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed5.sqlValue+','+Form1.ed6.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed7.sqlValue+','+Form1.ed8.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed9.sqlValue+','+Form1.ed10.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed11.sqlValue+','+Form1.ed12.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed13.sqlValue+','+Form1.ed14.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed15.sqlValue+','+Form1.ed16.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed17.sqlValue+','+Form1.ed18.sqlValue+')');
   SQLExecute('INSERT INTO Shop (name,bilety) VALUES ('+Form1.ed19.sqlValue+','+Form1.ed20.sqlValue+')');
end;

begin
    SQLExecute('ATTACH DATABASE ''\\CCTV\MrBingo\Mr.Bingo_Fixed\Avto\sqlite.db'' as ''Shop''');

end.
  • Registered: 2014-02-14
  • Posts: 10,294

Re: Исключить из сохранения дублирующие записи

Какая цель данного скрипта?
Вы используете событие грида OnChange, которое возникает каждый раз, после его заполнения, даже если данные в гриде были не изменены.

Dmitry.
  • Registered: 2015-03-18
  • Posts: 94

Re: Исключить из сохранения дублирующие записи

В TableGrid1 отображаются данные из связной базы №1. Мне необходимо, что бы эти данные сохранялись в базе №2 и выводились в Edit. Данный скрипт работает, только сохраняет и старые записи и новые.

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Исключить из сохранения дублирующие записи

Приложите к сообщению пожалуйста ваш проект (zip файл без exe и dll)
Постараюсь помочь.

Dmitry.
  • Registered: 2015-03-18
  • Posts: 94

Re: Исключить из сохранения дублирующие записи

Спасибо за помощь!

Post's attachments

Attachment icon Shop.rar 293.67 kb, 429 downloads since 2015-09-05 

  • Registered: 2014-02-14
  • Posts: 10,294

Re: Исключить из сохранения дублирующие записи

К сожалению я не понимаю как это можно реализовать на примере вашего проекта.

Dmitry.
  • Registered: 2015-03-18
  • Posts: 94

Re: Исключить из сохранения дублирующие записи

Спасибо. Я смог решить эту проблему более простым способом.