zbsunit.pas

本系统在一些大中型企业(跨多达24个区域)一直都在很好的服务过

    end else
    begin
     uploadsize:=0;

   StatusBar1.Panels[1].text:=' OK! 命令处理完毕!';
    end;


    end;
    end;
end;



(*@\\\0000000401*)
(*@/// procedure Tmainform.ftp_data(Sender:TObject; mode: t_ftp_mode; data:integer); *)
procedure Tzbsform.ftp_data(Sender:TObject; mode: t_ftp_mode; data:integer);
begin
  if mode=tftp_download then begin
    size:=size+data;
    if t_ftp(sender).size=0 then
    begin
     if downloadfile then begin
    StatusBar1.Panels[1].text:=' OK! 下载已成功完成...';

     end else begin

    StatusBar1.Panels[1].text:='   '+inttostr(size)+'   字节已被接收';
     end;

    end

    else
    begin
    if downloadfile then begin
    StatusBar1.Panels[1].text:=' OK 下载已成功完成..';

     end else begin
    StatusBar1.Panels[1].text:='  总计:'+inttostr(t_ftp(sender).size)+' 字节，已下载 '+inttostr(size)+' 字节...';

                      end;

    end ;

    end;
 if mode=tftp_upload then begin

    size:=size+data;
    if t_ftp(sender).size=0 then
    begin
    StatusBar1.Panels[1].text:='   '+inttostr(size)+'   字节已被发送';

    end

    else
    begin
    StatusBar1.Panels[1].text:='   '+inttostr(size)+' of '+
                         inttostr(t_ftp(sender).size)+'  字节已被发送';

    end ;

    end;

  end;
(*@\\\003C000801000801000923000935000801*)
(*@/// procedure Tmainform.ftp_trace(const s: string; level: TTraceLevel); *)








procedure Tzbsform.Edit3Change(Sender: TObject);
begin
DateTimePicker1Change(nil);
end;


procedure Tzbsform.Edit3Enter(Sender: TObject);
begin

      showmessage('警告:此框内数据不可更改!') ;
      Edit2.SetFocus;
      exit;
end;


function Tzbsform.makescreat(s:string) :string;
 var
  temp:string[100];
  i:integer;
  begin

         for i:=0 to 100 do
         begin
         temp[i]:=' ';
         end;
         temp:=s;
         Result:='';
         for i:=0 to 100 do
         begin
          // if trim(temp[i])='' then exit;
           if temp[i]='a' then  Result:=Result+'y';
           if temp[i]='b' then  Result:=Result+'x';
           if temp[i]='c' then  Result:=Result+'a';
           if temp[i]='d' then  Result:=Result+'g';
           if temp[i]='e' then  Result:=Result+'i';
           if temp[i]='f' then  Result:=Result+'w';
           if temp[i]='g' then  Result:=Result+'h';
           if temp[i]='h' then  Result:=Result+'v';
           if temp[i]='i' then  Result:=Result+'d';
           if temp[i]='j' then  Result:=Result+'u';
           if temp[i]='k' then  Result:=Result+'t';
           if temp[i]='l' then  Result:=Result+'e';
           if temp[i]='m' then  Result:=Result+'f';
           if temp[i]='n' then  Result:=Result+'j';
           if temp[i]='o' then  Result:=Result+'q';
           if temp[i]='p' then  Result:=Result+'r';
           if temp[i]='q' then  Result:=Result+'s';
           if temp[i]='r' then  Result:=Result+'z';
           if temp[i]='s' then  Result:=Result+'l';
           if temp[i]='t' then  Result:=Result+'k';
           if temp[i]='u' then  Result:=Result+'m';
           if temp[i]='v' then  Result:=Result+'b';
           if temp[i]='w' then  Result:=Result+'n';
           if temp[i]='x' then  Result:=Result+'o';
           if temp[i]='y' then  Result:=Result+'c';
           if temp[i]='z' then  Result:=Result+'p';

           if temp[i]='A' then  Result:=Result+'Y';
           if temp[i]='B' then  Result:=Result+'X';
           if temp[i]='C' then  Result:=Result+'A';
           if temp[i]='D' then  Result:=Result+'G';
           if temp[i]='E' then  Result:=Result+'I';
           if temp[i]='F' then  Result:=Result+'W';
           if temp[i]='G' then  Result:=Result+'H';
           if temp[i]='H' then  Result:=Result+'V';
           if temp[i]='I' then  Result:=Result+'D';
           if temp[i]='J' then  Result:=Result+'U';
           if temp[i]='K' then  Result:=Result+'T';
           if temp[i]='L' then  Result:=Result+'E';
           if temp[i]='M' then  Result:=Result+'F';
           if temp[i]='N' then  Result:=Result+'J';
           if temp[i]='O' then  Result:=Result+'Q';
           if temp[i]='P' then  Result:=Result+'R';
           if temp[i]='Q' then  Result:=Result+'S';
           if temp[i]='R' then  Result:=Result+'Z';
           if temp[i]='S' then  Result:=Result+'L';
           if temp[i]='T' then  Result:=Result+'K';
           if temp[i]='U' then  Result:=Result+'M';
           if temp[i]='V' then  Result:=Result+'B';
           if temp[i]='W' then  Result:=Result+'N';
           if temp[i]='X' then  Result:=Result+'O';
           if temp[i]='Y' then  Result:=Result+'C';
           if temp[i]='Z' then  Result:=Result+'P';

           if temp[i]='1' then  Result:=Result+'2';
           if temp[i]='2' then  Result:=Result+'5';
           if temp[i]='3' then  Result:=Result+'6';
           if temp[i]='4' then  Result:=Result+'8';
           if temp[i]='5' then  Result:=Result+'9';
           if temp[i]='6' then  Result:=Result+'1';
           if temp[i]='7' then  Result:=Result+'3';
           if temp[i]='8' then  Result:=Result+'0';
           if temp[i]='9' then  Result:=Result+'7';
           if temp[i]='0' then  Result:=Result+'4';

           if temp[i]='!' then  Result:=Result+'!';
           if temp[i]='@' then  Result:=Result+'@';
           if temp[i]='#' then  Result:=Result+'#';
           if temp[i]='%' then  Result:=Result+'%';
           if temp[i]='^' then  Result:=Result+'^';
           if temp[i]='&' then  Result:=Result+'&';
           if temp[i]='*' then  Result:=Result+'*';
           if temp[i]='(' then  Result:=Result+'(';
           if temp[i]=')' then  Result:=Result+')';
           if temp[i]='.' then  Result:=Result+'.';   
             Result:=TRIM(Result);

           //Result:=
         end;




  end;

function Tzbsform.showscreat(s:string) :string;
 var
  temp:string[100];
  i:integer;
  begin

         for i:=0 to 100 do
         begin
         temp[i]:=' ';
         end;
         temp:=s;
         Result:='';
         for i:=0 to 100 do
         begin
          // if trim(temp[i])='' then exit;
           if temp[i]='y' then  Result:=Result+'a';
           if temp[i]='x' then  Result:=Result+'b';
           if temp[i]='a' then  Result:=Result+'c';
           if temp[i]='g' then  Result:=Result+'d';
           if temp[i]='i' then  Result:=Result+'e';
           if temp[i]='w' then  Result:=Result+'f';
           if temp[i]='h' then  Result:=Result+'g';
           if temp[i]='v' then  Result:=Result+'h';
           if temp[i]='d' then  Result:=Result+'i';
           if temp[i]='u' then  Result:=Result+'j';
           if temp[i]='t' then  Result:=Result+'k';
           if temp[i]='e' then  Result:=Result+'l';
           if temp[i]='f' then  Result:=Result+'m';
           if temp[i]='j' then  Result:=Result+'n';
           if temp[i]='q' then  Result:=Result+'o';
           if temp[i]='r' then  Result:=Result+'p';
           if temp[i]='s' then  Result:=Result+'q';
           if temp[i]='z' then  Result:=Result+'r';
           if temp[i]='l' then  Result:=Result+'s';
           if temp[i]='k' then  Result:=Result+'t';
           if temp[i]='m' then  Result:=Result+'u';
           if temp[i]='b' then  Result:=Result+'v';
           if temp[i]='n' then  Result:=Result+'w';
           if temp[i]='o' then  Result:=Result+'x';
           if temp[i]='c' then  Result:=Result+'y';
           if temp[i]='p' then  Result:=Result+'z';

           if temp[i]='Y' then  Result:=Result+'A';
           if temp[i]='X' then  Result:=Result+'B';
           if temp[i]='A' then  Result:=Result+'C';
           if temp[i]='G' then  Result:=Result+'D';
           if temp[i]='I' then  Result:=Result+'E';
           if temp[i]='W' then  Result:=Result+'F';
           if temp[i]='H' then  Result:=Result+'G';
           if temp[i]='V' then  Result:=Result+'H';
           if temp[i]='D' then  Result:=Result+'I';
           if temp[i]='U' then  Result:=Result+'J';
           if temp[i]='T' then  Result:=Result+'K';
           if temp[i]='E' then  Result:=Result+'L';
           if temp[i]='F' then  Result:=Result+'M';
           if temp[i]='J' then  Result:=Result+'N';
           if temp[i]='Q' then  Result:=Result+'O';
           if temp[i]='R' then  Result:=Result+'P';
           if temp[i]='S' then  Result:=Result+'Q';
           if temp[i]='Z' then  Result:=Result+'R';
           if temp[i]='L' then  Result:=Result+'S';
           if temp[i]='K' then  Result:=Result+'T';
           if temp[i]='M' then  Result:=Result+'U';
           if temp[i]='B' then  Result:=Result+'V';
           if temp[i]='N' then  Result:=Result+'W';
           if temp[i]='O' then  Result:=Result+'X';
           if temp[i]='C' then  Result:=Result+'Y';
           if temp[i]='P' then  Result:=Result+'Z';

           if temp[i]='2' then  Result:=Result+'1';
           if temp[i]='5' then  Result:=Result+'2';
           if temp[i]='6' then  Result:=Result+'3';
           if temp[i]='8' then  Result:=Result+'4';
           if temp[i]='9' then  Result:=Result+'5';
           if temp[i]='1' then  Result:=Result+'6';
           if temp[i]='3' then  Result:=Result+'7';
           if temp[i]='0' then  Result:=Result+'8';
           if temp[i]='7' then  Result:=Result+'9';
           if temp[i]='4' then  Result:=Result+'0';

           if temp[i]='!' then  Result:=Result+'!';
           if temp[i]='@' then  Result:=Result+'@';
           if temp[i]='#' then  Result:=Result+'#';
           if temp[i]='%' then  Result:=Result+'%';
           if temp[i]='^' then  Result:=Result+'^';
           if temp[i]='&' then  Result:=Result+'&';
           if temp[i]='*' then  Result:=Result+'*';
           if temp[i]='(' then  Result:=Result+'(';
           if temp[i]=')' then  Result:=Result+')';
           if temp[i]='.' then  Result:=Result+'.';

           Result:=TRIM(Result);
           //Result:=
         end;
                                               



  end;




end.