📄 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="20" readonly>　<input type="button" value="新建" onClick="ID.value='';State.value='新建';"></td></tr>
			<tr><td width="100%">货位：<input id="Stock" type="hidden"><input id=bdhStockText size=20>　<input type="button" value="搜索"  onClick="stockClick(this,bdhStockText,Stock)">　<input type="button" value="打开" onClick="openClick(this,bdhStockText)"></td></tr>
			<tr><td width="100%">编码：<input id="productID" type="hidden"><input id="pNum" size="30" ></td></tr>
			<tr><td width="100%">产品：<input id="pName" size="30" ></td></tr>
			<tr><td width="100%">上限：<input id="UpNum" size="30" ></td></tr>
			<tr><td width="100%">下限：<input id="DownNum" size="30" ></td></tr>
			<tr><td width="100%">搜索：<input type=text size=40 id=txtSearchInput>&nbsp;<input type=button value="Go" onclick="productClick(this,txtSearchInput,pNum,pName,productID)"></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()">　<input type="button" value="查看" onClick="SearchStockClick(this)"></td></tr>
		</table></td>
	</tr>
</table>
</div>
<iframe id=bdSelectArea width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<iframe id=bdSelectArea2 width=500 height=500 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<iframe id=bdLoadSave width=0 height=0 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
<div id=bdPanel width=100 height=60 style="position:absolute; display:none; border:1 solid #000000">
<div id=bdPanelMemo><input id=txtMemo size=30 OnFocus="this.select()" OnKeyPress="EnterKeyDo(panelMemoModify)">&nbsp;<input type=button value="确定" onclick="panelMemoModify()" id=button6 name=button6>&nbsp;<input type=button value="删除" onclick="panelDelete()" id=button7 name=button7></div>
<div id=bdPanelNumeric><input id=txtNumeric size=10 OnFocus="this.select()" OnKeyPress="EnterKeyDo(panelNumericModify)">&nbsp;<input type=button value="确定" onclick="panelNumericModify()" id=button8 name=button8>&nbsp;<input type=button value="删除" onclick="panelDelete()" id=button9 name=button9></div>
<div id=bdPanelProduct><input type=button value="删除" onclick="panelDelete()"></div>
</div>

</body>
<script>
function productClick(obj,txtSearch){
	obj.disabled=true;
	followControl(txtSearch,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,'Product.Open','find='+escape(txtSearch.value),cbProduct);
	obj.disabled=false;
}

function stockClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea2));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea2,'Stock.Open','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}

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

function cbProduct(ifrid, fun, data){
	if (fun=='data'){
		productID.value=data[0];
		pNum.value=data[1];
		pName.value=data[2];
		//pRec.value=data[3];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

</script>
<script>
var indata;
var wzjbutton;
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='修改';
		}
		wzjbutton.disabled=false;
		return;
	}
	wzjbutton.disabled=false;
}

function saveClick(obj){
	obj.disabled=true;
	wzjbutton=obj
	eboGet();
	IServer(bdLoadSave,RootID+'.Save',outdata,cbSave);
	outdata=new Array();
	
}

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

function openClick(obj,iCtrl){
	obj.disabled=true;
	followControl(iCtrl,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,'StockUpDown.Open','',cbOpen);
	obj.disabled=false;
}

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

function cbSearchStock(ifrid, fun, data){
	if (fun=='start')
		ifrid.document.title=getMainTitle();
}

function SearchStockClick(obj){
	obj.disabled=true;
	eboGet();
	var newindow=window.open('', 'liwei','toolbar=no,directories=no menubar=no,scrollbars=yes,resizable=yes,location=no,width=780,height=496,left=0,top=44');
	IServer(newindow,RootID+'.Search',outdata,cbSearchStock);
	outdata=new Array();
	obj.disabled=false;
}

</script>

<script Title="eboReg">

eboReg('ID',ID,'',deftextproc);
eboReg('Stock',Stock,'',deftextproc);
eboReg('StockText',bdhStockText,'',deftextproc);
eboReg('productID',productID,'',deftextproc);
eboReg('pNum',pNum,'',deftextproc);
eboReg('pName',pName,'',deftextproc);
//eboReg('pRec',pRec,'',deftextproc);
eboReg('UpNum',UpNum,'',deftextproc);
eboReg('DownNum',DownNum,'',deftextproc);
</script>


</html>
💿 文件大小 4916 K
👤 上传用户 heyuyutu
📂 所属分类 Java编程
🏷️ 相关标签

#进销 #软件源代码
⌨️ 快捷键说明

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