Form1->Cursor=crSQLWait;
   if(flag_con)
 {
   //Kon_serv->Caption="Старт";
    end_con();
    prn_log("Соединение прерванно",false, 2 );
 }
 else
 {
  // Kon_serv->Caption="Стоп";

   Mod->Server->ConnectionString="FILE NAME="+path+"\/server.udl";
  // Mod->Server->ConnectionString="FILE NAME="+path+"\/import.udl";
   Mod->Client->ConnectionString="FILE NAME="+path+"\/client.udl";
   Mod->Server->Connected=true;
   Mod->Client->Connected=true;
   flag_import=false;

   N7->Enabled=true;
   N8->Enabled=true;
   flag_con=true;
   N6->Caption="Стоп";
   prn_log("Соединение устанновленно",false, 2 );
 }
   Form1->Cursor=crDefault;

 end_con()    // завершить соединение
 {
   Mod->Server->Connected=false;
   Mod->Client->Connected=false;
   Mod->Import->Connected=false;
   flag_con=false;
   Form1->Timer1->Enabled=false;
   flag_import=false;
   Form1->N7->Enabled=false;
   Form1->N8->Enabled=false;
   Form1->N7->Caption="Копия автоматом";
   Form1->N7->Checked=false;
   Form1->N6->Caption="Старт";
   Form1->StatusBar1->Visible=false;
   return true;
 }

     AnsiString sql_txt="";
       sql_txt="update otm set flag_out=1 where date={08.08.2008} and time_i=ROUND(7.03,2) and time_o=ROUND(7.30,2)";

       Mod->ClientFlags->Close();
       Mod->ClientFlags->SQL->Clear();
       Mod->ClientFlags->SQL->Add(sql_txt);
       Mod->ClientFlags->ExecSQL();

upd_client(bool time_out,bool time_in,float t_i,float t_o,int tn,AnsiString dd)
  {

   AnsiString sql_txt="";
         sql_txt="update otm set ";
       if(time_in)
         sql_txt =sql_txt+" flag_in=1, ";
         else
          sql_txt =sql_txt+" flag_in=0, ";
       if(time_out)
          sql_txt =sql_txt+" flag_out=1 ";
          else
            sql_txt =sql_txt+" flag_out=0 ";

       if(flag_import) // åñëè âñòàâëÿåì èç èìïîðòà
           sql_txt =sql_txt+", flag_imp=1 ";

       sql_txt=sql_txt+" where tn="+ IntToStr(tn)+" and date=:dd1 ";
       if(time_in)
        sql_txt=sql_txt+" and time_i=:tin";
       if(time_out)
       sql_txt=sql_txt+" and time_o=:tout ";


       Mod->ClientFlags->Close();
       Mod->ClientFlags->SQL->Clear();
       Mod->ClientFlags->SQL->Add(sql_txt);

     Mod->ClientFlags->Parameters->ParamByName("dd1")->DataType =ftDateTime;
     Mod->ClientFlags->Parameters->ParamByName("dd1")->Value  =dd;

       if(time_in)
     {
     Mod->ClientFlags->Parameters->ParamByName("tin")->Value  =Mod->GetData->Fields->FieldByName("time_i")->Value;
     // Mod->ClientFlags->Parameters->ParamByName("tin")->Value  = t_i;


     }
     if(time_out)
     {
       Mod->ClientFlags->Parameters->ParamByName("tout")->DataType=ftFloat;
       Mod->ClientFlags->Parameters->ParamByName("tout")->NumericScale= 2 ;
       Mod->ClientFlags->Parameters->ParamByName("tout")->Value  =Mod->GetData->Fields->FieldByName("time_o")->AsFloat;
     }

       Mod->ClientFlags->ExecSQL();
       return true;
  }