tdly.pas

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

var
  i: integer;
  j: string;
begin
  j := DM.tdlyxx.Fields[1].Value;
  i := application.MessageBox('信息删除将直接影响数据库,您确信真的要删除吗？', '删除信息提示', MB_YESNO + MB_ICONWARNING);
  if i = 6 then
  begin
    DM.tdlyxx.Close;
    DM.tdlyxx.SQL.Clear;
    DM.tdlyxx.SQL.Add('delete from T_GEO_landuse where Z_PTZYBH= '+#39+j+#39);
    DM.tdlyxx.ExecSQL;
    DM.tdlyxx.SQL.Clear;
    DM.tdlyxx.SQL.Add('select * from T_GEO_landuse');
    DM.tdlyxx.Open;
    application.MessageBox('信息删除成功!!!', '删除信息提示', MB_ICONINFORMATION);
  end
end;

procedure Ttdlyxxfrm.DBGrid1DblClick(Sender: TObject);
begin
 GetAll;
 Bitbtn2.Click; //鼠标双击的时候，进入该条记录的编辑状态
// tdlyxxfrm.PageControl1.TabIndex := 0;
end;

procedure Ttdlyxxfrm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
case DM.dstdlyxx.DataSet.RecNo mod 2 = 0 of
    //如果是奇数行显示的颜色是00DDE8FF，偶数行显示时clwhite
    True: DbGrid1.Canvas.Brush.Color := clWhite;
    False: DbGrid1.Canvas.Brush.Color := clGradientActiveCaption;
  end;
   with TCustomDBGridCracker(sender) do
       begin
              if DataLink.ActiveRecord=Row-1 then
              Canvas.Brush.Color:=clgreen;
              DefaultDrawColumnCell(Rect,DataCol,Column,State);
       end;
end;

procedure Ttdlyxxfrm.BitBtn6Click(Sender: TObject);
begin
close;
end;

procedure Ttdlyxxfrm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
case button of
 nbfirst:
  begin
     getall;
    dis;// bitbtn2.Click;
  end;
  nbprior:
      begin
       getall;
      dis;// bitbtn2.Click;
     end;
  nbnext:
   begin
      getall;
      dis;//bitbtn2.Click;
  end;
  nblast:
     begin
      getall;
      dis;//bitbtn2.Click;
  end;
end;
end;

procedure Ttdlyxxfrm.FormShow(Sender: TObject);
begin
DIS;
CLS;

end;


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

           if key = #13 then  gd.SetFocus;
   end;


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

ggst.SetFocus;
end;

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

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

 sjd.SetFocus;
end;

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

if key = #13 then

cd.SetFocus;
end;

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

       yd.SetFocus;
end;

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

     hd.SetFocus;
end;

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

       sy.SetFocus;
end;

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

     gy.SetFocus;
end;

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

     qtyd.SetFocus;
end;

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

      ld.SetFocus;
end;

procedure Ttdlyxxfrm.ldKeyPress(Sender: TObject; var Key: Char);
begin
 if   not   (key   in   ['.','0'..'9',#8,#13])   then
       begin   key:=#0;showmessage('^_^ 你输入错了!'); end