📄 salaryedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑调薪信息</title>
<link rel="stylesheet" href="../../style.css">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.empid.value==""){
   alert("请选择要调薪员工！");
   form1.empname.focus;
   return false;
 } 
return true;
}
</Script>
</head>
<%
  Dim EmpId,EmpName,DepName,CreateDate,OldSal,NewSal,Reason,DepId
  Dim rs,rsEmp,SId
  '变量初始化
  Action = "add"
  EmpId = 0
  EmpName = "------"
  DepName = ""
  CreateDate = Date()
  OldSal = 0
  NewSal = 0
  Reason = ""
  Dim Action
  '读取参数action
  Action = Request.QueryString("action")
  SId = Request.QueryString("sid")
  '编辑工资项目记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT s.*,e.EmpName,d.DepName,e.DepId From Salary s,Employees e,Departments d Where e.DepId=d.DepId AND s.EmpId=e.EmpId AND s.Id=" & SId
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      EmpId = rs("EmpId")
      CreateDate = rs("CreateDate")
      OldSal = rs("OldSalary")
      NewSal = rs("NewSalary")
      Reason = rs("Reason")
      EmpName = rs("EmpName")
      DepName = rs("DepName")
      DepId = rs("DepId")
    End If
  End If
%>
<%'asp块    
sqlEmp = "Select * From Employees"
Set rsEmp = Server.CreateObject("ADODB.RECORDSET")
rsEmp.Open sqlEmp,Conn,1,1 
%>    
<Script Language="JavaScript">
var  temp,temp_2;//////////////javascript块    
temp=0;///////////////////for循环变量初始化    
Related  =  new  Array();//////////////////////数组，用来存放三级组织的id，名称，和对应的父ID    
</script>
<%    
temp_2  =  0  '一个临时变量，用来存放三级组织的个数    
Do While Not  rsEmp.EOF  '循环第三级组织   
  If IsNull(rsEmp("Salary")) Then
    OldSal = 0
  Else
    OldSal = rsEmp("Salary")
  End If 
%>    
<Script Language="JavaScript">
////////////4维分别对应的员工ID，员工姓名、部门编号、工资    
Related[<%=temp_2%>]  =  new  Array("<%=rsEmp("EmpId")%>","<%=rsEmp("EmpName")%>","<%=rsEmp("DepId")%>","<%=OldSal%>");    
</script> 
<%    
  temp_2  =  temp_2  +  1    
  rsEmp.movenext() 
Loop   
%>    
<Script Language="JavaScript">
temp  =  <%=temp_2%>;    
function  SelEmp(did){     
  var  id  =  did; // 接受二级菜单的选择的item的索引值    
  document.form1.empid.length=0;  //初始化第三级菜单的长度，下标从0开始    
  var  i  =  0;    
  /////////////////初始化第三级菜单的text和value属性的值，第一个参数值是text  ”-------”,二是////////value  空值    
  document.form1.empid.options[0]=new  Option('------',''); 
  document.form1.oldsal.value = 0;   
  ////////////循环数组，用数组的第三维数（父ID）
  for  (i=0;i<temp;  i++){
    if  (Related[i][2]  ==  id){
      document.form1.empid.options[document.form1.empid.length]  =  new  Option(Related[i][1],  Related[i][0]);
    }
  } 
}
function SetSalary(eid)
{
  var  id  =  eid; // 接受员工列表的选择的item的索引值    
  document.form1.oldsal.value = 0;  //初始化调薪前工资金额
  var  i  =  0;    
  ////////////循环数组，用数组的第一维数（EMPID）
  for  (i=0;i<temp;  i++){
    if  (Related[i][0]  ==  id){
      document.form1.oldsal.value = Related[i][3];
    }
  } 
}
</script>
<body leftmargin="1" topmargin="0">
<form name="form1" method="POST" action="SalarySave.asp?action=<%=Action%>&sid=<%=SId%>" onsubmit="return CheckFlds()">
<br>
 <table align="center" border="1" cellspacing="2" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" background="../pic/salary.jpg" height="90">
      <p align="center"><b><font face="华文彩云" color="#000080" size="6">调薪信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">选择部门</td>
      <td width="40%"><select size="1" name="depid" onchange="SelEmp(form1.depid.options[form1.depid.selectedIndex].value);">
      <% 
      	' 读取部门信息
      	Dim rs2
      	sql = "SELECT * FROM Departments WHERE UpperId=0"
      	Set rs1 = Conn.Execute(sql)
    	Do While Not rs1.EOF
      %>
          <option
      <%  If rs1("DepId") = DepId Then %>
           selected
      <%  End If %> value="<%=rs1("DepId")%>"><%=rs1("DepName")%></option>
      <%  
      	  ' 读取二级部门
		  sql = "SELECT * FROM Departments WHERE UpperId=" & rs1("DepId")
		  Set rs2 = Conn.Execute(sql)
		  Do While Not rs2.Eof
       %>
	        <option 
	        <%  If rs2("DepId") = DepId Then %>
                  selected
            <%  End If%>
            value="<%=rs2("DepId")%>">-- <%=rs2("DepName")%></option>	
      <%
            rs2.MoveNext
          Loop
          rs2.Close
          rs1.MoveNext 
        Loop
        rs1.Close
      %>
        </select>&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">员工姓名</td>
      <td width="40%"><select size="1" name="empid" onchange="SetSalary(form1.empid.options[form1.empid.selectedIndex].value)">
      <%If Action = "edit" Then
          '读取指定部门下员工信息
          sqlE = "Select * From Employees Where DepId=" & DepId
          Set rsE = Server.CreateObject("ADODB.RECORDSET")
		  rsE.Open sqlE,Conn,1,1 
		  Do While Not rsE.EOF 
		    If rsE("EmpId")=EmpId Then
		    %>
		    <option value="<%=EmpId%>" selected><%=rsE("EmpName")%></option>
		<%  Else   %>
		<option value="<%=rsE("EmpId")%>"><%=rsE("EmpName")%></option>
		<%  End If
		    rsE.MoveNext()
		  Loop
		Else  
		%>
      <option value="<%=EmpId%>" selected><%=EmpName%></option>
      <%End If%>
     </select>&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">调薪前工资</td>
      <td><input type="text" name="oldsal" size="20" value="<%=OldSal%>" ReadOnly>&nbsp;</td>
      <td bgcolor="#CEE7FF">调薪后工资</td>
      <td><input type="text" name="newsal" size="20" value="<%=NewSal%>">&nbsp;</td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">调薪日期</td>
      <td colspan="3"><input type="text" name="cdate" size="20" value="<%=CreateDate%>"></td>
    </tr>
    <tr>
       <td bgcolor="#CEE7FF">调薪原因</td>
      <td colspan="3"><textarea rows="2" name="reason" cols="55"><%=Reason%></textarea></td>
    </tr>
 </table>
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -