yffdfrm.pas

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

f_query.fields.Add('名称一');
f_query.fields.Add('面积一');
f_query.fields.Add('分类二');
f_query.fields.Add('名称二');
f_query.fields.Add('面积二');
f_query.fields.Add('部队住用');
f_query.fields.Add('出租利用');
f_query.fields.Add('地方占用');
f_query.fields.Add('部队看管');
f_query.fields.Add('委托看管');
f_query.fields.Add('房屋区位');
f_query.fields.Add('空闲状态');
f_query.fields.Add('房屋产权');
f_query.fields.Add('建筑结构');
f_query.fields.Add('质量等级');
f_query.fields.Add('层数');
f_query.fields.Add('建筑年份');
f_query.fields.Add('家属宿舍套数');
f_query.fields.Add('水');
f_query.fields.Add('电');
f_query.fields.Add('暖');
f_query.fields.Add('气');
f_query.fields.Add('消');
f_query.fields.Add('卫');
f_query.fields.Add('变更原因');
f_query.fields.Add('变更依据');
f_query.fieldsalias.Clear;
f_query.fieldsalias.Add('单位代码');
f_query.fieldsalias.Add('住用单位');
f_query.fieldsalias.Add('坐落号');
f_query.fieldsalias.Add('栋号');
f_query.fieldsalias.Add('建筑面积');
f_query.fieldsalias.Add('分类一');
f_query.fieldsalias.Add('名称一');
f_query.fieldsalias.Add('面积一');
f_query.fieldsalias.Add('分类二');
f_query.fieldsalias.Add('名称二');
f_query.fieldsalias.Add('面积二');
f_query.fieldsalias.Add('部队住用');
f_query.fieldsalias.Add('出租利用');
f_query.fieldsalias.Add('地方占用');
f_query.fieldsalias.Add('部队看管');
f_query.fieldsalias.Add('委托看管');
f_query.fieldsalias.Add('房屋区位');
f_query.fieldsalias.Add('空闲状态');
f_query.fieldsalias.Add('房屋产权');
f_query.fieldsalias.Add('建筑结构');
f_query.fieldsalias.Add('质量等级');
f_query.fieldsalias.Add('层数');
f_query.fieldsalias.Add('建筑年份');
f_query.fieldsalias.Add('家属宿舍套数');
f_query.fieldsalias.Add('水');
f_query.fieldsalias.Add('电');
f_query.fieldsalias.Add('暖');
f_query.fieldsalias.Add('气');
f_query.fieldsalias.Add('消');
f_query.fieldsalias.Add('卫');
f_query.fieldsalias.Add('变更原因');
f_query.fieldsalias.Add('变更依据');
try
  f_query.ShowModal;
  if f_query.conf then
    begin
    yfgldata.yffd.Filter:=f_query.filtervalue;
    yfgldata.yffd.Filtered:=true;
    yffd.showbt;
    end
  else
    begin
    yfgldata.yffd.Filtered:=false;
    yffd.showbt;
    end;
finally
  f_query.Free;
end;
end;

procedure Tyffd.SpeedButton1Click(Sender: TObject);
begin
yffd.PrintDBGridEh1.PageHeader.CenterText.Clear;
yffd.PrintDBGridEh1.PageHeader.CenterText.Add('营房分栋登记（变更）表');
yffd.PrintDBGridEh1.Preview;
end;

procedure Tyffd.DBGridEh1CellClick(Column: TColumnEh);
begin
yffd.showbt;
end;

procedure Tyffd.DBGridEh1DrawDataCell(Sender: TObject; const Rect: TRect;
  Field: TField; State: TGridDrawState);
begin
yffd.showbt;
end;

procedure Tyffd.DBGridEh1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
yffd.showbt;
end;

procedure Tyffd.DBGridEh1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
yffd.showbt;
end;

procedure Tyffd.SpeedButton10Click(Sender: TObject);
begin
application.CreateForm(tyffdtj,yffdtj);
yffdtj.Caption:='添加新房屋';
yffdtj.fw:=true;
try
  yffdtj.ShowModal;
finally
  yffdtj.Free;
end;
end;

procedure Tyffd.SpeedButton12Click(Sender: TObject);
begin
application.CreateForm(tyffdtj,yffdtj);
yffdtj.Caption:='修改房屋数据';
yffdtj.fw:=false;
yffdtj.dxLookupTreeView1.Enabled:=false;
yffdtj.Edit3.ReadOnly:=true;
yffdtj.dxLookupTreeView1.Text:=yfgldata.yffd.FieldByName('单位代码').AsString;
yffdtj.Edit2.Text:=yfgldata.yffd.FieldByName('住用单位').AsString;
yffdtj.ComboBox1.Items.Clear;
yffdtj.ComboBox1.Items.Add(yfgldata.yffd.FieldByName('坐落号').AsString);
yffdtj.ComboBox1.ItemIndex:=0;
yffdtj.Edit3.Text:=yfgldata.yffd.FieldByName('栋号').AsString;
yffdtj.DBNumberEditEh6.Value:=yfgldata.yffd.FieldByName('建筑面积').AsInteger;
if yfgldata.yffd.FieldByName('分类一').AsString='办' then
  yffdtj.ComboBox2.ItemIndex:=0;
if yfgldata.yffd.FieldByName('分类一').AsString='集' then
  yffdtj.ComboBox2.ItemIndex:=1;
if yfgldata.yffd.FieldByName('分类一').AsString='家' then
  yffdtj.ComboBox2.ItemIndex:=2;
if yfgldata.yffd.FieldByName('分类一').AsString='公' then
  yffdtj.ComboBox2.ItemIndex:=3;
if yfgldata.yffd.FieldByName('分类一').AsString='库' then
  yffdtj.ComboBox2.ItemIndex:=4;
if yfgldata.yffd.FieldByName('分类一').AsString='专' then
  yffdtj.ComboBox2.ItemIndex:=5;
if yfgldata.yffd.FieldByName('分类一').AsString='招' then
  yffdtj.ComboBox2.ItemIndex:=6;
if yfgldata.yffd.FieldByName('分类一').AsString='它' then
  yffdtj.ComboBox2.ItemIndex:=7;
yffdtj.Edit4.Text:=yfgldata.yffd.FieldByName('名称一').AsString;
yffdtj.DBNumberEditEh4.Value:=yfgldata.yffd.FieldByName('面积一').AsInteger;
if yfgldata.yffd.FieldByName('分类二').AsString='办' then
  yffdtj.ComboBox3.ItemIndex:=0;
if yfgldata.yffd.FieldByName('分类二').AsString='集' then
  yffdtj.ComboBox3.ItemIndex:=1;
if yfgldata.yffd.FieldByName('分类二').AsString='家' then
  yffdtj.ComboBox3.ItemIndex:=2;
if yfgldata.yffd.FieldByName('分类二').AsString='公' then
  yffdtj.ComboBox3.ItemIndex:=3;
if yfgldata.yffd.FieldByName('分类二').AsString='库' then
  yffdtj.ComboBox3.ItemIndex:=4;
if yfgldata.yffd.FieldByName('分类二').AsString='专' then
  yffdtj.ComboBox3.ItemIndex:=5;
if yfgldata.yffd.FieldByName('分类二').AsString='招' then
  yffdtj.ComboBox3.ItemIndex:=6;
if yfgldata.yffd.FieldByName('分类二').AsString='它' then
  yffdtj.ComboBox3.ItemIndex:=7;
yffdtj.Edit5.Text:=yfgldata.yffd.FieldByName('名称二').AsString;
yffdtj.DBNumberEditEh5.Value:=yfgldata.yffd.FieldByName('面积二').AsInteger;
yffdtj.DBNumberEditEh7.Value:=yfgldata.yffd.FieldByName('部队住用').AsInteger;
yffdtj.DBNumberEditEh8.Value:=yfgldata.yffd.FieldByName('出租利用').AsInteger;
yffdtj.DBNumberEditEh9.Value:=yfgldata.yffd.FieldByName('地方占用').AsInteger;
yffdtj.DBNumberEditEh10.Value:=yfgldata.yffd.FieldByName('部队看管').AsInteger;
yffdtj.DBNumberEditEh11.Value:=yfgldata.yffd.FieldByName('委托看管').AsInteger;
if yfgldata.yffd.FieldByName('房屋区位').AsString='军事行政区' then
  yffdtj.ComboBox4.ItemIndex:=0;
if yfgldata.yffd.FieldByName('房屋区位').AsString='公寓区' then
  yffdtj.ComboBox4.ItemIndex:=1;
if yfgldata.yffd.FieldByName('房屋区位').AsString='库区' then
  yffdtj.ComboBox4.ItemIndex:=2;
if yfgldata.yffd.FieldByName('房屋区位').AsString='其它' then
  yffdtj.ComboBox4.ItemIndex:=3;
if yfgldata.yffd.FieldByName('空闲状态').AsString='是' then
  begin
    yffdtj.RadioButton1.Checked:=true;
    yffdtj.RadioButton2.Checked:=false;
  end
else
  begin
    yffdtj.RadioButton1.Checked:=false;
    yffdtj.RadioButton2.Checked:=true;
  end;
yffdtj.Edit14.Text:=yfgldata.yffd.FieldByName('房屋产权').AsString;
yffdtj.ComboBox5.Text:=yfgldata.yffd.FieldByName('建筑结构').AsString;
yffdtj.Edit10.Text:=yfgldata.yffd.FieldByName('质量等级').AsString;
yffdtj.Edit11.Text:=yfgldata.yffd.FieldByName('层数').AsString;
yffdtj.DBNumberEditEh1.Value:=yfgldata.yffd.FieldByName('建筑年份').AsInteger;
yffdtj.DBNumberEditEh2.Value:=yfgldata.yffd.FieldByName('家属宿舍套数').AsInteger;
yffdtj.CheckBox1.Checked:=yfgldata.yffd.FieldByName('水').AsString='有';
yffdtj.CheckBox2.Checked:=yfgldata.yffd.FieldByName('电').AsString='有';
yffdtj.CheckBox3.Checked:=yfgldata.yffd.FieldByName('暖').AsString='有';
yffdtj.CheckBox4.Checked:=yfgldata.yffd.FieldByName('气').AsString='有';
yffdtj.CheckBox5.Checked:=yfgldata.yffd.FieldByName('消').AsString='有';
yffdtj.CheckBox6.Checked:=yfgldata.yffd.FieldByName('卫').AsString='有';
yffdtj.Edit1.Text:=yfgldata.yffd.FieldByName('变更原因').AsString;
yffdtj.Edit16.Text:=yfgldata.yffd.FieldByName('变更依据').AsString;
yffdtj.ComboBox1.Enabled:=false;
yffdtj.jd0:=yfgldata.yffd.FieldByName('建筑面积').AsInteger;
yffdtj.f1:=yfgldata.yffd.FieldByName('分类一').AsString;
yffdtj.m10:=yfgldata.yffd.FieldByName('面积一').AsInteger;
yffdtj.f2:=yfgldata.yffd.FieldByName('分类二').AsString;
yffdtj.m20:=yfgldata.yffd.FieldByName('面积二').AsInteger;
yffdtj.bd0:=yfgldata.yffd.FieldByName('部队住用').AsInteger;
yffdtj.cz0:=yfgldata.yffd.FieldByName('出租利用').AsInteger;
yffdtj.df0:=yfgldata.yffd.FieldByName('地方占用').AsInteger;
yffdtj.bk0:=yfgldata.yffd.FieldByName('部队看管').AsInteger;
yffdtj.wt0:=yfgldata.yffd.FieldByName('委托看管').AsInteger;
try
  yffdtj.ShowModal;
finally
  yffdtj.Free;
end;
end;

procedure Tyffd.SpeedButton11Click(Sender: TObject);
var
  i,jz,m1,m2,bd,cz,df,bk,wt:longint;
  dm,zl:string;
begin
dm:=yfgldata.yffd.FieldByName('单位代码').AsString;
zl:=yfgldata.yffd.FieldByName('坐落号').AsString;
jz:=yfgldata.yffd.FieldByName('建筑面积').AsInteger;
m1:=yfgldata.yffd.FieldByName('面积一').AsInteger;
m2:=yfgldata.yffd.FieldByName('面积二').AsInteger;
bd:=yfgldata.yffd.FieldByName('部队住用').AsInteger;
cz:=yfgldata.yffd.FieldByName('出租利用').AsInteger;
df:=yfgldata.yffd.FieldByName('地方占用').AsInteger;
bk:=yfgldata.yffd.FieldByName('部队看管').AsInteger;
wt:=yfgldata.yffd.FieldByName('委托看管').AsInteger;
if messagebox(yffd.handle,'请确认要删除本房屋记录吗？','营房工作管理系统',33)=1 then
  begin
    yfgldata.dwqk.Locate('单位代码',dm,[loCaseInsensitive]);
    yfgldata.dwqk.Edit;
    yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger-jz;
    yfgldata.dwqk.FieldByName('房屋栋数').AsInteger:=yfgldata.dwqk.FieldByName('房屋栋数').AsInteger-1;
    if yfgldata.yffd.FieldByName('分类一').AsString='办' then
      yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='集' then
      yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='家' then
      yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='公' then
      yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='库' then
      yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='专' then
      yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='招' then
      yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类一').AsString='它' then
      yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger-m1;
    if yfgldata.yffd.FieldByName('分类二').AsString='办' then
      yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='集' then
      yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='家' then
      yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='公' then
      yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='库' then
      yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='专' then
      yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='招' then
      yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger-m2;
    if yfgldata.yffd.FieldByName('分类二').AsString='它' then
      yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger-m2;
    yfgldata.dwqk.Post;
    yfgldata.yfzl.Locate('坐落号',zl,[loCaseInsensitive]);
    yfgldata.yfzl.Edit;
    yfgldata.yfzl.FieldByName('建筑面积1').AsInteger:=yfgldata.yfzl.FieldByName('建筑面积1').AsInteger-jz;
    yfgldata.yfzl.FieldByName('使用面积1').AsInteger:=yfgldata.yfzl.FieldByName('使用面积1').AsInteger-bd-cz-df-bk-wt;
    yfgldata.yfzl.Post;
    yfgldata.yffd.Delete;
    yfgldata.yffd.First;
    for i:=1 to yfgldata.yffd.RecordCount do
      begin
        yfgldata.yffd.Edit;
        yfgldata.yffd.FieldByName('序号').AsInteger:=i;
        yfgldata.yffd.Post;
        yfgldata.yffd.Next;
      end;
    yfgldata.yffd.First;
    yffd.showbt;
  end;
end;

end.