📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --> <!-- #include virtual="/Server/ebo.asp" -->
<!-- #include file = "Common.asp" -->
<HTML>
	<HEAD>
		<% 
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
%>
		<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>
			<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>
	</HEAD>
	<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" colspan=2><%=biTitle%></td>
									</tr>
									<tr>
										<td width="100%" height="18"></td>
									</tr>
									<tr>
										<td width="33%" align=right>状态：</td><td><input type="hidden" id="ID"><input size="20" value="新建" id="State" readonly>&nbsp;<input type="button" value="新建" onClick="ID.value='';State.value='新建';"></td>
									</tr>
									<tr>
										<td width="33%" align=right>一级期限：</td><td><input id="OneDay" size="20"> 天</td>
									</tr>
									<tr>
										<td width="33%" align=right>一级销售比率：</td><td><input id="OneSaleRate" size="20"> %</td>
									</tr>
									<tr>
										<td width="33%" align=right>二级期限：</td><td><input id="TwoDay" size="20"> 天</td>
									</tr>
									<tr>
										<td width="33%" align=right>二级销售比率：</td><td><input id="TwoSaleRate" size="20"> %</td>
									</tr>
									<tr>
										<td width="33%" align=right>三级期限：</td><td><input id="ThreeDay" size="20"> 天</td>
									</tr>
									<tr>
										<td width="33%" align=right>三级销售比率：</td><td><input id="ThreeSaleRate" size="20"> %</td>
									</tr>
									<tr>
										<td width="33%" align=right>备注：</td><td><input id="Memo" size="60"></td>
									</tr>
									<tr>
										<td width="100%" height="18" align="center" colspan=2><input type="button" value="确定" onClick="saveClick(this)">
											<input type="button" value="打开" onClick="openClick(this,OneDay)">
											<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>
		<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,iText){
	obj.disabled=true;
	followControl(OneDay,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='新建';
		//NameType.value=0;
	}
}

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

function stockClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea,'Stock.OpenChildOutStock','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}
function ProductClick(obj,idCtrl,idCtrlHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idCtrlHidden;
	IServer(bdSelectArea,'Product.Openv4','find='+escape(idCtrl.value),cbProductSelect);
	obj.disabled=false;
}
function cbProductSelect(ifrid, fun, data){
	if (fun=='data'){
		userSaveHidden.value=data[0];
		userSaveCtrl.value=data[2];
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

		</script>
		<script Title="eboReg">

eboReg('ID',ID,'',deftextproc);
eboReg('OneDay',OneDay,'',deftextproc);
eboReg('OneSaleRate',OneSaleRate,'',deftextproc);
eboReg('TwoDay',TwoDay,'',deftextproc);
eboReg('TwoSaleRate',TwoSaleRate,'',deftextproc);
eboReg('ThreeDay',ThreeDay,'',deftextproc);
eboReg('ThreeSaleRate',ThreeSaleRate,'',deftextproc);
eboReg('Memo',Memo,'',deftextproc);
		</script>
	</body>
</HTML>
⌨️ 快捷键说明

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