📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" --><!-- #include virtual="/Server/cbLib.asp" -->
<!-- #include file="../common.asp" --><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 src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/grid.js"></script>
<BODY>
<div id=SelectArea></div>
<div id=PageCtrlArea></div>
</BODY>
<script title=User>
function gridInit(t){
	t[0].text='№';
	t[1].text='序号';
	t[1].width=1;
	t[2].text='编号';
	t[2].width=90;
	t[3].text='名称';
	t[3].width=200;
	t[4].text='规格';
	t[4].width=100;
	t[5].text='税率';
	t[5].width=1;
	t[6].text='零售价';
	t[6].width=80;
	t[6].formAlign='right';
	t[7].text='数量';
	t[7].width=60;
	t[7].formAlign='right';
	t[8].text='确认';
	t[8].width=60;
	t[8].formAlign='center';
}

function ecbDetail(eo,szEvent,x,y){
	if (szEvent=='MOUSECLICK'){
		var data=new Array();
		if (isNaN(x)) return;
		if (x<0||x>gDetail.data.length) return;
		data[0]=eo.data[x][0];
		//Add your code here
		//data[1]=eo.data[x][1];
		//End
		IClient('data',data);
		IClient('end','');
	}
}
</script>
<%
dim szSQL,szFind,iListWidth
iListWidth = 6 'ListWidth
szFind =Request("Find")
szSQL = "SELECT [resReceive].[ID] AS [ID],[resReceive].[ProductID] AS [ProductID],[biProduct].[Code] AS [Code],[biProduct].[Title] AS [Title],[biProduct].[Nvarchar1] AS [Spec],[biStock].[Title] AS [Stock],[resReceive].[Quantity] AS [Quantity],[resReceive].[Amount] AS [Amount] FROM [resReceive],[biStock],[biProduct] WHERE [resReceive].[AccountID]="&AccountID&" AND [resReceive].[IsDeleted]=0 AND [resReceive].[Stock]=[biStock].[ID] AND [resReceive].[ProductID]=[biProduct].[ID]" 
if len(szFind)<>0 then szSQL = szSQL & " AND ([biProduct].[Code] LIKE '%"& SQLInputParam(Request("Find")) &"%' OR [biProduct].[Title] LIKE '%"& SQLInputParam(Request("Find")) &"%' OR [biProduct].[SearchCode1] LIKE '%"& SQLInputParam(Request("Find")) &"%')"

'eboReg
eboReg 1, "List_0_", "ID", "", "cbRSDirect"
eboReg 1, "List_1_", "Code", "", "cbRSDirect"
eboReg 1, "List_2_", "Title", "", "cbRSDirect"
eboReg 1, "List_3_", "Spec", "", "cbRSDirect"
eboReg 1, "List_5_", "Amount", "", "cbRSDirect"
eboReg 1, "List_6_", "Quantity", "", "cbRSDirect"


eboReg 2, "List_rows", "i", "", "cbLocalVariable"
eboReg 2, "List_cols", "iListWidth", "", "cbLocalVariable"
eboReg 2, "MaxPage", "iMaxPage", "", "cbLocalVariable"
'End

dim iPage,iRows,iMaxPage
iMaxPage = 0
iPage = GetLong(Request("Page"),1)	'default page pos
iRows = GetLong(Request("Rows"),10)	'default rows

dim rs,i
i = 0
Response.Write "<script>" & VBCrLf
if szSQL <> "" then
	Set rs = Server.CreateObject("ADODB.RecordSet")	rs.open szSQL,Conn,1,1
	iMaxPage = Int((rs.RecordCount+iRows-1)/iRows)	if rs.RecordCount > 0 then 	rs.move iPage*iRows-iRows	IData2d 1,1	Do While Not rs.EOF And i < iRows		eboGet 1, rs, nothing
		i = i + 1
		rs.MoveNext	Loop	Set rs = Nothingend if

IData2d 0,2
eboGet 2, nothing, nothing
Response.Write "</script>" & VBCrLf
%>
<script>
requestSet('Page','<%=iPage%>');
requestSet('Rows','<%=iRows%>');

var indata = IDataEnd();

var gDetail = new ZYDGRID(new ZYDGRIDFORIEBUG(),SelectArea,indata.item('List_rows'),8,'100%','');
gridInit(gDetail.title);
var gPageCtrl = new ZYDPAGECTRL(new ZYDPAGECTRLFORIEBUG(),PageCtrlArea,request('Page'),indata.item('MaxPage'));
</script>

<script title=eboReg>
function mydetailproc(method,ebo){
	switch (method){
		case EBO_GET:
			break;
		case EBO_SET:
			var i,j;
			var rows=parseInt(indata.item(ebo.serversidename+'_rows'));
			var cols=parseInt(indata.item(ebo.serversidename+'_cols'));
			ebo.id.data.length=0;
			for (i=0;i<rows;i++){
				ebo.id.data[i]=new Array();
				for (j=0;j<cols;j++)
					ebo.id.data[i][j]=indata.item(ebo.serversidename+'_'+j+'_'+i);
				ebo.id.data[i][j-1]='<input type=text id="'+ebo.serversidename+'_price_'+i+'" style="text-align: right" size=6 value="'+fixFloat(ebo.id.data[i][j-1]/indata.item(ebo.serversidename+'_'+j+'_'+i))+'" onfocus="select()">';
				ebo.id.data[i][j]='<input type=text id="'+ebo.serversidename+'_qty_'+i+'" style="text-align: right" size=6 value="'+indata.item(ebo.serversidename+'_'+j+'_'+i)+'" onfocus="select()">';
				ebo.id.data[i][j+1]='<input type=button value="添加" onclick="btnAdd(\''+i+'\',\''+ebo.serversidename+'\')">';
			}
			break;
		default:
			break;
	}
	return (true);
}

eboReg('List',gDetail,'',mydetailproc);
</script>

<script title=User>
eboSet();
gDetail.refreshAll();

function btnAdd(clickID,ServerSideName){
	var e,i,PriceNameText,price,QtyNameText,qty,data=new Array();
	
	try{
		QtyNameText = ServerSideName+'_qty_'+clickID;
		PriceNameText = ServerSideName+'_price_'+clickID;
		i = parseInt(clickID);
		if (isNaN(i)) return;
		qty=parseFloat(eval(QtyNameText).value);
		if (isNaN(qty)) return;
		price=parseFloat(eval(PriceNameText).value);
		if (isNaN(price)) return;
		if (i<0||i>gDetail.data.length) return;
		data[0]=indata.item('List_0_'+i);
		data[1]=indata.item('List_1_'+i);
		data[2]=indata.item('List_2_'+i);
		data[3]=indata.item('List_3_'+i);
		data[4]=indata.item('List_4_'+i);
		data[5]=price;
		data[6]=qty;
		IClient('data',data);
	}catch(e){return;}
}

function IClientSetSize(){
	document.body.style.borderWidth=1;
	document.body.style.borderColor='#000000';
	document.body.style.borderStyle='solid';
	IClient('setSize',new Array(document.body.scrollWidth+2,document.body.scrollHeight+2));
}
IClientSetSize();
</script>
</HTML>
⌨️ 快捷键说明

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