lyxxlr.pas

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

        get_Q.Close;
  end
  else
   if DM.lyxx.Fieldbyname('Z_zl').AsString='6' then
  begin
       ylstr:= DM.lyxx.Fieldbyname('Z_yl').AsString;
        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=strtoint(ylstr);

        get_Q.SQL.Text := 'select z_dmmc from t_dmb where t_dmb.z_dmbm=g and t_dmb.z_dmlxbm=9';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yl.Text:=trim(get_Q.FieldValues['z_dmmc']);
        get_Q.Close;
  end
  else
    if DM.lyxx.Fieldbyname('Z_zl').AsString='7' then
  begin
       ylstr:= DM.lyxx.Fieldbyname('Z_yl').AsString;
        get_Q:=TADOQuery.Create(self);
        get_Q.Connection:=dm.conn;
        c:=strtoint(ylstr);

        get_Q.SQL.Text := 'select z_dmmc from t_dmb where t_dmb.z_dmbm=g and t_dmb.z_dmlxbm=10';
        get_q.Parameters.ParamByName('g').Value:=c;
        get_Q.open;
        yl.Text:=trim(get_Q.FieldValues['z_dmmc']);
        get_Q.Close;
  end;
  JBLX.Text := DM.lyxx.Fieldbyname('Z_JBLX').AsString;
  gm.Text := DM.lyxx.Fieldbyname('Z_gm').AsString;
  jb.Text := DM.lyxx.Fieldbyname('Z_jb').AsString;
  jjnd.Text := DM.lyxx.Fieldbyname('Z_jjnd').AsString;
  mxjz.Text := DM.lyxx.Fieldbyname('Z_mxjz').AsString;
  kxjz.Text := DM.lyxx.Fieldbyname('Z_kxjz').AsString;
  qw.Text := DM.lyxx.Fieldbyname('Z_qw').AsString;
  zmd.Text := DM.lyxx.Fieldbyname('Z_zmd').AsString;
  qtd.Text := DM.lyxx.Fieldbyname('Z_qtd').AsString;
  cyz.Text := DM.lyxx.Fieldbyname('Z_cyz').AsString;
  dd.Text := DM.lyxx.Fieldbyname('Z_dd').AsString;
  sj.Text := DM.lyxx.Fieldbyname('Z_sj').AsString;
  syq.Text := DM.lyxx.Fieldbyname('Z_syq').AsString;
  rwnh.Text := DM.lyxx.Fieldbyname('Z_rwnh').AsString;
  jj.Text := DM.lyxx.Fieldbyname('Z_jj').AsString;
  jdzhqk.Text:=dm.lyxx.Fieldbyname('z_jdzhqk').AsString;
  bhzk.Text := DM.lyxx.Fieldbyname('Z_bhzk').AsString;
  ts1.text:=DM.lyxx.Fieldbyname('Z_ts1').AsString;
  ts2.text:=DM.lyxx.Fieldbyname('Z_ts2').AsString;
  // if   then

  // else
  hebpthimg1:=ts1.Text;
  hebpthimg2:=ts2.Text;
  if not FileExists(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\' + hebpthimg1) then
    imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg')
  else
    imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\'+hebpthimg1);
  if not FileExists(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\' + hebpthimg2) then
    imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg')
  else
    imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\'+hebpthimg2);
 end;
procedure Tlyzylrfrm.BitBtn1Click(Sender: TObject);
begin
 
dm.lyxx.sql.clear;
DM.lyxx.SQL.Add('select * from T_GEO_tour order by Z_PTZYBH asc');
DM.lyxx.Open;
DM.lyxx.Active:=true;
 t3.Visible :=true;
 t3.Caption:='添加';
 t2.Visible :=false;
 t4.Visible :=true;
 t4.Caption:='添加';
 t5.Visible :=false;
  CLS; //清除所有的控件内容
  ENA; //使所有的控件可用
  zybm.Enabled :=false;
  automaticno;
  zyptbh.Text:=hebpth;
 // ts1.text:=hebpth+'.jpg';
  zyptbh.ReadOnly := true;
  zyptbh.Enabled := True;
  zyptbh.Color := clSkyBlue;
  imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
  imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg');
  ActionCD := 'N'; //新增记录标记
end;

procedure Tlyzylrfrm.BitBtn2Click(Sender: TObject);
 var hebpthimg1,hebpthimg2:string;
begin
  hebpthimg1:=ts1.Text;
  hebpthimg2:=ts2.Text;
  if not FileExists(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\' + hebpthimg1) then
    imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg')
  else
    imgi1.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\'+hebpthimg1);
  if not FileExists(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\' + hebpthimg2) then
    imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\imgd.jpg')
  else
    imgi2.Picture.LoadFromFile(ExtractFilePath(Application.ExeName) + 'upload\4101C00070\images\'+hebpthimg2);
  t2.Visible :=true;
  t3.Visible :=true;
  t3.Caption :='更新';
  t5.Visible :=true;
  t4.Visible :=true;
  t4.Caption :='更新';
if not DM.lyxx.Locate('Z_PTZYbh', zyptbh.text, []) then
  begin
    Myerror('没有检测到相应的数据编号在用户数据库中' + #13#10 + '请查证后继续');
    DIS;
  end
else
     if trim(dm.lyxx.FieldByName('z_zl').AsString)='1' then
      begin  zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
             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;
             ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
      end
      else
        if  trim(dm.lyxx.FieldByName('z_zl').AsString)='2' then
        begin
             zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
             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;
             ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
        end
     else
        if  trim(dm.lyxx.FieldByName('z_zl').AsString)='3' then
        begin
            zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
            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;
             ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
        end
        else
           if  trim(dm.lyxx.FieldByName('z_zl').AsString)='4' then
        begin
            zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
            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;
              ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
        end
        else
          if  trim(dm.lyxx.FieldByName('z_zl').AsString)='5' then
        begin
            zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
             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;
              ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
        end
        else
              if  trim(dm.lyxx.FieldByName('z_zl').AsString)='6' then
        begin
             zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
             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;
              ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
             end
             else
                 if  trim(dm.lyxx.FieldByName('z_zl').AsString)='7' then
        begin
             zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
            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;
              ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             BitBtn2.Enabled := False; //  '编辑'不可用
  BitBtn3.Enabled := True; //  '储存'可用
  BitBtn4.Enabled := True; //  '取消'可用
  BitBtn6.Enabled := False; //   '关闭'不可用
        end
        else
           if  trim(dm.lyxx.FieldByName('z_zl').AsString)='8' then
            begin
              zyptbh.Color :=$00D8D8D8;zyptbh.Enabled :=false;
             mc.Color :=clwindow;mc.Enabled :=true;
             zl.Color:=clwindow;zl.Enabled  :=true;
             yl.Color:=$00D8D8D8;yl.Enabled  :=false;
             yl.Text:='';
             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;
              ts1.Color :=$00D8D8D8 ;ts1.ReadOnly :=true;
             ts2.Color :=$00D8D8D8 ;ts2.ReadOnly :=true;
             jj.Color :=clwindow;jj.ReadOnly  :=false;
             BitBtn2.Enabled := False; //  '编辑'不可用