📄 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%>';
</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 id="ID" type="hidden"><input id="State" value="新建" size="23" readonly>　<input type="button" value="新建" onClick="ID.value='';State.value='新建';"></td></tr>
			<tr><td width="100%">　　名称：<input id="Name" size="30" >　<input type="button" value="打开"  onClick="openClick(this,Name)"></td></tr>
			<tr><td width="100%">　　科目：<input id="subjectName" type=hidden><input id="subjectCode" type=hidden><input id="subjectNameText" size="30" >　<input type="button" value="搜索"  onClick="subjectClick(this,subjectNameText,subjectName,subjectCode)"></td></tr>
			<tr><td width="100%">组合控制：<input id=checkOne type=checkbox onClick="linkSet(checkOne,subjectNameText1,link1)">　连接符：<SELECT id=link1 DISABLED><OPTION value=0>＋</OPTION><OPTION value=1>－</OPTION></SELECT></td></tr>
			<tr><td width="100%">　　科目：<input id="subjectName1" type=hidden><input id="subjectCode1" type=hidden><input id="subjectNameText1" size="30" DISABLED>　<input type="button" value="搜索"  onClick="subjectClick(this,subjectNameText1,subjectName1,subjectCode1)"></td></tr>
			<tr><td width="100%">组合控制：<input id=checkTwo type=checkbox onClick="linkSet(checkTwo,subjectNameText2,link2)">　连接符：<SELECT id=link2 DISABLED><OPTION value=0>＋</OPTION><OPTION value=1>－</OPTION></SELECT></td></tr>
			<tr><td width="100%">　　科目：<input id="subjectName2" type=hidden><input id="subjectCode2" type=hidden><input id="subjectNameText2" size="30" DISABLED>　<input type="button" value="搜索"  onClick="subjectClick(this,subjectNameText2,subjectName2,subjectCode2)"></td></tr>
			<tr><td width="100%">　　帐套：<input id="corpName" type=hidden><input id="corpNameText" size="30">　<input type="button" value="搜索"  onClick="corpClick(this,corpNameText,corpName)"></td></tr>
			<tr><td width="100%">单据类型：<input id="Type" type=hidden><input id="TypeName" type=hidden><input id="TypeText" size="30">　<input type="button" value="搜索"  onClick="typeClick(this,TypeText,Type,TypeName)"></td></tr>
			<tr><td width="100%">　　动作：<select name=Detail><option value=1>新建</option><option value=2>修改</option><option value=4>删除</option><option value=8>读取</option><option value=16>审核</option><option value=32>撤销</option><option value=64>转换</option></select></td></tr>
			<tr><td width="100%">　比较符：<input id=setCode size=30></td></tr>
			<tr><td width="100%">　　限额：<input id=setAbout size=30></td></tr>
			<tr><td width="100%">错误提示：<input id=errorAbout size=30></td></tr>
			<tr><td width="100%">　　备注：<input id="Memo" size="53" ></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)">　　　<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=bdSelectArea2 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=0 height=0 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</body>
<script>
var indata;

function cbLoad(ifrid, fun, data){
	if (fun=='data'){
		indata=data;
		eboSet();
		linkSet(checkOne,subjectNameText1,link1)
		linkSet(checkTwo,subjectNameText2,link2)
		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='修改';
		}
		return;
	}
}

function saveClick(obj){
	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='修改';
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

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

function Reset(){
	var i;
	for (i=0;i<_ebo.length;i++){
		_ebo[i].id.value='';
		State.value='新建';
	}
}

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

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

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

function subjectClick(obj,idCtrl,idCtrlHidden,idCtrlHidden1){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea2));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	userSaveHidden1=idCtrlHidden1;
	IServer(bdSelectArea2,'Subject.Open','find='+escape(idCtrl.value),cbsubjectClick);
	obj.disabled=false;
}
function corpClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea2));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea2,'Corperation.OpenJXB','find='+escape(idCtrl.value),cbcorpClick);
	obj.disabled=false;
}
function typeClick(obj,idCtrl,idCtrlHidden,idCtrlHidden1){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea2));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	userSaveHidden1=idCtrlHidden1;
	IServer(bdSelectArea2,'Privilege.Area','find='+escape(idCtrl.value),cbtypeClick);
	obj.disabled=false;
}

function linkSet(checkbox,subjectName,link){
	if (checkbox.checked==true){
		subjectName.disabled=false;
		link.disabled=false;
	}
	else{
		subjectName.disabled=true;
		link.disabled=true;
	}
}
</script>

<script Title="eboReg">

eboReg('ID',ID,'',deftextproc);
eboReg('Name',Name,'',deftextproc);
eboReg('Type',Type,'',deftextproc);
eboReg('TypeName',TypeName,'',deftextproc);
eboReg('TypeText',TypeText,'',deftextproc);
eboReg('Detail',Detail,'',defselectproc);
eboReg('subjectName',subjectName,'',deftextproc);
eboReg('subjectCode',subjectCode,'',deftextproc);
eboReg('subjectNameText',subjectNameText,'',deftextproc);
eboReg('corpName',corpName,'',deftextproc);
eboReg('corpNameText',corpNameText,'',deftextproc);
eboReg('setCode',setCode,'',deftextproc);
eboReg('setAbout',setAbout,'',deftextproc);
eboReg('errorAbout',errorAbout,'',deftextproc);
eboReg('Memo',Memo,'',deftextproc);
eboReg('checkOne',checkOne,'',defcheckproc);
eboReg('link1',link1,'',defselectproc);
eboReg('subjectName1',subjectName1,'',deftextproc);
eboReg('subjectCode1',subjectCode1,'',deftextproc);
eboReg('subjectNameText1',subjectNameText1,'',deftextproc);
eboReg('checkTwo',checkTwo,'',defcheckproc);
eboReg('link2',link2,'',defselectproc);
eboReg('subjectName2',subjectName2,'',deftextproc);
eboReg('subjectCode2',subjectCode2,'',deftextproc);
eboReg('subjectNameText2',subjectNameText2,'',deftextproc);
</script>


</html>
⌨️ 快捷键说明

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