在文本框上按F7弹出供应商选择对话框,双击回填供应商名称

原创 2004年09月14日 18:12:00

//asp.net+javascript

//[*/***]index.aspx
<html>
function SearchSupply(supplyName)
{
 var ret= window.showModalDialog('showsupply.aspx?pSupplyName='+supplyName,window,'scroll:no;status:no;center:yes;dialogHeight:280px;dialogWidth:480px;');
 if(ret!=null)
 {
  var newret = ret.split(",")
  document.all.txtSupplyName.value=newret[1];   
 }
}

function onhelpkeydown()
{
 if (event.keyCode==118)
 {
  var vSupplyName=document.all.txtSupplyName.value;
  event.srcElement.value="正在查询,请稍候......";
  if (event.srcElement.id=="txtSupplyName")
  {
   SearchSupply(vSupplyName);
  }
 }
}

厂家名称<asp:textbox id="txtSupplyName" runat="server" Width="216px"></asp:textbox>
</html>

//[**/**]index.aspx.cs
private void Page_Load(object sender, System.EventArgs e)
{
 txtSupplyName.Attributes["onkeydown"]="onhelpkeydown();";
}

//[***/*]showsupply.aspx
<html>
<head>
<script language="javascript">
function retvalue()
{
 window.returnValue=document.all.ListBox1.value;
 window.opener=null;
 window.close();
}
</script>
</HEAD>
<body MS_POSITIONING="GridLayout">
 <form id="Form1" method="post" runat="server">
  <asp:listbox id="ListBox1" runat="server" Height="216px" Width="456px"></asp:listbox>
  <DIV onclick="javascript:window.self.close()">【关闭窗口】</DIV>
 </form>
</body>
</HTML>

//[****/]showsupply.aspx.cs
public class showsupply : System.Web.UI.Page
{
 protected System.Web.UI.WebControls.ListBox ListBox1;
 private string cnnStr=System.Configuration.ConfigurationSettings.AppSettings.Get("ConnectionString");
 
 private void Page_Load(object sender, System.EventArgs e)
 {
  string name=Request.QueryString["pSupplyName"].ToString().Trim();
  ListBox1.Attributes["ondblclick"]="retvalue();"; 
  ListBox1.Items.Clear();
  OleDbConnection cnn=null;
  OleDbCommand cmd=null;
  OleDbDataReader dataReader=null;
  string sql=null;
  sql="select supplyid,supplyname from supplys where supplyname like '%"+ name +"%'";
  cnn=new OleDbConnection(cnnStr);   
  cnn.Open();
  cmd=new OleDbCommand(sql,cnn);

  dataReader=cmd.ExecuteReader();
  while(dataReader.Read())
  {
   ListBox1.Items.Add(dataReader.GetString(0)+","+dataReader.GetString(1));
  }
  dataReader.Close();
  cmd.Dispose();
  cnn.Close();
  if(ListBox1.Items.Count<=0)
  {
   ListBox1.Items.Add(",,,");
  }
 }
}

深入理解Java:注解(Annotation)--注解处理器

如果没有用来读取注解的方法和工作,那么注解也就不会比注释更有用处了。使用注解的过程中,很重要的一部分就是创建于使用注解处理器。Java SE5扩展了反射机制的API,以帮助程序员快速的构造自定义注解处...
  • axiong53
  • axiong53
  • 2016年07月13日 11:03
  • 83

MySQL 搜索语句--过滤数据

MySQL使用SELECT语句的WHERE子句指定搜索条件。使用WHERE子句数据库表一般包含大量的数据,有时我们可能只需要检索表中的一部分数据,只检索所需数据需要指定搜索条件(search crit...
  • badguy_gao
  • badguy_gao
  • 2017年11月28日 11:16
  • 36

R12供应商银行账户SQL

--R12供应商银行账户SQL: SELECT APS.VENDOR_NAME,        APS.SEGMENT1 VENDOR_CODE,        HP_BANK.PARTY_NA...
  • ruihua1021
  • ruihua1021
  • 2014年11月14日 14:00
  • 549

详解EBS接口开发之供应商导入(补充)--供应商银行账户更新

CREATE OR REPLACE PACKAGE BODY update_vendor_account IS PROCEDURE main(errbuf OUT VARCHAR2, retco...
  • caixingyun
  • caixingyun
  • 2013年12月25日 18:38
  • 2376

供应商导入API Demo

-- API to Create Supplier --segment1:设置路径:AP超级用户->设置->选项->应付款系统设置:选择供应商编号为自动或者是手动 --若为自动,则segment1由...
  • chosen1brain
  • chosen1brain
  • 2014年06月12日 16:41
  • 588

软件采购必备:软件供应商评估表 之六(共七)

第六部分 质量实践
  • lanny2008
  • lanny2008
  • 2014年09月17日 11:35
  • 956

供应商地点信息更新

例:更新供应商地点可采购flagDECLARE l_api_version CONSTANT NUMBER := 1; l_msg_data VARCHAR2(2000); ...
  • caixingyun
  • caixingyun
  • 2014年11月09日 12:54
  • 1548

ERP供应商 - 企业资源规划软件供应商

ERP供应商 - 企业资源规划软件供应商   ERP系统集成和自动化所有的业务流程,以使公司更高效,更有利可图的活动,使用ERP软件,它基本上是多模块的应用程序。有很多ERP厂商的市场,选择一个不是一...
  • penooy1
  • penooy1
  • 2014年08月09日 09:09
  • 290

详解EBS接口开发之供应商导入补充-供应商地点增加实例

DECLARE --v_org_id number; v_vendor_interface_id NUMBER; v_vendor_site_interface_id ...
  • caixingyun
  • caixingyun
  • 2013年12月19日 17:16
  • 1401

11家PaaS公有云供应商服务功能要点比较

在写Cloud Foundry之前,先预热一下。2014年7月,为企业PaaS云建设,个人对11家PaaS公有云供应商的服务内容进行了调查,共享出来,供进行PaaS项目建设的同仁参考。所有调查内容为2...
  • cloudguru
  • cloudguru
  • 2015年03月19日 16:12
  • 2220
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:在文本框上按F7弹出供应商选择对话框,双击回填供应商名称
举报原因:
原因补充:

(最多只允许输入30个字)