【導(dǎo)讀】來越方便和快捷，可以說我們的每個(gè)人生活都離不開計(jì)算機(jī)的幫助了。應(yīng)用軟件成為了人們重要的助手，也在潛移默化的改變著我們的生活。隨著市場經(jīng)濟(jì)的發(fā)展，我國居民對理財(cái)有著越來越高的要求。個(gè)人所必須面對的問題?，F(xiàn)在，關(guān)于企業(yè)的會(huì)計(jì)制度逐漸完善，而且針對企業(yè)的財(cái)務(wù)軟。統(tǒng)目前還是一段空白。其實(shí)，對一個(gè)人或者家庭的財(cái)務(wù)情況，也是關(guān)注這兩個(gè)方面。關(guān)注今年賺了多少錢，花了多少，借出什么等等。而這些問題容易被人忽略。財(cái)?shù)男蚀蟠筇岣摺?wù)狀況有一個(gè)清楚的了解。并不是所有問題都具有簡單的解決辦法，許多問題不能在預(yù)定的規(guī)模之內(nèi)解決。處理大量數(shù)據(jù)，同時(shí)保持?jǐn)?shù)據(jù)的完整性并提供許多高級管理功能。會(huì)影響方面的問題，不存在侵權(quán)級相應(yīng)的法律問題。而非為了社會(huì)效益而編寫設(shè)計(jì)，因此社會(huì)效益方面也是可行的。提供用戶對現(xiàn)金收支信息和物品收支信息進(jìn)行統(tǒng)計(jì)輸出功能。施，即要求系統(tǒng)有較高的安全性能。

　　

【正文】 td height=25 colSpan=6 align=middle bgcolor=F9F9F9 用戶 : b%=Request(user)%/b SELECT name=nian option value=請選擇 /option % idd=Request(id) Set rs = (Select distinct year(addTime) From [list] where user=amp。iddamp。) Do While Not option value=39。amp。 rs(0) amp。39。 amp。 rs(0) amp。 /option Loop % /SELECT input type=submit name=go value=點(diǎn)擊統(tǒng)計(jì) font color=ff0000%=(nian)%/font 年度統(tǒng)計(jì)表 /td /FORM /TR TR td colSpan=6 align=middle bgcolor=FFFFFF DIV id=updated style=DISPLAY: none align=center table width=100% border=0 align=center cellpadding=4 cellspacing=4 tr td height=50 align=center 正 在 統(tǒng) 計(jì) ， 請 稍 后 ... img height=15 31 src=Images/ width=150/td /tr /table/DIV/td/TR/TABLE /BODY /HTML % if Request(go)=點(diǎn)擊統(tǒng)計(jì) then Dim InMonth(12),OutMonth(12),SumMonth(12) Dim InTotel,OutTotel,SumTotel Dim month(12) nian = (nian) For i=1 To 12 If i9 Then month(i) = nian amp。 amp。 i Else month(i) = nian amp。 0 amp。 i End if Next % table width=100%trtd height=2/td/tr/table table width=100% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=eeeeee tr td height=30 align=center bgcolor=F9F9F9b費(fèi)用類型 /b/td td width=7% bgcolor=F9F9F9 align=centerb1 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb2 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb3 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb4 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb5 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb6 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb7 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb8 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb9 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb10 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb11 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb12 月 /b/td td width=7% bgcolor=F9F9F9 align=centerb合計(jì) /b/td /tr 32 % Set rs = () Sql = Select ID,PayType,InOut From [type] where user=amp。iddamp。 Order By InOut desc,ID Asc Sql,Conn,1,1 If Then trtd align=center height=39。3039。 colspan=39。1439。 bgcolor=ffffff沒有記錄/td/tr Else RecordCou = For i=1 To RecordCou % tr bgcolor=FFFFFF td align=center height=30%=rs(PayType)%/td % Totel = 0 j = 1 Do Until j 12 Money = 0 Set rs2 = (Select Moneys From [list] Where user=amp。iddamp。 and PayTypeID=amp。rs(id)amp。 and addTime like 39。%amp。month(j)amp。%39。 ) If Not Then Do While Not If rs(InOut) = 1 Then Money = Money + rs2(0) If rs(InOut) = 0 Then Money = Money rs2(0) Loop Totel = Totel + Money For k=1 To 12 If k=j Then If Money0 Then OutMonth(k) = OutMonth(k) + Money If Money0 Then InMonth(k) = InMonth(k) + Money SumMonth(k) = SumMonth(k) + Money End if Next 33 If Money 0 Then Money = font color=39。ff000039。amp。 Money amp。/font td align=39。center39。 amp。 Money amp。 /td Else td align=39。center39。0/td End if j = j + 1 Loop % td align=center %If Totel0 Then font color=39。ff000039。amp。 Totel amp。/font Else Totel End if % /td /tr % If Totel0 Then InTotel = InTotel + Totel If Totel0 Then OutTotel = OutTotel + Totel SumTotel = SumTotel + Totel Next End if % tr bgcolor=FFFFFF td height=30 align=center支出合計(jì) /td %For i=1 To 12 If OutMonth(i)= Then OutMonth(i)=0 % td align=centerfont color=ff0000%=OutMonth(i)%/font/td %Next% td align=centerfont color=ff0000%=OutTotel%/font/td /tr tr bgcolor=FFFFFF td height=30 align=center收入合計(jì) /td 34 %For i=1 To 12 If InMonth(i)= Then InMonth(i)=0 % td align=center%=InMonth(i)%/td %Next% td align=center%=InTotel%/td /tr tr bgcolor=FFFFFF td height=30 align=centerb結(jié)算 /b/td %For i=1 To 12 If SumMonth(i)0 Then SumMonth(i) = font color=39。FF000039。 amp。 SumMonth(i) amp。/font % td align=centerb%=SumMonth(i)%/b/td %Next% td align=centerfont color=blueb%=SumTotel%/b/font/td /tr /table % end if % 數(shù)據(jù)庫連接模塊： 35 % dim conn dim connstr on error resume next connstr=DRIVER={SQL Server}。SERVER=(local)。 UID=sa。 pwd=123456。 DATABASE=finance。 set conn=() connstr If err Then Set Conn = nothing 數(shù)據(jù)庫連接出錯(cuò)，請檢查連接字串。 end If % 創(chuàng)建數(shù)據(jù) finance 的腳本代碼： USE [finance] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[user]( [ID] [int] NOT NULL, [username] [nvarchar](50) NULL, [password] [nvarchar](50) NULL, [admin] [int] NULL ) ON [PRIMARY] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[type]( 36 [ID] [int] NOT NULL, [PayType] [nvarchar](50) NULL, [InOut] [int] NULL, [date] [datetime] NULL, [user] [int] NULL ) ON [PRIMARY] GO SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[list]( [ID] [int] NOT NULL, [PayTypeID] [int] NULL, [Moneys] [int] NULL, [Project] [nvarchar](50) NULL, [addTime] [nvarchar](50) NULL, [user]