神马品牌网宁波国际食品展览会:帮忙改一下谢谢。急！！！
来源：百度文库 编辑：神马品牌网 时间：2024/04/28 17:46:49
<%@import namespace="system.data"%>
<%@import namespace="system.data.oledb"%>
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>>>公司办公管理信息系统<<</title>
<script language="vb" runat="server">
sub cx_click(sender as object, e as eventargs)
if not page.ispostback then
dim conn as oledbconnection
dim com as oledbcommand
dim rd as oledbdatareader
dim constr as string="Provider = Microsoft.Jet.OLEDB.4.0;data source=E:\sample\公司办公管理信息系统\gsbgglxt.mdb;"
dim SQL as string
conn = new oledbconnection(constr)
conn.open
sql ="select * from khzldj where 客户名称='" & session("客户名称") & "'"
com =new oledbcommand(sql,conn)
try
rd = com.executereader()
catch se as oledbexception
label1.text="123"
end try
datagrid1.datasource=rd
datagrid1.databind()
end if
end sub
</script>
<style type="text/css">
<!--
.STYLE1 {
font-size: 24px;
color: #0099FF;
font-weight: bold;
}
-->
</style>
</head>
<body>
<form id="form1" name="form1" method="post" action="" runat="server">
<div align="center" class="STYLE1">客户资料查询页面 </div>
<hr color="#0099FF" />
<p>查询内容
<asp:TextBox ID="BY_TEXT_CX" runat="server" />
查询条件
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem value="">日期</asp:ListItem>
<asp:ListItem value="">客户名</asp:ListItem>
<asp:ListItem value="">用户名</asp:ListItem>
<asp:ListItem value="">项目名</asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BY_BUTTON_CX" runat="server" Text="查询" OnClick="cx_click" />
<asp:Label ID="Label1" runat="server" />
</p>
<p><asp:DataGrid ID="datagrid1" runat="server"></asp:DataGrid>
</p>
</form>
</body>
</html>
帮我看看这个没事的话。我不会做了。就是在文本框输入查询的内容。下拉列表选择条件。然后从DATAGRID显示内容
首先dropdownlist的每一个listitem的value应赋上值,这样容易取值进行判断.<asp:listitem value="bydate">日期</asp:listitem>......
<script language="vb" runat="server">
sub cx_click(sender as object, e as eventargs)
if not page.ispostback then
dim conn as oledbconnection
dim com as oledbcommand
dim rd as oledbdatareader
dim constr as string="Provider = Microsoft.Jet.OLEDB.4.0;data source=E:\sample\公司办公管理信息系统\gsbgglxt.mdb;"
dim SQL as string
conn = new oledbconnection(constr)
conn.open
if trim("BY_TEXT_CX").text<>"" then
dim tempvalue as string=dropdownlist1.selectedvalue
注意，在进行比较前，要先确定日期输入的是否格式正确，
if tempvalue="bydate" then
sql ="select * from khzldj where 日期='" & tempvalue & "'"
elseif tempvalue="byusername" then
sql="select * from khzldj where 用户名 = '" & tempvalue & "'"
else
'这里你自己写吧
end if
com =new oledbcommand(sql,conn)
try
rd = com.executereader()
catch se as oledbexception
label1.text="123"
end try
datagrid1.datasource=rd
datagrid1.databind()
end if
end sub
</script>
<style type="text/css">
<!--
.STYLE1 {
font-size: 24px;
color: #0099FF;
font-weight: bold;
}
-->
</style>
</head>
<body>
<form id="form1" name="form1" method="post" action="" runat="server">
<div align="center" class="STYLE1">客户资料查询页面 </div>
<hr color="#0099FF" />
<p>查询内容
<asp:TextBox ID="BY_TEXT_CX" runat="server" />
查询条件
<asp:DropDownList ID="DropDownList1" runat="server">
<asp:ListItem value="bydate">日期</asp:ListItem>
<asp:ListItem value="byguestname">客户名</asp:ListItem>
<asp:ListItem value="byusername">用户名</asp:ListItem>
<asp:ListItem value="byprjname">项目名</asp:ListItem>
</asp:DropDownList>
<asp:Button ID="BY_BUTTON_CX" runat="server" Text="查询" OnClick="cx_click" />
<asp:Label ID="Label1" runat="server" />
</p>
<p><asp:DataGrid ID="datagrid1" runat="server"></asp:DataGrid>
</p>
</form>
</body>
</html>