Реферат: База данных Бюро знакомств

//table2.Open;

table1.DisableControls;//Отмена слежения за изменениями в таблице Table1

table2.DisableControls;//Отмена слежения за изменениями в таблице Table2

table3.Open;//Открываем таблицу Table3

table3.Append;//Добавляем в конец таблицы новую строку

table3.FieldByName('reg').AsInteger:=table1.FieldByName('reg').AsInteger;//копируем в поле "REG" таблицы Table3 значение поля "REG" таблицы Table1

table3.FieldByName('date').Asdatetime:=table1.FieldByName('date').Asdatetime;//копируем в поле "DATE" таблицы Table3 значение поля "DATE" таблицы Table1

table3.FieldByName('pol').Asstring:=table1.FieldByName('pol').Asstring;//копируем в поле "POL" таблицы Table3 значение поля "POL" таблицы Table1

table3.FieldByName('osebe').AsVariant:=table1.FieldByName('osebe').AsVariant;//копируем в поле "OSEBE" таблицы Table3 значение поля "OSEBE" таблицы Table1

table3.FieldByName('treb').AsVariant:=table1.FieldByName('treb').AsVariant;//копируем в поле "TREB" таблицы Table3 значение поля "TREB" таблицы Table1

table3.FieldByName('name').Asstring:=table1.FieldByName('name').Asstring;//копируем в поле "NAME" таблицы Table3 значение поля "NAME" таблицы Table1

table3.FieldByName('family').Asstring:=table1.FieldByName('family').Asstring;//копируем в поле "FAMILY" таблицы Table3 значение поля "FAMILY" таблицы Table1

table3.FieldByName('father').Asstring:=table1.FieldByName('Father').Asstring;//копируем в поле "FATHER" таблицы Table3 значение поля "FATHER" таблицы Table1

table3.Post;//Сохраняем изменения в таблице Table3

table3.Append;//Добавляем в конец таблицы новую строку

table3.FieldByName('reg').AsInteger:=table2.FieldByName('reg').AsInteger;//копируем в поле "REG" таблицы Table3 значение поля "REG" таблицы Table2

table3.FieldByName('date').Asdatetime:=table2.FieldByName('date').Asdatetime;//копируем в поле "DATE" таблицы Table3 значение поля "DATE" таблицы Table2

table3.FieldByName('pol').Asstring:=table2.FieldByName('pol').Asstring;//копируем в поле "POL" таблицы Table3 значение поля "POL" таблицы Table2

table3.FieldByName('osebe').AsVariant:=table2.FieldByName('osebe').AsVariant;//копируем в поле "OSEBE" таблицы Table3 значение поля "OSEBE" таблицы Table2

table3.FieldByName('treb').AsVariant:=table2.FieldByName('treb').AsVariant;//копируем в поле "TREB" таблицы Table3 значение поля "TREB" таблицы Table2

table3.FieldByName('name').Asstring:=table2.FieldByName('name').Asstring;//копируем в поле "NAME" таблицы Table3 значение поля "NAME" таблицы Table2

table3.FieldByName('family').Asstring:=table2.FieldByName('family').Asstring;//копируем в поле "FAMILY" таблицы Table3 значение поля "FAMILY" таблицы Table2

table3.FieldByName('father').Asstring:=table2.FieldByName('Father').Asstring;//копируем в поле "FATHER" таблицы Table3 значение поля "FATHER" таблицы Table2

table3.Post;//Сохраняем изменения в таблице Table3

Button3Click(Sender);//Вызов процедуры Button3Click(см ниже)

table1.Delete;//Удаляем текущую строку из таблицы TABLE1

table2.Delete;//Удаляем текущую строку из таблицы TABLE2

table1.EnableControls;//Возобновляем контроль над таблицей TABLE1

table2.EnableControls;//Возобновляем контроль над таблицей TABLE2