         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 != "")