📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" -->
<!-- #include file = "Common.asp" --><%

dim eBI,rs
dim biTitle, biIServerFun

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
if eBI.biGetDetailByType(Conn, CLng(biType), rs) = 1 then
	biTitle = CStr(rs("InfoName"))
	biIServerFun = CStr(rs("ISVRFUN"))
	set rs = nothing
end if
set eBI = Nothing
%><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script></HEAD>
<script>
var RootID='<%=biIServerFun%>';
var owner=<%=Owner%>;
</script>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>

<body leftmargin="0" topmargin="20">

<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
	<tr><td width="100%">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
	<tr><td width="100%">
		<table border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr><td width="100%" align="middle" height="18">修改<%=biTitle%>信息</td></tr>
			<tr><td width="100%" height="18"></td></tr>
			<tr><td width="100%">状态：<input type="hidden" id="ID"><input id="State" size="23" value="新建" readonly>　<input type="button" value="新建" onClick="ID.value='';State.value='新建';abled();" ></td></tr>
			<tr><td width="100%">操作员：<input id="Name" style="width:155px" >　<input type="button" value="打开"  onClick="openClick(this)"></td></tr>
			<tr><td width="100%">所属帐套：<input id=AccID type=hidden ><input id="AccIDText" size="40">&nbsp;<input type=button value="搜索" id=CorpButton onclick =corpClick(this,AccIDText,AccID)></td></tr>
			<tr><td width="100%">旧密码：<input id="oldPassword" size="30" type=password></td></tr>
			<tr><td width="100%">新密码：<input id="newPassword" size="30" type=password></td></tr>
			<tr><td width="100%">重复密码：<input id="rePassword" size="30" type=password></td></tr>
			<tr><td width="100%" height="18"></td></tr>
			<tr><td width="100%" height="18" align="middle">
				<input type="button" value="保存" onClick="saveClick(this)">&nbsp;
				<input type="button" value="删除" onClick="DeleteClick(this)">&nbsp;
				<input type="button" value="恢复" onClick="UnDeleteClick(this)">&nbsp;
				<input type="button" value="取消" onClick="Reset()"></td></tr>
		</table></td>
	</tr>
</table>
<iframe id=bdSelectArea width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe></td></tr></table>
<iframe id=bdLoadSave width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</body>
<script>
function disabled(){
	AccIDText.readOnly=true;
	CorpButton.disabled=true;
}

function abled(){
	AccIDText.readOnly=false;
	CorpButton.disabled=false;
}

var indata;

function cbLoad(ifrid, fun, data){
	if (fun=='data'){
		indata=data;
		eboSet();
		return;
	}
}

function loadClick(id){
	if (!isNaN(parseInt(id)) && parseInt(id)!=0)
		IServer(bdLoadSave,RootID+'.Load','ID='+id,cbLoad);
}

loadClick(request('ID'));

function cbSave(ifrid, fun, data){
	if (fun=='data'){
		if (isNaN(parseInt(data[0]))||parseInt(data[0])==0)
			alert('保存失败！');
		else{
			ID.value=data[0];
			alert('保存成功！');
			State.value='修改';
			disabled();
		}
		return;
	}
}

function saveClick(obj){
    if (Name.value.length==0){
        alert('请输入员工姓名！');
        return;
    }
    if (AccID.value.length==0){
        alert('请选择员工账套！');
        return;
    }
	if (newPassword.value!=rePassword.value){
		alert ('新密码和重复密码不同！');
		return;
	}
	obj.disabled=true;
	eboGet();
	IServer(bdLoadSave,RootID+'.Save',outdata,cbSave);
	outdata=new Array();
	obj.disabled=false;
}

function cbOpen(ifrid, fun, data){
	if (fun=='data'){
		loadClick(data[0]);
		State.value='修改';
		disabled();
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function openClick(obj){
	obj.disabled=true;
	followControl(Name,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,RootID+'.Open1','find='+Name.value,cbOpen);
	obj.disabled=false;
}

function Reset(){
	var i;
	for (i=0;i<_ebo.length;i++){
		_ebo[i].id.value='';
		State.value='新建';
		abled();
	}
}
function unshowFrameElement(){
	for (var i=0;i<document.all.length;i++)
		if (document.all(i).tagName=='IFRAME')
			document.all(i).style.display='none';
}
document.onclick=unshowFrameElement;

var userSaveCtrl, userSaveHidden;
function cbCommonSelect(ifrid, fun, data){
	if (fun=='data'){
		userSaveHidden.value=data[0];
		userSaveCtrl.value=data[1];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function corpClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea,'Corperation.OpenChild','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}
function cbDelete(ifrid, fun, data){
	if (fun=='data'){	
		if (isNaN(parseInt(data[0]))||parseInt(data[0])==0)
			alert('删除失败！');
		else{			
			alert('删除成功！');
			Reset();
		}
		return;
	}
}

function DeleteClick(obj){	
	if (ID.value.length==0) alert ('无当前记录！');
	else{
		obj.disabled=true;
		IServer(bdLoadSave,RootID+'.Delete','ID='+ID.value,cbDelete);
		obj.disabled=false;
	}		
}

function cbUnDelete(ifrid, fun, data){
	if (fun=='data'){	
		if (isNaN(parseInt(data[0]))||parseInt(data[0])==0)
			alert('恢复失败！');
		else{			
			alert('恢复成功！');
			State.value='修改';
			disabled();
		}
		return;
	}
}

function UnDeleteClick(obj){	
	if (ID.value.length==0) alert ('无当前记录！');
	else{
		obj.disabled=true;
		IServer(bdLoadSave,RootID+'.UnDelete','ID='+ID.value,cbUnDelete);
		obj.disabled=false;
	}		
}

</script>

<script Title="eboReg">

eboReg('ID',ID,'',deftextproc);
eboReg('AccID',AccID,'',deftextproc);
eboReg('AccIDText',AccIDText,'',deftextproc);
eboReg('Name',Name,'',deftextproc);
eboReg('oldPassword',oldPassword,'',deftextproc);
eboReg('newPassword',newPassword,'',deftextproc);
eboReg('rePassword',rePassword,'',deftextproc);
</script>


</html>
⌨️ 快捷键说明

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