sjjsfrm.pas

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

                yfgldata.yfda.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.yfda1.Next;
              end;
            yfgldata.yffd1.First;
            for i:=1 to yfgldata.yffd1.RecordCount do
              begin
                yfgldata.yffd.Append;
                yfgldata.yffd.FieldByName('序号').AsInteger:=yfgldata.yffd.RecordCount+1;
                yfgldata.yffd.FieldByName('单位代码').AsString:=yfgldata.yffd1.FieldByName('单位代码').AsString;
                yfgldata.yffd.FieldByName('住用单位').AsString:=yfgldata.yffd1.FieldByName('住用单位').AsString;
                yfgldata.yffd.FieldByName('坐落号').AsString:=yfgldata.yffd1.FieldByName('坐落号').AsString;
                yfgldata.yffd.FieldByName('栋号').AsString:=yfgldata.yffd1.FieldByName('栋号').AsString;
                yfgldata.yffd.FieldByName('建筑面积').AsInteger:=yfgldata.yffd1.FieldByName('建筑面积').AsInteger;
                yfgldata.yffd.FieldByName('分类一').AsString:=yfgldata.yffd1.FieldByName('分类一').AsString;
                yfgldata.yffd.FieldByName('名称一').AsString:=yfgldata.yffd1.FieldByName('名称一').AsString;
                yfgldata.yffd.FieldByName('面积一').AsInteger:=yfgldata.yffd1.FieldByName('面积一').AsInteger;
                yfgldata.yffd.FieldByName('分类二').AsString:=yfgldata.yffd1.FieldByName('分类二').AsString;
                yfgldata.yffd.FieldByName('名称二').AsString:=yfgldata.yffd1.FieldByName('名称二').AsString;
                yfgldata.yffd.FieldByName('面积二').AsInteger:=yfgldata.yffd1.FieldByName('面积二').AsInteger;
                yfgldata.yffd.FieldByName('部队住用').AsInteger:=yfgldata.yffd1.FieldByName('部队住用').AsInteger;
                yfgldata.yffd.FieldByName('出租利用').AsInteger:=yfgldata.yffd1.FieldByName('出租利用').AsInteger;
                yfgldata.yffd.FieldByName('地方占用').AsInteger:=yfgldata.yffd1.FieldByName('地方占用').AsInteger;
                yfgldata.yffd.FieldByName('部队看管').AsInteger:=yfgldata.yffd1.FieldByName('部队看管').AsInteger;
                yfgldata.yffd.FieldByName('委托看管').AsInteger:=yfgldata.yffd1.FieldByName('委托看管').AsInteger;
                yfgldata.yffd.FieldByName('房屋区位').AsString:= yfgldata.yffd1.FieldByName('房屋区位').AsString;
                yfgldata.yffd.FieldByName('空闲状态').AsString:=yfgldata.yffd1.FieldByName('空闲状态').AsString;
                yfgldata.yffd.FieldByName('房屋产权').AsString:=yfgldata.yffd1.FieldByName('房屋产权').AsString;
                yfgldata.yffd.FieldByName('建筑结构').AsString:=yfgldata.yffd1.FieldByName('建筑结构').AsString;
                yfgldata.yffd.FieldByName('质量等级').AsString:=yfgldata.yffd1.FieldByName('质量等级').AsString;
                yfgldata.yffd.FieldByName('层数').AsString:=yfgldata.yffd1.FieldByName('层数').AsString;
                yfgldata.yffd.FieldByName('建筑年份').AsInteger:=yfgldata.yffd1.FieldByName('建筑年份').AsInteger;
                yfgldata.yffd.FieldByName('家属宿舍套数').AsInteger:=yfgldata.yffd1.FieldByName('家属宿舍套数').AsInteger;
                yfgldata.yffd.FieldByName('水').AsString:=yfgldata.yffd1.FieldByName('水').AsString;
                yfgldata.yffd.FieldByName('电').AsString:=yfgldata.yffd1.FieldByName('电').AsString;
                yfgldata.yffd.FieldByName('暖').AsString:=yfgldata.yffd1.FieldByName('暖').AsString;
                yfgldata.yffd.FieldByName('气').AsString:=yfgldata.yffd1.FieldByName('气').AsString;
                yfgldata.yffd.FieldByName('消').AsString:=yfgldata.yffd1.FieldByName('消').AsString;
                yfgldata.yffd.FieldByName('卫').AsString:=yfgldata.yffd1.FieldByName('卫').AsString;
                yfgldata.yffd.FieldByName('变更原因').AsString:=yfgldata.yffd1.FieldByName('变更原因').AsString;
                yfgldata.yffd.FieldByName('变更依据').AsString:=yfgldata.yffd1.FieldByName('变更依据').AsString;
                yfgldata.yffd.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.yffd1.Next;
              end;
            yfgldata.yfsb1.First;
            for i:=1 to yfgldata.yfsb1.RecordCount do
              begin
                yfgldata.yfsb.Append;
                yfgldata.yfsb.FieldByName('序号').AsInteger:=yfgldata.yfsb.RecordCount+1;
                yfgldata.yfsb.FieldByName('坐落号').AsString:=yfgldata.yfsb1.FieldByName('坐落号').AsString;
                yfgldata.yfsb.FieldByName('单位代码').AsString:=yfgldata.yfsb1.FieldByName('单位代码').AsString;
                yfgldata.yfsb.FieldByName('住用单位').AsString:=yfgldata.yfsb1.FieldByName('住用单位').AsString;
                yfgldata.yfsb.FieldByName('水井').AsInteger:=yfgldata.yfsb1.FieldByName('水井').AsInteger;
                yfgldata.yfsb.FieldByName('水塔数量').AsInteger:=yfgldata.yfsb1.FieldByName('水塔数量').AsInteger;
                yfgldata.yfsb.FieldByName('水塔容量').AsInteger:=yfgldata.yfsb1.FieldByName('水塔容量').AsInteger;
                yfgldata.yfsb.FieldByName('储水池数量').AsInteger:=yfgldata.yfsb1.FieldByName('储水池数量').AsInteger;
                yfgldata.yfsb.FieldByName('储水池容量').AsInteger:=yfgldata.yfsb1.FieldByName('储水池容量').AsInteger;
                yfgldata.yfsb.FieldByName('水泵数量').AsInteger:=yfgldata.yfsb1.FieldByName('水泵数量').AsInteger;
                yfgldata.yfsb.FieldByName('水泵功率').AsInteger:=yfgldata.yfsb1.FieldByName('水泵功率').AsInteger;
                yfgldata.yfsb.FieldByName('恒压装置').AsInteger:=yfgldata.yfsb1.FieldByName('恒压装置').AsInteger;
                yfgldata.yfsb.FieldByName('变压器数量').AsInteger:=yfgldata.yfsb1.FieldByName('变压器数量').AsInteger;
                yfgldata.yfsb.FieldByName('变压器容量').AsInteger:=yfgldata.yfsb1.FieldByName('变压器容量').AsInteger;
                yfgldata.yfsb.FieldByName('发电机数量').AsInteger:=yfgldata.yfsb1.FieldByName('发电机数量').AsInteger;
                yfgldata.yfsb.FieldByName('发电机功率').AsInteger:=yfgldata.yfsb1.FieldByName('发电机功率').AsInteger;
                yfgldata.yfsb.FieldByName('高压柜').AsInteger:=yfgldata.yfsb1.FieldByName('高压柜').AsInteger;
                yfgldata.yfsb.FieldByName('低压柜').AsInteger:=yfgldata.yfsb1.FieldByName('低压柜').AsInteger;
                yfgldata.yfsb.FieldByName('电容柜').AsInteger:=yfgldata.yfsb1.FieldByName('电容柜').AsInteger;
                yfgldata.yfsb.FieldByName('锅炉数量').AsInteger:=yfgldata.yfsb1.FieldByName('锅炉数量').AsInteger;
                yfgldata.yfsb.FieldByName('蒸发量').AsInteger:=yfgldata.yfsb1.FieldByName('蒸发量').AsInteger;
                yfgldata.yfsb.FieldByName('除尘设备').AsInteger:=yfgldata.yfsb1.FieldByName('除尘设备').AsInteger;
                yfgldata.yfsb.FieldByName('火炉').AsInteger:=yfgldata.yfsb1.FieldByName('火炉').AsInteger;
                yfgldata.yfsb.FieldByName('立式空调').AsInteger:=yfgldata.yfsb1.FieldByName('立式空调').AsInteger;
                yfgldata.yfsb.FieldByName('挂式空调').AsInteger:=yfgldata.yfsb1.FieldByName('挂式空调').AsInteger;
                yfgldata.yfsb.FieldByName('电梯').AsInteger:=yfgldata.yfsb1.FieldByName('电梯').AsInteger;
                yfgldata.yfsb.FieldByName('水池数量').AsInteger:=yfgldata.yfsb1.FieldByName('水池数量').AsInteger;
                yfgldata.yfsb.FieldByName('水池容量').AsInteger:=yfgldata.yfsb1.FieldByName('水池容量').AsInteger;
                yfgldata.yfsb.FieldByName('水泵数量1').AsInteger:=yfgldata.yfsb1.FieldByName('水泵数量1').AsInteger;
                yfgldata.yfsb.FieldByName('水泵功率1').AsInteger:=yfgldata.yfsb1.FieldByName('水泵功率1').AsInteger;
                yfgldata.yfsb.FieldByName('消防栓').AsInteger:=yfgldata.yfsb1.FieldByName('消防栓').AsInteger;
                yfgldata.yfsb.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.yfsb1.Next;
              end;
            yfgldata.yfwz1.First;
            for i:=1 to yfgldata.yfwz1.RecordCount do
              begin
                yfgldata.yfwz.Append;
                yfgldata.yfwz.FieldByName('序号').AsInteger:=yfgldata.yfwz.RecordCount+1;
                yfgldata.yfwz.FieldByName('单位代码').AsString:=yfgldata.yfwz1.FieldByName('单位代码').AsString;
                yfgldata.yfwz.FieldByName('住用单位').AsString:=yfgldata.yfwz1.FieldByName('住用单位').AsString;
                yfgldata.yfwz.FieldByName('品名').AsString:=yfgldata.yfwz1.FieldByName('品名').AsString;
                yfgldata.yfwz.FieldByName('规格').AsString:=yfgldata.yfwz1.FieldByName('规格').AsString;
                yfgldata.yfwz.FieldByName('单位').AsString:=yfgldata.yfwz1.FieldByName('单位').AsString;
                yfgldata.yfwz.FieldByName('小计').AsInteger:=yfgldata.yfwz1.FieldByName('小计').AsInteger;
                yfgldata.yfwz.FieldByName('新品').AsInteger:=yfgldata.yfwz1.FieldByName('新品').AsInteger;
                yfgldata.yfwz.FieldByName('勘用').AsInteger:=yfgldata.yfwz1.FieldByName('勘用').AsInteger;
                yfgldata.yfwz.FieldByName('待修').AsInteger:=yfgldata.yfwz1.FieldByName('待修').AsInteger;
                yfgldata.yfwz.FieldByName('报废').AsInteger:=yfgldata.yfwz1.FieldByName('报废').AsInteger;
                yfgldata.yfwz.FieldByName('备注').AsString:=yfgldata.yfwz1.FieldByName('备注').AsString;
                yfgldata.yfwz.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.yfwz1.Next;
              end;
            yfgldata.dt1.First;
            for i:=1 to yfgldata.dt1.RecordCount do
              begin
                yfgldata.dt.Append;
                yfgldata.dt.FieldByName('序号').AsInteger:=yfgldata.dt.RecordCount+1;
                yfgldata.dt.FieldByName('单位代码').AsString:=yfgldata.dt1.FieldByName('单位代码').AsString;
                yfgldata.dt.FieldByName('使用单位').AsString:=yfgldata.dt1.FieldByName('使用单位').AsString;
                yfgldata.dt.FieldByName('坐落号').AsString:=yfgldata.dt1.FieldByName('坐落号').AsString;
                yfgldata.dt.FieldByName('栋号').AsString:=yfgldata.dt1.FieldByName('栋号').AsString;
                yfgldata.dt.FieldByName('电梯编号').AsString:=yfgldata.dt1.FieldByName('电梯编号').AsString;
                yfgldata.dt.FieldByName('电梯型号').AsString:=yfgldata.dt1.FieldByName('电梯型号').AsString;
                yfgldata.dt.FieldByName('控制方式').AsString:=yfgldata.dt1.FieldByName('控制方式').AsString;
                yfgldata.dt.FieldByName('驱动方式').AsString:=yfgldata.dt1.FieldByName('驱动方式').AsString;
                yfgldata.dt.FieldByName('电梯用途').AsString:=yfgldata.dt1.FieldByName('电梯用途').AsString;
                yfgldata.dt.FieldByName('质量状况').AsString:=yfgldata.dt1.FieldByName('质量状况').AsString;
                yfgldata.dt.FieldByName('额定载荷').AsInteger:=yfgldata.dt1.FieldByName('额定载荷').AsInteger;
                yfgldata.dt.FieldByName('功率').AsFloat:=yfgldata.dt1.FieldByName('功率').AsFloat;
                yfgldata.dt.FieldByName('站数').AsInteger:=yfgldata.dt1.FieldByName('站数').AsInteger;
                yfgldata.dt.FieldByName('生产厂家').AsString:=yfgldata.dt1.FieldByName('生产厂家').AsString;
                yfgldata.dt.FieldByName('安装年份').AsInteger:=yfgldata.dt1.FieldByName('安装年份').AsInteger;
                yfgldata.dt.FieldByName('变更依据').AsString:=yfgldata.dt1.FieldByName('变更依据').AsString;
                yfgldata.dt.Post;
                j:=j+1;
                sjjs.Gauge1.Progress:=(j*100) div s;
                yfgldata.dt1.Next;
              end;               
            messagebox(sjjs.handle,pansichar('上报数据接收完毕，共有'+inttostr(s)+'条记录'),'营房工作管理系统',mb_iconexclamation);
          end;
        sjjs.Close;
      end
    else
      begin
        messagebox(sjjs.handle,'该文件不存在。','营房工作管理系统',16);
      end;
  end
else
  messagebox(sjjs.handle,'请选择数据上报文件路径。','营房工作管理系统',16);
end;

end.