tdly.~pas

地理资源的录入程序运用了api的一些知识

            if   (key   in   ['.'])   and(length(gkmt.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',gkmt.Text)<1)and(copy(gkmt.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
                     ELSE
if key = #13 then

     shy.SetFocus ;
end;

procedure Ttdlyxxfrm.shyKeyPress(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('.',shy.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(shy.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',shy.Text)<1)and(copy(shy.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
                     ELSE
if key = #13 then

     hlsm.SetFocus ;
end;

procedure Ttdlyxxfrm.hlsmKeyPress(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('.',hlsm.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(hlsm.Text)<1)   then
                begin  key:=#0;  showmessage('^_^ 你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',hlsm.Text)<1)and(copy(hlsm.Text,1,1)='0')   then
                     begin  key:=#0;showmessage('^_^ 你输入格式错了!'); end
                     ELSE
if key = #13 then

     hbsm.SetFocus;
end;

procedure Ttdlyxxfrm.hbsmKeyPress(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('.',hbsm.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(hbsm.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',hbsm.Text)<1)and(copy(hbsm.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     sksm.SetFocus;
end;

procedure Ttdlyxxfrm.sksmKeyPress(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('.',sksm.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(sksm.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',sksm.Text)<1)and(copy(sksm.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     ktsm.SetFocus ;
end;

procedure Ttdlyxxfrm.ktsmKeyPress(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('.',ktsm.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(ktsm.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',ktsm.Text)<1)and(copy(ktsm.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     wd.SetFocus ;
end;

procedure Ttdlyxxfrm.wdKeyPress(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('.',wd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(wd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',wd.Text)<1)and(copy(wd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     tt.SetFocus ;
end;

procedure Ttdlyxxfrm.ttKeyPress(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('.',tt.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(tt.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',tt.Text)<1)and(copy(tt.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     gq.SetFocus ;
end;

procedure Ttdlyxxfrm.gqKeyPress(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('.',gq.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(gq.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',gq.Text)<1)and(copy(gq.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     sgjzw.SetFocus ;
end;

procedure Ttdlyxxfrm.sgjzwKeyPress(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('.',sgjzw.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(sgjzw.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',sgjzw.Text)<1)and(copy(sgjzw.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

      wlytd.SetFocus ;
end;

procedure Ttdlyxxfrm.hcdKeyPress(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('.',hcd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(hcd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',hcd.Text)<1)and(copy(hcd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     yjd.SetFocus ;
end;

procedure Ttdlyxxfrm.wlytdKeyPress(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('.',wlytd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(wlytd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',wlytd.Text)<1)and(copy(wlytd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     hcd.SetFocus ;
end;

procedure Ttdlyxxfrm.yjdKeyPress(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('.',yjd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(yjd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',yjd.Text)<1)and(copy(yjd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     zzd.SetFocus ;
end;

procedure Ttdlyxxfrm.zzdKeyPress(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('.',zzd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(zzd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',zzd.Text)<1)and(copy(zzd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     sd.SetFocus ;
end;

procedure Ttdlyxxfrm.sdKeyPress(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('.',sd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个小数点
            if   (key   in   ['.'])   and(length(sd.Text)<1)   then
                begin  key:=#0;  showmessage('你输入格式错了!');end
                else
                     //第一位不能为小数点
                   if   (key   in   ['0'])   and   (pos('.',sd.Text)<1)and(copy(sd.Text,1,1)='0')   then
                     begin  key:=#0;showmessage(' 你输入格式错了!'); end
                     ELSE
if key = #13 then

     ltd.SetFocus ;
end;

procedure Ttdlyxxfrm.ltdKeyPress(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('.',ltd.Text)>0)   then
               begin  key:=#0;showmessage(' 你输入格式错了!'); end
         else
                   //只能输入一个