毕业设计论文-个人财务管理信息系统

毕业设计论文-个人财务管理信息系统内容摘要：

ype=text/css rel=stylesheet / /head % idd=(id) If (add)= 添 加 Then paytype = Trim((paytype)) io = Trim((io)) Set rs=(Select PayType From [type] Where user=amp。 iddamp。 and PayType=39。 amp。 paytypeamp。 39。 ) If Not ( or ) Then 18 else Set rs = () Sql = Select * From [type] Where (ID is null) Sql,Conn,1,3 rs(PayType) = paytype rs(date) = now() rs(InOut) = io rs(user) = idd End if end if % body script language=JavaScript ! function chk(theForm){ if ( == ){ alert(请输入费用类型 !)。 ()。 return (false)。 } } // /script table width=100%trtd height=25/td/tr/table table width=100% border=0 align=center cellpadding=5 cellspacing=1 bgcolor=eeeeee form action= method=post name=form1 onSubmit=return chk(this) tr bgcolor=ffffff td width=40% align=right费用类型： /td tdinput name=paytype type=text size=30 maxlength=30 / /td /tr 19 tr bgcolor=ffffff td width=40% align=right所属类型： /div/td tdselect name=io option value=1收入 /option option value=0支出 /option /select font color=red 请选择 /font/td /tr tr bgcolor=ffffff td width=40% align=right /td tdinput type=submit name=add value= 添 加 //td /tr /form /table /body /html 管理类型模块： !include file= !include file= html head title/title meta equiv=ContentType content=text/html。 charset=gb2312 / LINK href= type=text/css rel=stylesheet / /head % idd=(id) If (type)= 修 改 Then paytype = Trim((paytype)) 20 Set rs=(Select PayType From [type] Where user=amp。 iddamp。 and PayType=39。 amp。 paytypeamp。 39。 ) If Not ( or ) Then scriptalert(39。 该 类 型 已 存 在39。 )。 =39。 javascript:(1)39。 /SCRIPT else Set rs = () Sql = Select * From [type] Where user=amp。 iddamp。 and id=amp。 Request(id)amp。 Sql,Conn,1,3 rs(PayType) = paytype End if end if % body script language=JavaScript ! function chk(theForm){ if ( == ){ alert(请输入费用类型 !)。 ()。 return (false)。 } } // /script table width=100%trtd height=25/td/tr/table table width=100% border=0 align=center cellpadding=5 cellspacing=1 bgcolor=eeeeee % Set rs = () Sql = Select * From [type] Where id=amp。 Request(id)amp。 Sql,Conn,1,1 % 21 form action= method=post name=form1 onSubmit=return chk(this) tr bgcolor=ffffff td width=40% align=right费用类型： /td tdinput name=paytype type=text size=30 maxlength=30 value=%=rs(PayType)% / /td /tr tr bgcolor=ffffff td width=40% align=right添加日期： /div/td td%=rs(date)%/td /tr tr bgcolor=ffffff td width=40% align=right所属类型： /div/td td% If rs(InOut)=0 Then font color=red支出 /font Else 收入 End if %/td /tr tr bgcolor=ffffff td width=40% align=right /td tdinput type=submit name=type value= 修 改 //td /tr /form % % /table /body /html 22 添加收入、添加支出模块： !include file= !include file= % idd=(id) InOut = Request(add) If (add)= 添 加 Then adddate = (adddate) selpayer = (selpayer) seltype = (seltype) moneys = Trim((moneys)) pjna = Trim((pjna)) if seltype= then scriptalert(39。 请 先 添 加 相 关 费 用 类型 !39。 )。 location=39。 39。 /SCRIPT end if Set rs = () Sql = Select * From [list] Where (ID is null) Sql,Conn,1,3 rs(InOut) = InOut rs(PayTypeID) = seltype 23 rs(Moneys) = moneys rs(Project) = pjna rs(addTime) = adddate rs(user) = idd End if % html head title/title meta equiv=ContentType content=text/html。 charset=gb2312 / LINK href= type=text/css rel=stylesheet / /head body script language=javascript function CheckForm() { if (==) { alert(请选择日期 )。 return false。 } if (==) { alert(金额不能为空 )。 ()。 return false。 } if (==) { alert(项目名称不能为空 )。 ()。 return false。 } } /script 24 table width=100%trtd height=25/td/tr/table table width=100% border=0 align=center cellpadding=4 cellspacing=1 bgcolor=eeeeee form action= method=post name=form1 onSubmit=return CheckForm() tr bgcolor=ffffff td height=25 colspan=5 align=center bgcolor=F9F9F9b %If InOut=1 Then font color=blue添 加 收 入 /font Else font color=red添 加 支 出 /font End if % /b/td /tr tr bgcolor=ffffff td width=35% align=right日期： /div/td td colspan=4 input name=adddate type=text size=22 maxlength=22 readonly / input onClick=popUpCalendar(this, , 39。 yyyymmdd39。 ) type=button value=选择日期 //td /tr tr bgcolor=ffffff td align=right费用类型： /td td colspan=4select name=seltype % set rs=() sql=select * from [type] Where user=amp。 iddamp。 and InOut=amp。 InOutamp。 sql,conn,1,1 do while not sel=selected option amp。 sel amp。 value=39。 +CStr(rs(ID))+39。 name=seltype+rs(PayType)+/option+chr(13)+chr(10) loop % /select font color=red 请选择 /font/td /tr tr bgcolor=ffffff 25 td align=right金额。