uyjtj.~pas

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

        qryTemp.SQL.Add('	ttzxx.tz01_dyze  	as	"2001年调整|待遇总额",');
        qryTemp.SQL.Add('	ttzxx.tz01_zj  		as	"2001年调整|待遇增加",');
        qryTemp.SQL.Add('	ttzxx.tz01_jcylj    	as	"2001年调整|基础养老金",');
        qryTemp.SQL.Add('	ttzxx.tz01_gdxylj   	as	"2001年调整|过渡性养老金",');
        qryTemp.SQL.Add('	ttzxx.tz01_grzhylj	as      "2001年调整|个人帐户养老金",');
        qryTemp.SQL.Add('	ttzxx.tz01_hygdxbt      as	"2001年调整|行业过渡性补贴",');
        qryTemp.SQL.Add('	ttzxx.tz01_dfbclxdy	as	"2001年调整|地方补充离休待遇",');
        qryTemp.SQL.Add('	ttzxx.tz01_hlf      	as   	"2001年调整|护理费", ');
        qryTemp.SQL.Add('	ttzxx.tz01_tzj		as	"2001年调整|调整金",');
        qryTemp.SQL.Add('	ttzxx.tz01_lxshbt	as	"2001年调整|离休生活补贴"');

        qryTemp.SQL.Add('from ttzxx,tryjbxx');
        qryTemp.SQL.Add('where ttzxx.ryid=tryjbxx.ryid');
        qryTemp.SQL.Add(' and tryjbxx.dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('order by tryjbxx.ryid');

//        qryTemp.Open;

      end;
    5: //减员明细
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '减员信息';

        qryTemp.Close;
        qryTemp.SQL.Clear;


        qryTemp.SQL.Add('SELECT   ');
        qryTemp.SQL.Add('    to_char(ff.FFYF,''yyyymm'') "发放月份",');
        qryTemp.SQL.Add('    ry.xm "姓名",');
        qryTemp.SQL.Add('    ry.sfzh "身份证号",');
        qryTemp.SQL.Add('    dm.dmmc "减员原因",         ');
        qryTemp.SQL.Add('    ff.GRZHYE "个人帐户余额",');
        {
                qryTemp.SQL.Add('    ff.GRZHLX "个人帐户利息",');
                qryTemp.SQL.Add('    ff.YCXLNJT "一次性老年津贴",');
                qryTemp.SQL.Add('    ff.JCYLJ "基础养老金",');
                qryTemp.SQL.Add('    ff.GDXYLJ "过渡性养老金",');
                qryTemp.SQL.Add('    ff.HYGDXBT "行业过渡性补贴",');
                qryTemp.SQL.Add('    ff.GRZHYLJ "个人帐户养老金",');
                qryTemp.SQL.Add('    ff.HLF "护理费",');
                qryTemp.SQL.Add('    ff.DFBCLXDY "地方补充离休待遇",');
        }
        qryTemp.SQL.Add('    ff.TZJE "调整金额",');
        qryTemp.SQL.Add('    ff.SZF "丧葬费",');
        qryTemp.SQL.Add('    ff.FXJ "抚恤金",');
        qryTemp.SQL.Add('    ff.JJF "救济费",');
        qryTemp.SQL.Add('    ff.TBJE "退补金额",');
        qryTemp.SQL.Add('    ff.DYZE "待遇总额"');
        qryTemp.SQL.Add('from tdyff ff,tdmb dm,tryjbxx ry');
        qryTemp.SQL.Add('where ff.ryzt=dm.dm and dm.zdbz=''TDYFF_RYZT'' and ry.ryid=ff.ryid');
        qryTemp.SQL.Add('and ff.ryzt in (5,6,7,8)');
        qryTemp.SQL.Add(' and ry.dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('order by "发放月份"');

      end;
    6: //单位支付基金结算表
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '支付基金结算表';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        with qryTemp do
        begin
          Sql.Add('SELECT   ');
          Sql.Add('    to_char(YJRQ,''yyyymm'') "发放月份",');
          Sql.Add('	');
          Sql.Add('	ZJ_LTXRS "本月增加|离退休人数",');
          Sql.Add('	ZJ_JCYLJ "本月增加|基础养老金",');
          Sql.Add('	ZJ_GDXYLJ "本月增加|过渡型养老金",');
          Sql.Add('	ZJ_GRZHYLJ "本月增加|个人帐户养老金",');
          Sql.Add('	ZJ_SZFXJ "本月增加|丧葬抚恤金",');
          Sql.Add('	ZJ_TGRZH "本月增加|退个人帐户",');
          Sql.Add('	');
          Sql.Add('	JS_LTXRS "本月减少|离退休人数",');
          Sql.Add('	JS_JCYLJ "本月减少|基础养老金",');
          Sql.Add('	JS_GDXYLJ "本月减少|过渡型养老金",');
          Sql.Add('	JS_GRZHYLJ "本月减少|个人帐户养老金",');
          Sql.Add('	');
          Sql.Add('	ZF_LTXRS "本月实际支付|离退休人数",');
          Sql.Add('	ZF_JCYLJ "本月实际支付|基础养老金",');
          Sql.Add('	ZF_GDXYLJ "本月实际支付|个人帐户养老金",');
          Sql.Add('	ZF_SZFXJ "本月实际支付|丧葬抚恤金",');
          Sql.Add('	ZF_TGRZH "本月实际支付|退个人帐户",');
          Sql.Add('	ZF_HJ "本月实际支付|合计支付"');
          Sql.Add('from tREP_DWZFJJJS	');
          SQL.Add(' WHERE dwid=''' + strDWID + '''');
        end;
      end;
    7: //应发待遇记录
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '应发待遇记录';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        with qryTemp do
        begin
          Sql.Add('SELECT   tryjbxx.xm AS "姓名",');
          Sql.Add('         tryjbxx.sfzh AS "身份证号",');
          Sql.Add('         ff199809 AS "199809",');
          Sql.Add('         ff199810 AS "199810",');
          Sql.Add('         ff199811 AS "199811",');
          Sql.Add('         ff199812 AS "199812",');
          Sql.Add('         ff199901 AS "199901",');
          Sql.Add('         ff199902 AS "199902",');
          Sql.Add('         ff199903 AS "199903",');
          Sql.Add('         ff199904 AS "199904",');
          Sql.Add('         ff199905 AS "199905",');
          Sql.Add('         ff199906 AS "199906",');
          Sql.Add('         ff199907 AS "199907",');
          Sql.Add('         ff199908 AS "199908",');
          Sql.Add('         ff199909 AS "199909",');
          Sql.Add('         ff199910 AS "199910",');
          Sql.Add('         ff199911 AS "199911",');
          Sql.Add('         ff199912 AS "199912",');
          Sql.Add('         ff200001 AS "200001",');
          Sql.Add('         ff200002 AS "200002",');
          Sql.Add('         ff200003 AS "200003",');
          Sql.Add('         ff200004 AS "200004",');
          Sql.Add('         ff200005 AS "200005",');
          Sql.Add('         ff200006 AS "200006",');
          Sql.Add('         ff200007 AS "200007",');
          Sql.Add('         ff200008 AS "200008",');
          Sql.Add('         ff200009 AS "200009",');
          Sql.Add('         ff200010 AS "200010",');
          Sql.Add('         ff200011 AS "200011",');
          Sql.Add('         ff200012 AS "200012",');
          Sql.Add('         ff200101 AS "200101",');
          Sql.Add('         ff200102 AS "200102",');
          Sql.Add('         ff200103 AS "200103",');
          Sql.Add('         ff200104 AS "200104",');
          Sql.Add('         ff200105 AS "200105",');
          Sql.Add('         ff200106 AS "200106",');
          Sql.Add('         ff200107 AS "200107",');
          Sql.Add('         ff200108 AS "200108",');
          Sql.Add('         ff200109 AS "200109",');
          Sql.Add('         ff200110 AS "200110",');
          Sql.Add('         ff200111 AS "200111",');
          Sql.Add('         ff200112 AS "200112",');
          Sql.Add('         total AS "合计"');
          Sql.Add('    FROM tryjbxx, tyfjl');
          Sql.Add('   WHERE tryjbxx.ryid = tyfjl.ryid and tryjbxx.dwid=''' +
            strDWID + '''');
          Sql.Add('ORDER BY tryjbxx.ryid');

        end;
      end;
  else ;
  end;
  //

end;

procedure TfrmYJTJ.Button2Click(Sender: TObject);
begin
  inherited;
  Show;
  qryTemp.Open;
  if PageControl1.ActivePageIndex = 4 then
  begin
    qryTemp.Fields[0].Visible := False;
    qryFFYF.Open;
  end;

  PrintGrid.PageHeader.CenterText.Clear;
  PrintGrid.PageHeader.CenterText.Add(Label1.Caption);
  PrintGrid.PageFooter.LeftText.Clear;
//  PrintGrid.PageFooter.LeftText.Add('打印时间:' + FormatDateTime(LongDateFormat,    now));
  PrintGrid.Preview;
end;

procedure TfrmYJTJ.TreeView1Click(Sender: TObject);
begin
  inherited;
  if pagTemp.ActivePageIndex = 0 then
  begin
  //选中一个单位
    qryTemp.Close;


    if TreeView1.Selected.Level <> 0 then
    begin
      strDWID := IntToStr(Integer(TreeView1.Selected.Data));
      with TQuery.Create(Self) do
      try
        DatabaseName := dfmMain.dbsMain.DatabaseName;
        SQL.Add('SELECT DWMC,DWDM from tDWXX where dwid=''' + strDWID + '''');
        open;
        strDWMC := FieldByName('DWMC').AsString;
        strDWDM := FieldByName('DWDM').AsString;
      finally
        Free;
      end;
      Show;
      qryTemp.Open;
      if PageControl1.ActivePageIndex = 4 then
      begin
        qryTemp.Fields[0].Visible := False;
        qryFFYF.Open;
      end;


    end;
  end
  else
  begin
       //选择发放单位
    if TreeView1.Selected.Level <> 0 then
    begin
      strDWID := IntToStr(Integer(TreeView1.Selected.Data));
      with TQuery.Create(Self) do
      try
        DatabaseName := dfmMain.dbsMain.DatabaseName;
        SQL.Add('SELECT DWMC,DWDM from tFF_DWXX where dwid_ff=''' + strDWID +
          '''');
        open;
        strDWMC := FieldByName('DWMC').AsString;
        strDWDM := FieldByName('DWDM').AsString;
      finally
        Free;
      end;
    end;
  end;

end;

procedure TfrmYJTJ.Button1Click(Sender: TObject);
begin
  inherited;
  //批量处理
  if trim(edtDWDM.Text) <> '' then
    with TQuery.Create(Self) do
    try
      DataBaseName := dfmMain.dbsMain.DatabaseName;
      SQL.Add('SELECT DWID,DWMC FROM tDWXX where dwdm like ''' +
        Trim(edtDWDM.Text) +
        '''');
      Open;

      while not EOF do
      begin

        dfmMain.dbsMain.StartTransaction;

        //月结
        //一次性待遇明细
        stpYCXDY.UnPrepare;
        stpYCXDY.ParamByName('p_DWID').AsString :=
          FieldByName('DWID').AsString;
        stpYCXDY.Prepare;
        stpYCXDY.ExecProc;
        if stpYCXDY.ParamByName('P_ErrorCode').AsInteger = 0 then
        begin
          pShowPanelHint(FieldByName('DWMC').AsString +
            '一次性待遇已经统计完毕');
          Beep;
        end
        else
        begin
          gfShowError(PChar(stpYCXDY.ParamByName('P_Errortext').AsString));
          Beep;
        end;
        repaint;

        dfmMain.dbsMain.Commit;
        dfmMain.dbsMain.StartTransaction;

        //待遇明细
        stpDYMX.UnPrepare;
        stpDYMX.ParamByName('P_DWID').AsString :=
          FieldByName('DWID').AsString;
        stpDYMX.Prepare;
        stpDYMX.ExecProc;
        if stpDYMX.ParamByName('P_ErrorCode').AsInteger = 0 then
        begin
          pShowPanelHint(FieldByName('DWMC').AsString +
            '待遇明细已经统计完毕');
          Beep;
        end
        else
        begin
          gfShowError(PChar(stpDYMX.ParamByName('P_Errortext').AsString));
          Beep;
        end;
        repaint;

        dfmMain.dbsMain.Commit;
        dfmMain.dbsMain.StartTransaction;

        //待遇支付
        stpZFMX.UnPrepare;
        stpZFMX.ParamByName('p_DWID').AsString :=
          FieldByName('DWID').AsString;
        stpZFMX.Prepare;
        stpZFMX.ExecProc;
        if stpZFMX.ParamByName('P_ErrorCode').AsInteger = 0 then
        begin
          pShowPanelHint(FieldByName('DWMC').AsString +
            '待遇支付已经统计完毕');
          Beep;
        end
        else
        begin
          gfShowError(PChar(stpZFMX.ParamByName('P_Errortext').AsString));
          Beep;
        end;
        repaint;

        dfmMain.dbsMain.Commit;
        dfmMain.dbsMain.StartTransaction;

        //待遇调整信息
        stpLCDYTZ.UnPrepare;
        stpLCDYTZ.Params[0].AsString := FieldByName('DWID').AsString;
        stpLCDYTZ.Prepare;
        stpLCDYTZ.ExecProc;
        if stpLCDYTZ.ParamByName('P_ErrorCode').AsInteger = 0 then
        begin
          pShowPanelHint(FieldByName('DWMC').AsString +
            '历次待遇调整已经统计完毕');
          Beep;
        end
        else
        begin
          gfShowError('历次待遇调整出错');
          Beep;