sjjsfrm.pas

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

                yfgldata.dwqk.FieldByName('建筑总面积').AsInteger:=yfgldata.dwqk1.FieldByName('建筑总面积').AsInteger;
                yfgldata.dwqk.FieldByName('坐落总个数').AsInteger:=yfgldata.dwqk1.FieldByName('坐落总个数').AsInteger;
                yfgldata.dwqk.FieldByName('总人数').AsInteger:=yfgldata.dwqk1.FieldByName('总人数').AsInteger;
                yfgldata.dwqk.FieldByName('干部数').AsInteger:=yfgldata.dwqk1.FieldByName('干部数').AsInteger;
                yfgldata.dwqk.FieldByName('士官数').AsInteger:=yfgldata.dwqk1.FieldByName('士官数').AsInteger;
                yfgldata.dwqk.FieldByName('房屋栋数').AsInteger:=yfgldata.dwqk1.FieldByName('房屋栋数').AsInteger;
                yfgldata.dwqk.FieldByName('办公用房').AsInteger:=yfgldata.dwqk1.FieldByName('办公用房').AsInteger;
                yfgldata.dwqk.FieldByName('集体宿舍').AsInteger:=yfgldata.dwqk1.FieldByName('集体宿舍').AsInteger;
                yfgldata.dwqk.FieldByName('家属宿舍').AsInteger:=yfgldata.dwqk1.FieldByName('家属宿舍').AsInteger;
                yfgldata.dwqk.FieldByName('公共用房').AsInteger:=yfgldata.dwqk1.FieldByName('公共用房').AsInteger;
                yfgldata.dwqk.FieldByName('库房').AsInteger:=yfgldata.dwqk1.FieldByName('库房').AsInteger;
                yfgldata.dwqk.FieldByName('专业用房').AsInteger:=yfgldata.dwqk1.FieldByName('专业用房').AsInteger;
                yfgldata.dwqk.FieldByName('招待用房').AsInteger:=yfgldata.dwqk1.FieldByName('招待用房').AsInteger;
                yfgldata.dwqk.FieldByName('其它用房').AsInteger:=yfgldata.dwqk1.FieldByName('其它用房').AsInteger;
                yfgldata.dwqk.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.dwqk1.Next;
              end;
            yfgldata.yfzl1.First;
            for i:=1 to yfgldata.yfzl1.RecordCount do
              begin
                yfgldata.yfzl.Append;
                yfgldata.yfzl.FieldByName('序号').AsInteger:=yfgldata.yfzl.RecordCount+1;
                yfgldata.yfzl.FieldByName('单位代码').AsString:=yfgldata.yfzl1.FieldByName('单位代码').AsString;
                yfgldata.yfzl.FieldByName('住用单位').AsString:=yfgldata.yfzl1.FieldByName('住用单位').AsString;
                yfgldata.yfzl.FieldByName('坐落号').AsString:=yfgldata.yfzl1.FieldByName('坐落号').AsString;
                yfgldata.yfzl.FieldByName('地域').AsString:=yfgldata.yfzl1.FieldByName('地域').AsString;
                yfgldata.yfzl.FieldByName('地势').AsString:=yfgldata.yfzl1.FieldByName('地势').AsString;
                yfgldata.yfzl.FieldByName('土地证号').AsString:=yfgldata.yfzl1.FieldByName('土地证号').AsString;
                yfgldata.yfzl.FieldByName('房产证号').AsString:=yfgldata.yfzl1.FieldByName('房产证号').AsString;
                yfgldata.yfzl.FieldByName('进驻日期').AsString:=yfgldata.yfzl1.FieldByName('进驻日期').AsString;
                yfgldata.yfzl.FieldByName('军事行政区').AsInteger:=yfgldata.yfzl1.FieldByName('军事行政区').AsInteger;
                yfgldata.yfzl.FieldByName('公寓区').AsInteger:=yfgldata.yfzl1.FieldByName('公寓区').AsInteger;
                yfgldata.yfzl.FieldByName('库区').AsInteger:=yfgldata.yfzl1.FieldByName('库区').AsInteger;
                yfgldata.yfzl.FieldByName('其它').AsInteger:=yfgldata.yfzl1.FieldByName('其它').AsInteger;
                yfgldata.yfzl.FieldByName('基地面积').AsInteger:=yfgldata.yfzl1.FieldByName('基地面积').AsInteger;
                yfgldata.yfzl.FieldByName('建筑面积').AsInteger:=yfgldata.yfzl1.FieldByName('建筑面积').AsInteger;
                yfgldata.yfzl.FieldByName('使用面积').AsInteger:=yfgldata.yfzl1.FieldByName('使用面积').AsInteger;
                yfgldata.yfzl.FieldByName('基地面积1').AsInteger:=yfgldata.yfzl1.FieldByName('基地面积1').AsInteger;
                yfgldata.yfzl.FieldByName('建筑面积1').AsInteger:=yfgldata.yfzl1.FieldByName('建筑面积1').AsInteger;
                yfgldata.yfzl.FieldByName('使用面积1').AsInteger:=yfgldata.yfzl1.FieldByName('使用面积1').AsInteger;
                yfgldata.yfzl.FieldByName('变更原因').AsString:=yfgldata.yfzl1.FieldByName('变更原因').AsString;
                yfgldata.yfzl.FieldByName('供水方式').AsString:=yfgldata.yfzl1.FieldByName('供水方式').AsString;
                yfgldata.yfzl.FieldByName('供电方式').AsString:=yfgldata.yfzl1.FieldByName('供电方式').AsString;
                yfgldata.yfzl.FieldByName('供暖方式').AsString:=yfgldata.yfzl1.FieldByName('供暖方式').AsString;
                yfgldata.yfzl.FieldByName('坐落地址').AsString:=yfgldata.yfzl1.FieldByName('坐落地址').AsString;
                yfgldata.yfzl.FieldByName('详细单位').AsString:=yfgldata.yfzl1.FieldByName('详细单位').AsString;
                yfgldata.yfzl.FieldByName('营区分类').AsString:=yfgldata.yfzl1.FieldByName('营区分类').AsString;
                yfgldata.yfzl.FieldByName('用地分类').AsString:=yfgldata.yfzl1.FieldByName('用地分类').AsString;
                yfgldata.yfzl.FieldByName('城乡区位').AsString:=yfgldata.yfzl1.FieldByName('城乡区位').AsString;
                yfgldata.yfzl.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.yfzl1.Next;
              end;
            yfgldata.guolu1.First;
            for i:=1 to yfgldata.guolu1.RecordCount do
              begin
                yfgldata.guolu.Append;
                yfgldata.guolu.FieldByName('序号').AsInteger:=yfgldata.guolu.RecordCount+1;
                yfgldata.guolu.FieldByName('单位代码').AsString:=yfgldata.guolu1.FieldByName('单位代码').AsString;
                yfgldata.guolu.FieldByName('住用单位').AsString:=yfgldata.guolu1.FieldByName('住用单位').AsString;
                yfgldata.guolu.FieldByName('坐落号').AsString:=yfgldata.guolu1.FieldByName('坐落号').AsString;
                yfgldata.guolu.FieldByName('栋号').AsString:=yfgldata.guolu1.FieldByName('栋号').AsString;
                yfgldata.guolu.FieldByName('型号').AsString:=yfgldata.guolu1.FieldByName('型号').AsString;
                yfgldata.guolu.FieldByName('蒸发量').AsFloat:=yfgldata.guolu1.FieldByName('蒸发量').AsFloat;
                yfgldata.guolu.FieldByName('额定压力').AsFloat:=yfgldata.guolu1.FieldByName('额定压力').AsFloat;
                yfgldata.guolu.FieldByName('使用压力').AsFloat:=yfgldata.guolu1.FieldByName('使用压力').AsFloat;
                yfgldata.guolu.FieldByName('额定温度').AsInteger:=yfgldata.guolu1.FieldByName('额定温度').AsInteger;
                yfgldata.guolu.FieldByName('燃料类型').AsString:=yfgldata.guolu1.FieldByName('燃料类型').AsString;
                yfgldata.guolu.FieldByName('锅炉用途').AsString:=yfgldata.guolu1.FieldByName('锅炉用途').AsString;
                yfgldata.guolu.FieldByName('质量状况').AsString:=yfgldata.guolu1.FieldByName('质量状况').AsString;
                yfgldata.guolu.FieldByName('供热介质').AsString:=yfgldata.guolu1.FieldByName('供热介质').AsString;
                yfgldata.guolu.FieldByName('水处理方式').AsString:=yfgldata.guolu1.FieldByName('水处理方式').AsString;
                yfgldata.guolu.FieldByName('消烟除尘方式').AsString:=yfgldata.guolu1.FieldByName('消烟除尘方式').AsString;
                yfgldata.guolu.FieldByName('生产厂家').AsString:=yfgldata.guolu1.FieldByName('生产厂家').AsString;
                yfgldata.guolu.FieldByName('安装年份').AsInteger:=yfgldata.guolu1.FieldByName('安装年份').AsInteger;
                yfgldata.guolu.FieldByName('是否登记').AsString:=yfgldata.guolu1.FieldByName('是否登记').AsString;
                yfgldata.guolu.FieldByName('检验部门').AsString:=yfgldata.guolu1.FieldByName('检验部门').AsString;
                yfgldata.guolu.FieldByName('变更依据').AsString:=yfgldata.guolu1.FieldByName('变更依据').AsString;
                yfgldata.guolu.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.guolu1.Next;
              end;
            yfgldata.gx1.First;
            for i:=1 to yfgldata.gx1.RecordCount do
              begin
                yfgldata.gx.Append;
                yfgldata.gx.FieldByName('序号').AsInteger:=yfgldata.gx.RecordCount+1;
                yfgldata.gx.FieldByName('单位代码').AsString:=yfgldata.gx1.FieldByName('单位代码').AsString;
                yfgldata.gx.FieldByName('住用单位').AsString:=yfgldata.gx1.FieldByName('住用单位').AsString;
                yfgldata.gx.FieldByName('坐落号').AsString:=yfgldata.gx1.FieldByName('坐落号').AsString;
                yfgldata.gx.FieldByName('管线编号').AsString:=yfgldata.gx1.FieldByName('管线编号').AsString;
                yfgldata.gx.FieldByName('管线类型').AsString:=yfgldata.gx1.FieldByName('管线类型').AsString;
                yfgldata.gx.FieldByName('管线长度').AsInteger:=yfgldata.gx1.FieldByName('管线长度').AsInteger;
                yfgldata.gx.FieldByName('管径').AsInteger:=yfgldata.gx1.FieldByName('管径').AsInteger;
                yfgldata.gx.FieldByName('材质').AsString:=yfgldata.gx1.FieldByName('材质').AsString;
                yfgldata.gx.FieldByName('铺设年份').AsInteger:=yfgldata.gx1.FieldByName('铺设年份').AsInteger;
                yfgldata.gx.FieldByName('铺设方式').AsString:=yfgldata.gx1.FieldByName('铺设方式').AsString;
                yfgldata.gx.FieldByName('质量状况').AsString:=yfgldata.gx1.FieldByName('质量状况').AsString;
                yfgldata.gx.FieldByName('保护方式').AsString:=yfgldata.gx1.FieldByName('保护方式').AsString;
                yfgldata.gx.FieldByName('变更依据').AsString:=yfgldata.gx1.FieldByName('变更依据').AsString;
                yfgldata.gx.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.gx1.Next;
              end;
            yfgldata.xjyf1.First;
            for i:=1 to yfgldata.xjyf1.RecordCount do
              begin
                yfgldata.xjyf.Append;
                yfgldata.xjyf.FieldByName('序号').AsInteger:=yfgldata.xjyf.RecordCount+1;
                yfgldata.xjyf.FieldByName('单位代码').AsString:=yfgldata.xjyf1.FieldByName('单位代码').AsString;
                yfgldata.xjyf.FieldByName('住用单位').AsString:=yfgldata.xjyf1.FieldByName('住用单位').AsString;
                yfgldata.xjyf.FieldByName('坐落号').AsString:=yfgldata.xjyf1.FieldByName('坐落号').AsString;
                yfgldata.xjyf.FieldByName('栋号').AsString:=yfgldata.xjyf1.FieldByName('栋号').AsString;
                yfgldata.xjyf.FieldByName('房屋用途').AsString:=yfgldata.xjyf1.FieldByName('房屋用途').AsString;
                yfgldata.xjyf.FieldByName('合计').AsInteger:=yfgldata.xjyf1.FieldByName('合计').AsInteger;
                yfgldata.xjyf.FieldByName('新建').AsInteger:=yfgldata.xjyf1.FieldByName('新建').AsInteger;
                yfgldata.xjyf.FieldByName('翻建').AsInteger:=yfgldata.xjyf1.FieldByName('翻建').AsInteger;
                yfgldata.xjyf.FieldByName('下达任务单位').AsString:=yfgldata.xjyf1.FieldByName('下达任务单位').AsString;
                yfgldata.xjyf.FieldByName('下达任务年度').AsInteger:=yfgldata.xjyf1.FieldByName('下达任务年度').AsInteger;
                yfgldata.xjyf.FieldByName('下达任务文件号').AsString:= yfgldata.xjyf1.FieldByName('下达任务文件号').AsString;
                yfgldata.xjyf.FieldByName('拨款').AsCurrency:=yfgldata.xjyf1.FieldByName('拨款').AsCurrency;
                yfgldata.xjyf.FieldByName('集资').AsCurrency:=yfgldata.xjyf1.FieldByName('集资').AsCurrency;
                yfgldata.xjyf.FieldByName('换建').AsCurrency:=yfgldata.xjyf1.FieldByName('换建').AsCurrency;
                yfgldata.xjyf.FieldByName('自筹').AsCurrency:=yfgldata.xjyf1.FieldByName('自筹').AsCurrency;
                yfgldata.xjyf.FieldByName('贷款').AsCurrency:=yfgldata.xjyf1.FieldByName('贷款').AsCurrency;
                yfgldata.xjyf.FieldByName('部队住用').AsString:=yfgldata.xjyf1.FieldByName('部队住用').AsString;
                yfgldata.xjyf.FieldByName('开发利用').AsString:=yfgldata.xjyf1.FieldByName('开发利用').AsString;
                yfgldata.xjyf.FieldByName('备注').AsString:=yfgldata.xjyf1.FieldByName('备注').AsString;
                yfgldata.xjyf.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.xjyf1.Next;
              end;
            yfgldata.yfda1.First;
            for i:=1 to yfgldata.yfda1.RecordCount do
              begin
                yfgldata.yfda.Append;
                yfgldata.yfda.FieldByName('序号').AsInteger:=yfgldata.yfda.RecordCount+1;
                yfgldata.yfda.FieldByName('单位代码').AsString:=yfgldata.yfda1.FieldByName('单位代码').AsString;
                yfgldata.yfda.FieldByName('住用单位').AsString:=yfgldata.yfda1.FieldByName('住用单位').AsString;
                yfgldata.yfda.FieldByName('坐落号').AsString:=yfgldata.yfda1.FieldByName('坐落号').AsString;
                yfgldata.yfda.FieldByName('坐落地址').AsString:=yfgldata.yfda1.FieldByName('坐落地址').AsString;
                yfgldata.yfda.FieldByName('档案资料名称').AsString:=yfgldata.yfda1.FieldByName('档案资料名称').AsString;
                yfgldata.yfda.FieldByName('份数').AsInteger:=yfgldata.yfda1.FieldByName('份数').AsInteger;
                yfgldata.yfda.FieldByName('页数').AsInteger:=yfgldata.yfda1.FieldByName('页数').AsInteger;
                yfgldata.yfda.FieldByName('备注').AsString:=yfgldata.yfda1.FieldByName('备注').AsString;