Создание приложений для работы с базами данных в сети 573

Рис. 10.6

Приложение работы с
базами данных в
режиме правки записи

SQL Update. Можно выполнить его с помощью того компонента Query 2, который
связан с таблицей Pers. Но в этом случае придется запоминать запрос Select, кото-
рый был в свойстве компонента до этого, формировать и выполнять новый запрос,
а потом восстанавливать и выполнять прежний запрос. Вероятно, проще добавить
в приложение еще один компонент Query — Query3 и с его помощью выполнять
запросы по изменению записей таблицы. Поскольку Query3 не используется для
какого-либо отображения данных, к нему можно не подключать никакого компо-
нента DataSource.

В этом варианте код занесения измененной записи в таблицу может иметь вид:

AnsiString s,sSQL;

const AnsiString si =",";

sSQL = "Update Pers SET ";

if (Query2Dep->AsString != CBEDep->Text)
{

s = "отдел";

sSQL += "Dep='"+CBEDep->Text+"'";

if (Query2Fam->AsString '.= EFam->Text)
{

if (s != "") { s += si; sSQL += si; }

s += " фамилию";

sSQL += "Fam='"+EFam->Text+"'";

}

if (Query2Nam->AsString != ENam->Text)
(

if (s != "") { s += si; sSQL += si; )

s += " имя";

sSQL += "Nam='"+ENam->Text+"'";

}

if (Query2Sex->AsBoolean != (RGSex->ItemIndex == 0))
{

if (s != "") { s +- si; sSQL += si; }
s += " пол";

sSQL += "Sex=";

if(RGSex->ItemIndex == 0) sSQL += "true";

else sSQL += "-false";

}
if (s != "")