?? addfinancialrecord.asp
字號:
<%@ Language=VBScript %>
<!--#include file="../conn.asp"-->
<%
'判斷用戶是否登錄
if isempty(Session("ID")) then
Response.Redirect "../login.asp"
end if
'判斷用戶是否是財務管理員
if Session("IsFinancialManager")=False then
Response.Redirect "Finance.asp"
end if
'連接系統數據庫
'set conn = server.createobject ("adodb.connection")
'conn.open "ASPData", "sa", ""
Warning=false
'添加財務項目
if not IsEmpty(Request.Form("AddFinancialProject")) then
Response.Redirect "AddFinancialProject.asp"
end if
'添加財務記錄信息
if not IsEmpty(Request.Form("AddRecord")) then
'從列表里選擇財務記錄經手人
if Request.Form("RadioFinancialRecordName")="FromList" then
TheName=Cstr(Request.Form("SelectFinancialRecordName"))
'用戶自己輸入財務記錄經手人
else
TheName=Cstr(Request.Form("TextFinancialRecordName"))
end if
'從列表里選擇財務記錄所屬項目
if Request.Form("RadioFinancialProject")="FromList" then
TheProjectName=Cstr(Request.Form("SelectFinancialProject"))
'用戶自己輸入財務記錄所屬項目
else
TheProjectName=Cstr(Request.Form("TextFinancialProject"))
end if
'對用戶輸入的財務記錄信息進行校驗
if Len(Trim(TheName))=0 or Len(Trim(TheProjectName))=0 then
TheMessage="記錄中記錄經手人、記錄隸屬財務項目不能為空，無法添加此記錄，請重填記錄"
Warning=true
elseif not IsNumeric(Request.Form("FundTypeA")) or _
not IsNumeric(Request.Form("FundTypeB")) or _
not IsNumeric(Request.Form("FundTypeC")) or _
not IsNumeric(Request.Form("FundTypeD")) then
TheMessage="記錄中的款項字段中出現了非數字內容，無法添加此記錄，請重填記錄"
Warning=true
else
TheFundTypeA=CCur(Request.Form("FundTypeA") )
TheFundTypeB=CCur(Request.Form("FundTypeB") )
TheFundTypeC=CCur(Request.Form("FundTypeC") )
TheFundTypeD=CCur(Request.Form("FundTypeD") )
TheSummary=Cstr(Request.Form("Summary"))
TheRemark=Cstr(Request.Form("Remark"))
TheAccountName=Cstr(Session("Name"))
TheDate=Date
TheSum=CCur(TheFundTypeA+TheFundTypeB+TheFundTypeC+TheFundTypeD)
set RSDoExistName=conn.execute("select * from UserInfo where Name='" & TheName & "'")
set RSDoExistProject=conn.execute("select * from FinancialProject where FinancialProjectName='"_
& TheProjectName & "'")
'判斷用戶輸入的財務記錄經手人是否存在
if RSDoExistName.Eof then
TheMessage="您輸入的記錄中財務經手人不存在，請重新輸入(如果是新員工請添加此員工記錄)"
Warning=true
'判斷用戶輸入的財務記錄所屬財務項目是否存在
elseif RSDoExistProject.Eof then
TheMessage="您輸入的記錄中財務項目不存在，請重新輸入(如果是新項目，請添加財務項目)"
Warning=true
else
TheDepartment=RSDoExistName("Department")
'添加新財務記錄到數據庫
conn.Execute(" insert into FinancialRecord (Name, Department, ProjectName, "_
& "FundTypeA, FundTypeB, " _
& "FundTypeC, FundTypeD, Sum, Summary, Remark, AddDate, AccountName) values (" _
& "'" & TheName &"', " _
& "'" & TheDepartment &"', " _
& "'" & TheProjectName &"', " _
& "" & TheFundTypeA &", " _
& "" & TheFundTypeB &", " _
& "" & TheFundTypeC &", " _
& "" & TheFundTypeD &", " _
& "" & TheSum &", " _
& "'" & TheSummary &"', " _
& "'" & TheRemark &"', " _
& "'" & TheDate &"', " _
& "'" & TheAccountName & "') ")
TheMessage="記錄已提交成功，請填寫新記錄"
Warning=false
end if
end if
else
TheMessage = "請在下面填寫新的財務記錄"
Warning=false
end if
set RSDepartments = conn.Execute("select DepartmentName from Departments " _
& "order by DepartmentName")
set RSPersons = conn.Execute("select Name from UserInfo order by Name")
set RSFinancialProject=conn.Execute("select FinancialProjectName from FinancialProject"_
& " order by FinancialProjectName")
%>
<HTML>
<HEAD>
<TITLE>公司財務信息管理系統 </TITLE>
<META NAME="Generator" CONTENT="NetObjects Fusion 2.0.2 for Windows">
</HEAD>
<BODY BGCOLOR="">
<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr bgcolor=white><td valign=center ><img src="../ASPLogo3.jpg" width=796 height=100></td></tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr><td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td></tr>
</table>
<br>
<table width=800 border=0 bgcolor=#16A84D cellspacing=1 cellpadding=2 align=center>
<tr><td colspan=3>
<font color=white>
<P ALIGN="CENTER">公司內部辦公信息管理系統->公司財務信息管理系統->添加財務記錄 [當前用戶-<% response.write Session("Name") %>]
</font></td></tr>
<tr bgcolor=white >
<td><a href=".././html/home.asp"><font color="#10AD4D">返回內網主頁</font></a></td>
<td align=center>
<% if Warning=false then %>
<font color="#10AD4D" ><% response.write TheMessage %></FONT>
<% else %>
<font color=Red ><% response.write TheMessage %></font>
<% end if %>
</td>
<td align=right><a href="Finance.asp"><font color="#10AD4D">返回上一級網頁</font></a></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="10" colspan="4" valign="top" bgcolor="#FFFFFF">
<table width="100%" border="0" height="13" cellspacing="0" cellpadding="0" mm_noconvert="TRUE">
<tr>
<td height="13"><img src=".././image/banner2.jpg" width="800" height="12"></td>
</tr>
</table></td>
</tr>
</table>
<table width="800" border="0" bordercolor="#16A84D" align="center" cellpadding="3" cellspacing="0">
<tr><td>
<FORM ACTION="./AddFinancialRecord.asp" METHOD=POST>
<br>
<TABLE CELLPADDING=1 CELLSPACING=2 BORDER=1 bordercolor="#16A84D" WIDTH=800 align=center>
<TR VALIGN="center" ALIGN="center">
<TD WIDTH=20% bgcolor=#B5EFC7><img src="../image/finance1.jpg"></td>
<td>
<table CELLPADDING=1 CELLSPACING=1 BORDER=1 align=center width=100%>
<tr><td width=25％><font color="#16A84D">此財務記錄經手人姓名</font></td><td>
<table width=100% border=1>
<tr><td width=55%>
<INPUT TYPE="radio" Checked NAME="RadioFinancialRecordName" VALUE="FromList" ><font color="#16A84D">從列表中選擇此財務記錄經手人</font>
</td><td>
<SELECT NAME="SelectFinancialRecordName" >
<%
Do Until RSPersons.EOF
%>
<OPTION VALUE="<% Response.Write RSPersons("Name") %>"><% Response.Write RSPersons("Name") %></OPTION>
<%
RSPersons.Movenext
loop
%>
</SELECT>
</td></tr>
<tr><td>
<INPUT TYPE="radio" NAME="RadioFinancialRecordName" VALUE="Input" ><font color="#16A84D">輸入的此財務記錄經手人姓名</font>
</td><td>
<INPUT TYPE="text" NAME="TextFinancialRecordName" VALUE="" >
</td></tr></table>
</td></tr>
<tr><td><font color="#16A84D">項目名稱</font></td><td>
<table width=100% border=1>
<tr><td width=55%>
<INPUT TYPE="radio" Checked NAME="RadioFinancialProject" VALUE="FromList" ><font color="#16A84D">從列表中選擇此財務記錄所屬項目</font>
</td><td>
<SELECT NAME="SelectFinancialProject" >
<%
Do Until RSFinancialProject.EOF
%>
<OPTION VALUE="<% Response.Write RSFinancialProject("FinancialProjectName") %>"><% Response.Write RSFinancialProject("FinancialProjectName") %></OPTION>
<%
RSFinancialProject.Movenext
loop
%>
</SELECT>
</td></tr>
<tr><td>
<INPUT TYPE="radio" NAME="RadioFinancialProject" VALUE="Input" ><font color="#16A84D">輸入的此財務記錄所屬項目</font>
</td><td>
<INPUT TYPE="text" Checked NAME="TextFinancialProject" VALUE="" >
</td></tr></table>
</td></tr>
<tr><td><font color="#16A84D">款項名稱</font></td><td>
<table width=100% border=1>
<tr><td width=55%>
<font color="#16A84D">款項A</font>
</td><td>
<INPUT TYPE="text" NAME="FundTypeA" VALUE="0" > 元
</td></tr>
<tr><td>
<font color="#16A84D">款項B</font>
</td><td>
<INPUT TYPE="text" NAME="FundTypeB" VALUE="0" > 元
</td></tr>
<tr><td>
<font color="#16A84D">款項C</font>
</td><td>
<INPUT TYPE="text" NAME="FundTypeC" VALUE="0" > 元
</td></tr>
<tr><td>
<font color="#16A84D">款項D</font>
</td><td>
<INPUT TYPE="text" NAME="FundTypeD" VALUE="0" > 元
</td></tr>
</table>
</td></tr>
<tr><td ><font color="#16A84D">摘要</font></td><td><INPUT TYPE="text" NAME="Summary" VALUE="" size=50> </td></tr>
<tr><td ><font color="#16A84D">備注</font></td><td><INPUT TYPE="text" NAME="Remark" VALUE="" size=50> </td></tr>
<tr><td ><font color="#16A84D">會計經手人</font></td><td><% response.write Session("Name") %> </td></tr>
</table>
</td>
</TR>
</table>
<TABLE CELLPADDING=0 CELLSPACING=0 BORDER=1 WIDTH=800 align=center>
<TR VALIGN="top" ALIGN="center">
<TD WIDTH=100% align=center >
<INPUT TYPE="submit" NAME="AddRecord" VALUE="添加此記錄" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66">
<INPUT TYPE="reset" NAME="Reset" VALUE="重設此記錄" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66">
<INPUT TYPE="submit" NAME="AddFinancialProject" VALUE="添加刪除財務項目" style="border: 1px solid #34BB66; background-color: #B6EBCA; color: #34BB66">
</TD>
</TD>
</TR>
</table>
<br>
</FORM>
</td></tr></table>
</BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -