【文章內(nèi)容簡介】 [科目代碼 ] [char] (20) NULL , [期初借方余額 ] [money] NULL , [期初貸方余額 ] [money] NULL , [本期借方發(fā)生額 ] [money] NULL , [本期貸方發(fā)生額 ] [money] NULL , [本年借方累計發(fā)生額 ] [money] NULL , [本年貸方累計發(fā)生額 ] [money] NULL , [本期借方余額 ] [money] NULL , [本期貸方余額 ] [money] NULL , [最后結(jié)算分錄 ] [int] NULL , [會計期間 ] [int] NULL , [余額方向 ] [char] (4) NULL , [內(nèi)部編號 ] [int] IDENTITY (1, 1) NOT NULL ) ON [PRIMARY] GO CREATE TABLE [dbo].[資產(chǎn)負債表 ] ( [會計期間 ] [int] NOT NULL , [現(xiàn)金及現(xiàn)金等價物 ] [money] NULL , [應收帳款 ] [money] NULL , [壞帳準備 ] [money] NULL , [應收帳款凈值 ] [money] NULL , [流動 資產(chǎn)總計 ] [money] NULL , [固定資產(chǎn)原值 ] [money] NULL , [累計折舊 ] [money] NULL , [固定資產(chǎn)總計 ] [money] NULL , [其他資產(chǎn) ] [money] NULL , [資產(chǎn)總計 ] [money] NULL , [應付帳款 ] [money] NULL , [預收帳款 ] [money] NULL , [應付工資 ] [money] NULL , [其他負債 ] [money] NULL , [負債總計 ] [money] NULL , [實收資本 ] [money] NULL , [資本公積 ] [money] NULL , [贏余公積 ] [money] NULL , [未分配利潤 ] [money] NULL , [所有者權(quán)益總計 ] [money] NULL , [負債及所有者權(quán)益總計 ] [money] NULL ) ON [PRIMARY] GO 創(chuàng)建主鍵及外鍵等表約束 在查詢分析器中通過 如下代碼創(chuàng)建表的主鍵及外鍵等表約束。 主鍵、外鍵關(guān)聯(lián)字段 ALTER TABLE [dbo].[科目表 ] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [科目代碼 ] ) ON [PRIMARY] GO ALTER TABLE [dbo].[憑證表 ] WITH NOCHECK ADD CONSTRAINT [PK_憑證表 ] PRIMARY KEY CLUSTERED ( [憑證編號 ] ) ON [PRIMARY] GO ALTER TABLE [dbo].[分錄表 ] WITH NOCHECK ADD CONSTRAINT [PK_分錄表 ] PRIMARY KEY CLUSTERED ( [編號 ] ) ON [PRIMARY] GO ALTER TABLE [dbo].[帳簿初始化表 ] WITH NOCHECK ADD PRIMARY KEY CLUSTERED ( [科目代碼 ] ) ON [PRIMARY] GO ALTER TABLE [dbo].[本期匯總帳簿 ] WITH NOCHECK ADD CONSTRAINT [PK_本期匯總帳簿 ] PRIMARY KEY CLUSTERED ( [科目代碼 ] ) ON [PRIMARY] GO ALTER TABLE [dbo].[分錄表 ] ADD CONSTRAINT [FK_分錄表 _憑證表 ] FOREIGN KEY ( [憑證編號 ] ) REFERENCES [dbo].[憑證表 ] ( [憑證編號 ] ), CONSTRAINT [分錄表 _科目代碼 _fk] FOREIGN KEY ( [科目代碼 ] ) REFERENCES [dbo].[科目表 ] ( [科目代碼 ] ) GO 其他外鍵、主鍵等約束參看附書光盤腳本。 創(chuàng)建存儲過程 系統(tǒng)使用了“ sf_初始化帳戶”、“ sf_啟用帳戶”、“ sf_憑證過帳”、“ sf_期末結(jié)帳”和“ sf_計算資產(chǎn)負債表”五個存儲過程，實現(xiàn)的功能分別為新建帳戶、啟用帳戶、憑證過帳確認、期末結(jié)帳和運算指定會計期間的資產(chǎn)負債表等功能。具體計算方法在下面的腳本中有詳細的注釋，讀者可以參考這些注釋。 create proc sf_初始化帳戶 as begin tran 清除原來數(shù)據(jù) ,重新建立帳戶 delete from 帳簿初始化表 設置帳戶初始基本數(shù)據(jù) insert into 帳簿初始化表 (科目代碼 ,科目名稱 ,累計借方 ,累計貸方 ,期初余額 ,余額方向 ) select 科目代碼 ,科目名稱 ,0,0,0,余額方向 from 科目表 設置初始信息 update 系統(tǒng)參數(shù)表 set 取值 = datepart(mm,getdate()) where 參數(shù)名稱 = 39。會計期間開始月份 39。 update 系統(tǒng)參數(shù) 表 set 取值 = datepart(mm,getdate()) where 參數(shù)名稱 = 39。當前會計期間 39。 mit GO create proc sf_啟用帳戶 as begin tran 清除原來數(shù)據(jù) ,重新建立帳戶 delete from 科目余額表 delete from 本期匯總帳簿 delete from 本期明細帳簿 delete from 分錄表 delete from 分錄表歷史 delete from 憑證表 delete from 憑證表歷史 設置本期匯總帳簿及科目余額表 insert into 本期匯總帳簿 select 科目代碼 ,0,期初余額 , 0,0,0,0,期初余額 ,余額方向 from 帳簿初始化表 update 本期匯總帳簿 set 會計期間 = from 系統(tǒng)參數(shù)表 as b where 參數(shù)名稱 =39。當前會計期間 39。 insert into 科目余額表 (科目代碼 , 期初借方 余額 , 期初貸方余額 , 本期借方發(fā)生額 , 本期貸方發(fā)生額 , 本年借方累計發(fā)生額 , 本年貸方累計發(fā)生額 , 本期借方余額 , 本期貸方余額 , 余額方向 ) select 科目代碼 ,累計借方 ,累計貸方 ,0,0,0,0, case when 余額方向 =39。借方 39。 then 期初余額 else 0 end, case when 余額方向 =39。貸方 39。 then 期初余額 else 0 end, 余額方向 from 帳簿初始化表 update 科目余額表 set 會計期間 = from 系統(tǒng)參數(shù)表 as b where 參數(shù)名稱 =39。當前會計期間 39。 mit GO create proc sf_憑證過帳 as begin tran 設置本期匯總帳簿信息 update 本期匯總帳簿 set 本期借方合計 = 本期借方合計 + , 本期貸方合計 = 本期貸方合計 + , 本年借方累計 = 本年借方累計 + , 本年貸方累計 = 本年貸方累計 + , 余額 = 余額 + case when 余額方向 =39。借方 39。 then (借方 貸方 ) else (貸方 借方 ) end from 本期匯總帳簿 as a, (select 科目代碼 , sum(借方 ) as 借方 , sum(貸方 ) as 貸方 from 分錄表 as f, 憑證表 as p where = group by ) as b where = 設置本期明細帳簿信息 insert into 本期明細帳簿 (分錄編號 ,會計期間 ,憑證字號 , 憑證編號 , 摘要 , 科目代碼 , 借方 , 貸方 , 數(shù)量 , 單價 , 結(jié)算方式 ,結(jié)算號 , 結(jié)算日期 ) select 編號 ,會計期間 ,憑證字號 , , 摘要 , 科目代碼 , 借方 , 貸方 , 數(shù)量 , 單價 , 結(jié)算方式 , 結(jié)算號 , 結(jié)算日期 from 憑證表 as p, 分錄表 as f where = 計算余額 update 本期明細帳簿 set 余額方向 = from 科目表 as a where 本期明細帳簿 .科目代碼 = 通過游標循 環(huán)計算余額 declare @bh int, @dm char(20), @jf money, @df money declare @fx char(4) , @bj char(4) , @ye money, @kjqj int declare mycursor cursor for select 內(nèi)部編號 ,科目代碼 , 借方 ,貸方 ,余額方向 ,余額標記 ,會計期間 from 本期明細帳簿 where 余額標記 is null order by 內(nèi)部編號 open mycursor fetch next from mycursor into @bh,@dm,@jf,@df,@fx,@bj,@kjqj while (@@fetch_status=0) begin select @ye = 余額 from 本期明細帳簿 where 內(nèi)部編號 in (select max(內(nèi)部編號 ) from 本期明細帳簿 where 內(nèi) 部編號 @bh and 科目代碼 =@dm and 余額標記 = 39。是 39。) 沒有 ,本期第一條明細 ,從科目余額表取余額 if(@ye is null) select @ye = case when 余額方向 =39。借方 39。 then 本期借方余額 本期貸方余額 else 本期貸方余額 本期借方余額 end from 科目余額表 where 會計期間 = @kjqj and 科目代碼 = @dm select @ye