yfzlfrm.pas

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

  listbox1.Items.Add('土地证号');
  listbox1.Items.Add('房产证号');
  listbox1.Items.Add('进驻日期');
  listbox1.Items.Add('军事行政区');
  listbox1.Items.Add('公寓区');
  listbox1.Items.Add('库区');
  listbox1.Items.Add('其它');
  listbox1.Items.Add('基地面积');
  listbox1.Items.Add('建筑面积');
  listbox1.Items.Add('使用面积');
  listbox1.Items.Add('基地面积1');
  listbox1.Items.Add('建筑面积1');
  listbox1.Items.Add('使用面积1');
  listbox1.Items.Add('供水方式');
  listbox1.Items.Add('供电方式');
  listbox1.Items.Add('供气方式');
  listbox1.Items.Add('供暖方式');
  listbox1.Items.Add('变更原因');
  vps_filter:=yfgldata.yfzl.Filter;
  vps_name:='yfgl_yfzl';
  edit1.Text:='坐落概况登记（变更）表';
  try
    ShowModal;
  finally
    free;
  end;
end;
end;

procedure Tyfzl.SpeedButton6Click(Sender: TObject);
begin
yfgldata.yfzl.First;
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton7Click(Sender: TObject);
begin
yfgldata.yfzl.Prior;
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton8Click(Sender: TObject);
begin
yfgldata.yfzl.Next;
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton9Click(Sender: TObject);
begin
yfgldata.yfzl.Last;
yfzl.showbtn;
end;

procedure Tyfzl.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tyfzlbj,yfzlbj);
yfzlbj.Caption:='修改坐落数据';
yfzlbj.zlbj:=true;
yfzlbj.Edit1.Text:=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('房产证号').AsString;
yfzlbj.DateTimePicker1.Date:=yfgldata.yfzl.FieldByName('进驻日期').AsDateTime;
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.DBNumberEditEh4.Value:=yfgldata.yfzl.FieldByName('基地面积1').AsInteger;
yfzlbj.DBNumberEditEh2.Value:=yfgldata.yfzl.FieldByName('建筑面积').AsInteger;
yfzlbj.DBNumberEditEh3.Value:=yfgldata.yfzl.FieldByName('使用面积').AsInteger;
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.FieldByName('变更原因').AsString;
yfzlbj.Edit1.Enabled:=false;
yfzlbj.zl:=yfgldata.yfzl.FieldByName('坐落号').AsString;
yfzlbj.dw:=yfgldata.yfzl.FieldByName('单位代码').AsString;
yfzlbj.jd:=yfgldata.yfzl.FieldByName('基地面积1').AsInteger;
try
  yfzlbj.ShowModal;
finally
  yfzlbj.Free;
end;
end;

procedure Tyfzl.SpeedButton11Click(Sender: TObject);
var
  zl:string;
  dw:string;
  i:integer;
begin
zl:=yfgldata.yfzl.FieldByName('坐落号').AsString;
dw:=yfgldata.yfzl.FieldByName('单位代码').AsString;
if messagebox(yfzl.handle,'坐落一经删除，与之相关的营产信息也将被删除，请确认要删除本坐落吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.guolu.First;
    for i:=1 to yfgldata.guolu.RecordCount do
      begin
        if yfgldata.guolu.FieldByName('坐落号').AsString=zl then
          yfgldata.guolu.Delete
        else
          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
          yfgldata.gx.Delete
        else
          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
          yfgldata.xjyf.Delete
        else
          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
          yfgldata.yfda.Delete
        else
          yfgldata.yfda.Next;
      end;
    yfgldata.yfda.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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              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;
              end;
            yfgldata.dwqk.Locate('单位代码',dw,[loCaseInsensitive]);
            yfgldata.dwqk.Edit;
            yfgldata.dwqk.FieldByName('房屋栋数').AsInteger:=yfgldata.dwqk.FieldByName('房屋栋数').AsInteger-1;
            yfgldata.dwqk.Post;
            yfgldata.yffd.Delete;
          end
        else
          yfgldata.yffd.Next;
      end;
    yfgldata.yffd.First;
    yfgldata.yfsb.First;
    for i:=1 to yfgldata.yfsb.RecordCount do
      begin
        if yfgldata.yfsb.FieldByName('坐落号').AsString=zl then
          yfgldata.yfsb.Delete
        else
          yfgldata.yfsb.Next;
      end;
    yfgldata.yfsb.First;
    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.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger-yfgldata.yfzl.FieldByName('建筑面积1').AsInteger;
        yfgldata.dwqk.Post;
      end;
    yfgldata.dwqk.First;
    yfgldata.yfzl.Delete;
    yfgldata.yfzl.First;
    for i:=1 to yfgldata.yfzl.RecordCount do
      begin
        yfgldata.yfzl.Edit;
        yfgldata.yfzl.FieldByName('序号').AsInteger:=i;
        yfgldata.yfzl.Post;
        yfgldata.yfzl.Next;
      end;
    yfzl.showbtn;
  end;
end;

procedure Tyfzl.DBGridEh1CellClick(Column: TColumnEh);
begin
yfzl.showbtn;
end;

procedure Tyfzl.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
yfzl.showbtn;
end;

procedure Tyfzl.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
yfzl.showbtn;
end;

procedure Tyfzl.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
yfzl.showbtn;
end;

end.