searchdatar.aspx

来自「用VB实现」· ASPX 代码 · 共 80 行

ASPX
80
字号
<%@ Page Language="VB" ContentType="text/html" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<MM:DataSet 
id="rsCustomers"
runat="Server"
IsStoredProcedure="false"
ConnectionString='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_STRING_connSales") %>'
DatabaseType='<%# System.Configuration.ConfigurationSettings.AppSettings("MM_CONNECTION_DATABASETYPE_connSales") %>'
CommandText='<%# "SELECT *  FROM Customers  WHERE CustomerID = ? AND CustomerName = ?" %>'
PageSize="10"
Debug="true"
><Parameters>
  <Parameter  Name="@CustomerID"  Value='<%# IIf((Request.Form("txtCustomerID") <> Nothing), Request.Form("txtCustomerID"), "") %>'  Type="Integer"   />  
  <Parameter  Name="@Customer"  Value='<%# IIf((Request.Form("txtCustomer") <> Nothing), Request.Form("txtCustomer"), "") %>'  Type="WChar"   />  
</Parameters></MM:DataSet>
<MM:PageBind runat="server" PostBackBind="true" />
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<form runat="server" >
  <asp:Label ID="lblCustomer" Text="客户姓名" runat="server" />
  <asp:TextBox ID="txtCustomer"  runat="server" />  
  
  <BR>  <BR>
  <asp:Label ID="lblCustomerID" Text="客户编号" runat="server" />
  <asp:TextBox ID="txtCustomerID"  runat="server" /> 
  <asp:Button ID="btnSearch" runat="server" Text="提交" />
  <HR>
  <asp:DataGrid id="dgCustomers" 
  runat="server" 
  AllowSorting="False" 
  AutoGenerateColumns="false" 
  CellPadding="3" 
  CellSpacing="0" 
  ShowFooter="false" 
  ShowHeader="true" 
  DataSource="<%# rsCustomers.DefaultView %>" 
  PagerStyle-Mode="NextPrev" 
  AllowPaging="true" 
  AllowCustomPaging="true" 
  PageSize="<%# rsCustomers.PageSize %>" 
  VirtualItemCount="<%# rsCustomers.RecordCount %>" 
  OnPageIndexChanged="rsCustomers.OnDataGridPageIndexChanged" 
>
    <HeaderStyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />  
    <ItemStyle BackColor="#F2F2F2" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />  
    <AlternatingItemStyle BackColor="#E5E5E5" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />  
    <FooterStyle HorizontalAlign="center" BackColor="#E8EBFD" ForeColor="#3D3DB6" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Bold="true" Font-Size="smaller" />  
    <PagerStyle BackColor="white" Font-Name="Verdana, Arial, Helvetica, sans-serif" Font-Size="smaller" />  
    <Columns>
    <asp:BoundColumn DataField="CustomerID" 
        HeaderText="客户编号" 
        ReadOnly="true" 
        Visible="True"/>  
    <asp:BoundColumn DataField="CustomerName" 
        HeaderText="客户姓名" 
        ReadOnly="true" 
        Visible="True"/>  
    <asp:BoundColumn DataField="Phone" 
        HeaderText="客户电话" 
        ReadOnly="true" 
        Visible="True"/>  
    <asp:BoundColumn DataField="city" 
        HeaderText="居住城市" 
        ReadOnly="true" 
        Visible="True"/>  
    <asp:BoundColumn DataField="Address" 
        HeaderText="客户地址" 
        ReadOnly="true" 
        Visible="True"/>  
  </Columns>
  </asp:DataGrid>
</form>
</body>
</html>

⌨️ 快捷键说明

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