SQL server 自定义工资公式设计

目的：

工资系统中，在计算各工资项目的时候，用户能自定义公式。这里的讲述是从数据库方设计方面考虑，做简要的数据模拟和实体、存储过程的设计。

收集数据：

1.Employee员工信息数据(EmployeeID,Name,Sex,Department,Position,Joindate(到职日期),DimissionDate(离职日期)… …)

2.Salay员工工资清单(SalaryMonth(工资月份),Employee(员工),基本工资,岗位津贴,技术津贴,住宿费,上月余额,应得工资,本月余额,实得工资 … …)

分析：

这里只是作为Demo，就制作一个简单的数据分析。

1.Employee员工信息就认为一个对象实体，不做详细的数据提取筛分。

2.在Salay员工工资清单，可以把“基本工资,岗位津贴,技术津贴,住宿费 。。。”这些项提取出来，归类为SalaryItem工资项目；SalaryItem工资项目还可以再分类为“公式项”与“非公式项”。（注：“公式项”是指可以使用公式来计算非手工输入的工资项目）当然还可以根据实际的需要分类的更详细，清晰。

数据表：

根据上面的简单分析，可以设计出作Demo使用的表，

1.Emplyee:员工信息表。

2.Salary:员工工资表

3.SalaryItem:工资项目表

4.Formulary:公式表

5.SysSalaryItemTypeMTR:工资项目分类表

建表：

USE [test]GO/*建表脚本*/If object_id('Salary') Is Not Null Drop Table SalaryIf object_id('Formulary') Is Not Null Drop Table FormularyIf object_id('Employee') Is Not Null Drop Table EmployeeIf object_id('SalaryItem') Is Not Null Drop Table SalaryItemIf object_id('SysSalaryItemTypeMTR') Is Not Null Drop Table SysSalaryItemTypeMTRGoCREATE TABLE [SysSalaryItemTypeMTR](    [ID] [smallint] IDENTITY(1,1) NOT NULL,    [Name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,CONSTRAINT [PK_SysSalaryItemTypeMTR] PRIMARY KEY CLUSTERED(    [ID] ASC))CREATE TABLE [Employee](    [ID] [int] IDENTITY(1,1) NOT NULL,    [EmployeeNo] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,    [Name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,    [Sex] [nchar](1) COLLATE Chinese_PRC_CI_AS NOT NULL,    [Department] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,    [Position] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,    [JoinDate] [datetime] NULL,    [DimissionDate] [datetime] NULL,CONSTRAINT [PK_Employee] PRIMARY KEY CLUSTERED(    [ID] ASC))CREATE TABLE [SalaryItem](    [ID] [smallint] IDENTITY(1,1) NOT NULL,    [ItemType] [smallint] NOT NULL,    [Name] [nvarchar](50) COLLATE Chinese_PRC_CI_AS NULL,CONSTRAINT [PK_SalaryItem] PRIMARY KEY CLUSTERED(    [ID] ASC))ALTER TABLE [SalaryItem]  WITH CHECK ADD  CONSTRAINT [FK_SalaryItem_SysSalaryItemTypeMTR] FOREIGN KEY([ItemType])REFERENCES [SysSalaryItemTypeMTR] ([ID])CREATE TABLE [Salary](    [ID] [int] Identity(1,1)NOT NULL,    [EmployeeID] [int] NOT NULL,    [SalaryMonth] [datetime] NULL,    [SalaryItemID] [smallint] NOT NULL,    [Amount] [money] NULL,CONSTRAINT [PK_Salary] PRIMARY KEY CLUSTERED(    [ID] ASC))ALTER TABLE [Salary]  WITH CHECK ADD  CONSTRAINT [FK_Salary_Employee] FOREIGN KEY([EmployeeID])REFERENCES [Employee] ([ID])ALTER TABLE [Salary]  WITH CHECK ADD  CONSTRAINT [FK_Salary_SalaryItem] FOREIGN KEY([SalaryItemID])REFERENCES [SalaryItem] ([ID])Create Table Formulary(    ID int Identity(1,1) Not Null,    SalaryItemID Smallint Not Null,    Definition nvarchar(4000) Null,    Sequence smallint Null,    EffectiveDate datetime Null,    ExpiryDate datetime Null,    Constraint PK_Formulary Primary Key(ID Asc),    Constraint FK_Formulary_SalaryItem Foreign Key (SalaryItemID) References SalaryItem(ID))CREATE NONCLUSTERED INDEX [IX_Employee_EmployeeNo] ON [Employee](    [EmployeeNo] ASC)CREATE NONCLUSTERED INDEX [IX_Formulary_SalaryItemID] ON [Formulary](    [SalaryItemID] ASC)CREATE NONCLUSTERED INDEX [IX_Salary_EmployeeID] ON [Salary](    [EmployeeID] ASC)CREATE NONCLUSTERED INDEX [IX_Salary_SalaryMonth_EmployeeID] ON [Salary](    [SalaryMonth] ASC,    [EmployeeID] ASC)插入测试数据：Use testGoIf Not Exists(Select 1 From SysSalaryItemTypeMTR)    Insert Into SysSalaryItemTypeMTR(Name)        Select N'上月项' Union All        Select N'固定项' Union All        Select N'输入项' Union All        Select N'公式项' Union All        Select N'文本项'If Not Exists(Select 1 From SalaryItem)    Insert Into SalaryItem(ItemType,Name)        Select 2,N'基本工资' Union All        Select 3,N'其他扣款' Union All        Select 3,N'岗位津贴' Union All        Select 3,N'技术津贴' Union All        Select 3,N'住宿费'     Union All        Select 1,N'上月余额' Union All        Select 4,N'应得工资' Union All        Select 4,N'本月余额' Union All        Select 4,N'实得工资'If Not Exists(Select 1 From Formulary)    Insert Into Formulary(SalaryItemID,Definition,Sequence,EffectiveDate,ExpiryDate)        Select 1,N'Isnull([1],0)',1,'20090101','21001231' Union ALl        Select 2,N'Isnull([2],0)',2,'20090101','21001231' Union ALl        Select 3,N'Isnull([3],0)',3,'20090101','21001231' Union ALl        Select 4,N'Isnull([4],0)',4,'20090101','21001231' Union ALl        Select 5,N'Isnull([5],0)',5,'20090101','21001231' Union ALl        Select 6,N'Isnull([8],0)',6,'20090101','21001231' Union ALl        Select 7,N'Isnull([1],0)+Isnull([2],0)+Isnull([3],0)+Isnull([4],0)+Isnull([5],0)+Isnull([6],0)',7,'20090101','21001231' Union ALl        Select 8,N'Case Convert(char(6),DimissionDate,112)+''01'' When SalaryMonth Then 0 Else Isnull([7],0)%10 End ',8,'20090101','21001231' Union ALl        Select 9,N'Case Convert(char(6),DimissionDate,112)+''01'' When SalaryMonth Then Isnull([7],0) Else Isnull([7],0)-Isnull([8],0) End',9,'20090101','21001231'If Not Exists(Select 1 From Employee)    Insert Into Employee(EmployeeNo,Name,Sex,Department,Position,JoinDate,DimissionDate)        Select N'N0001',N'A1',N'男',N'Dep1',N'Pos1','20080101',Null Union All        Select N'N0002',N'A2',N'女',N'Dep2',N'Pos2','20080101','20090514' Union All        Select N'N0003',N'A3',N'男',N'Dep3',N'Pos3','20080101',NullIf Not Exists(Select 1 From Salary)    Insert Into Salary(EmployeeID,SalaryMonth,SalaryItemID,Amount)        Select 1,'20090401',1,1000 Union All        Select 2,'20090401',1,2000 Union All        Select 3,'20090401',1,3000 Union All        Select 1,'20090401',2,-10 Union All        Select 2,'20090401',2,-20 Union All        Select 3,'20090401',2,-30 Union All        Select 1,'20090401',3,0 Union All        Select 2,'20090401',3,0 Union All        Select 3,'20090401',3,0 Union All        Select 1,'20090401',4,105 Union All        Select 2,'20090401',4,0 Union All        Select 3,'20090401',4,107 Union All        Select 1,'20090401',5,-60 Union All        Select 2,'20090401',5,-60 Union All        Select 3,'20090401',5,-60 Union All        Select 1,'20090401',6,0 Union All        Select 2,'20090401',6,0 Union All        Select 3,'20090401',6,0 Union All        Select 1,'20090401',7,0 Union All        Select 2,'20090401',7,0 Union All        Select 3,'20090401',7,0 Union All        Select 1,'20090401',8,0 Union All        Select 2,'20090401',8,0 Union All        Select 3,'20090401',8,0 Union All        Select 1,'20090401',9,0 Union All        Select 2,'20090401',9,0 Union All        Select 3,'20090401',9,0 Union All        Select 1,'20090501',1,1000 Union All        Select 2,'20090501',1,2000 Union All        Select 3,'20090501',1,3000 Union All        Select 1,'20090501',2,-25 Union All        Select 2,'20090501',2,-25 Union All        Select 3,'20090501',2,-25 Union All        Select 1,'20090501',3,20 Union All        Select 2,'20090501',3,10 Union All        Select 3,'20090501',3,10 Union All        Select 1,'20090501',4,150 Union All        Select 2,'20090501',4,20 Union All        Select 3,'20090501',4,150 Union All        Select 1,'20090501',5,-62 Union All        Select 2,'20090501',5,-62 Union All        Select 3,'20090501',5,-62 Union All        Select 1,'20090501',6,0 Union All        Select 2,'20090501',6,0 Union All        Select 3,'20090501',6,0 Union All        Select 1,'20090501',7,0 Union All        Select 2,'20090501',7,0 Union All        Select 3,'20090501',7,0 Union All        Select 1,'20090501',8,0 Union All        Select 2,'20090501',8,0 Union All        Select 3,'20090501',8,0 Union All        Select 1,'20090501',9,0 Union All        Select 2,'20090501',9,0 Union All        Select 3,'20090501',9,0Go

建测试存储过程：

Use testGOIf object_id('up_SalarySUM') Is Not Null    Drop Proc up_SalarySUMGoCreate Proc up_SalarySUM(    @SalaryMonth datetime)AsSet Nocount OnDeclare @SalaryItemID nvarchar(50),        @ItemType smallint,        @Sql nvarchar(4000),        @Definition nvarchar(4000),        @Cols nvarchar(4000)If object_id('tempdb..#Salary') Is Not Null    Drop Table #SalaryCreate Table #Salary(EmployeeID int,DimissionDate datetime,SalaryMonth datetime)Select @Cols=Isnull(@Cols+',','')+Rtrim(Quotename(a.ID))        From SalaryItem As a            Inner Join Formulary As b On b.SalaryItemID=a.ID        Where b.EffectiveDate<=@SalaryMonth                And b.ExpiryDate>@SalaryMonthSet @Sql=N'Alter Table #Salary Add '+Replace(@Cols,',',' money,')+' money'Exec sp_executesql @SqlSet @Sql=N';With CTE_Salary As(    Select a.EmployeeID,b.DimissionDate,SalaryMonth,a.SalaryItemID,a.Amount        From Salary As a            Inner Join Employee As b On b.ID=a.EmployeeID        Where SalaryMonth In(@SalaryMonth,Dateadd(month,-1,@SalaryMonth)))Insert Into #Salary    Select *        From  CTE_Salary        Pivot(Max(Amount) For SalaryItemID In('+@Cols+')) As b'Exec sp_executesql @Sql,N'@SalaryMonth datetime',@SalaryMonthDeclare Cur_SalaryItem Cursor For    Select Quotename(a.ID) As ID,a.ItemType,b.Definition         From SalaryItem As a            Inner Join Formulary As b On b.SalaryItemID=a.ID        Where b.EffectiveDate<=@SalaryMonth                And b.ExpiryDate>@SalaryMonth                And a.ItemType In(1,4)        Order By b.Sequence    For Read OnlyOpen Cur_SalaryItemFetch Next From Cur_SalaryItem Into @SalaryItemID,@ItemType,@DefinitionWhile @@Fetch_status=0Begin    If @ItemType=4 --本月可计算的工资项        Set @sql='Update #Salary Set '+@SalaryItemID+'='+@Definition +' Where SalaryMonth=@SalaryMonth'    Else            --计算上月工资项        Set @sql='Update a  Set a.'+@SalaryItemID+'=(Select '+@Definition +' From #Salary Where EmployeeID=a.EmployeeID And SalaryMonth=Dateadd(Month,-1,a.SalaryMonth)) From #Salary As a Where SalaryMonth=@SalaryMonth'    Exec sp_executesql @sql,N'@SalaryMonth datetime',@SalaryMonth    Fetch Next From Cur_SalaryItem Into @SalaryItemID,@ItemType,@DefinitionEndClose Cur_SalaryItemDeallocate Cur_SalaryItemSet @sql=(N';With CTE_Salary As(    Select * From #Salary Unpivot(Amount For SalaryItemID In('+@Cols+')) As up Where SalaryMonth=@SalaryMonth)Update a    Set a.Amount=b.Amount    From Salary As a        Inner Join CTE_Salary As b On b.SalaryMonth=a.SalaryMonth                And b.EmployeeID=a.EmployeeID                And b.SalaryItemID=a.SalaryItemID')Exec sp_executesql @sql,N'@SalaryMonth datetime',@SalaryMonthDrop Table #SalaryGo

--执行工资计算

Exec up_SalarySUM '20090401'Exec up_SalarySUM '20090501'Go

---查看计算结果

Declare @Cols nvarchar(4000),        @SalaryMonth datetime,        @Sql nvarchar(4000)Set @SalaryMonth='20090501'Select @Cols=Isnull(@Cols+',','')+Rtrim(Quotename(a.Name))        From SalaryItem As a            Inner Join Formulary As b On b.SalaryItemID=a.ID        Where b.EffectiveDate<=@SalaryMonth                And b.ExpiryDate>@SalaryMonthSet @Sql=N';With CTE_Salary As(    Select a.EmployeeID,b.DimissionDate,SalaryMonth,c.Name As SalaryItem,a.Amount        From Salary As a            Inner Join Employee As b On b.ID=a.EmployeeID            Inner Join SalaryItem As c On c.ID=a.SalaryItemID        Where SalaryMonth=@SalaryMonth)    Select *        From  CTE_Salary        Pivot(Max(Amount) For SalaryItem In('+@Cols+')) As b'Exec sp_executesql @Sql,N'@SalaryMonth datetime',@SalaryMonthGo

Demo效果如图：