📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.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>
<div id=bdMenu>
</div>

<div id=bdHead>
<INPUT id=biID type=hidden>
<table width="400" align="center"><tr><td>
<TABLE cellSpacing=1 cellPadding=1 width=100%>
<TR><TD align=center><%=biTitle%></TD></TR>
<TR><TD>&nbsp;</TD></TR>
<tr><td>状态：<input id="state" value="新建" size="23" readonly>　<input type="button" value="新建" onClick="biID.value='';state.value='新建';"></td></tr>
<TR><TD>上级科目：<input id=biCodeUp size=24>&nbsp;<input type=button value="选择" onclick="subjectClick(this,biCodeUp,biCodeUp)"></TD></TR>
<TR><TD>科目编码：<input id=biCode size=30>&nbsp;<input type=button value="打开" onclick="openClick(this, biCode)"></TD></TR>
<TR><TD>科目名称：<input id=biName size=30></TD></TR>
<TR><TD>科目类型：<INPUT id=biType type=hidden><input id=biTypeText size=30>&nbsp;<input type=button value="选择" onclick="subjectTypeClick(this,biTypeText,biType)"></TD></TR>
<TR><TD>余额方向：<select id=biBalDir><option value=0 selected>借</option><option value=1>贷</option></select></TD></TR>
<TR><TD>币种：<INPUT id=biCurrency type=hidden><input id=biCurrencyText size=10>&nbsp;<input type=button value="选择" onclick="currencyClick(this,biCurrencyText,biCurrency)"></TD></TR>
</TABLE></td></tr></table>
</div>
<br>
<div id=bdControl align="center">
<input type=button value="保存" onclick="saveClick(this)">&nbsp;<input type=button value="清空" onclick="resetClick()">
</div>
<iframe id=bdSelectArea 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>
</BODY>
<script>
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{
			biID.value=data[0];
			state.value='修改';
			alert('保存成功！');
		}
		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,idCtrl){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,RootID+'.Open','Find='+idCtrl.value,cbOpen);
	obj.disabled=false;
}

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 currencyClick(obj,idCtrl,idHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idHidden;
	IServer(bdSelectArea,'Currency.Open','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}
function subjectTypeClick(obj,idCtrl,idHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	userSaveCtrl=idCtrl;
	userSaveHidden=idHidden;
	IServer(bdSelectArea,'SubjectType.Open','find='+escape(idCtrl.value),cbCommonSelect);
	obj.disabled=false;
}

function cbSubjectSelect(ifrid, fun, data){
	if (fun=='data'){
		biCode.value=data[1];
		biCodeUp.value=data[2];
		biType.value=data[3];
		biTypeText.value=data[4];
		biTypeText.disabled=true;
		biID.value='';
		state.value='新建';
		for (var i=0;i<biBalDir.length;i++){
			if (biBalDir.options[i].text==data[5])
				biBalDir.selectedIndex=i;
		}
		biBalDir.disabled=true;
		return;
	}
	return defcbiFrame(ifrid, fun, data);
}

function subjectClick(obj,idCtrl,idHidden){
	obj.disabled=true;
	followControl(idCtrl,getFrameElement(bdSelectArea));
	IServer(bdSelectArea,'Subject.Open','DisPlay=1&find='+escape(idCtrl.value),cbSubjectSelect);
	obj.disabled=false;
}

function resetClick(){
	biTypeText.disabled=false;
	biID.value='';
	state.value='新建';
	biBalDir.disabled=false;
	biCode.value='';
	biCodeUp.value='';
	biType.value='';
	biTypeText.value='';
	biCurrency.value='';
	biCurrencyText.value='';
	biName.value='';
}
</script>
<script title=eboReg>
eboReg('ID',biID,'',deftextproc);
eboReg('Code',biCode,'',deftextproc);
eboReg('Name',biName,'',deftextproc);
eboReg('Type',biType,'',deftextproc);
eboReg('TypeText',biTypeText,'',deftextproc);
eboReg('BalDir',biBalDir,'',defselectproc);
eboReg('Currency',biCurrency,'',deftextproc);
eboReg('CurrencyText',biCurrencyText,'',deftextproc);
</script>
</HTML>
⌨️ 快捷键说明

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