tdly.~pas

来自「地理资源的录入程序运用了api的一些知识」· ~PAS 代码 · 共 1,654 行 · 第 1/5 页

       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',ld.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(ld.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',ld.Text)<1)and(copy(ld.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

      yld.SetFocus;
end;

procedure Ttdlyxxfrm.yldKeyPress(Sender: TObject; var Key: Char);
begin
 if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',yld.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(yld.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',yld.Text)<1)and(copy(yld.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

      gml.SetFocus;
end;

procedure Ttdlyxxfrm.gmlKeyPress(Sender: TObject; var Key: Char);
begin
 if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',gml.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(gml.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',gml.Text)<1)and(copy(gml.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

      sml.SetFocus;
end;

procedure Ttdlyxxfrm.smlKeyPress(Sender: TObject; var Key: Char);
begin

  if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',sml.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(sml.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',sml.Text)<1)and(copy(sml.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else

    if key = #13 then
      wclzld.SetFocus;


end;

procedure Ttdlyxxfrm.wclzldKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',wclzld.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(wclzld.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',wclzld.Text)<1)and(copy(wclzld.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
   if key = #13 then

     jd.SetFocus;
end;

procedure Ttdlyxxfrm.jdKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',jd.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(jd.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',jd.Text)<1)and(copy(jd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

      mp.SetFocus;
end;

procedure Ttdlyxxfrm.mpKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',mp.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(mp.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',mp.Text)<1)and(copy(mp.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

     mcd.SetFocus;
end;

procedure Ttdlyxxfrm.mcdKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',mcd.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(mcd.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',mcd.Text)<1)and(copy(mcd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                    else
if key = #13 then

      trcd.SetFocus;
end;

procedure Ttdlyxxfrm.trcdKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',trcd.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(trcd.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',trcd.Text)<1)and(copy(trcd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                     ELSE
if key = #13 then

     glcd.SetFocus;
end;

procedure Ttdlyxxfrm.glcdKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then

      tsyd.SetFocus;
end;

procedure Ttdlyxxfrm.tsydKeyPress(Sender: TObject; var Key: Char);
begin
if key = #13 then

     jtyd.SetFocus;
end;

procedure Ttdlyxxfrm.jtydKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',jtyd.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(jtyd.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',jtyd.Text)<1)and(copy(jtyd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                     ELSE
if key = #13 then

     tl.SetFocus;
end;

procedure Ttdlyxxfrm.tlKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',tl.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(tl.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',tl.Text)<1)and(copy(tl.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                     ELSE
if key = #13 then

     gl.SetFocus;
end;

procedure Ttdlyxxfrm.glKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('@_@ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',gl.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(gl.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',gl.Text)<1)and(copy(gl.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                     ELSE
if key = #13 then

     ncdl.SetFocus ;
end;

procedure Ttdlyxxfrm.ncdlKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('@_@ 你输入错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',ncdl.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(ncdl.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',ncdl.Text)<1)and(copy(ncdl.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入错了!'); end
                     ELSE
if key = #13 then

     myjc.SetFocus ;
end;

procedure Ttdlyxxfrm.myjcKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('@_@ 你输入格式错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',ncdl.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(ncdl.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',ncdl.Text)<1)and(copy(ncdl.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
                     ELSE
if key = #13 then

      gkmt.SetFocus ;
end;

procedure Ttdlyxxfrm.gkmtKeyPress(Sender: TObject; var Key: Char);
begin
if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('@_@ 你输入格式错了!'); end
       else
                     //只能输入数字、小数点和回车、退格
         if   (key   in   ['.'])   and   (pos('.',gkmt.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
         else
                   //只能输入一个小数点