uzyqd_1.pas

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

//    qryJFYS.SQL.Clear;
//    qryJFYS.SQL.Add('select sum(jfys) as jfys ');
//    qryJFYS.SQL.Add('from tjfxx ');
//    qryJFYS.SQL.Add('where ryid = :ryid');
//
//    //showmessage(inttostr(qryJFYS.RecordCount));
//
//    qryJFYS.ParamByName('ryid').Asstring := form1.edit1.text;
//    qryJFYS.Open;
//
//    if query2.RecordCount > 0 then
//    begin
//      l:=query2.fieldbyname('LJBZBT').asfloat;  {临界年度标准补贴}
//      t:=query2.fieldbyname('LJTZXS').asfloat;  {临界调整系数}
//    end;
//
//    if query1.RecordCount > 0 then
//    begin
//      n:=query1.fieldbyname('bzgz_93').asfloat;  {93标准工资}
//      k:=query1.fieldbyname('PJBZGZ').asfloat;   {临界年度所在市标准工资}
//    end;
//
//    {计算缴费工资，月数，个人缴费额，单位划转额}
//      QUERY3.Close;
//      query3.sql.Clear;
//      query3.sql.Add('SELECT * FROM tJFXX_HZ ');
//      query3.sql.add('where ryid=:ryid');
//      query3.ParamByName('ryid').Asstring := form1.edit1.text;
//      query3.Open;
//
//    //本局社保机构名称
//    QRLabel39.caption := strBJSBJG;
end;

//设置人员ID--王锡平 2000-08-30

procedure TfrmZYQD_1.SetRYID(sRYID: string);
begin
    { 设置年份的数组，用来循环判断}
  years[1] := strtodatetime('1993-12-31');
  years[2] := strtodatetime('1994-7-1');
  years[3] := strtodatetime('1994-12-31');
  years[4] := strtodatetime('1995-7-1');
  years[5] := strtodatetime('1995-12-31');
  years[6] := strtodatetime('1996-7-1');
  years[7] := strtodatetime('1996-12-31');
  years[8] := strtodatetime('1997-7-1');
  years[9] := strtodatetime('1997-12-31');
  years[10] := strtodatetime('1998-7-1');
  years[11] := strtodatetime('1998-12-31');
  years[12] := strtodatetime('1999-7-1');
  years[13] := strtodatetime('1999-12-31');
  years[14] := strtodatetime('2000-7-1');
  years[15] := strtodatetime('2000-12-31');
  years[16] := strtodatetime('2001-7-1');
  years[17] := strtodatetime('2001-12-31');
  years[18] := strtodatetime('2002-7-1');
  years[19] := strtodatetime('2002-12-31');
  years[20] := strtodatetime('2003-7-1');
  years[21] := strtodatetime('2003-12-31');

    {其他的值}
  query1.close;
  query1.sql.clear;
  query1.sql.add('select tZZZYXX.ZYBH,');
  query1.sql.add('       tRYJBXX.XM,');
  query1.sql.add('       tRYJBXX.XB,');
  query1.sql.add('       tRYJBXX.SFZH,');
  query1.sql.add('       tRYJBXX.CSSJ,');
  query1.sql.add('       tRYJBXX.CJGZSJ,');
  query1.sql.add('       tRYJBXX.YGXS,');
  query1.sql.add('       tDWXX.DWXZ,');
  query1.sql.add('       NVL(tZZRYJBXX.STJFNX,0) AS STJFNX,');
  query1.sql.add('       NVL(tZZRYJBXX.GRZHZE,0) AS GRZHZE,');
  query1.sql.add('       NVL(tZZRYJBXX.GRJFZE,0) AS GRJFZE,');
  query1.sql.add('       NVL(tZZRYJBXX.DWHBZE,0) AS DWHBZE,');
  query1.sql.add('       NVL(tZZRYJBXX.GRJFLX,0) AS GRJFLX,');
  query1.sql.add('       NVL(tZZRYJBXX.DWHBLX,0) AS DWHBLX,');
  query1.sql.add('       NVL(tZZRYJBXX.GRZHZE,0) AS ZYJEHJ_HJ,');
  query1.sql.add('       NVL(tZZRYJBXX.BZGZ_93,0) AS BZGZ_93,');
  query1.sql.add('       NVL(tNJNDSBZGZ.PJBZGZ,0) AS PJBZGZ,');
  query1.sql.add('       tDWXX.DWMC,');
  query1.sql.add('       tZZZYXX.SBJGDM,');
  query1.sql.add('       tZZZYXX.ZYDW, ');
  query1.sql.add('       tSBJG.JGMC ');
  query1.sql.add('from tzzzyxx,tryjbxx,tdwxx,tZZRYJBXX,');
  query1.sql.add('     tcsdm,tNJNDSBZGZ, TSBJG');
  query1.sql.add('where tdwxx.dwid=tryjbxx.dwid and');
  query1.sql.add('      tryjbxx.ryid=tzzzyxx.ryid and');
  query1.sql.add('      tryjbxx.ryid=tZZRYJBXX.ryid and');
  query1.sql.add('      tdwxx.szcs=tcsdm.csdm and');
  query1.sql.add('      tcsdm.csdm=tNJNDSBZGZ.csdm and ');
  query1.sql.add('      tzzzyxx.SBJGDM = TSBJG.JGDM and ');
  query1.sql.add('      tryjbxx.ryid = :ryid');

  query1.parambyname('ryid').AsString := sRYID;
  query1.open;
    //showmessage(inttostr(query1.RecordCount));

    {计算临界指数}
  query2.close;
  query2.sql.clear;
  query2.sql.add('select NVL(LJBZBT,0) as LJBZBT,');
  query2.sql.add('       NVL(LJTZXS,0) as LJTZXS ');
  query2.sql.add('from tYLBXCS');
  query2.open;

    //showmessage(inttostr(query2.RecordCount));

    {计算缴费月数}
  qryJFYS.Close;
  qryJFYS.SQL.Clear;
  qryJFYS.SQL.Add('select sum(jfys) as jfys ');
  qryJFYS.SQL.Add('from tjfxx ');
  qryJFYS.SQL.Add('where ryid = :ryid');

    //showmessage(inttostr(qryJFYS.RecordCount));

  qryJFYS.ParamByName('ryid').Asstring := sRYID;
  qryJFYS.Open;

  if query2.RecordCount > 0 then
  begin
    l := query2.fieldbyname('LJBZBT').asfloat; {临界年度标准补贴}
    t := query2.fieldbyname('LJTZXS').asfloat; {临界调整系数}
  end;

  if query1.RecordCount > 0 then
  begin
    n := query1.fieldbyname('bzgz_93').asfloat; {93标准工资}
    k := query1.fieldbyname('PJBZGZ').asfloat; {临界年度所在市标准工资}
  end;

    {计算缴费工资，月数，个人缴费额，单位划转额}
  QUERY3.Close;
  query3.sql.Clear;
  query3.sql.Add('SELECT * FROM tJFXX_HZ ');
  query3.sql.add('where ryid=:ryid');
  query3.ParamByName('ryid').Asstring := sRYID;
  query3.Open;

    //本局社保机构名称
  QRLabel39.caption := strBJSBJG;

end;
 {___________________________________________________________}







procedure TfrmZYQD_1.QRDBText9Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText18Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText13Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText10Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText11Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText12Print(sender: TObject; var Value: string);
begin
  value := value + '元';
end;

procedure TfrmZYQD_1.QRDBText3Print(sender: TObject; var Value: string);
begin
  if Value = '1' then
    Value := '男'
  else
    Value := '女';
end;

procedure TfrmZYQD_1.QRDBText7Print(sender: TObject; var Value: string);
begin
  if Value = '1' then
    Value := '干部'
  else if value = '2' then
    Value := '固定工'
  else if Value = '3' then
    Value := '合同工'
  else if Value = '4' then
    Value := '临时工'
  else if Value = '5' then
    Value := '农民工'
  else if Value = '6' then
    Value := '个体户'
  else
    Value := '';

end;

procedure TfrmZYQD_1.QRDBText8Print(sender: TObject; var Value: string);
begin
  if Value = '1' then
    Value := '企业'
  else if Value = '2' then
    Value := '事业'
  else if Value = '3' then
    Value := '机关'
  else if Value = '4' then
    Value := '社会团体'
  else
    Value := '';
end;

procedure TfrmZYQD_1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  query1.close;
  query2.close;
  query3.close;
  qryJFYS.close;
end;

procedure TfrmZYQD_1.QRDBText15Print(sender: TObject; var Value: string);
begin
  Value := Value + '个月';
end;

procedure TfrmZYQD_1.QRDBText5Print(sender: TObject; var Value: string);
begin
  Value := formatdatetime(LongDateFormat, strtodatetime(Value));
end;

procedure TfrmZYQD_1.QRDBText6Print(sender: TObject; var Value: string);
begin
  Value := formatdatetime(LongDateFormat, strtodatetime(Value));
end;

procedure TfrmZYQD_1.QRDBText14Print(sender: TObject; var Value: string);
begin
  Value := Value + '个月';
end;

procedure TfrmZYQD_1.QRLabel40Print(sender: TObject; var Value: string);
begin
 { （93年本人标准工资+国家和省规定的补贴）*调整系数/（93年当地职工社平工资+国家和省规定的补贴）}
{t:调整系数 l:国家和省规定的补贴 n:93标准工资，k:平均标准工资 取值来自query2}
  try
    value := floattostr(t * (n + l) / (k + l));
    value := Format('%6.4f', [strtofloat(Value)]);
  except
    on ezerodivide do
    begin
      value := '';
    end; {except}
  end; {try}

end;

end.