dqjj.pas

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

  //DM.dqjjxx.Close;
 // DM.dqjjxx.Open;  //打开customer组件
 // DM.dqjjxx.Last;
end;

procedure TdqjjxxFrm.BitBtn6Click(Sender: TObject);
var i:integer;
begin
close;
end;

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

end;

procedure TdqjjxxFrm.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

case DM.dsdqjjxx.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 TdqjjxxFrm.BitBtn5Click(Sender: TObject);
var
  i: integer;
  j: string;
begin
  j := DM.dqjjxx.Fields[2].Value;
  i := application.MessageBox('信息删除将直接影响数据库,您确信真的要删除吗？', '删除信息提示', MB_YESNO + MB_ICONWARNING);
  if i = 6 then
  begin
    DM.dqjjxx.Close;
    DM.dqjjxx.SQL.Clear;
    DM.dqjjxx.SQL.Add('delete from T_GEO_economic where Z_PTZYBH='+#39+j+#39);
    DM.dqjjxx.ExecSQL;
    DM.dqjjxx.SQL.Clear;
    DM.dqjjxx.SQL.Add('select * from T_GEO_economic');
    DM.dqjjxx.Open;
    cls;
    application.MessageBox('信息删除成功!!!', '删除信息提示', MB_ICONINFORMATION);
  end
end;
procedure TdqjjxxFrm.dqmcSelect(Sender: TObject);
var
l:string;
begin
   gxmc.Clear;
   if dqmc.ItemIndex=0 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >100 and z_dmbm < 200 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
   else
      if dqmc.ItemIndex=1 then
         begin
           gxmc.Clear;
          dm.Qur_dmb.Close;
          dm.Qur_dmb.SQL.Clear;
          dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >200 and z_dmbm < 300 and z_dmlxbm>1 and z_dmlxbm<3 ');
          dm.Qur_dmb.Open;
          dm.Qur_dmb.first;
          while not dm.Qur_dmb.Eof do
            begin
            l:=dm.Qur_dmb.Fields[0].Value;
            gxmc.AddItem(l,gxmc);
            dm.Qur_dmb.Next;
            end;
          end
       else
            if dqmc.ItemIndex=2 then
                  begin
                      gxmc.Clear;
                      dm.Qur_dmb.Close;
                      dm.Qur_dmb.SQL.Clear;
                      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >300 and z_dmbm < 400 and z_dmlxbm>1 and z_dmlxbm<3 ');
                      dm.Qur_dmb.Open;
                      dm.Qur_dmb.first;
                      while not dm.Qur_dmb.Eof do
                       begin
                           l:=dm.Qur_dmb.Fields[0].Value;
                           gxmc.AddItem(l,gxmc);
                           dm.Qur_dmb.Next;
                       end;
                  end
else
    if dqmc.ItemIndex=3 then
                  begin
                      gxmc.Clear;
                      dm.Qur_dmb.Close;
                      dm.Qur_dmb.SQL.Clear;
                      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >400 and z_dmbm < 500  and z_dmlxbm>1 and z_dmlxbm<3');
                      dm.Qur_dmb.Open;
                      dm.Qur_dmb.first;
                      while not dm.Qur_dmb.Eof do
                       begin
                           l:=dm.Qur_dmb.Fields[0].Value;
                           gxmc.AddItem(l,gxmc);
                           dm.Qur_dmb.Next;
                       end;
                  end
       else
          if dqmc.ItemIndex=4 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >500 and z_dmbm < 600 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
       else
          if dqmc.ItemIndex=5 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >600 and z_dmbm < 700 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
     else
       if dqmc.ItemIndex=6 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >700 and z_dmbm <800 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
      else
      if dqmc.ItemIndex=7 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >800 and z_dmbm < 900 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
      else
       if dqmc.ItemIndex=8 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >900 and z_dmbm < 1000 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
       else
       if dqmc.ItemIndex=9 then
    begin
    gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >1000 and z_dmbm < 1100 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
      end
   else
        if dqmc.ItemIndex=10 then
    begin
      gxmc.Clear;
      dm.Qur_dmb.Close;
      dm.Qur_dmb.SQL.Clear;
      dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from t_dmb where Z_dmbm >1100 and z_dmbm < 1200 and z_dmlxbm>1 and z_dmlxbm<3 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           gxmc.AddItem(l,gxmc);
           dm.Qur_dmb.Next;
      end;
    end;
  
end;
procedure TdqjjxxFrm.FormShow(Sender: TObject);

begin
cls;
dis;
end;

procedure TdqjjxxFrm.yearDropDown(Sender: TObject);
var

l:string;
begin
    year.Items.Clear;
    dm.dqjjxx1.Close;
    dm.dqjjxx1.SQL.Clear;
    dm.dqjjxx1.SQL.Add('select distinct T_Geo_economic.Z_year from T_Geo_economic ');
    dm.dqjjxx1.open;
    dm.dqjjxx1.First;
    while not dm.dqjjxx1.Eof do
     begin
      l:=dm.dqjjxx1.Fields[0].Value;
      year.AddItem(l,year);

      dm.dqjjxx1.next;
     end;

end;

procedure TdqjjxxFrm.dqmcDropDown(Sender: TObject);
var
  l:string;
begin
    dqmc.Items.Clear;
    dm.Qur_dmb.Close;
    dm.Qur_dmb.SQL.Clear;
    dm.Qur_dmb.SQL.Add('select t_dmb.z_dmmc from T_dmb where z_dmlxbm >0 and z_dmlxbm<2 ');
    dm.Qur_dmb.open;
    dm.Qur_dmb.First;
    while not dm.Qur_dmb.Eof do
     begin
      l:=dm.Qur_dmb.Fields[0].Value;
      dqmc.AddItem(l,dqmc);
      dm.Qur_dmb.next;
     end;
end;



procedure TdqjjxxFrm.gxgzKeyPress(Sender: TObject; var Key: Char);
begin
 if key = #13 then qbgyqyzcz.SetFocus;
//if not (key in ['.','0', '1', '2', '3', '4', '5', '6', '7', '8', '9', #8, #13]) then
//key := char(0); //key:=char(' ');//#8是回退键，#13是回车键
//if key = #13 then
//selectnext(activecontrol, true, true);
end;

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

procedure TdqjjxxFrm.DYCYGNSCZZKeyPress(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('.',dycygnsczz.Text)>0)   then
               begin  key:=#0;showmessage('^_^ 你输入错了!'); end
         else
                   //只能输入一个小数点