574_____________________________________________ 10

if (Application->MessageBox(

("   "+s+"?"). str(),
"    ",
MB_YESNO + MB_ICONQUESTION) == IDYES)
(
Query3->Close() ;

Query3->SCL->Clear() ;

Query3->SQL->Add(sSQL+" WHERE Num=" +

IntToStr(Query2Num-> Aslnteger) ) ;

Query3->ExecSQL() ;

Query2->Close () ;

Query2->0pen() ;

}

    ,      -
,    :     SB  
  ,   sSQL     SQL.

       :

   ,  ?.   
   SQL : Update Pers SET Dep==..., Fam=...
WHERE Num=...,      , -
     ,   
WHERE   ,  .     -
 Query2,        .

       :

if (Application->MessageBox("   ?",
"  ",
MB_YESNO + MB_ICONEXCLAMATION) == IDYES)
(
' Query3->Close ();

Query3->SQL->Clear () ;

Query3->SQL->Add("DELETE FROM Pers WHERE Num =" +
IntToStr(Query2Num->AsInteger)) ;

Query3->ExecSQL() ;

Query2->Close () ;

Query2->0pen() ;

1

          
   SQL DELETE FROM Pers WHERE Num =...,  
     .

       :

Query3->Close();

Query3->SQL->Clear() ;

Query3->SQL->Add("INSERT INTO Pers (Dep,Earn,Nam,Par) VALUES ('"
+ CBEDep->Text+"','?','?','?')");

Query3->ExecSQL() ;

Query2->Close() ;

Query2->0pen() ;

     ,     
 SQL INSERT INTO Pers (Dep,Fam,Nam,Par) VALUES ('... ','?','?','?').
 Fam, Nam  Par   Pers  .   -
      .      
,      ,   H(
    .

   ,     -
       Table  Query (   
     ,   ).  , 
    ,    