![]() 图16 |
![]() 图17 |
| Imports System Imports System.Data Imports System.Data.SqlClient Imports System.Data.SqlTypes Imports Microsoft.SqlServer.Server <Serializable()> _ <Microsoft.SqlServer.Server.SqlUserDefinedAggregate(Format.Native)> _ PublicStructure NetSal Public SumNetSal As SqlDouble Public Sub Init() '在此加入你的代码 SumNetSal = 0 End Sub Public Sub Accumulate(ByVal value As SqlDouble) '在此加入你的代码 Dim sal As Double = CType(value, Double) Dim hra As Double = sal * 10 / 100 Dim ta As Double = 200 Dim gross As Double = sal hra ta Dim epf As Double = sal * 5 / 100 Dim net As Double = gross - epf SumNetSal = net End Sub Public Sub Merge(ByVal obj As NetSal) '在此加入你的代码 SumNetSal = obj.SumNetSal End Sub Public Function Terminate() As SqlDouble '在此加入你的代码 Return SumNetSal End Function EndStructure |
| --为运行你的工程,请编辑你的工程的test.sql文件。 --这个文件位于Solution Explorer的"Test Scripts"文件夹下 --exec IncSalaries 50 --select dbo.getNetSalary(empno) from sample.dbo.emp select dbo.NetSal(sal) from sample.dbo.emp |
评论加载中…
![]() |