home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd1.bin / tema / SW602 / Winbase / EShop_demo / REPLIKACE.PGM < prev    next >
Text File  |  2000-03-16  |  1KB  |  55 lines
  1. {$$3220792583                                }INCLUDE
  2. table srvtab;
  3.  
  4.  
  5.  
  6.  
  7.  
  8.  
  9.  procedure replikuj(kam:Boolean);
  10. {*******************************************************************}
  11. var
  12.  replOK:Boolean;
  13. begin
  14.   replOK:=Areplicate(kam);
  15.   if not replOK then Info_Box("UPOZORN╠N═","Replikace nebyla ·sp∞Ünß, zkontrolujte komunikaci MAIL602!"); 
  16. end;
  17.  
  18.  
  19.  
  20.  procedure prepis_adr(name:string[32]);
  21. {*******************************************************************}
  22.  var
  23.   irec:trecnum;
  24.   curs:cursor;
  25.   query:string[250];
  26.   pocet:integer;
  27.   u:untyped;
  28.   OK: Boolean;
  29.  
  30.  begin
  31.   query:="SELECT SRVNAME, ADDR1, ADDR2 FROM  INFOREPL WHERE SRVNAME="+""""+name+"""";
  32.   if not Open_sql_cursor(Curs,query) then  Rec_cnt(Curs, pocet);
  33. //srvtab[0].addr1:="{Internet}milkom@software602.cz";
  34.   if pocet >0 then
  35.     begin
  36.       u:=name;
  37.       irec := Look_up(srvtab,"SRVNAME",u);
  38.       if irec<>-1 then
  39.         begin
  40.          OK:=YesNo_box("UPOZORN╠N═", "Opravdu chcete p°epsat adresy serveru v systΘmovΘ tabulce?");
  41.           if OK then
  42.             begin
  43.               srvtab[irec].addr1:=curs[0].addr1;
  44.               srvtab[irec].addr2:=curs[0].addr2;
  45.             end; 
  46.          end
  47.         else Info_box("UPOZORN╠N═", "Nenalezen server zadanΘho jmΘna v aplikaΦnφ tabulce InfoRepl");
  48.     end
  49.     else Info_box("UPOZORN╠N═", "Nenalezen server zadanΘho jmΘna v systΘmovΘ tabulce SRVTAB, server nebyl zaregistrovßn");
  50.     close_cursor(curs);
  51. end;
  52.  
  53.  
  54.  
  55.