dqjj.pas

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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