uyjtj.pas

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

unit uYJTJ;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  uInputTemp, Grids, DBGridEh, ExtCtrls, Menus, DBTables, Db, Wwdatsrc,
  Wwquery, ImgList, ActnList, wwSpeedButton, wwDBNavigator, wwclearpanel,
  ComCtrls, StdCtrls, Buttons, PrnDbgeh, VBaseExport,
  VExcelExport, FileCtrl, DBGrids;

type
  TfrmYJTJ = class(TfrmInputTemp)
    DBGridEh1: TDBGridEh;
    Panel1: TPanel;
    Label1: TLabel;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    TabSheet3: TTabSheet;
    TabSheet4: TTabSheet;
    Button1: TButton;
    Button2: TButton;
    PrintGrid: TPrintDBGridEh;
    spYJTJ: TStoredProc;
    Button3: TButton;
    QExport: TVExcelExport;
    stpZJBD: TStoredProc;
    stpYCXDY: TStoredProc;
    stpDYMX: TStoredProc;
    stpZFMX: TStoredProc;
    Button4: TButton;
    TabSheet5: TTabSheet;
    TabSheet6: TTabSheet;
    stpLCDYTZ: TStoredProc;
    edtDWDM: TEdit;
    Label2: TLabel;
    Label3: TLabel;
    cmbMonth: TComboBox;
    Button5: TButton;
    Button6: TButton;
    Button7: TButton;
    Panel3: TPanel;
    Panel4: TPanel;
    Label4: TLabel;
    PageControl3: TPageControl;
    TabSheet12: TTabSheet;
    TabSheet13: TTabSheet;
    TabSheet14: TTabSheet;
    DBGridEh2: TDBGridEh;
    qryTemp2: TQuery;
    souTemp2: TDataSource;
    TabSheet7: TTabSheet;
    PrintGrid2: TPrintDBGridEh;
    TabSheet8: TTabSheet;
    chkAll: TCheckBox;
    Splitter2: TSplitter;
    qryFFYF: TQuery;
    souFFYF: TDataSource;
    DBGrid1: TDBGridEh;
    PrintDBGridEh1: TPrintDBGridEh;
    menuPrint: TPopupMenu;
    N1: TMenuItem;
    TabSheet9: TTabSheet;
    TabSheet10: TTabSheet;
    stpYFHJ: TStoredProc;
    procedure FormCreate(Sender: TObject);
    procedure PageControl1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure TreeView1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure PageControl3Change(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure pagTempChange(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
    strDWMC: string;
    strDWID: string;
    strDWDM: string;
    procedure DataOut(path, dwid: string); //根据单位ID进行倒出
    procedure pTreeRefresh2; //根据发放单位显示单位树
  public
    { Public declarations }
    procedure Show;
    procedure Show2;
  end;

var
  frmYJTJ: TfrmYJTJ;

implementation

uses uCommon, dMain;

{$R *.DFM}

procedure TfrmYJTJ.FormCreate(Sender: TObject);
begin
  inherited;

  sTitleName := '单位月结统计';
  lblInterface.Visible := False;
  cmbInterface.Visible := False;

  btnInsert.Visible := False;
  btnSave.Visible := False;
  btnUndo.Visible := False;
  btnDelete.Visible := False;
  Self.wwDBNavigator1First.Visible := False;
  Self.wwDBNavigator1Last.Visible := False;
  Self.wwDBNavigator1Prior.Visible := False;
  Self.wwDBNavigator1Next.Visible := False;

  pTreeRefresh;

  qryTemp.Close;
end;

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

  DBGrid1.Visible := PageControl1.ActivePageIndex = 4;

end;

procedure TfrmYJTJ.Show;
begin
  if StrDWID = '' then
  begin
    gfShowOK('请选择单位');
    Abort;
  end;

  qryFFYF.Close;

  case Self.PageControl1.ActivePageIndex of
    0: //显示人员增减信息
      begin
        Label1.Caption := strdwmc + '(' + strdwdm + ')' +
          '离退休人员增减变动汇总表';
        qryTemp.Close;
        qryTemp.SQL.Clear;

        qryTemp.SQL.Add('select');
        qryTemp.SQL.Add('    to_char(YJRQ,''yyyymm'') as "时间",');
        qryTemp.SQL.Add('    LX_QC as "期初|离休",');
        qryTemp.SQL.Add('    LGR_QC as "期初|老工人",');
        qryTemp.SQL.Add('    TX_QC as "期初|退休",');
        qryTemp.SQL.Add('    TZ_QC as "期初|退职",');
        qryTemp.SQL.Add('    HJ_QC as "期初|合计",');

        qryTemp.SQL.Add('    LX_ZJ as "增加|离休",');
        qryTemp.SQL.Add('    LGR_ZJ as "增加|老工人",');
        qryTemp.SQL.Add('    TX_ZJ as "增加|退休",');
        qryTemp.SQL.Add('    TZ_ZJ as "增加|退职",');
        qryTemp.SQL.Add('    HJ_ZJ as "增加|合计",');

        qryTemp.SQL.Add('    LX_JS as "减少|离休",');
        qryTemp.SQL.Add('    LGR_JS as "减少|老工人",');
        qryTemp.SQL.Add('    TX_JS as "减少|退休",');
        qryTemp.SQL.Add('    TZ_JS as "减少|退职",');
        qryTemp.SQL.Add('    HJ_JS as "减少|合计",');

        qryTemp.SQL.Add('    LX_QM as "期末|离休",');
        qryTemp.SQL.Add('    LGR_QM as "期末|老工人",');
        qryTemp.SQL.Add('    TX_QM as "期末|退休",');
        qryTemp.SQL.Add('    TZ_QM as "期末|退职",');
        qryTemp.SQL.Add('    HJ_QM as "期末|合计"');
        qryTemp.SQL.Add('from tREP_DWZJBD');
        qryTemp.SQL.Add('where dwid=''' + strdwid + '''');
        qryTemp.SQL.Add('ORDER BY YJRQ');

        //        qryTemp.Open;
      end;

    1: //一次性待遇明细表
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '一次性待遇明细表';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        qryTemp.SQL.Add('select');
        qryTemp.SQL.Add('    to_char(YJRQ,''yyyymm'') as "时间",');
        qryTemp.SQL.Add('    LTXSWRS as "人数|离退休死亡  ",');
        qryTemp.SQL.Add('    ZZSWRS  as "人数|在职死亡    ",');
        qryTemp.SQL.Add('    ZCRS    as "人数|个人帐户转出",');
        qryTemp.SQL.Add('    TZHRS   as "人数|退个人帐户  ",');
        qryTemp.SQL.Add('    HJRS    as "人数|合计        ",');
        qryTemp.SQL.Add('    SZF     as "死亡待遇|丧葬费      ",');
        qryTemp.SQL.Add('    FXJ     as "死亡待遇|一次性抚恤金",');
        qryTemp.SQL.Add('    JJF     as "死亡待遇|救济金      ",');
        qryTemp.SQL.Add('    GRZH_SW as "死亡待遇|个人帐户    ",');
        qryTemp.SQL.Add('    TBJE    as "死亡待遇|退补金额    ",');
        qryTemp.SQL.Add('    HJ_SW   as "死亡待遇|合计        ",');
        qryTemp.SQL.Add('    GRZH_ZC as "转出帐户|个人帐户    ",');
        qryTemp.SQL.Add('    LX_ZC   as "转出帐户|利息        ",');
        qryTemp.SQL.Add('    HJ_ZC   as "转出帐户|合计        ",');
        qryTemp.SQL.Add('    GRZH_T  as "退个人帐户|个人帐户    ",');
        qryTemp.SQL.Add('    LX_T    as "退个人帐户|利息        ",');
        qryTemp.SQL.Add('    HJ_T    as "退个人帐户|合计        ",');
        qryTemp.SQL.Add('    ZJ      as "总计"');
        qryTemp.SQL.Add('from tREP_DWYCXDYMX');
        qryTemp.SQL.Add('where dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('ORDER BY YJRQ');

        //        qryTemp.Open;
      end;

    2: //养老待遇明细表
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '养老待遇明细表';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        qryTemp.SQL.Add('SELECT');
        qryTemp.SQL.Add('    to_char(YJRQ,''yyyymm'')    as "月结日期",');
        qryTemp.SQL.Add('    LXRS    as "人数|离休        ",');
        qryTemp.SQL.Add('    LGRRS   as "人数|老工人      ",');
        qryTemp.SQL.Add('    TXRS    as "人数|退休        ",');
        qryTemp.SQL.Add('    TZRS    as "人数|退职        ",');
        qryTemp.SQL.Add('    LTXRYZS as "人数|合计",');
        qryTemp.SQL.Add('    JCYLJ   as "基本养老金|基础养老金    ",');
        qryTemp.SQL.Add('    GDXYLJ  as "基本养老金|过渡性养老金  ",');
        qryTemp.SQL.Add('    GRZHYLJ as "基本养老金|个人账户养老金",');
        qryTemp.SQL.Add('    HYGDXBT as "基本养老金|行业过渡性补贴",');
        qryTemp.SQL.Add('    HLF     as "基本养老金|护理费        ",');
        qryTemp.SQL.Add('    DFBCLXDY  as "基本养老金|地方补充离休待遇",');
        qryTemp.SQL.Add('    JCYLJ + GDXYLJ +');
        qryTemp.SQL.Add('    GRZHYLJ + HYGDXBT +');
        qryTemp.SQL.Add('    HLF + DFBCLXDY   AS "基本养老金|合计"');
        qryTemp.SQL.Add('FROM    tYLDYTZ_DW_REP');
        qryTemp.SQL.Add('where dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('ORDER BY YJRQ');

        //        qryTemp.Open;
      end;

    3: //待遇支付汇总表
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '待遇支付汇总表';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        qryTemp.SQL.Add('select');
        qryTemp.SQL.Add('    to_char(YJRQ,''yyyymm'')    as "时间",');
        qryTemp.SQL.Add('    JBYLJ   as "基本养老金",');
        qryTemp.SQL.Add('    SWDY    as "死亡待遇",');
        qryTemp.SQL.Add('    GRZHZC  as "个人帐户转出",');
        qryTemp.SQL.Add('    GRZHTK  as "退个人帐户",');
        qryTemp.SQL.Add('    HJ      as "合计"         ');
        qryTemp.SQL.Add('from tREP_DWDYZFHZ');
        qryTemp.SQL.Add('where dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('union');
        qryTemp.SQL.Add('select');
        qryTemp.SQL.Add('    ''合计''    as "时间",');
        qryTemp.SQL.Add('    SUM(JBYLJ)   as "基本养老金",');
        qryTemp.SQL.Add('    SUM(SWDY)    as "死亡待遇",');
        qryTemp.SQL.Add('    SUM(GRZHZC)  as "个人帐户转出",');
        qryTemp.SQL.Add('    SUM(GRZHTK)  as "退个人帐户",');
        qryTemp.SQL.Add('    SUM(HJ)      as "合计"         ');
        qryTemp.SQL.Add('from tREP_DWDYZFHZ');
        qryTemp.SQL.Add('where dwid=''' + strDWID + '''');
        qryTemp.SQL.Add('ORDER BY "时间"');

        //        qryTemp.Open;
      end;

    4: //待遇调整信息
      begin
        Label1.Caption := strDWMC + '(' + strDWDM + ')' + '待遇调整信息';

        qryTemp.Close;
        qryTemp.SQL.Clear;

        qryTemp.SQL.Add('select');
        //    	tdwxx.dwdm 		as 	"单位代码",
        qryTemp.SQL.Add('    	tryjbxx.ryid,');
        qryTemp.SQL.Add('    	tryjbxx.xm 		as 	"姓名",');
        qryTemp.SQL.Add('    	tryjbxx.sfzh 		as 	"身份证号",');
        qryTemp.SQL.Add('   	to_char(ttzxx.ltxsj,''yyyymm'') as 	"离退休时间",');

        qryTemp.SQL.Add('   	to_char(ttzxx.qssj,''yyyymm'') as 	"起始时间",');
        qryTemp.SQL.Add('   	to_char(ttzxx.jzsj,''yyyymm'') as 	"截止时间",');
        qryTemp.SQL.Add('   	ttzxx.zfys as 	"支付月数",');
        qryTemp.SQL.Add('   	ttzxx.zfhj as 	"支付合计",');

        qryTemp.SQL.Add('	ttzxx.hd_dyze 	        as 	"核定|待遇总额",');
        qryTemp.SQL.Add('	ttzxx.hd_jcylj    	as	"核定|基础养老金",');
        qryTemp.SQL.Add('	ttzxx.hd_gdxylj   	as	"核定|过渡性养老金",');
        qryTemp.SQL.Add('	ttzxx.hd_grzhylj	as      "核定|个人帐户养老金",');
        qryTemp.SQL.Add('	ttzxx.hd_hygdxbt  	as	"核定|行业过渡性补贴"   ,');
        qryTemp.SQL.Add('	ttzxx.hd_dfbclxdy	as	"核定|地方补充离休待遇 ",');
        qryTemp.SQL.Add('	ttzxx.hd_hlf      	as 	"核定|护理费",');
        qryTemp.SQL.Add('	ttzxx.hd_tzj		as	"核定|调整金",');

        qryTemp.SQL.Add('	ttzxx.tz99_dyze  	as	"99年调整|待遇总额",');
        qryTemp.SQL.Add('	ttzxx.tz99_zj  		as	"99年调整|待遇增加",');
        qryTemp.SQL.Add('	ttzxx.tz99_jcylj    	as	"99年调整|基础养老金",');
        qryTemp.SQL.Add('	ttzxx.tz99_gdxylj   	as	"99年调整|过渡性养老金",');
        qryTemp.SQL.Add('	ttzxx.tz99_grzhylj	as      "99年调整|个人帐户养老金   ",');
        qryTemp.SQL.Add('	ttzxx.tz99_hygdxbt      as	"99年调整|行业过渡性补贴",');
        qryTemp.SQL.Add('	ttzxx.tz99_dfbclxdy	as	"99年调整|地方补充离休待遇 ",');
        qryTemp.SQL.Add('	ttzxx.tz99_hlf      	as  	"99年调整|护理费",');
        qryTemp.SQL.Add('	ttzxx.tz99_tzj		as	"99年调整|调整金",');

        qryTemp.SQL.Add('	ttzxx.tz00_dyze  	as	"2000年调整|待遇总额",');
        qryTemp.SQL.Add('	ttzxx.tz00_zj  		as	"2000年调整|待遇增加",');
        qryTemp.SQL.Add('	ttzxx.tz00_jcylj    	as	"2000年调整|基础养老金",');
        qryTemp.SQL.Add('	ttzxx.tz00_gdxylj   	as	"2000年调整|过渡性养老金",');
        qryTemp.SQL.Add('	ttzxx.tz00_grzhylj	as      "2000年调整|个人帐户养老金",');
        qryTemp.SQL.Add('	ttzxx.tz00_hygdxbt      as	"2000年调整|行业过渡性补贴",');
        qryTemp.SQL.Add('	ttzxx.tz00_dfbclxdy	as	"2000年调整|地方补充离休待遇",');
        qryTemp.SQL.Add('	ttzxx.tz00_hlf      	as   	"2000年调整|护理费", ');
        qryTemp.SQL.Add('	ttzxx.tz00_tzj		as	"2000年调整|调整金",');