lyxxlr.pas

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

          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=6';
        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=7';
        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=8';
        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=9';
        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=10';
        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
      fields[4].Value:= yl.text;
      fields[5].Value := JBLX.Text;
      fields[6].Value := gm.Text;
      fields[7].Value := jb.Text;
      fields[8].Value := qw.Text;
      fields[9].Value := mxjz.Text;
      fields[10].Value := kxjz.Text;
      fields[11].Value := zmd.Text;
      fields[12].Value := qtd.Text;
      fields[13].Value := cyz.Text;
      fields[14].Value := dd.Text;
      fields[15].Value := sj.Text;
      fields[16].Value := syq.Text;
      fields[17].Value := rwnh.Text;
      fields[18].Value := JDZHQK.Text;
      fields[19].Value :=  bhzk.Text;
      fields[20].Value :=  jj.Text;
      fields[21].Value :=  jjnd.Text;
      fields[22].Value := ts1.Text;
      fields[23].Value := ts2.Text;
      ExecSQL;
     try
        UpdateBatch;
        application.MessageBox('信息修改成功!!!', '修改信息提示', MB_ICONINFORMATION);
      except
        on e: exception do
        begin
          application.MessageBox(pchar(e.Message), '修改信息提示');
          exit;
        end;
      end;
    end;
    DIS; //  使所有的控件不可用
 // DM.lyxx.Close;
  //DM.lyxx.Open;  //打开customer组件
// DM.lyxx.Last;
  end;

end;
  //Posting; //  提交存盘


end;

procedure Tlyzylrfrm.BitBtn5Click(Sender: TObject);
var
  i: integer;
  j,path: string;
  aqimg : TADOQuery;
begin
  j := DM.lyxx.Fields[0].Value;
  i := application.MessageBox('将把图片一起删除，您确信真的要删除吗？', '删除信息提示', MB_YESNO + MB_ICONWARNING);
  if i = 6 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,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_ts1').AsString) then
      begin
       deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts1').AsString);
      imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
      end;
     if FileExists(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString) then
       begin
             deletefile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString);
            imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
       end;
    bitbtn1.Enabled :=true;
    cls;        
    DM.lyxx.Close;
    DM.lyxx.SQL.Clear;
    DM.lyxx.SQL.Add('delete from T_GEO_TOUR where Z_PTZYBH='+#39+j+#39);
    DM.lyxx.ExecSQL;
    DM.lyxx.SQL.Clear;
    DM.lyxx.SQL.Add('select * from T_GEO_TOUR order by Z_PTZYBH asc');
    DM.lyxx.Open;
    application.MessageBox('信息删除成功!!!', '删除信息提示', MB_ICONINFORMATION);
    dm.lyxx.Last;
  end;
end;

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

procedure Tlyzylrfrm.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
case DM.dslyxx.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 Tlyzylrfrm.BitBtn6Click(Sender: TObject);
begin
 close;
end;

procedure Tlyzylrfrm.DBNavigator1Click(Sender: TObject;
  Button: TNavigateBtn);
begin
t3.Visible :=false;
t2.Visible :=false;
t4.Visible :=false;
t5.Visible :=false;
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 Tlyzylrfrm.zlDropDown(Sender: TObject);
var
  l:string;
begin

    zl.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 >2 and z_dmlxbm <4');
    dm.Qur_dmb.open;
    dm.Qur_dmb.First;
    while not dm.Qur_dmb.Eof do
     begin
      l:=dm.Qur_dmb.Fields[0].Value;
      zl.AddItem(l,zl);
      dm.Qur_dmb.next;
     end;

end;

procedure Tlyzylrfrm.zlSelect(Sender: TObject);
var
  l:string;
begin
   yl.Clear;
   if zl.ItemIndex=0 then
    begin
      yl.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 >3 and z_dmlxbm < 5 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           yl.AddItem(l,yl);
           dm.Qur_dmb.Next;
      end;
             yl.Color:=clwindow;yl.Enabled  :=true;
             jblx.Color :=clwindow;jblx.readonly :=false;
             gm.Color :=clwindow;gm.readonly :=false;
             jb.Color :=clwindow;jb.readonly :=false;
             jjnd.Color :=$00D8D8D8;jjnd.readonly :=true;
             qw.Color :=clwindow;qw.readonly :=false;
             zmd.Color:=$00D8D8D8;zmd.Enabled  :=false;
             cyz.Color :=$00D8D8D8;cyz.readonly :=true;
             dd.Color :=$00D8D8D8; dd.readonly :=true;
             sj.Color :=$00D8D8D8;sj.readonly :=true;
             syq.Color :=clwindow;syq.readonly :=false;
             bhzk.Color :=$00D8D8D8;bhzk.readonly :=true;
             mxjz.Color :=clwindow;mxjz.readonly :=false;
             kxjz.Color :=clwindow;kxjz.readonly :=false;
             jdzhqk.Color :=clwindow; jdzhqk.readonly :=false;
             qtd.Color :=clwindow;qtd.readonly :=false;
             rwnh.Color :=clwindow;rwnh.readonly :=false;
             jj.Color :=$00D8D8D8; jj.ReadOnly :=true;
             yl.SetFocus ;
      end
      else
        if zl.ItemIndex=1 then
    begin
      yl.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 >4 and z_dmlxbm < 6 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           yl.AddItem(l,yl);
           dm.Qur_dmb.Next;
      end;
         yl.Color:=clwindow;yl.Enabled  :=true;
             jblx.Color :=clwindow;jblx.readonly :=false;
             gm.Color :=clwindow;gm.readonly :=false;
             jb.Color :=clwindow;jb.readonly :=false;
             jjnd.Color :=$00D8D8D8;jjnd.readonly :=true;
             qw.Color :=clwindow;qw.readonly :=false;
             zmd.Color:=$00D8D8D8;zmd.Enabled  :=false;
             cyz.Color :=$00D8D8D8;cyz.readonly :=true;
             dd.Color :=$00D8D8D8; dd.readonly :=true;
             sj.Color :=$00D8D8D8;sj.readonly :=true;
             syq.Color :=clwindow;syq.readonly :=false;
             bhzk.Color :=$00D8D8D8;bhzk.readonly :=true;
             mxjz.Color :=clwindow;mxjz.readonly :=false;
             kxjz.Color :=clwindow;kxjz.readonly :=false;
             jdzhqk.Color :=clwindow; jdzhqk.readonly :=false;
             qtd.Color :=clwindow;qtd.readonly :=false;
             rwnh.Color :=clwindow;rwnh.readonly :=false;
             jj.Color :=$00D8D8D8; jj.ReadOnly :=true;
             yl.SetFocus ;
      end
      else
      if zl.ItemIndex=2 then
    begin
      yl.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 >5 and z_dmlxbm < 7 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin
           l:=dm.Qur_dmb.Fields[0].Value;
           yl.AddItem(l,yl);
           dm.Qur_dmb.Next;
      end;
             yl.Color:=clwindow;yl.Enabled  :=true;
             jblx.Color :=clwindow;jblx.readonly :=false;
             gm.Color :=clwindow;gm.readonly :=false;
             jb.Color :=clwindow;jb.readonly :=false;
             jjnd.Color :=$00D8D8D8;jjnd.readonly :=true;
             qw.Color :=clwindow;qw.readonly :=false;
             zmd.Color:=$00D8D8D8;zmd.Enabled  :=false;
             cyz.Color :=$00D8D8D8;cyz.readonly :=true;
             dd.Color :=$00D8D8D8; dd.readonly :=true;
             sj.Color :=$00D8D8D8;sj.readonly :=true;
             syq.Color :=clwindow;syq.readonly :=false;
             bhzk.Color :=$00D8D8D8;bhzk.readonly :=true;
             mxjz.Color :=clwindow;mxjz.readonly :=false;
             kxjz.Color :=clwindow;kxjz.readonly :=false;
             jdzhqk.Color :=clwindow; jdzhqk.readonly :=false;
             qtd.Color :=clwindow;qtd.readonly :=false;
             rwnh.Color :=clwindow;rwnh.readonly :=false;
             jj.Color :=$00D8D8D8; jj.ReadOnly :=true;
             yl.SetFocus ;
      end
      else
        if zl.ItemIndex=3 then
    begin
      yl.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 >6 and z_dmlxbm < 8 ');
      dm.Qur_dmb.Open;
      dm.Qur_dmb.first;
      while not dm.Qur_dmb.Eof do
      begin