tdly.pas

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

  begin // 使所有的TEdit控件不可用
    if (components[i] is TEdit) then
    begin //  改变TEdit控件的颜色
      TEdit(components[i]).Color := $00D8D8D8;
      TEdit(components[i]).ReadOnly := true;
      //TEdit(components[i]).Enabled:=false;
    end; //   使所有的Tcombobox控件不可用
    if (components[i] is Tcombobox) then
      //  改变Tcombobox控件的颜色
      Tcombobox(components[i]).Color := $00D8D8D8;
     if (components[i] is TMemo ) then
       tcombobox(components[i]).color := $00D8D8D8;
  end;
  zyptbh.Enabled := True;
  bitbtn2.Enabled := True; //  '编辑'可用
  bitbtn3.Enabled := False; //  '储存'不可用
  bitbtn4.Enabled := False; //  '取消'不可用
  BitBtn6.Enabled := True; //   '关闭'可用
  zyptbh.Color := clwindow;
  zyptbh.ReadOnly := true;
end;
 procedure Ttdlyxxfrm.CLS;
var
  i: Integer;
begin
  for i := ComponentCount - 1 downto 0 do
  begin // 清除所有的TEdit控件的内容
    if (Components[i] is TEDIT) then
      TEDIT(components[i]).Clear;
  end;
  
end;

procedure Ttdlyxxfrm.GetAll;
var
   i :integer;
begin

       XZQHDM.Text:= DM.tdlyxx.Fieldbyname('Z_XZQHDM').AsString;
       ZYPTBH.Text:= DM.tdlyxx.Fieldbyname('Z_PTZYbh').AsString;
       ZYBM.Text:= DM.tdlyxx.Fieldbyname('Z_ZYBM').AsString;
       DWMC.Text:= DM.tdlyxx.Fieldbyname('Z_DWMC').AsString;
       HJ.Text:= DM.tdlyxx.Fieldbyname('Z_HJ').AsString;
       GD.Text:= DM.tdlyxx.Fieldbyname('Z_GD').AsString;
       GGST.Text:= DM.tdlyxx.Fieldbyname('Z_GGST').AsString;
       WTT.Text:= DM.tdlyxx.Fieldbyname('Z_wtt').AsString;
       SJD.Text:= DM.tdlyxx.Fieldbyname('Z_sjd').AsString;
       HD.Text:= DM.tdlyxx.Fieldbyname('Z_hd').AsString;
       CD.Text:= DM.tdlyxx.Fieldbyname('Z_cd').AsString;
       YD.Text:= DM.tdlyxx.Fieldbyname('Z_yd').AsString;
       GY.Text:= DM.tdlyxx.Fieldbyname('Z_gy').AsString;
       SY.Text:= DM.tdlyxx.Fieldbyname('Z_sy').AsString;
       QTYD.Text:= DM.tdlyxx.Fieldbyname('Z_qtyd').AsString;
       LD.Text:= DM.tdlyxx.Fieldbyname('Z_ld').AsString;
       YLD.Text:= DM.tdlyxx.Fieldbyname('Z_yld').AsString;
       GML.Text:= DM.tdlyxx.Fieldbyname('Z_gml').AsString;
       SML.Text := DM.tdlyxx.Fieldbyname('Z_sml').AsString;
       WCLZLD.Text:= DM.tdlyxx.Fieldbyname('Z_wclzld').AsString;
       JD.Text:= DM.tdlyxx.Fieldbyname('Z_jd').AsString;
       MP.Text:= DM.tdlyxx.Fieldbyname('Z_mp').AsString;
       MCD.Text:= DM.tdlyxx.Fieldbyname('Z_mcd').AsString;
       TRCD.Text:= DM.tdlyxx.Fieldbyname('Z_trcd').AsString;
       GLCD.Text:= DM.tdlyxx.Fieldbyname('Z_glcd').AsString;
       TSYD.Text:= DM.tdlyxx.Fieldbyname('Z_tsyd').AsString;
       JTYD.Text:= DM.tdlyxx.Fieldbyname('Z_jtyd').AsString;
       TL.Text:= DM.tdlyxx.Fieldbyname('Z_tl').AsString;
       GL.Text:= DM.tdlyxx.Fieldbyname('Z_gl').AsString;
       NCDL.Text:= DM.tdlyxx.Fieldbyname('Z_ncdl').AsString;
       MYJC.Text:= DM.tdlyxx.Fieldbyname('Z_myjc').AsString;
       GKMT.Text:= DM.tdlyxx.Fieldbyname('Z_gkmt').AsString;
       SHY.Text:= DM.tdlyxx.Fieldbyname('Z_shy').AsString;
       HLSM.Text:= DM.tdlyxx.Fieldbyname('Z_hlsm').AsString;
       HBSM.Text:= DM.tdlyxx.Fieldbyname('Z_hbsm').AsString;
       SKSM.Text:= DM.tdlyxx.Fieldbyname('Z_sksm').AsString;
       KTSM.Text:= DM.tdlyxx.Fieldbyname('Z_ktsm').AsString;
       WD.Text:= DM.tdlyxx.Fieldbyname('Z_wd').AsString;
       TT.Text:= DM.tdlyxx.Fieldbyname('Z_tt').AsString;
       GQ.Text:= DM.tdlyxx.Fieldbyname('Z_gq').AsString;
       SGJZW.Text:= DM.tdlyxx.Fieldbyname('Z_sgjzw').AsString;
       WLYTD.Text:= DM.tdlyxx.Fieldbyname('Z_wlytd').AsString;
       HCD.Text:= DM.tdlyxx.Fieldbyname('Z_hcd').AsString;
       YJD.Text:=DM.tdlyxx.Fieldbyname('Z_yjd').AsString;
       ZZD.Text:=DM.tdlyxx.Fieldbyname('Z_zzd').AsString;
       SD.Text:=DM.tdlyxx.Fieldbyname('Z_sd').AsString;
       LTD.Text:=DM.tdlyxx.Fieldbyname('Z_ltd').AsString;
       LYSLD.Text:=DM.tdlyxx.Fieldbyname('Z_lysld').AsString;
       TK.Text:=DM.tdlyxx.Fieldbyname('Z_tk').AsString;
       QT.Text:=DM.tdlyxx.Fieldbyname('Z_qt').AsString;
       for i := ComponentCount - 1 downto 0 do
          begin
             if (Components[i] is TEDIT) then
               if (TEDIT(components[i]).Text='') then
                 TEDIT(components[i]).Text:='0';
         end;
 end;

{$R *.dfm}

procedure Ttdlyxxfrm.BitBtn1Click(Sender: TObject);

begin
  dm.tdlyxx.Close;
  dm.tdlyxx.SQL.Clear;
  dm.tdlyxx.SQL.Add('select * from  T_geo_landuse where 1>0');
  dm.tdlyxx.Active :=true;
  CLS; //清除所有的控件内容
  ENA; //使所有的控件可用
  automaticno;
  zyptbh.Text:=hebpth;
  zyptbh.Enabled := True;
  zyptbh.Color := clSkyBlue;;
  zyptbh.ReadOnly := true;
  ActionCD := 'N'; //新增记录标记
  zybm.Text:='410103';
  xzqhdm.SetFocus;
end;

procedure Ttdlyxxfrm.BitBtn2Click(Sender: TObject);
begin
if not DM.tdlyxx.Locate('Z_PTZYbh', zyptbh.text, []) then
  begin
    Myerror('没有检测到相应的数据编号在用户数据库中' + #13#10 + '请查证后继续');
    DIS;
  end
  else
    ENA; //使所有的控件可用
    ACtionCD := 'M';  //修改记录标记
end;

procedure Ttdlyxxfrm.BitBtn4Click(Sender: TObject);
begin
DIS;   //所有TEdit控件不可以
cls;
end;

procedure Ttdlyxxfrm.BitBtn3Click(Sender: TObject);
var i:integer;
begin
if ActionCD = 'N' then
  begin
   if (zybm.Text ='') or (xzqhdm.Text='') or (dwmc.Text='')or (hj.text='') then
    begin
        showmessage('必添项不能为空!');
       exit;
       end;
    for i := ComponentCount - 1 downto 0 do
          begin
             if (Components[i] is TEDIT) then
               if (TEDIT(components[i]).Text='')then
                 TEDIT(components[i]).Text:='0';
         end;
    with DM.tdlyxx do
    begin
      Close; //如果是插入操作，执行Insert操作
      Sql.Clear;
      SQL.Add('Insert into T_geo_landuse(Z_PTZYBH,Z_ZYBM,Z_xzqhdm,');
      SQL.Add('Z_dwmc,Z_hj,Z_gd,Z_ggst,Z_wtt,Z_sjd,Z_hd,');
      SQL.Add('Z_cd,Z_yd,Z_gy,Z_sy,Z_qtyd,Z_ld,');
      SQL.Add('Z_yld,Z_gml,Z_sml,Z_wclzld,Z_JD,Z_mp,Z_mcd,Z_trcD,');
      SQL.Add('Z_glcd,Z_tsyd,Z_jtyd,Z_tl,Z_gl,Z_ncdl,Z_myjc,Z_gkmt,Z_shy,');
      SQL.Add('Z_hlsm,Z_hbsm,Z_sksm,Z_ktsm,Z_wd,Z_tt,Z_gq,Z_sgjzw,Z_wlytd,');
      SQL.Add('Z_hcd,Z_yjd,Z_zzd,Z_sd,Z_ltd,Z_lysld,Z_tk,Z_qt)');

      SQL.Add('values(:Z_PTZYBH,:Z_ZYBM,:Z_xzqhdm,');
      SQL.Add(':Z_dwmc,:Z_hj,:Z_gd,:Z_ggst,:Z_wtt,:Z_sjd,:Z_hd,');
      SQL.Add(':Z_cd,:Z_yd,:Z_gy,:Z_sy,:Z_qtyd,:Z_ld,');
      SQL.Add(':Z_yld,:Z_gml,:Z_sml,:Z_wclzld,:Z_JD,:Z_mp,:Z_mcd,:Z_trcD,');
      SQL.Add(':Z_glcd,:Z_tsyd,:Z_jtyd,:Z_tl,:Z_gl,:Z_ncdl,:Z_myjc,:Z_gkmt,:Z_shy,');
      SQL.Add(':Z_hlsm,:Z_hbsm,:Z_sksm,:Z_ktsm,:Z_wd,:Z_tt,:Z_gq,:Z_sgjzw,:Z_wlytd,');
      SQL.Add(':Z_hcd,:Z_yjd,:Z_zzd,:Z_sd,:Z_ltd,:Z_lysld,:Z_tk,:Z_qt)');
      try
      Parameters.Items[0].Value := ZYPTBH.Text;
      Parameters.Items[1].Value := ZYBM.Text;
      Parameters.Items[2].Value := XZQHDM.Text;
      Parameters.Items[3].Value := DWMC.Text;
      Parameters.Items[4].Value := HJ.Text;
      Parameters.Items[5].Value := GD.Text;
      Parameters.Items[6].Value := GGST.Text;
      Parameters.Items[7].Value := WTT.Text;
      Parameters.Items[8].Value := SJD.Text;
      Parameters.Items[9].Value := HD.Text;
      Parameters.Items[10].Value := CD.Text;
      Parameters.Items[11].Value := YD.Text;
      Parameters.Items[12].Value := GY.Text;
      Parameters.Items[13].Value := SY.Text;
      Parameters.Items[14].Value := QTYD.Text;
      Parameters.Items[15].Value := LD.Text;
      Parameters.Items[16].Value := YLD.Text;
      Parameters.Items[17].Value := GML.Text;
      Parameters.Items[18].Value := SML.Text ;
      Parameters.Items[19].Value := WCLZLD.Text;
      Parameters.Items[20].Value := JD.Text;
      Parameters.Items[21].Value := MP.Text;
      Parameters.Items[22].Value := MCD.Text;
      Parameters.Items[23].Value := TRCD.Text;
      Parameters.Items[24].Value := GLCD.Text;
      Parameters.Items[25].Value := TSYD.Text;
      Parameters.Items[26].Value := JTYD.Text;
      Parameters.Items[27].Value := TL.Text;
      Parameters.Items[28].Value := GL.Text;
      Parameters.Items[29].Value := NCDL.Text;
      Parameters.Items[30].Value := MYJC.Text;
      Parameters.Items[31].Value := GKMT.Text;
      Parameters.Items[32].Value := SHY.Text;
      Parameters.Items[33].Value := HLSM.Text;
      Parameters.Items[34].Value := HBSM.Text;
      Parameters.Items[35].Value := SKSM.Text;
      Parameters.Items[36].Value := KTSM.Text;
      Parameters.Items[37].Value := WD.Text;
      Parameters.Items[38].Value := TT.Text;
      Parameters.Items[39].Value := GQ.Text;
      Parameters.Items[40].Value := SGJZW.Text;
      Parameters.Items[41].Value := WLYTD.Text;
      Parameters.Items[42].Value := HCD.Text;
      Parameters.Items[43].Value := YJD.Text;
      Parameters.Items[44].Value := ZZD.Text;
      Parameters.Items[45].Value := SD.Text;
      Parameters.Items[46].Value := LTD.Text;
      Parameters.Items[47].Value := LYSLD.Text;
      Parameters.Items[48].Value := TK.Text;
      Parameters.Items[49].Value := QT.Text;

      ExecSQL;

  except
        on e: exception do
        begin
          application.MessageBox(pchar(e.Message), '添加信息提示');
          sql.Clear;
          sql.Add('select * from T_geo_landuse order by z_ptzybh');
          open;
          exit;
        end;
      end;
      sql.Clear;
      sql.Add('select * from T_geo_landuse order by z_ptzybh');
      open;
      Last;
      application.MessageBox('信息添加成功!!!', '添加信息提示', MB_ICONINFORMATION);
    end;

  end
  else
  begin
    if (zybm.Text ='') or (xzqhdm.Text='') or (dwmc.Text='')or (hj.text='') then
    begin
        showmessage('必添项不能为空!');
       exit;
       end;
  for i := ComponentCount - 1 downto 0 do
          begin
             if (Components[i] is TEDIT) then
               if (TEDIT(components[i]).Text='')then
                 TEDIT(components[i]).Text:='0';
         end;
    dm.tdlyxx.Edit;
    with dm.tdlyxx do
    begin
      fields[0].Value := XZQHDM.Text;
      fields[1].Value := ZYPTBH.Text;
      fields[2].Value := ZYBM.Text;
      fields[3].Value := DWMC.Text;
      fields[4].Value := HJ.Text;
      fields[5].Value := GD.Text;
      fields[6].Value := GGST.Text;
      fields[7].Value := WTT.Text;
      fields[8].Value := SJD.Text;
      fields[9].Value := HD.Text;
      fields[10].Value := CD.Text;
      fields[11].Value := YD.Text;
      fields[12].Value := GY.Text;
      fields[13].Value := SY.Text;
      fields[14].Value := QTYD.Text;
      fields[15].Value := LD.Text;
      fields[16].Value := YLD.Text;
      fields[17].Value := GML.Text;
      fields[18].Value := SML.Text ;
      fields[19].Value := WCLZLD.Text;
      fields[20].Value := JD.Text;
      fields[21].Value := MP.Text;
      fields[22].Value := MCD.Text;
      fields[23].Value := TRCD.Text;
      fields[24].Value := GLCD.Text;
      fields[25].Value := TSYD.Text;
      fields[26].Value := JTYD.Text;
      fields[27].Value := TL.Text;
      fields[28].Value := GL.Text;
      fields[29].Value := NCDL.Text;
      fields[30].Value := MYJC.Text;
      fields[31].Value := GKMT.Text;
      fields[32].Value := SHY.Text;
      fields[33].Value := HLSM.Text;
      fields[34].Value := HBSM.Text;
      fields[35].Value := SKSM.Text;
      fields[36].Value := KTSM.Text;
      fields[37].Value := WD.Text;
      fields[38].Value := TT.Text;
      fields[39].Value := GQ.Text;
      fields[40].Value := SGJZW.Text;
      fields[41].Value := WLYTD.Text;
      fields[42].Value := HCD.Text;
      fields[43].Value := YJD.Text;
      fields[44].Value := ZZD.Text;
      fields[45].Value := SD.Text;
      fields[46].Value := LTD.Text;
      fields[47].Value := LYSLD.Text;
      fields[48].Value := TK.Text;
      fields[49].Value := QT.Text;
      ExecSQL;
     try
        UpdateBatch;
        application.MessageBox('信息修改成功!!!', '修改信息提示', MB_ICONINFORMATION);
      except
        on e: exception do
        begin
          application.MessageBox(pchar(e.Message), '修改信息提示');
          exit;
        end;
      end;
    end;
  end;


  //Posting; //  提交存盘
  DIS; //  使所有的控件不可用
  DM.tdlyxx.Close;
  DM.tdlyxx.Open;  //打开customer组件
   dm.tdlyxx.Last;  
end;

procedure Ttdlyxxfrm.BitBtn5Click(Sender: TObject);