一次编程实践[ASP+MSSQL]

本人工作单位是一家橡塑产品制造企业，05年2月单位领导要求我开发一个生产流程数据核对表，用来稽核流程数据的准确性，其报表基本原理如下：

后续工序今日正品数 + 后续工序今日废品数 = 本工序今日正品数 + 本工序今日留存数 - 本工序昨日留存数

了解了原理后马上开工，第一次考虑用临时表：


select distinct LEFT(productid, 4) + @#00@# as productid into #productid from yuancaiFlow_view
where productiondate = @#2004-3-1@#
and productid like @#01____@#
go
select a.productid,
       b.productname,
       isnull(hj.GoodQty, 0) as hj_good,
       isnull(hjtoday.qty, 0) as hj_today,
       isnull(hjyesterday.qty, 0) hj_yesterday,
       isnull(hj.GoodQty, 0) - isnull(hjtoday.qty, 0) + isnull(hjyesterday.qty, 0) - isnull(sx.GoodQty, 0) - isnull(sx.BadQty, 0) as hj_difference,
       isnull(sx.GoodQty, 0) as sx_good,
       isnull(sx.BadQty, 0) as sx_bad,
       isnull(sxtoday.qty, 0) as sx_today,
       isnull(sxyesterday.qty, 0) sx_yesterday,
       isnull(sx.GoodQty, 0) - isnull(sxtoday.qty, 0) + isnull(sxyesterday.qty, 0) - isnull(jt.GoodQty, 0) - isnull(jt.BadQty, 0) as sx_difference,
       isnull(jt.GoodQty, 0) as jt_good,
       isnull(jt.BadQty, 0) as jt_bad,
       isnull(jttoday.qty, 0) as jt_today,
       isnull(jtyesterday.qty, 0) jt_yesterday,
       isnull(jt.GoodQty, 0) - isnull(jttoday.qty, 0) + isnull(jtyesterday.qty, 0) - isnull(ph.GoodQty, 0) - isnull(ph.BadQty, 0) as jt_difference,
       isnull(ph.GoodQty, 0) as ph_good,
       isnull(ph.BadQty, 0) as ph_bad,
       isnull(phtoday.qty, 0) as ph_today,
       isnull(phyesterday.qty, 0) ph_yesterday,
       isnull(ph.GoodQty, 0) - isnull(phtoday.qty, 0) + isnull(phyesterday.qty, 0) - isnull(zj.GoodQty, 0) - isnull(zj.BadQty, 0) as ph_difference,
       isnull(zj.GoodQty, 0) as zj_good,
       isnull(zj.BadQty, 0) as zj_bad
   from #productid as a,
        finishedproduct as b,
        yuancaiFlow_view as hj,
        basflowsubsistence as hjtoday,
        basflowsubsistence as hjyesterday,
        yuancaiFlow_view as sx,
        basflowsubsistence as sxtoday,
        basflowsubsistence as sxyesterday,
        yuancaiFlow_view as jt,
        basflowsubsistence as jttoday,
        basflowsubsistence as jtyesterday,
        yuancaiFlow_view as ph,
        basflowsubsistence as phtoday,
        basflowsubsistence as phyesterday,
        yuancaiFlow_view as zj
   where a.productid = b.productid
   --hj
   and hj.productiondate = @#2004-3-1@#
   and left(a.productid, 4) *= left(hj.productid, 4)
   and hj.productid like @#____06@#  
   and left(a.productid, 4) + @#06@# *= hjtoday.productid
   and hjtoday.checkdate = @#2004-3-1@#
   and left(a.productid, 4) + @#06@# *= hjyesterday.productid
   and hjyesterday.checkdate = @#2004-2-29@#
   --sx
   and sx.productiondate = @#2004-3-1@#
   and left(a.productid, 4) *= left(sx.productid, 4)
   and sx.productid like @#____08@#  
   and left(a.productid, 4) + @#08@# *= sxtoday.productid
   and sxtoday.checkdate = @#2004-3-1@#
   and left(a.productid, 4) + @#08@# *= sxyesterday.productid
   and sxyesterday.checkdate = @#2004-2-29@#
   --jt
   and jt.productiondate = @#2004-3-1@#
   and left(a.productid, 4) *= left(jt.productid, 4)
   and jt.productid like @#____07@#  
   and left(a.productid, 4) + @#07@# *= jttoday.productid
   and jttoday.checkdate = @#2004-3-1@#
   and left(a.productid, 4) + @#07@# *= jtyesterday.productid
   and jtyesterday.checkdate = @#2004-2-29@#
   --ph
   and ph.productiondate = @#2004-3-1@#
   and left(a.productid, 4) *= left(ph.productid, 4)
   and ph.productid like @#____09@#  
   and left(a.productid, 4) + @#09@# *= phtoday.productid
   and phtoday.checkdate = @#2004-3-1@#
   and left(a.productid, 4) + @#09@# *= phyesterday.productid
   and phyesterday.checkdate = @#2004-2-29@#
   --zj
   and zj.productiondate = @#2004-3-1@#
   and left(a.productid, 4) *= left(zj.productid, 4)
   and zj.productid like @#01__11@#
go
drop table #productid
go

准备用ASP呈现报表，结果ASP端的Recordset老提示出错。只好改用函数：

-- =============================================
-- Create table function (TF)
-- =============================================
IF EXISTS (SELECT *
    FROM   sysobjects
    WHERE  name = N@#fn_GetGLSubsistenceList@#)
 DROP FUNCTION fn_GetGLSubsistenceList
GO

CREATE FUNCTION fn_GetGLSubsistenceList
 (@CheckDate smalldatetime)
RETURNS @FlowSubsistenceList TABLE
 (ProductID nvarchar(6),
  ProductName nvarchar(32),
         HJGoodQty real,
         HJTodayQty real,
         HJYesterdayQty real,
         HJDefference real,
         SXGoodQty real,
         SXBadQty real,
         SXTodayQty real,
         SXYesterdayQty real,
         SXDefference real,
         JTGoodQty real,
         JTBadQty real,
         JTTodayQty real,
         JTYesterdayQty real,
         JTDefference real,
         PHGoodQty real,
         PHBadQty real,
         PHTodayQty real,
         PHYesterdayQty real,
         PHDefference real,
         ZJGoodQty real,
         ZJBadQty real)
AS
BEGIN
        DECLARE @ProductIDList TABLE
                (ProductID nvarchar(6))
        DECLARE @YesterdayOfCheckDate smalldatetime
        SET @YesterdayOfCheckDate = DATEADD(day, -1, @CheckDate)

        --保存该日生产的产品ID号
        INSERT @ProductIDList
        select distinct LEFT(productid, 4) + @#00@# as productid from yuancaiFlow_view
        where productiondate = @CheckDate
        and productid like @#01____@#

        --正常工序为hj->sx->jt->ph->zj
        INSERT @FlowSubsistenceList
        select a.productid,
        b.productname,
        isnull(hj.GoodQty, 0) as hj_good,
        isnull(hjtoday.qty, 0) as hj_today,
        isnull(hjyesterday.qty, 0) hj_yesterday,
        0 - (isnull(hj.GoodQty, 0) - isnull(hjtoday.qty, 0) + isnull(hjyesterday.qty, 0) - isnull(sx.GoodQty, 0) - isnull(sx.BadQty, 0)) as hj_difference,
        isnull(sx.GoodQty, 0) as sx_good,
        isnull(sx.BadQty, 0) as sx_bad,
        isnull(sxtoday.qty, 0) as sx_today,
        isnull(sxyesterday.qty, 0) sx_yesterday,
        0 - (isnull(sx.GoodQty, 0) - isnull(sxtoday.qty, 0) + isnull(sxyesterday.qty, 0) - isnull(jt.GoodQty, 0) - isnull(jt.BadQty, 0)) as sx_difference,
        isnull(jt.GoodQty, 0) as jt_good,
        isnull(jt.BadQty, 0) as jt_bad,
        isnull(jttoday.qty, 0) as jt_today,
        isnull(jtyesterday.qty, 0) jt_yesterday,
        0 - (isnull(jt.GoodQty, 0) - isnull(jttoday.qty, 0) + isnull(jtyesterday.qty, 0) - isnull(ph.GoodQty, 0) - isnull(ph.BadQty, 0)) as jt_difference,
        isnull(ph.GoodQty, 0) as ph_good,
        isnull(ph.BadQty, 0) as ph_bad,
        isnull(phtoday.qty, 0) as ph_today,
        isnull(phyesterday.qty, 0) ph_yesterday,
        0 - (isnull(ph.GoodQty, 0) - isnull(phtoday.qty, 0) + isnull(phyesterday.qty, 0) - isnull(zj.GoodQty, 0) - isnull(zj.BadQty, 0)) as ph_difference,
        isnull(zj.GoodQty, 0) as zj_good,
        isnull(zj.BadQty, 0) as zj_bad
        from @ProductIDList as a,
        finishedproduct as b,
        yuancaiFlow_view as hj,
        basflowsubsistence as hjtoday,
        basflowsubsistence as hjyesterday,
        yuancaiFlow_view as sx,
        basflowsubsistence as sxtoday,
        basflowsubsistence as sxyesterday,
        yuancaiFlow_view as jt,
        basflowsubsistence as jttoday,
        basflowsubsistence as jtyesterday,
        yuancaiFlow_view as ph,
        basflowsubsistence as phtoday,
        basflowsubsistence as phyesterday,
        yuancaiFlow_view as zj
        where a.productid = b.productid
        --hj
        and hj.productiondate = @CheckDate
        and left(a.productid, 4) *= left(hj.productid, 4)
        and hj.productid like @#____06@#  
        and left(a.productid, 4) + @#06@# *= hjtoday.productid
        and hjtoday.checkdate = @CheckDate
        and left(a.productid, 4) + @#06@# *= hjyesterday.productid
        and hjyesterday.checkdate = @YesterdayOfCheckDate
        --sx
        and sx.productiondate = @CheckDate
        and left(a.productid, 4) *= left(sx.productid, 4)
        and sx.productid like @#____08@#  
        and left(a.productid, 4) + @#08@# *= sxtoday.productid
        and sxtoday.checkdate = @CheckDate
        and left(a.productid, 4) + @#08@# *= sxyesterday.productid
        and sxyesterday.checkdate = @YesterdayOfCheckDate
        --jt
        and jt.productiondate = @CheckDate
        and left(a.productid, 4) *= left(jt.productid, 4)
        and jt.productid like @#____07@#  
        and left(a.productid, 4) + @#07@# *= jttoday.productid
        and jttoday.checkdate = @CheckDate
        and left(a.productid, 4) + @#07@# *= jtyesterday.productid
        and jtyesterday.checkdate = @YesterdayOfCheckDate
        --ph
        and ph.productiondate = @CheckDate
        and left(a.productid, 4) *= left(ph.productid, 4)
        and ph.productid like @#____09@#  
        and left(a.productid, 4) + @#09@# *= phtoday.productid
        and phtoday.checkdate = @CheckDate
        and left(a.productid, 4) + @#09@# *= phyesterday.productid
        and phyesterday.checkdate = @YesterdayOfCheckDate
        --zj
        and zj.productiondate = @CheckDate
        and left(a.productid, 4) *= left(zj.productid, 4)
        and zj.productid like @#01__11@#
        RETURN
END
GO

ASP端与SQL端意外地解耦合了：

Dim rsCheckList
Set rsCheckList = Server.CreateObject("ADODB.Recordset")
rsCheckList.ActiveConnection = oConn
rsCheckList.Open"select * from dbo.fn_GetGLSubsistenceList(@#"&datCheckDate&"@#)"

这次编程实践让我得到一个ASP开发的新思路：
用视图+函数封装数据库端，ASP端只调用函数，这样做最大的好处是平台移植更加方便了，并且对ASP程序员的数据库知识要求也降低了。

原文转自：http://www.ltesting.net