uyzxx.pas

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

unit uYZXX;

interface

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

type
  TfrmTZXX = class(TfrmInputTemp)
    DBGridEh1: TDBGridEh;
    Button1: TButton;
    PrintGrid: TPrintDBGridEh;
    spTZXX: TStoredProc;
    Button3: TButton;
    QExport: TVExcelExport;
    dlgSave: TSaveDialog;
    procedure TreeView1Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
  private
    { Private declarations }
    strDWID: string;
    strDWDM: string;
    strDWMC: string;
  public
    { Public declarations }
    procedure Show;
  end;

var
  frmTZXX: TfrmTZXX;

implementation

uses dMain, uCommon;

{$R *.DFM}

procedure TfrmTZXX.TreeView1Click(Sender: TObject);
begin
  inherited;
  //显示

  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;
  end;

end;

procedure TfrmTZXX.FormShow(Sender: TObject);
begin
  inherited;
  pTreeRefresh;

  btnInsert.Visible := False;
  btnSave.Visible := False;
  btnUndo.Visible := False;
  btnDelete.Visible := False;
end;

procedure TfrmTZXX.Button1Click(Sender: TObject);
begin
  inherited;
  Show;
  qryTemp.Open;
  PrintGrid.PageHeader.CenterText.Clear;
  PrintGrid.PageHeader.CenterText.Add(strDWMC + '(' + strDWDM +
    ')待遇调整信息');
  PrintGrid.PageFooter.LeftText.Clear;
  PrintGrid.PageFooter.LeftText.Add('打印时间:' + FormatDateTime(LongDateFormat,
    now));
  PrintGrid.Preview;
end;

procedure TfrmTZXX.FormCreate(Sender: TObject);
begin
  inherited;
  sTitleName := '调整信息一览';
end;

procedure TfrmTZXX.Show;
begin
  qryTemp.Close;
  qryTemp.SQL.Clear;

  qryTemp.SQL.Add('select');
  //    	tdwxx.dwdm 		as 	"单位代码",
  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年调整|调整金"');

  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');

end;

procedure TfrmTZXX.Button2Click(Sender: TObject);
begin
  inherited;
  if strDWID = '' then
  begin
    gfShowOK('请选择单位');
    Abort;
  end;

  spTZXX.UnPrepare;
  spTZXX.ParamByName('p_DWID').AsString := strDWID;
  spTZXX.Prepare;
  spTZXX.ExecProc;

  Show;
  qryTemp.Open;

end;


procedure TfrmTZXX.Button3Click(Sender: TObject);
var
  i: integer;
begin
  if not qryTemp.Active then
    Abort;

  //存盘
  dlgSave.FileName :=
    StringReplace(StringReplace(StrDWMC, '[', '', []), ']', '_', [])
    + '待遇调整信息.xls';

  if dlgSave.Execute then
  begin
    qryTemp.DisableControls;
    QExport.Dataset := qryTemp;
    QExport.FileName := dlgSave.FileName;

    QExport.ColumnsWidth.Clear;
    QExport.ColumnsWidth.Add('支付月数=5');
    QExport.UserFormats.Clear;
    QExport.UserFormats.Add('支付月数=#');

    for i := 0 to qryTemp.FieldCount - 1 do
    begin
      if (qryTemp.Fields[i] is TFloatField) and (
        qryTemp.Fields[i].FieldName <> '支付月数') then
        QExport.ColumnsWidth.Add(qryTemp.Fields[i].FieldName + '=10');
    end;
    QExport.Execute;

    qryTemp.EnableControls;
    gfShowOK('数据存盘成功');
  end;

end;

end.