yfzltj.pas

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

PAS
519 行
字号
123
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            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;
                            end;
                          yfgldata.yffd.Edit;
                          yfgldata.yffd.FieldByName('单位代码').AsString:=yfzlbj.dxLookupTreeView1.Text;
                          yfgldata.yffd.FieldByName('住用单位').AsString:=yfzlbj.Edit3.Text;
                          yfgldata.yffd.Post;
                        end;
                      yfgldata.yffd.Next;
                    end;
                  yfgldata.yffd.First;
                end;
              close;
              yfzl.showbtn;
            end;
  end;
yfgldata.yfzl.Filtered:=true;
end;

end.
123

yfzltj.pas - 源码说明

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

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

⌨️ 快捷键说明

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