⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 lyxxlr.pas

📁 地理资源的录入程序运用了api的一些知识
💻 PAS
📖 第 1 页 / 共 5 页
字号:
🔍
12345 
           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=4 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 >7 and z_dmlxbm < 9 ');
      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=5 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 >8 and z_dmlxbm < 10 ');
      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 :=clwindow;jjnd.readonly :=false;
             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 :=clwindow;bhzk.readonly :=false;
             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=6 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 >9 and z_dmlxbm < 11 ');
      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 :=$00D8D8D8;gm.readonly :=true;
             jb.Color :=clwindow;jb.readonly :=false;
             jjnd.Color :=$00D8D8D8;jjnd.readonly :=true;
             qw.Color :=$00D8D8D8;qw.readonly :=true;
             zmd.Color :=clwindow;zmd.Enabled  :=true;
             cyz.Color :=clwindow;cyz.readonly :=false;
             dd.Color :=clwindow; dd.readonly :=false;
             sj.Color :=clwindow;sj.readonly :=false;
             syq.Color :=$00D8D8D8;syq.readonly :=true;
             bhzk.Color :=$00D8D8D8;bhzk.readonly :=true;
             mxjz.Color :=$00D8D8D8;mxjz.readonly :=true;
             kxjz.Color :=$00D8D8D8;kxjz.readonly :=true;
             jdzhqk.Color :=$00D8D8D8; jdzhqk.readonly :=true;
             qtd.Color :=$00D8D8D8;qtd.readonly :=true;
             rwnh.Color :=clwindow;rwnh.readonly :=false;
             jj.Color :=$00D8D8D8;jj.readonly :=true;
             yl.SetFocus ;
     end
   else
      if zl.ItemIndex=7 then
          begin
             yl.Color:=$00D8D8D8;yl.Enabled  :=false;
             jblx.Color :=$00D8D8D8;jblx.readonly :=true;
             gm.Color :=$00D8D8D8;gm.readonly :=true;
             jb.Color :=$00D8D8D8;jb.readonly :=true;
             jjnd.Color :=$00D8D8D8;jjnd.readonly :=true;
             qw.Color :=$00D8D8D8;qw.readonly :=true;
             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 :=$00D8D8D8;syq.readonly :=true;
             bhzk.Color :=$00D8D8D8;bhzk.readonly :=true;
             mxjz.Color :=$00D8D8D8;mxjz.readonly :=true;
             kxjz.Color :=$00D8D8D8;kxjz.readonly :=true;
             jdzhqk.Color :=$00D8D8D8; jdzhqk.readonly :=true;
             qtd.Color :=$00D8D8D8;qtd.readonly :=true;
             rwnh.Color :=$00D8D8D8;rwnh.readonly :=true;

             jj.Color :=clwindow; jj.ReadOnly :=false;
             mc.SetFocus;
          end;

  dm.zyflml.Close;
 dm.zyflml.SQL.Clear;
 dm.zyflml.SQL.Text := 'select z_zybm from zyflml where z_zymc='+char(39)+zl.text+char(39)+'' ;
 dm.zyflml.open;
 if not dm.zyflml.Eof then
    begin
        zybm.Text:=dm.zyflml.FieldValues['z_zybm'];
        exit;
    end;    
 end;
procedure Tlyzylrfrm.zybmDropDown(Sender: TObject);
var

l:string;
begin
    zybm.Items.Clear;
    dm.lyxx.Close;
    dm.lyxx.SQL.Clear;
    dm.lyxx.SQL.Add('select distinct T_geo_tour.Z_zybm from T_geo_tour');
    dm.lyxx.open;
    dm.lyxx.First;
    while not dm.lyxx.Eof do
     begin
      l:=dm.lyxx.Fields[0].Value;
      zybm.AddItem(l,zybm);
      dm.lyxx.next;
     end;

end;

procedure Tlyzylrfrm.FormShow(Sender: TObject);
begin
tpsc:='0';
DIS;
CLS;
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.MCKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 if zl.ItemIndex=7 then
     jj.SetFocus
  else
    jblx.SetFocus;
end;

procedure Tlyzylrfrm.ylSelect(Sender: TObject);
begin
mc.SetFocus ;
end;

procedure Tlyzylrfrm.jblxKeyPress(Sender: TObject; var Key: Char);
begin


  if key=#13 then
      if zl.ItemIndex=6 then
        jb.SetFocus
      else
       gm.SetFocus ;
end;

procedure Tlyzylrfrm.GMKeyPress(Sender: TObject; var Key: Char);
begin
   if key=#13 then jb.SetFocus ;
end;

procedure Tlyzylrfrm.jbKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
 if zl.ItemIndex=5 then
     jjnd.SetFocus
  else
    if zl.ItemIndex =6 then
       zmd.SetFocus
    else
    qw.SetFocus;

end;

procedure Tlyzylrfrm.jjndKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then qw.SetFocus ;
end;

procedure Tlyzylrfrm.t1Click(Sender: TObject);
var

 imgstr, path: string;
begin

  if odimg.Execute then
  begin
  imgstr :=zyptbh.text+'.jpg';//ExtractFileName(odimg.FileName); //hebpth+'.jpg';//
  path := ExtractFilePath(Application.ExeName);
    if FileExists(path + 'upload\4101C00070\images\' +imgstr ) then
      DeleteFile(path + 'upload\4101C00070\images\' +imgstr );
     MessageBox(handle, '照片更新成功!', '提示', mb_IconWarning + mb_Ok);
     imgi1.Picture.LoadFromFile(odimg.FileName);
 end;
end;

procedure Tlyzylrfrm.t2Click(Sender: TObject);
var
  aqimg: TADOQuery;
 path: string;
begin

  if MessageBox(handle, '真的要删除此照片吗?', '提示', mb_IconQuestion + mb_OkCancel) = idOk then
 begin

     MessageBox(handle, '照片删除成功!请注意保存!', '提示', mb_IconWarning + mb_Ok);
     tpsc:='1';
     path := ExtractFilePath(Application.ExeName);
     ts1.Text :='';
      if ts2.Text = '' then
         ts2.Text :='';
        // ts2.Text := zyptbh.text+'.jpg';
      imgi1.Picture.LoadFromFile(path + 'upload\4101C00070\images\imgd.jpg');
   end;

end;

procedure Tlyzylrfrm.Button1Click(Sender: TObject);
var
  aqimg: TADOQuery;
  imgstr, path: string;
begin
  if odimg.Execute then
  begin
    imgstr := ExtractFileName(odimg.FileName);
    path := ExtractFilePath(Application.ExeName);
    if not FileExists(path + 'upload\4101C00070\images\' + imgstr) then
    begin
      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
        DeleteFile(path + 'upload\4101C00070\images\' + aqimg.Fieldbyname('Z_ts2').AsString);
      CopyFile(Pchar(odimg.FileName), pchar(path + 'upload\4101C00070\images\' + imgstr), false);
      aqimg.Close;
      aqimg.sql.Clear;
      aqimg.SQL.Text := 'update T_GEO_TOUR set [Z_ts2]="' + imgstr + '" where Z_ptzybh="' + dm.lyxx.FieldByName('Z_ptzybh').Value + '"';
      aqimg.ExecSQL;
      MessageBox(handle, '照片更新成功!', '提示', mb_IconWarning + mb_Ok);
      imgi2.Picture.LoadFromFile(path + 'upload\4101C00070\images\' + imgstr);
      FreeAndNil(aqimg);
    end
    else
    begin
      MessageBox(handle, '此照片文件名已存在,请改名先!', '提示', mb_IconWarning + mb_Ok);
      exit;
    end;
  end;
end;

procedure Tlyzylrfrm.t5Click(Sender: TObject);
var
  aqimg1: TADOQuery;
 path: string;

 //--------------------
 begin
  if MessageBox(handle, '真的要删除此照片吗?', '提示', mb_IconQuestion + mb_OkCancel) = idOk then
 begin
      tpsc:='2';
       path := ExtractFilePath(Application.ExeName);
      MessageBox(handle, '照片删除成功!请注意保存!', '提示', mb_IconWarning + mb_Ok);
      ts2.Text :='';
      if ts1.Text = '' then
         ts1.Text :='';
        // ts2.Text := zyptbh.text+'.jpg';
     imgi2.Picture.LoadFromFile(path + 'upload\4101C00070\images\imgd.jpg');
 end;
end;
 //------------------

procedure Tlyzylrfrm.t3Click(Sender: TObject);
 var
  aq1: TADOQuery;
 
  imgstr1,imgstr2, path: string;
begin
  ///~~~~~~~~~~~~tian jia ~~~~~~~~~~~~~~
   
     if ActionCD = 'N' then
       if ts2.Text ='' then
       ts1.text:=hebpth+'.jpg'
         else
          begin
           ts1.Text:= hebpth+'_1'+'.jpg';
         //  ts2.Text:=hebpth+'_2'+'.jpg';
12345

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -