uyldyzzd_2.pas

行业应急系统 包括: 应急系统（待遇核发） 发放系统 开发环境:Delphi5 (sp1)+ Oracle 8.05 MultiExport是一个可以将数据按指定字段倒出

unit uYLDYZZD_2;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, QuickRpt, Qrctrls, Db, DBTables;

type
  TfrmYLDYZZD_2 = class(TForm)
    QuickRep1: TQuickRep;
    nd_1: TQRLabel;
    dwdm_1: TQRLabel;
    dwmc_1: TQRLabel;
    xm_1: TQRLabel;
    sfzh_1: TQRLabel;
    ltxsj_1: TQRLabel;
    dytzsj_1: TQRLabel;
    tzq_ylhj_1: TQRLabel;
    tzh_ylhj_1: TQRLabel;
    zj_ylhj_1: TQRLabel;
    tzq_jcyl_1: TQRLabel;
    tzh_jcyl_1: TQRLabel;
    zj_jcyl_1: TQRLabel;
    tzq_gdyl_1: TQRLabel;
    tzq_zhyl_1: TQRLabel;
    tzq_dfbc_1: TQRLabel;
    tzq_hlf_1: TQRLabel;
    tzh_gdyl_1: TQRLabel;
    zj_gdyl_1: TQRLabel;
    tzh_zhyl_1: TQRLabel;
    zj_zhyl_1: TQRLabel;
    tzh_dfbc_1: TQRLabel;
    zj_dfbc_1: TQRLabel;
    tzh_hlf_1: TQRLabel;
    zj_hlf_1: TQRLabel;
    snzhye_1: TQRLabel;
    snzfze_1: TQRLabel;
    snzhlx_1: TQRLabel;
    bnzhye_1: TQRLabel;
    nd_2: TQRLabel;
    dwdm_2: TQRLabel;
    dwmc_2: TQRLabel;
    xm_2: TQRLabel;
    sfzh_2: TQRLabel;
    ltxsj_2: TQRLabel;
    dytzsj_2: TQRLabel;
    tzq_ylhj_2: TQRLabel;
    tzh_ylhj_2: TQRLabel;
    zj_ylhj_2: TQRLabel;
    tzq_jcyl_2: TQRLabel;
    tzh_jcyl_2: TQRLabel;
    zj_jcyl_2: TQRLabel;
    tzq_gdyl_2: TQRLabel;
    tzq_zhyl_2: TQRLabel;
    tzq_dfbc_2: TQRLabel;
    tzq_hlf_2: TQRLabel;
    tzh_gdyl_2: TQRLabel;
    zj_gdyl_2: TQRLabel;
    tzh_zhyl_2: TQRLabel;
    zj_zhyl_2: TQRLabel;
    tzh_dfbc_2: TQRLabel;
    zj_dfbc_2: TQRLabel;
    tzh_hlf_2: TQRLabel;
    zj_hlf_2: TQRLabel;
    snzhye_2: TQRLabel;
    snzfze_2: TQRLabel;
    snzhlx_2: TQRLabel;
    bnzhye_2: TQRLabel;
    nd_3: TQRLabel;
    dwdm_3: TQRLabel;
    dwmc_3: TQRLabel;
    xm_3: TQRLabel;
    sfzh_3: TQRLabel;
    ltxsj_3: TQRLabel;
    dytzsj_3: TQRLabel;
    tzq_ylhj_3: TQRLabel;
    tzh_ylhj_3: TQRLabel;
    zj_ylhj_3: TQRLabel;
    tzq_jcyl_3: TQRLabel;
    tzh_jcyl_3: TQRLabel;
    zj_jcyl_3: TQRLabel;
    tzq_gdyl_3: TQRLabel;
    tzq_zhyl_3: TQRLabel;
    tzq_dfbc_3: TQRLabel;
    tzq_hlf_3: TQRLabel;
    tzh_gdyl_3: TQRLabel;
    zj_gdyl_3: TQRLabel;
    tzh_zhyl_3: TQRLabel;
    zj_zhyl_3: TQRLabel;
    tzh_dfbc_3: TQRLabel;
    zj_dfbc_3: TQRLabel;
    tzh_hlf_3: TQRLabel;
    zj_hlf_3: TQRLabel;
    snzhye_3: TQRLabel;
    snzfze_3: TQRLabel;
    snzhlx_3: TQRLabel;
    bnzhye_3: TQRLabel;
    QRBand1: TQRBand;
    Query1: TQuery;
    Query1RYID: TStringField;
    Query1TZRQ: TDateTimeField;
    Query1XM: TStringField;
    Query1SHBZH: TStringField;
    Query1LTXSJ: TDateTimeField;
    Query1DWDM: TStringField;
    Query1DWMC: TStringField;
    Query1YLDYHJ_TZQ: TFloatField;
    Query1JCYLJ_TZQ: TFloatField;
    Query1GDXYLJ_TZQ: TFloatField;
    Query1GRZHYLJ_TZQ: TFloatField;
    Query1DFBCLXDY_TZQ: TFloatField;
    Query1HLF_TZQ: TFloatField;
    Query1YLDYHJ_TZH: TFloatField;
    Query1JCYLJ_TZH: TFloatField;
    Query1GDXYLJ_TZH: TFloatField;
    Query1GRZHYLJ_TZH: TFloatField;
    Query1DFBCLXDY_TZH: TFloatField;
    Query1HLF_TZH: TFloatField;
    Query1YLDYHJ_ZJ: TFloatField;
    Query1JCYLJ_ZJ: TFloatField;
    Query1GDXYLJ_ZJ: TFloatField;
    Query1GRZHYLJ_ZJ: TFloatField;
    Query1DFBCLXDY_ZJ: TFloatField;
    Query1HLF_ZJ: TFloatField;
    Query1ZHYE_SCTZ: TFloatField;
    Query1ZHZFZE: TFloatField;
    Query1ZHLXZE: TFloatField;
    Query1ZHYE_BCTZ: TFloatField;
    procedure FormCreate(Sender: TObject);
    procedure QRBand1BeforePrint(Sender: TQRCustomBand;
      var PrintBand: Boolean);
  private
    { Private declarations }
    nd: array[0..2] of TQRLabel; //年度
    dwdm: array[0..2] of TQRLabel; //单位代码
    dwmc: array[0..2] of TQRLabel; //单位名称
    xm: array[0..2] of TQRLabel; //姓名
    sfzh: array[0..2] of TQRLabel; //身份证号
    ltxsj: array[0..2] of TQRLabel; //离退休时间
    dytzsj: array[0..2] of TQRLabel; //待遇调整时间
    tzq_ylhj: array[0..2] of TQRLabel; //调整前养老待遇合计
    tzh_ylhj: array[0..2] of TQRLabel; //调整后养老待遇合计
    zj_ylhj: array[0..2] of TQRLabel; //调整增加养老待遇合计
    tzq_jcyl: array[0..2] of TQRLabel; //调整前基础养老金
    tzh_jcyl: array[0..2] of TQRLabel; //调整后基础养老金
    zj_jcyl: array[0..2] of TQRLabel; //调整增加基础养老金
    tzq_gdyl: array[0..2] of TQRLabel; //调整前过渡养老金
    tzh_gdyl: array[0..2] of TQRLabel; //调整后过渡养老金
    zj_gdyl: array[0..2] of TQRLabel; //调整增加过渡性养老金
    tzq_zhyl: array[0..2] of TQRLabel; //调整前账户养老金
    tzh_zhyl: array[0..2] of TQRLabel; //调整后账户养老金
    zj_zhyl: array[0..2] of TQRLabel; //调整增加账户养老金
    tzq_dfbc: array[0..2] of TQRLabel; //调整前地方补充待遇
    tzh_dfbc: array[0..2] of TQRLabel; //调整后地方补充待遇
    zj_dfbc: array[0..2] of TQRLabel; //调整增加地方补充待遇
    tzq_hlf: array[0..2] of TQRLabel; //调整前护理费
    tzh_hlf: array[0..2] of TQRLabel; //调整后护理费
    zj_hlf: array[0..2] of TQRLabel; //调整增加护理费
    snzhye: array[0..2] of TQRLabel; //上年6月底账户余额
    snzfze: array[0..2] of TQRLabel; //上年度账户支付总额
    snzhlx: array[0..2] of TQRLabel; //上年度账户利息
    bnzhye: array[0..2] of TQRLabel; //本年6月底账户余额

  public
    { Public declarations }
  end;

var
  frmYLDYZZD_2: TfrmYLDYZZD_2;

implementation

uses uYLDYZZD;

{$R *.DFM}

procedure TfrmYLDYZZD_2.FormCreate(Sender: TObject);
begin
  nd[0] := nd_1; //年度
  nd[1] := nd_2;
  nd[2] := nd_3;
  dwdm[0] := dwdm_1; //单位代码
  dwdm[1] := dwdm_2;
  dwdm[2] := dwdm_3;
  dwmc[0] := dwmc_1; //单位名称
  dwmc[1] := dwmc_2;
  dwmc[2] := dwmc_3;
  xm[0] := xm_1; //姓名
  xm[1] := xm_2;
  xm[2] := xm_3;
  sfzh[0] := sfzh_1; //身份证号
  sfzh[1] := sfzh_2;
  sfzh[2] := sfzh_3;
  ltxsj[0] := ltxsj_1; //离退休时间
  ltxsj[1] := ltxsj_2;
  ltxsj[2] := ltxsj_3;
  dytzsj[0] := dytzsj_1; //待遇调整时间
  dytzsj[1] := dytzsj_2;
  dytzsj[2] := dytzsj_3;
  tzq_ylhj[0] := tzq_ylhj_1; //调整前养老待遇合计
  tzq_ylhj[1] := tzq_ylhj_2;
  tzq_ylhj[2] := tzq_ylhj_3;
  tzh_ylhj[0] := tzh_ylhj_1; //调整后养老待遇合计
  tzh_ylhj[1] := tzh_ylhj_2;
  tzh_ylhj[2] := tzh_ylhj_3;
  zj_ylhj[0] := zj_ylhj_1; //调整增加养老待遇合计
  zj_ylhj[1] := zj_ylhj_2;
  zj_ylhj[2] := zj_ylhj_3;
  tzq_jcyl[0] := tzq_jcyl_1; //调整前基础养老金
  tzq_jcyl[1] := tzq_jcyl_2;
  tzq_jcyl[2] := tzq_jcyl_3;
  tzh_jcyl[0] := tzh_jcyl_1; //调整后基础养老金
  tzh_jcyl[1] := tzh_jcyl_2;
  tzh_jcyl[2] := tzh_jcyl_3;
  zj_jcyl[0] := zj_jcyl_1; //调整增加基础养老金
  zj_jcyl[1] := zj_jcyl_2;
  zj_jcyl[2] := zj_jcyl_3;
  tzq_gdyl[0] := tzq_gdyl_1; //调整前过渡养老金
  tzq_gdyl[1] := tzq_gdyl_2;
  tzq_gdyl[2] := tzq_gdyl_3;
  tzh_gdyl[0] := tzh_gdyl_1; //调整后过渡养老金
  tzh_gdyl[1] := tzh_gdyl_2;
  tzh_gdyl[2] := tzh_gdyl_3;
  zj_gdyl[0] := zj_gdyl_1; //调整增加过渡性养老金
  zj_gdyl[1] := zj_gdyl_2;
  zj_gdyl[2] := zj_gdyl_3;
  tzq_zhyl[0] := tzq_zhyl_1; //调整前账户养老金
  tzq_zhyl[1] := tzq_zhyl_2;
  tzq_zhyl[2] := tzq_zhyl_3;
  tzh_zhyl[0] := tzh_zhyl_1; //调整后账户养老金
  tzh_zhyl[1] := tzh_zhyl_2;
  tzh_zhyl[2] := tzh_zhyl_3;
  zj_zhyl[0] := zj_zhyl_1; //调整增加账户养老金
  zj_zhyl[1] := zj_zhyl_2;
  zj_zhyl[2] := zj_zhyl_3;
  tzq_dfbc[0] := tzq_dfbc_1; //调整前地方补充待遇
  tzq_dfbc[1] := tzq_dfbc_2;
  tzq_dfbc[2] := tzq_dfbc_3;
  tzh_dfbc[0] := tzh_dfbc_1; //调整后地方补充待遇
  tzh_dfbc[1] := tzh_dfbc_2;
  tzh_dfbc[2] := tzh_dfbc_3;
  zj_dfbc[0] := zj_dfbc_1; //调整增加地方补充待遇
  zj_dfbc[1] := zj_dfbc_2;
  zj_dfbc[2] := zj_dfbc_3;
  tzq_hlf[0] := tzq_hlf_1; //调整前护理费
  tzq_hlf[1] := tzq_hlf_2;
  tzq_hlf[2] := tzq_hlf_3;
  tzh_hlf[0] := tzh_hlf_1; //调整后护理费
  tzh_hlf[1] := tzh_hlf_2;
  tzh_hlf[2] := tzh_hlf_3;
  zj_hlf[0] := zj_hlf_1; //调整增加护理费
  zj_hlf[1] := zj_hlf_2;
  zj_hlf[2] := zj_hlf_3;
  snzhye[0] := snzhye_1; //上年6月底账户余额
  snzhye[1] := snzhye_2;
  snzhye[2] := snzhye_3;
  snzfze[0] := snzfze_1; //上年度账户支付总额
  snzfze[1] := snzfze_2;
  snzfze[2] := snzfze_3;
  snzhlx[0] := snzhlx_1; //上年度账户利息
  snzhlx[1] := snzhlx_2;
  snzhlx[2] := snzhlx_3;
  bnzhye[0] := bnzhye_1; //本年6月底账户余额
  bnzhye[1] := bnzhye_2;
  bnzhye[2] := bnzhye_3;
end;

procedure TfrmYLDYZZD_2.QRBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  i: integer;
begin
  for i := 0 to 2 do
  begin
    nd[i].Caption := ''; //年度
    dwdm[i].Caption := ''; //单位代码
    dwmc[i].Caption := ''; //单位名称
    xm[i].Caption := ''; //姓名
    sfzh[i].Caption := ''; //身份证号
    ltxsj[i].Caption := ''; //离退休时间
    dytzsj[i].Caption := ''; //待遇调整时间
    tzq_ylhj[i].Caption := ''; //调整前养老待遇合计
    tzh_ylhj[i].Caption := ''; //调整后养老待遇合计
    zj_ylhj[i].Caption := ''; //调整增加养老待遇合计
    tzq_jcyl[i].Caption := ''; //调整前基础养老金
    tzh_jcyl[i].Caption := ''; //调整后基础养老金
    zj_jcyl[i].Caption := ''; //调整增加基础养老金
    tzq_gdyl[i].Caption := ''; //调整前过渡养老金
    tzh_gdyl[i].Caption := ''; //调整后过渡养老金
    zj_gdyl[i].Caption := ''; //调整增加过渡性养老金
    tzq_zhyl[i].Caption := ''; //调整前账户养老金
    tzh_zhyl[i].Caption := ''; //调整后账户养老金
    zj_zhyl[i].Caption := ''; //调整增加账户养老金
    tzq_dfbc[i].Caption := ''; //调整前地方补充待遇
    tzh_dfbc[i].Caption := ''; //调整后地方补充待遇
    zj_dfbc[i].Caption := ''; //调整增加地方补充待遇
    tzq_hlf[i].Caption := ''; //调整前护理费
    tzh_hlf[i].Caption := ''; //调整后护理费
    zj_hlf[i].Caption := ''; //调整增加护理费
    snzhye[i].Caption := ''; //上年6月底账户余额
    snzfze[i].Caption := ''; //上年度账户支付总额
    snzhlx[i].Caption := ''; //上年度账户利息
    bnzhye[i].Caption := ''; //本年6月底账户余额
  end;

  with QuickRep1.DataSet do
  begin
    for i := 0 to 2 do
    begin
      if not EOF then begin
        nd[i].Caption := frmYLDYZZD.edtYear.Text; //年度
        dwdm[i].Caption := Query1.FieldByName('DWDM').AsString; //单位代码
        dwmc[i].Caption := Query1.FieldByName('DWMC').AsString; //单位名称
        xm[i].Caption := Query1.FieldByName('XM').AsString; //姓名
        sfzh[i].Caption := Query1.FieldByName('SHBZH').AsString; //身份证号
        ltxsj[i].Caption := Query1.FieldByName('LTXSJ').AsString; //离退休时间
        dytzsj[i].Caption := Query1.FieldByName('TZRQ').AsString; //待遇调整时间
        tzq_ylhj[i].Caption := Query1.FieldByName('YLDYHJ_TZQ').AsString;
        //调整前养老待遇合计
        tzh_ylhj[i].Caption := Query1.FieldByName('YLDYHJ_TZH').AsString;
        //调整后养老待遇合计
        zj_ylhj[i].Caption := Query1.FieldByName('YLDYHJ_ZJ').AsString;
        //调整增加养老待遇合计
        tzq_jcyl[i].Caption := Query1.FieldByName('JCYLJ_TZQ').AsString;
        //调整前基础养老金
        tzh_jcyl[i].Caption := Query1.FieldByName('JCYLJ_TZH').AsString;
        //调整后基础养老金
        zj_jcyl[i].Caption := Query1.FieldByName('JCYLJ_ZJ').AsString;
        //调整增加基础养老金
        tzq_gdyl[i].Caption := Query1.FieldByName('GDXYLJ_TZQ').AsString;
        //调整前过渡养老金
        tzh_gdyl[i].Caption := Query1.FieldByName('GDXYLJ_TZH').AsString;
        //调整后过渡养老金
        zj_gdyl[i].Caption := Query1.FieldByName('GDXYLJ_ZJ').AsString;
        //调整增加过渡性养老金
        tzq_zhyl[i].Caption := Query1.FieldByName('GRZHYLJ_TZQ').AsString;
        //调整前账户养老金
        tzh_zhyl[i].Caption := Query1.FieldByName('GRZHYLJ_TZH').AsString;
        //调整后账户养老金
        zj_zhyl[i].Caption := Query1.FieldByName('GRZHYLJ_ZJ').AsString;
        //调整增加账户养老金
        tzq_dfbc[i].Caption := Query1.FieldByName('DFBCLXDY_TZQ').AsString;
        //调整前地方补充待遇
        tzh_dfbc[i].Caption := Query1.FieldByName('DFBCLXDY_TZH').AsString;
        //调整后地方补充待遇
        zj_dfbc[i].Caption := Query1.FieldByName('DFBCLXDY_ZJ').AsString;
        //调整增加地方补充待遇
        tzq_hlf[i].Caption := Query1.FieldByName('HLF_TZQ').AsString;
        //调整前护理费
        tzh_hlf[i].Caption := Query1.FieldByName('HLF_TZH').AsString;
        //调整后护理费
        zj_hlf[i].Caption := Query1.FieldByName('HLF_ZJ').AsString;
        //调整增加护理费
        snzhye[i].Caption := Query1.FieldByName('ZHYE_SCTZ').AsString;
        //上年6月底账户余额
        snzfze[i].Caption := Query1.FieldByName('ZHZFZE').AsString;
        //上年度账户支付总额
        snzhlx[i].Caption := Query1.FieldByName('ZHLXZE').AsString;
        //上年度账户利息
        bnzhye[i].Caption := Query1.FieldByName('ZHYE_BCTZ').AsString;
        //本年6月底账户余额
      end;
      if (i < 2) and (not EOF) then
        Next
      else
        break;
    end;
  end;
end;

end.