lyxxlr.pas

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

             BitBtn3.Enabled := True; //  '储存'可用
             BitBtn4.Enabled := True; //  '取消'可用
             BitBtn6.Enabled := False; //   '关闭'不可用
             end;


                ACtionCD := 'M';  //修改记录标记

end;

procedure Tlyzylrfrm.BitBtn4Click(Sender: TObject);
begin
DIS;   //所有TEdit控件不可以
cls;
bitbtn2.Enabled :=false;
bitbtn1.Enabled :=true;
t3.Visible :=false;
t2.Visible:=false;
t4.Visible :=false;
t5.Visible:=false;
imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
end;

procedure Tlyzylrfrm.BitBtn3Click(Sender: TObject);
var
  aqimg,aqimg1: TADOQuery;
  imgstr1,imgstr2, path: string;
    c, zls, yls:string;
 get_Q   :TADOQuery;
begin
bitbtn1.Enabled :=true;
    t2.Visible :=false;
    t3.Visible :=false;
    t4.Visible :=false;
    t5.Visible :=false;

  if ActionCD = 'N' then
begin
  if (zl.Text='')  then
        begin
          showmessage('必添项不能为空!');
          exit;
         end
  else
    if zl.ItemIndex=7 then
      if (mc.Text ='') then
           begin
            showmessage('必添项不能为空!');
            exit;
           end
      else
    else
      if yl.Text='' then
        begin
          showmessage('必添项不能为空!');
          exit;
         end
       else
        if mc.Text ='' then
         begin
          showmessage('必添项不能为空!');
          exit;
         end;

//~~~~~~~~~~~~~图像处理删除~~~~~~~~~~~~~~~~~~~~~~~
    if tpsc='1' then
     begin
      path := ExtractFilePath(Application.ExeName);
      aqimg := TADOQuery.Create(nil);
      aqimg.Connection := dm.conn;
      aqimg.Close;
      aqimg.sql.Clear;
      aqimg.SQL.Text := 'select Z_ts1 from T_GEO_TOUR where Z_ptzybh="' + dm.lyxx.FieldByName('Z_ptzybh').Value + '"';
      aqimg.open;
      if FileExists(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts1').AsString) then
       begin
        deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts1').AsString);
      end;
     end
   else
       if tpsc='2' then
          begin
               path := ExtractFilePath(Application.ExeName);
               aqimg := TADOQuery.Create(nil);
               aqimg.Connection := dm.conn;
               aqimg.Close;
               aqimg.sql.Clear;
               aqimg.SQL.Text := 'select Z_ts2 from T_GEO_TOUR where Z_ptzybh="' + dm.lyxx.FieldByName('Z_ptzybh').Value + '"';
               aqimg.open;
               if FileExists(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString) then
                begin
                     deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString);
                end;
          end;
//~~~~~~~~~~~~~~~~~图像处理完~~~~~~~~~~~~~~~~~~~~~~~~~~
     if jjnd.Text=''then
       jjnd.Text:='0';
    with DM.lyxx do
    begin
      last;
      Close; //如果是插入操作，执行Insert操作
      Sql.Clear;
      SQL.Add('Insert into T_geo_tour(Z_PTZYBH,Z_ZYBM,Z_MC,');
      SQL.Add('Z_ZL,Z_YL,Z_JBLX,Z_GM,Z_JB,Z_QW,Z_MXJZ,');
      SQL.Add('Z_KXJZ,Z_ZMD,Z_QTD,Z_CYZ,Z_DD,Z_SJ,');
      SQL.Add('Z_SYQ,Z_RWNH,Z_JDZHQK,Z_BHZK,Z_JJ,Z_JJND,z_ts1,z_ts2)');
      SQL.Add('Values(:Z_PTZYBH,:Z_ZYBM,:Z_MC,');
      SQL.Add(':Z_ZL,:Z_YL,:Z_JBLX,:Z_GM,:Z_JB,:Z_QW,:Z_MXJZ,');
      SQL.Add(':Z_KXJZ,:Z_ZMD,:Z_QTD,:Z_CYZ,:Z_DD,:Z_SJ,:Z_SYQ,');
      SQL.Add(':Z_RWNH,:Z_JDZHQK,:Z_BHZK,:Z_JJ,:Z_JJND,:z_ts1,:z_ts2)');
      try
        Parameters.Items[0].Value := ZYPTBH.Text;
        Parameters.Items[1].Value := zybm.Text;
        Parameters.Items[2].Value := mc.Text;
        begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          get_Q.SQL.add('select z_dmbm from t_dmb where z_dmmc="'+trim(zl.Text)+'" and t_dmb.z_dmlxbm=3');
          get_Q.open;
          zls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;
        end;
        Parameters.Items[3].Value := zls;
        if zl.Text='地文景观' then
          begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          c:=yl.text;
          get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=4';
          get_q.Parameters.ParamByName('g').Value:=c;
          get_Q.open;
          yls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;
          Parameters.Items[4].Value := yls;
           end
        else
        if zl.Text='天象与气候景观' then
         begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          c:=yl.text;
          get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=5';
          get_q.Parameters.ParamByName('g').Value:=c;
          get_Q.open;
          yls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;
          Parameters.Items[4].Value := yls;
         end
         else
         if zl.Text='建筑设施' then
         begin

        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=yl.text;
        get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=6';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yls:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        Parameters.Items[4].Value := yls;
  end
  else
          if zl.Text='水域景观' then
  begin

        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=yl.text;
        get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=7';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yls:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        Parameters.Items[4].Value := yls;
  end
  else
          if zl.Text='生物景观' then
  begin

        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=yl.text;
        get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=8';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yls:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        Parameters.Items[4].Value := yls;
  end
  else
          if zl.Text='遗址遗迹' then
  begin

        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=yl.text;
        get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=9';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yls:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        Parameters.Items[4].Value := yls;
        end
         else
          if zl.Text='人文活动' then
  begin
        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=yl.text;
        get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=10';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yls:=trim(get_Q.FieldValues['z_dmbm']);
        get_Q.Close;
        Parameters.Items[4].Value := yls;
  end
       else
         Parameters.Items[4].Value := yl.Text;
      Parameters.Items[5].Value := JBLX.Text;
      Parameters.Items[6].Value := gm.Text;
      Parameters.Items[7].Value := jb.Text;
      Parameters.Items[8].Value := qw.Text;
      Parameters.Items[9].Value := mxjz.Text;
      Parameters.Items[10].Value := kxjz.Text;
      Parameters.Items[11].Value := zmd.Text;
      Parameters.Items[12].Value := qtd.Text;
      Parameters.Items[13].Value := cyz.Text;
      Parameters.Items[14].Value := dd.Text;
      Parameters.Items[15].Value := sj.Text;
      Parameters.Items[16].Value := syq.Text;
      Parameters.Items[17].Value := rwnh.Text;
      Parameters.Items[18].Value := JDZHQK.Text ;
      Parameters.Items[19].Value := bhzk.Text;
      Parameters.Items[20].Value := jj.Text;
      Parameters.Items[21].Value := jjnd.Text;
      Parameters.Items[22].Value :=ts1.Text;
      Parameters.Items[23].Value :=ts2.Text ;

      //Prepared:=true;
      ExecSQL;
      // showmessage(Parameters.Items[3].Value);
  except
        on e: exception do
        begin
          application.MessageBox(pchar(e.Message), '添加信息提示');
          sql.Clear;
          sql.Add('select * from T_geo_tour order by z_ptzybh asc');
          open;
          exit;
          application.MessageBox('信息添加成功!!!', '添加信息提示', MB_ICONINFORMATION);
        end;
      end;
      sql.Clear;
      sql.Add('select * from T_geo_tour order by z_ptzybh asc');
      open;
      Last;
    end;
    DIS; //  使所有的控件不可用
    DM.lyxx.Close;
    DM.lyxx.Open;  //打开customer组件
    DM.lyxx.Last;
  end
  else
 begin
   begin
   if (zl.Text='')  then

         begin
          showmessage('必添项不能为空!');
          exit;
         end
   else
    if zl.ItemIndex=7 then
      if (mc.Text ='') then
           begin
            showmessage('必添项不能为空!');
            exit;
           end
      else
    else
      if yl.Text='' then
       else
        if mc.Text ='' then
         begin
          showmessage('必添项不能为空!');
          exit;
         end;
    dm.lyxx.Edit;
   if tpsc='1' then
    begin
    path := ExtractFilePath(Application.ExeName);
    aqimg := TADOQuery.Create(nil);
    aqimg.Connection := dm.conn;
    aqimg.Close;
    aqimg.sql.Clear;
    aqimg.SQL.Text := 'select Z_ts1 from T_GEO_TOUR where Z_ptzybh="' + dm.lyxx.FieldByName('Z_ptzybh').Value + '"';
    aqimg.open;
    if FileExists(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts1').AsString) then
    begin
      deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts1').AsString);
      tpsc:='0';
    end;
    end
     else
       if tpsc='2' then
          begin
               path := ExtractFilePath(Application.ExeName);
               aqimg := TADOQuery.Create(nil);
               aqimg.Connection := dm.conn;
               aqimg.Close;
               aqimg.sql.Clear;
               aqimg.SQL.Text := 'select Z_ts2 from T_GEO_TOUR where Z_ptzybh="' + dm.lyxx.FieldByName('Z_ptzybh').Value + '"';
               aqimg.open;
               if FileExists(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString) then
                begin
                     deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString);
                      tpsc:='0';
                end;
          end;
  with dm.lyxx do
    begin
      fields[0].Value := ZYPTBH.Text;
      fields[1].Value := zybm.Text;
      fields[2].Value := mc.Text;
       begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          get_Q.SQL.add('select z_dmbm from t_dmb where z_dmmc="'+trim(zl.Text)+'" and t_dmb.z_dmlxbm=3');
          get_Q.open;
          zls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;
        end;
         fields[3].Value := zls;
        if zl.Text='地文景观' then
        begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          c:=yl.text;
          get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=4';
          get_q.Parameters.ParamByName('g').Value:=c;
          get_Q.open;
          yls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;
         fields[4].Value := yls;
        end
        else
        if zl.Text='天象与气候景观' then
        begin
          get_Q:=TADOQuery.Create(self);
          get_Q.Connection:=dm.conn;
          c:=yl.text;
          get_Q.SQL.Text := 'select z_dmbm from t_dmb where t_dmb.z_dmmc=g and t_dmb.z_dmlxbm=5';
          get_q.Parameters.ParamByName('g').Value:=c;
          get_Q.open;
          yls:=trim(get_Q.FieldValues['z_dmbm']);
          get_Q.Close;