📄 uzyqd_1.pas
字号:
unit uZYQD_1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls, QuickRpt, Qrctrls, Db, DBTables;
type
TfrmZYQD_1 = class(TForm)
QuickRep1: TQuickRep;
Query1: TQuery;
Query2: TQuery;
Query3: TQuery;
qryJFYS: TQuery;
ColumnHeaderBand1: TQRBand;
QRLabel1: TQRLabel;
QRShape1: TQRShape;
QRShape2: TQRShape;
QRShape3: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape6: TQRShape;
QRShape7: TQRShape;
QRShape8: TQRShape;
QRShape9: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRLabel12: TQRLabel;
QRShape14: TQRShape;
QRShape16: TQRShape;
QRShape17: TQRShape;
QRShape18: TQRShape;
QRShape19: TQRShape;
QRLabel13: TQRLabel;
QRLabel14: TQRLabel;
QRLabel15: TQRLabel;
QRShape20: TQRShape;
QRLabel16: TQRLabel;
QRLabel17: TQRLabel;
QRShape27: TQRShape;
QRLabel18: TQRLabel;
QRLabel19: TQRLabel;
QRLabel20: TQRLabel;
QRLabel21: TQRLabel;
QRShape28: TQRShape;
QRLabel22: TQRLabel;
QRLabel23: TQRLabel;
QRLabel24: TQRLabel;
QRShape29: TQRShape;
QRLabel25: TQRLabel;
QRShape30: TQRShape;
QRShape31: TQRShape;
QRLabel26: TQRLabel;
QRLabel27: TQRLabel;
QRShape32: TQRShape;
QRLabel28: TQRLabel;
QRLabel29: TQRLabel;
QRShape33: TQRShape;
QRShape34: TQRShape;
QRShape35: TQRShape;
QRLabel30: TQRLabel;
QRLabel31: TQRLabel;
QRLabel32: TQRLabel;
QRLabel33: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRDBText11: TQRDBText;
QRDBText12: TQRDBText;
QRDBText13: TQRDBText;
QRDBText14: TQRDBText;
QRDBText15: TQRDBText;
QRDBText18: TQRDBText;
QRLabel35: TQRLabel;
DetailBand1: TQRBand;
PageFooterBand1: TQRBand;
QRShape15: TQRShape;
QRShape21: TQRShape;
QRShape22: TQRShape;
QRShape23: TQRShape;
QRShape24: TQRShape;
QRShape25: TQRShape;
QRShape26: TQRShape;
QRShape36: TQRShape;
QRShape37: TQRShape;
QRLabel34: TQRLabel;
QRLabel36: TQRLabel;
QRLabel37: TQRLabel;
QRLabel38: TQRLabel;
QRDBText17: TQRDBText;
QRDBText20: TQRDBText;
QRDBText21: TQRDBText;
QRLabel39: TQRLabel;
QRDBText16: TQRDBText;
QRDBText22: TQRDBText;
QRDBText23: TQRDBText;
QRDBText24: TQRDBText;
QRDBText25: TQRDBText;
QRDBText26: TQRDBText;
QRDBText27: TQRDBText;
QRDBText28: TQRDBText;
QRDBText29: TQRDBText;
QRLabel40: TQRLabel;
procedure QRDBText17Print(sender: TObject; var Value: string);
procedure QRDBText16Print(sender: TObject; var Value: string);
procedure FormCreate(Sender: TObject);
procedure QRDBText9Print(sender: TObject; var Value: string);
procedure QRDBText18Print(sender: TObject; var Value: string);
procedure QRDBText13Print(sender: TObject; var Value: string);
procedure QRDBText10Print(sender: TObject; var Value: string);
procedure QRDBText11Print(sender: TObject; var Value: string);
procedure QRDBText12Print(sender: TObject; var Value: string);
procedure QRDBText3Print(sender: TObject; var Value: string);
procedure QRDBText7Print(sender: TObject; var Value: string);
procedure QRDBText8Print(sender: TObject; var Value: string);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
procedure QRDBText15Print(sender: TObject; var Value: string);
procedure QRDBText5Print(sender: TObject; var Value: string);
procedure QRDBText6Print(sender: TObject; var Value: string);
procedure QRDBText14Print(sender: TObject; var Value: string);
procedure QRLabel40Print(sender: TObject; var Value: string);
private
{ Private declarations }
public
{ Public declarations }
procedure SetRYID(sRYID: string);
end;
const
strBJSBJG = '广东省社会保险局'; //本局社保机构代码
var
frmZYQD_1: TfrmZYQD_1;
{用来计算临界指数 }
{ （93年本人标准工资+国家和省规定的补贴）*调整系数/（93年当地职工社平工资+国家和省规定的补贴）}
l, t, n, k: real;
{t:调整系数 l:国家和省规定的补贴 n:93标准工资，k:平均标准工资在 query2中计算}
{用来计算缴费工资。月数。个人缴费额。单位划转额}
i: integer;
jfys: array[1..20] of string; {缴费月数}
jfgzze: array[1..20] of string; {缴费工资}
jfze: array[1..20] of string; {个人工资}
dwhze: array[1..20] of string; {单位划转额=总额*相对系数}
years: array[1..21] of tdatetime; {1994年-2003年}
jfksyf, jfzzyf: tdatetime;
implementation
{$R *.DFM}
procedure TfrmZYQD_1.QRDBText17Print(sender: TObject; var Value: string);
begin
value := value + '元';
end;
procedure TfrmZYQD_1.QRDBText16Print(sender: TObject; var Value: string);
begin
value := value + '元';
end;
{______________________________________________________________________________}
procedure TfrmZYQD_1.FormCreate(Sender: TObject);
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:=form1.edit1.text;
// 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;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -