yfzltj.pas

来自「本人编写的有关军队营房工作的管理系统」· PAS 代码 · 共 519 行 · 第 1/3 页

                    yfgldata.dwqk.FieldByName('坐落总个数').AsInteger:=yfgldata.dwqk.FieldByName('坐落总个数').AsInteger+1;
                    yfgldata.dwqk.FieldByName('基地面积').AsInteger:=yfgldata.dwqk.FieldByName('基地面积').AsInteger+yfzlbj.DBNumberEditEh4.Value;
                    yfgldata.dwqk.Post;
                  end;
                close;
                yfzl.showbtn;
              end;
  end
else
  begin
    if yfzlbj.Edit2.Text='' then
      messagebox(yfzlbj.handle,'坐落地址不能为空。','营房工作管理系统',16)
    else
      if yfzlbj.dxLookupTreeView1.Text='' then
        messagebox(yfzlbj.handle,'单位代码不能为空。','营房工作管理系统',16)
      else
        if (yfzlbj.DBNumberEditEh5.Value+yfzlbj.DBNumberEditEh6.Value+yfzlbj.DBNumberEditEh7.Value+yfzlbj.DBNumberEditEh8.Value)>yfzlbj.DBNumberEditEh4.Value then
          messagebox(yfzlbj.handle,'土地划区面积不能大于基地面积。','营房工作管理系统',16)
        else
        if yfzlbj.DBNumberEditEh2.Value>yfzlbj.DBNumberEditEh1.Value then
          messagebox(yfzlbj.handle,'基地面积不能小于建筑面积。','营房工作管理系统',16)
        else
          if yfzlbj.DBNumberEditEh3.Value>yfzlbj.DBNumberEditEh2.Value then
            messagebox(yfzlbj.handle,'建筑面积不能小于使用面积。','营房工作管理系统',16)
          else
            begin
              yfgldata.yfzl.Locate('坐落号',zl,[loCaseInsensitive]);
              yfgldata.yfzl.Edit;
              yfgldata.yfzl.FieldByName('坐落地址').AsString:=yfzlbj.Edit2.Text;
              yfgldata.yfzl.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
              yfgldata.yfzl.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
              yfgldata.yfzl.FieldByName('详细单位').AsString:=yfzlbj.Edit4.Text;
              yfgldata.yfzl.FieldByName('地域').AsString:=yfzlbj.Edit5.Text;
              yfgldata.yfzl.FieldByName('地势').AsString:=yfzlbj.Edit6.Text;
              yfgldata.yfzl.FieldByName('营区分类').AsString:=yfzlbj.Edit7.Text;
              yfgldata.yfzl.FieldByName('用地分类').AsString:=yfzlbj.Edit8.Text;
              yfgldata.yfzl.FieldByName('城乡区位').AsString:=yfzlbj.Edit9.Text;
              yfgldata.yfzl.FieldByName('土地证号').AsString:=yfzlbj.Edit10.Text;
              yfgldata.yfzl.FieldByName('房产证号').AsString:=yfzlbj.Edit11.Text;
              yfgldata.yfzl.FieldByName('进驻日期').AsDateTime:=yfzlbj.DateTimePicker1.Date;
              yfgldata.yfzl.FieldByName('军事行政区').AsInteger:=yfzlbj.DBNumberEditEh5.Value;
              yfgldata.yfzl.FieldByName('公寓区').AsInteger:=yfzlbj.DBNumberEditEh6.Value;
              yfgldata.yfzl.FieldByName('库区').AsInteger:=yfzlbj.DBNumberEditEh7.Value;
              yfgldata.yfzl.FieldByName('其它').AsInteger:=yfzlbj.DBNumberEditEh8.Value;
              yfgldata.yfzl.FieldByName('基地面积').AsInteger:=yfzlbj.DBNumberEditEh1.Value;
              yfgldata.yfzl.FieldByName('建筑面积').AsInteger:=yfzlbj.DBNumberEditEh2.Value;
              yfgldata.yfzl.FieldByName('使用面积').AsInteger:=yfzlbj.DBNumberEditEh3.Value;
              yfgldata.yfzl.FieldByName('基地面积1').AsInteger:=yfzlbj.DBNumberEditEh4.Value;
              yfgldata.yfzl.FieldByName('供水方式').AsString:=yfzlbj.Edit12.Text;
              yfgldata.yfzl.FieldByName('供电方式').AsString:=yfzlbj.Edit13.Text;
              yfgldata.yfzl.FieldByName('供气方式').AsString:=yfzlbj.Edit14.Text;
              yfgldata.yfzl.FieldByName('供暖方式').AsString:=yfzlbj.Edit15.Text;
              yfgldata.yfzl.FieldByName('变更原因').AsString:=yfzlbj.Edit16.Text;
              yfgldata.yfzl.Post;
              if yfgldata.dwqk.Locate('单位代码',dw,[loCaseInsensitive]) then
                begin
                  yfgldata.dwqk.Edit;
                  yfgldata.dwqk.FieldByName('基地面积').AsInteger:=yfgldata.dwqk.FieldByName('基地面积').AsInteger-jd;
                  yfgldata.dwqk.Post;
                end;
              if yfgldata.dwqk.Locate('单位代码',yfzlbj.dxLookupTreeView1.Text,[loCaseInsensitive]) then
                begin
                  yfgldata.dwqk.Edit;
                  yfgldata.dwqk.FieldByName('基地面积').AsInteger:=yfgldata.dwqk.FieldByName('基地面积').AsInteger+yfzlbj.DBNumberEditEh4.Value;
                  yfgldata.dwqk.Post;
                end;
              if yfzlbj.dw<>yfzlbj.dxLookupTreeView1.Text then
                begin
                  if yfgldata.dwqk.Locate('单位代码',dw,[loCaseInsensitive]) then
                  begin
                  yfgldata.dwqk.Edit;
                  yfgldata.dwqk.FieldByName('坐落总个数').AsInteger:=yfgldata.dwqk.FieldByName('坐落总个数').AsInteger-1;
                  yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger-yfgldata.yfzl.FieldByName('建筑面积1').AsInteger;
                  yfgldata.dwqk.Post;
                  end;
                  if yfgldata.dwqk.Locate('单位代码',yfzlbj.dxLookupTreeView1.Text,[loCaseInsensitive]) then
                  begin
                  yfgldata.dwqk.Edit;
                  yfgldata.dwqk.FieldByName('坐落总个数').AsInteger:=yfgldata.dwqk.FieldByName('坐落总个数').AsInteger+1;
                  yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger+yfgldata.yfzl.FieldByName('建筑面积1').AsInteger;
                  yfgldata.dwqk.Post;
                  end;
                  yfgldata.guolu.First;
                  for i:=1 to yfgldata.guolu.RecordCount do
                    begin
                      if yfgldata.guolu.FieldByName('坐落号').AsString=zl then
                        begin
                          yfgldata.guolu.Edit;
                          yfgldata.guolu.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.guolu.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.guolu.Post;
                        end;
                      yfgldata.guolu.Next;
                    end;
                  yfgldata.guolu.First;
                  yfgldata.gx.First;
                  for i:=1 to yfgldata.gx.RecordCount do
                    begin
                      if yfgldata.gx.FieldByName('坐落号').AsString=zl then
                        begin
                          yfgldata.gx.Edit;
                          yfgldata.gx.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.gx.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.gx.Post;
                        end;
                      yfgldata.gx.Next;
                    end;
                  yfgldata.gx.First;
                  yfgldata.xjyf.First;
                  for i:=1 to yfgldata.xjyf.RecordCount do
                    begin
                      if yfgldata.xjyf.FieldByName('坐落号').AsString=zl then
                        begin
                          yfgldata.xjyf.Edit;
                          yfgldata.xjyf.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.xjyf.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.xjyf.Post;
                        end;
                      yfgldata.xjyf.Next;
                    end;
                  yfgldata.xjyf.First;
                  yfgldata.yfda.First;
                  for i:=1 to yfgldata.yfda.RecordCount do
                    begin
                      if yfgldata.yfda.FieldByName('坐落号').AsString=zl then
                        begin
                          yfgldata.yfda.Edit;
                          yfgldata.yfda.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.yfda.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.yfda.Post;
                        end;
                      yfgldata.yfda.Next;
                    end;
                  yfgldata.yfda.First;
                  yfgldata.yfsb.First;
                  for i:=1 to yfgldata.yfsb.RecordCount do
                    begin
                      if yfgldata.yfsb.FieldByName('坐落号').AsString=zl then
                        begin
                          yfgldata.yfsb.Edit;
                          yfgldata.yfsb.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.yfsb.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.yfsb.Post;
                        end;
                      yfgldata.yfsb.Next;
                    end;
                  yfgldata.yfsb.First;
                  yfgldata.yffd.First;
                  for i:=1 to yfgldata.yffd.RecordCount do
                    begin
                      if yfgldata.yffd.FieldByName('坐落号').AsString=zl then
                        begin
                          if yfgldata.yffd.FieldByName('分类一').AsString='办' then
                            begin
                              yfgldata.dwqk.Locate('单位代码',dw,[loCaseInsensitive]);
                              yfgldata.dwqk.Edit;
                              yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-yfgldata.yffd.FieldByName('面积一').AsInteger;
                              yfgldata.dwqk.Post;
                              yfgldata.dwqk.Locate('单位代码',yfzlbj.dxLookupTreeView1.Text,[loCaseInsensitive]);
                              yfgldata.dwqk.Edit;
                              yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yfgldata.yffd.FieldByName('面积一').AsInteger;
                              yfgldata.dwqk.Post;
                            end;
                          if yfgldata.yffd.FieldByName('分类二').AsString='办' then
                            begin
                              yfgldata.dwqk.Locate('单位代码',dw,[loCaseInsensitive]);
                              yfgldata.dwqk.Edit;
                              yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-yfgldata.yffd.FieldByName('面积二').AsInteger;
                              yfgldata.dwqk.Post;
                              yfgldata.dwqk.Locate('单位代码',yfzlbj.dxLookupTreeView1.Text,[loCaseInsensitive]);
                              yfgldata.dwqk.Edit;
                              yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yfgldata.yffd.FieldByName('面积二').AsInteger;
                              yfgldata.dwqk.Post