yffdtjfrm.pas

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

PAS
436 行
字号
12
                          yfgldata.yffd.FieldByName('委托看管').AsInteger:=yffdtj.DBNumberEditEh11.Value;
                          yfgldata.yffd.FieldByName('房屋区位').AsString:=yffdtj.ComboBox4.Text;
                          if yffdtj.RadioButton1.Checked then
                            yfgldata.yffd.FieldByName('空闲状态').AsString:='是';
                          if yffdtj.RadioButton2.Checked then
                            yfgldata.yffd.FieldByName('空闲状态').AsString:='否';
                          yfgldata.yffd.FieldByName('房屋产权').AsString:=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('建筑年份').AsInteger:=yffdtj.DBNumberEditEh1.Value;
                          yfgldata.yffd.FieldByName('家属宿舍套数').AsInteger:=yffdtj.DBNumberEditEh2.Value;
                          if yffdtj.CheckBox1.Checked then
                            yfgldata.yffd.FieldByName('水').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('水').AsString:='无';
                          if yffdtj.CheckBox2.Checked then
                            yfgldata.yffd.FieldByName('电').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('电').AsString:='无';
                          if yffdtj.CheckBox3.Checked then
                            yfgldata.yffd.FieldByName('暖').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('暖').AsString:='无';
                          if yffdtj.CheckBox4.Checked then
                            yfgldata.yffd.FieldByName('气').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('气').AsString:='无';
                          if yffdtj.CheckBox5.Checked then
                            yfgldata.yffd.FieldByName('消').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('消').AsString:='无';
                          if yffdtj.CheckBox6.Checked then
                            yfgldata.yffd.FieldByName('卫').AsString:='有'
                          else
                            yfgldata.yffd.FieldByName('卫').AsString:='无';
                          yfgldata.yffd.FieldByName('变更原因').AsString:=yffdtj.Edit1.Text;
                          yfgldata.yffd.FieldByName('变更依据').AsString:=yffdtj.Edit16.Text;
                          yfgldata.yffd.Post;
                          yfgldata.dwqk.Locate('单位代码',yffdtj.dxLookupTreeView1.Text,[loCaseInsensitive]);
                          yfgldata.dwqk.Edit;
                          yfgldata.dwqk.FieldByName('房屋栋数').AsInteger:=yfgldata.dwqk.FieldByName('房屋栋数').AsInteger+1;
                          if yffdtj.ComboBox2.ItemIndex=0 then
                            yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=1 then
                            yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=2 then
                            yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=3 then
                            yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=4 then
                            yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=5 then
                            yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=6 then
                            yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox2.ItemIndex=7 then
                            yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
                          if yffdtj.ComboBox3.ItemIndex=0 then
                            yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=1 then
                            yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=2 then
                            yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=3 then
                            yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=4 then
                            yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=5 then
                            yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=6 then
                            yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          if yffdtj.ComboBox3.ItemIndex=7 then
                            yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
                          yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger+yffdtj.DBNumberEditEh6.Value;
                          yfgldata.dwqk.Post;
                          yfgldata.yfzl.Locate('坐落号',yffdtj.ComboBox1.Text,[loCaseInsensitive]);
                          yfgldata.yfzl.Edit;
                          yfgldata.yfzl.FieldByName('建筑面积1').AsInteger:=yfgldata.yfzl.FieldByName('建筑面积1').AsInteger+jd;
                          yfgldata.yfzl.FieldByName('使用面积1').AsInteger:=yfgldata.yfzl.FieldByName('使用面积1').AsInteger+bd+cz+df+bk+wt;
                          yfgldata.yfzl.Post;
                          close;
                          yffd.showbt;
                        end
                      else
                        messagebox(yffdtj.handle,'房屋区位不能为空。','营房工作管理系统',16);
                end;
              yfgldata.yffd.Filtered:=false;
            end
          else
            messagebox(yffdtj.handle,'栋号不能为空。','营房工作管理系统',16);
        end
      else
        messagebox(yffdtj.handle,'坐落号不能为空。','营房工作管理系统',16);
    end
  else
    messagebox(yffdtj.handle,'单位代码不能为空。','营房工作管理系统',16)
else
  begin
    jd:=yffdtj.DBNumberEditEh6.Value;
    m1:=yffdtj.DBNumberEditEh4.Value;
    m2:=yffdtj.DBNumberEditEh5.Value;
    bd:=yffdtj.DBNumberEditEh7.Value;
    cz:=yffdtj.DBNumberEditEh8.Value;
    df:=yffdtj.DBNumberEditEh9.Value;
    bk:=yffdtj.DBNumberEditEh10.Value;
    wt:=yffdtj.DBNumberEditEh11.Value;
    if jd<(m1+m2) then
      messagebox(yffdtj.handle,'建筑面积不能小于用途面积之和。','营房工作管理系统',16)
    else
      if jd<(bd+cz+df+bk+wt) then
        messagebox(yffdtj.handle,'建筑面积不能小于住用面积之和。','营房工作管理系统',16)
      else
        if yffdtj.ComboBox4.Text<>'' then
          begin
            yfgldata.yffd.Edit;
            yfgldata.yffd.FieldByName('建筑面积').AsInteger:=yffdtj.DBNumberEditEh6.Value;
            yfgldata.yffd.FieldByName('分类一').AsString:=yffdtj.ComboBox2.Text;
            yfgldata.yffd.FieldByName('名称一').AsString:=yffdtj.Edit4.Text;
            yfgldata.yffd.FieldByName('面积一').AsInteger:=yffdtj.DBNumberEditEh4.Value;
            yfgldata.yffd.FieldByName('分类二').AsString:=yffdtj.ComboBox3.Text;
            yfgldata.yffd.FieldByName('名称二').AsString:=yffdtj.Edit5.Text;
            yfgldata.yffd.FieldByName('面积二').AsInteger:=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('房屋区位').AsString:=yffdtj.ComboBox4.Text;
            if yffdtj.RadioButton1.Checked then
              yfgldata.yffd.FieldByName('空闲状态').AsString:='是';
            if yffdtj.RadioButton2.Checked then
              yfgldata.yffd.FieldByName('空闲状态').AsString:='否';
            yfgldata.yffd.FieldByName('房屋产权').AsString:=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('建筑年份').AsInteger:=yffdtj.DBNumberEditEh1.Value;
            yfgldata.yffd.FieldByName('家属宿舍套数').AsInteger:=yffdtj.DBNumberEditEh2.Value;
            if yffdtj.CheckBox1.Checked then
              yfgldata.yffd.FieldByName('水').AsString:='有'
            else
              yfgldata.yffd.FieldByName('水').AsString:='无';
            if yffdtj.CheckBox2.Checked then
              yfgldata.yffd.FieldByName('电').AsString:='有'
            else
              yfgldata.yffd.FieldByName('电').AsString:='无';
            if yffdtj.CheckBox3.Checked then
              yfgldata.yffd.FieldByName('暖').AsString:='有'
            else
              yfgldata.yffd.FieldByName('暖').AsString:='无';
            if yffdtj.CheckBox4.Checked then
              yfgldata.yffd.FieldByName('气').AsString:='有'
            else
              yfgldata.yffd.FieldByName('气').AsString:='无';
            if yffdtj.CheckBox5.Checked then
              yfgldata.yffd.FieldByName('消').AsString:='有'
            else
              yfgldata.yffd.FieldByName('消').AsString:='无';
            if yffdtj.CheckBox6.Checked then
              yfgldata.yffd.FieldByName('卫').AsString:='有'
            else
              yfgldata.yffd.FieldByName('卫').AsString:='无';
            yfgldata.yffd.FieldByName('变更原因').AsString:=yffdtj.Edit1.Text;
            yfgldata.yffd.FieldByName('变更依据').AsString:=yffdtj.Edit16.Text;
            yfgldata.yffd.Post;
            yfgldata.dwqk.Locate('单位代码',yffdtj.dxLookupTreeView1.Text,[loCaseInsensitive]);
            yfgldata.dwqk.Edit;
            yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk.FieldByName('建筑总面积').AsInteger+jd-jd0;
            if yffdtj.ComboBox2.ItemIndex=0 then yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=1 then yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=2 then yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=3 then yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=4 then yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=5 then yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=6 then yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox2.ItemIndex=7 then yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger+yffdtj.DBNumberEditEh4.Value;
            if yffdtj.ComboBox3.ItemIndex=0 then yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=1 then yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=2 then yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=3 then yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=4 then yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=5 then yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=6 then yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.ComboBox3.ItemIndex=7 then yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger+yffdtj.DBNumberEditEh5.Value;
            if yffdtj.f1='办' then yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-m10;
            if yffdtj.f1='集' then yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger-m10;
            if yffdtj.f1='家' then yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger-m10;
            if yffdtj.f1='公' then yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger-m10;
            if yffdtj.f1='库' then yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger-m10;
            if yffdtj.f1='专' then yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger-m10;
            if yffdtj.f1='招' then yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger-m10;
            if yffdtj.f1='它' then yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger-m10;
            if yffdtj.f2='办' then yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk.FieldByName('办公用房').AsInteger-m20;
            if yffdtj.f2='集' then yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk.FieldByName('集体宿舍').AsInteger-m20;
            if yffdtj.f2='家' then yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk.FieldByName('家属宿舍').AsInteger-m20;
            if yffdtj.f2='公' then yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk.FieldByName('公共用房').AsInteger-m20;
            if yffdtj.f2='库' then yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk.FieldByName('库房').AsInteger-m20;
            if yffdtj.f2='专' then yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk.FieldByName('专业用房').AsInteger-m20;
            if yffdtj.f2='招' then yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk.FieldByName('招待用房').AsInteger-m20;
            if yffdtj.f2='它' then yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk.FieldByName('其它用房').AsInteger-m20;
            yfgldata.dwqk.Post;
            yfgldata.yfzl.Locate('坐落号',yffdtj.ComboBox1.Text,[loCaseInsensitive]);
            yfgldata.yfzl.Edit;
            yfgldata.yfzl.FieldByName('建筑面积1').AsInteger:=yfgldata.yfzl.FieldByName('建筑面积1').AsInteger+jd-jd0;
            yfgldata.yfzl.FieldByName('使用面积1').AsInteger:=yfgldata.yfzl.FieldByName('使用面积1').AsInteger+bd+cz+df+bk+wt-bd0-cz0-df0-bk0-wt0;
            yfgldata.yfzl.Post;
            close;
            yffd.showbt;
          end
        else
          messagebox(yffdtj.handle,'房屋区位不能为空。','营房工作管理系统',16);
  end;
end;

end.
12

yffdtjfrm.pas - 源码说明

本页面展示了「本人编写的有关军队营房工作的管理系统」中的 yffdtjfrm.pas 源码文件，采用 PAS 编程语言编写，共 436 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与编写相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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