addnew0.asp

来自「功能齐全的oa系统」· ASP 代码 · 共 331 行

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<%
Sub Main
%>
<%
Dim ObjDB,rs,vrs
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB

'判断是否可以加员工记录

set vrs=server.CreateObject("Adodb.recordset")
vrs.open "select StaID from v_Hrms_Com_Dep_Sta",ObjDB,1,1
if vrs.eof and vrs.bof then
%>
<script language="JavaScript">
alert("请您与管理员联系！先添加公司、部门、岗位等预备信息！！");
location.href="list.asp";
</script>
<%
response.End()
end if
vrs.close
set vrs=nothing
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim count
set rs=server.createobject("adodb.recordset")
rs.open "select * from v_Hrms_Com_Dep_Sta ",ObjDB,1,1
count = 0
do while not rs.eof 
%>
subcat[<%=count%>] = new Array("<%= trim(rs("DepName"))%>","<%= rs("ComID")%>","<%= rs("DepID")%>","<%= rs("StaName")%>","<%= rs("StaID")%>");
<%
        count = count + 1
        rs.movenext
        loop
        rs.close
%>
		
onecount=<%=count%>;


function changelocation(locationid)
  	{
		document.myform.Department.length = 0; 
	
		var locationid=locationid;
		var i,j,k;
		var Subid;
		var DepID;
		var StaID;
		
		DepID = "";
		StaID = "";
		document.myform.Station.length = 0
		k=0;
		for (i=0;i < onecount; i++)
	   {
			  if (subcat[i][1] == locationid)
			 { 
				 if (DepID.indexOf(subcat[i][2]) == -1)
				{
					document.myform.Department.options[document.myform.Department.length] = new Option(subcat[i][0], subcat[i][2]);
					k=k+1;
					if (k == 1) 
					{
						Subid=subcat[i][2];
					}
				}
				DepID = DepID + "," + subcat[i][2];
			 }        
	   }
			
		for (j=0;j < onecount; j++)
		{
			if ((subcat[j][1] == locationid) && (Subid == subcat[j][2]))
			{
				if (StaID.indexOf(subcat[j][4]) == -1)
				{
						document.myform.Station.options[document.myform.Station.length] = new Option(subcat[j][3], subcat[j][4]);
				}
			StaID = StaID + "," + subcat[j][4];
			}
		}
    }    
</script>  
	  
<script language = "JavaScript">
var onecountDep;
onecountDep=0;
subcatDep = new Array();
<%
<!--读取分类字段赋给JS数组-->
dim countDep
<!-- set rs=server.createobject("adodb.recordset") -->
rs.open "select distinct* from v_Hrms_Dep_Job ",ObjDB,1,1
countDep = 0
do while not rs.eof 
%>
subcatDep[<%=countDep%>] = new Array("<%= trim(rs("JobName"))%>","<%= rs("ID")%>","<%= rs("Pos")%>");
<%
        countDep = countDep + 1
        rs.movenext
        loop
        rs.close
%>
		
onecountDep=<%=countDep%>;

function changelocationDep(locationid)
    {
    document.myform.Station.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecountDep; i++)
        {
            if (subcatDep[i][1] == locationid)
            { 
             document.myform.Station.options[document.myform.Station.length] = new Option(subcatDep[i][0], subcatDep[i][2]);
            }        
        }
        
    }    
</script> 

<form action="ChkAdd.asp" method="post" name=myform>
  
<table width="100%" class=Ltable align="left" cellpadding=3 cellspacing=1 >
  <tr class=LHtr> 
    <td height="32" colspan="4">新增基本员工信息</td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">姓名：</td>
    <td width="30%"> <input type="text" name="Name"> </td>
    <td width="13%" align="left">民族：</td>
    <td><input name="People" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">性别：</td>
    <td width="30%"> <p> 
        <label> 
        <input name="Sex" type="radio" value="男" checked>
        男</label>
        <label> 
        <input type="radio" name="Sex" value="女">
        女</label>
        <br>
      </p></td>
    <td width="13%" align="left">婚姻状况：</td>
    <td width="35%"> <label> 
      <input name="IsMarried" type="radio" value="未婚" checked>
      未婚</label> <label> 
      <input type="radio" name="IsMarried" value="已婚">
      已婚</label></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">出生年月：</td>
    <td width="30%"> <input name="Birth" type="text" readonly onclick="InputDate(this)"> </td>
    <td width="13%" align="left">政治面貌：</td>
    <td><input name="PoliticalVisage" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">籍贯：</td>
    <td width="30%"> <input name="HKaddress" type="text"> </td>
    <td width="13%" align="left">教育方式：</td>
    <td><input name="EducationStyle" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">出生地：</td>
    <td width="30%"> <input name="BirthAddress" type="text"> </td>
    <td width="13%" align="left">最终毕业学校：</td>
    <td> 
      <input name="GraduateSchool" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">身份证号码：</td>
    <td width="30%"> <input name="IDCard" type="text"></td>
    <td width="13%" align="left">专业类别：</td>
    <td><select name="SpecType" class="SelectWidth">
        <option value="1" selected>管理类</option>
        <option value="2">财务类</option>
        <option value="3">技术类</option>
        <option value="4">其它</option>
      </select> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">外语及程度：</td>
    <td width="30%"> <input name="ForLan" type="text"> </td>
    <td width="13%" align="left">专业：</td>
    <td> 
      <input name="Speciality" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">公司：</td>
    <td width="30%"> 
    <%
		rs.open "select ID,DepName from t_Hrms_Dep where ParentID=0",ObjDB,1,1
	%>
    <select class="SelectWidth" name="Company" onChange="changelocation(document.myform.Company.options[document.myform.Company.selectedIndex].value)">
    	<option selected value="<%=rs("ID")%>"><%=trim(rs("DepName"))%></option>
    <%      
		dim selclass
		selclass=rs("ID")
		rs.movenext
		do while not rs.eof
		%>
        <option value="<%=rs("ID")%>"><%=trim(rs("DepName"))%></option>
        <%
		 rs.movenext
		 loop
		rs.close
	%>
     </select> </td>
    <td width="13%" align="left">毕业时间：</td>
    <td><input name="GraduateTime" readonly type="text" onclick="InputDate(this)"> </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">部门：</td>
    <td width="30%"> <select class="SelectWidth" name="Department"  onChange="changelocationDep(document.myform.Department.options[document.myform.Department.selectedIndex].value)">
        <%
		rs.open "select distinct ID,DepName from t_Hrms_Dep where ParentID="&selclass ,ObjDB,1,1
		%>
        <option value="<%=rs("ID")%>" selected><%=rs("DepName")%></option>
        <%
			dim selDep
			selDep=rs("ID")
			rs.movenext
			do while not rs.eof
		%>
        <option value="<%=rs("ID")%>"><%=rs("DepName")%></option>
        <%
			rs.movenext
			loop
			rs.close
		%>
      </select></td>
    <td width="13%" align="left">学历：</td>
    <td><input name="GraduateDegree" type="text" id="GraduateDegree"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">岗位：</td>
    <td width="30%">
		<select class="SelectWidth" name="Station">
        <%
		rs.open "select distinct Pos,JobName from v_Hrms_Dep_Job where ID="&selDep,ObjDB,1,1
		%>
		<option value="<%=rs("Pos")%>" selected><%=rs("JobName")%></option>
		<% 
			rs.movenext
			do while not rs.eof
			%>
			<option value="<%=rs("Pos")%>"><%=rs("JobName")%></option>
			<%
			rs.movenext
			loop
			rs.close
		%>
      </select>
	</td>
    <td width="13%" align="left">学位：</td>
    <td><input name="Degree" type="text" id="Degree"> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">职称类别：</td>
    <td width="30%"><select class="SelectWidth" name="TechDegree">
        <option value="0" selected>无职称</option>
        <option value="1">高级职称</option>
        <option value="2">中级职称</option>
        <option value="3">初级职称</option>
      </select> </td>
    <td width="13%" align="left">工作年限：</td>
    <td> <input name="WorkTime" type="text" size="5">
      年</td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">职称名称：</td>
    <td width="30%"><input name="TechDegreeName" type="text" id="TechDegreeName"> </td>
    <td width="13%" align="left">联系电话：</td>
    <td> <input name="Tel" type="text"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">邮编：</td>
    <td colspan="3"> <input name="Zip" type="text"> </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">地址：</td>
    <td colspan="3"><input name="Address" type="text" size="80%"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">E_Mail：</td>
    <td colspan="3"><input name="E_Mail" type="text" size="80%"></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">接受的培训：</td>
    <td colspan="3"><textarea name="TrainProcess" cols="80%" rows="5" id="TrainProcess"></textarea> 
    </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;学习经历：</td>
    <td colspan="3"><textarea name="StudyProcess" cols="80%" rows="5"></textarea> 
    </td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;工作经历：</td>
    <td colspan="3"><textarea name="WorkProcess" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;社会关系：</td>
    <td colspan="3"><textarea name="SocialRelation" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;&nbsp;备注：</td>
    <td colspan="3"><textarea name="Des" cols="80%" rows="5"></textarea></td>
  </tr>
  <tr class=Ltr> 
    <td width="13%" align="left">&nbsp;</td>
    <td colspan="3"><input type="submit" name="btnSubmit" class=Button value="提  交"> <input type="button" name="btnCancel" class=Button value="取  消" onClick="location.href='List.asp'"> 
    </td>
  </tr>
</table>
<%end sub%>
<!-- #include file="Templet.asp" -->