【教程】从Access到Asp.net（十四）

情比金坚 · 发表于 2006-8-20 08:38:00

   在前台我们看到还有两个按钮的功能没有设计：一个是用户中心，一个是搜索。
【用户中心】
      用户中心实际上是由4个web页面组成的，一个框架页面，用来承放另外3个页面的，这是一个框架页面，和后台的那个一样，只是这次我们改成水平分割了。名字叫uesrhome.aspx..另一个是用于给顾客作选择的页面，作用相当于access里的那个选项卡。只是部署了三个链接：分别是“回到主页”，“用户信息”，“订单信息”这个页面叫hometop.aspx。框架页面上部放这个页面，下部放被选择的页面，另外两个页面分别是：homelist.aspx和homeuser.aspx.
      这是框架页面userhome.aspx的html：
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="userhome.aspx.vb" Inherits="minishop.home"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
  <TITLE>home</TITLE>
  <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
  <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
  <meta name="vs_defaultClientScript" content="JavaScript">
  <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">

</HEAD>
<frameset rows="107,81%" border="0" frameSpacing="0" frameBorder="0">
  <frame name="header" src="hometop.aspx">
  <frame name="main" src="">
  <noframes>
<pre id="p2">
================================================================
关于完成此页眉框架集的说明
1. 为“header”框架添加 src="" 页的 URL。
2. 为“main”框架添加 src="" 页的 URL。
3. 将 BASE target="main" 元素添加到“header”页的
HEAD，以将“main”设置为默认框架，“header”页的链接将
在该框架中显示其他页。
================================================================
</pre>
<p id="p1">
此 HTML 框架集显示多个 Web 页。若要查看此框架集，请使用支持 HTML 4.0 及更高版本的 Web 浏览器。
</p>
  </noframes>
</frameset>
</HTML>
这是hometop.aspx的html：
<HTML>
<HEAD>
  <title>hometop</title>
  <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
  <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
  <meta content="JavaScript" name="vs_defaultClientScript">
  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
<asp:panel id="

anel1" style="Z-INDEX: 101; LEFT: 232px; POSITION: absolute; TOP: 64px" runat="server"
Width="344px">     
<A href="homeuser.aspx" target="main">用户信息</A>                 
<A href="homelist.aspx" target="main">订单信息</A></asp:panel>
<asp

inkButton id="LinkButton1" style="Z-INDEX: 102; LEFT: 24px; POSITION: absolute; TOP: 64px"
runat="server" Width="96px" Height="24px">返回主页</asp

inkButton>
  </form>
</body>
</HTML>

      用户信息窗体就是用户登录窗体的翻版，前天我没有就用户登录窗体进行详细讲解，这里再讲一点新鲜的东西：一个是验证控件：asp.net提供了好多验证控件，比如验证是否为空的，验证是否相同，验证输入的数据是否合乎规范的：
控件名称                                                          说明
RequiredFieldValidator             确保用户不跳过输入。
CompareValidator                      使用比较运算符（小于、等于、大于等）将用户的输入与另一控件的常数值或属性值进行比较。
RangeValidator                         检查用户的输入是否在指定的上下边界之间。可以检查数字、字母或日期对内的

情比金坚 · 发表于 2006-8-20 08:44:00

订单信息窗体：

   当然就是一个datagrid控件了，他的“明细”按钮打开的是后台时设计的那个页面——saleinfo.aspx
Dim myconstr As String = ConfigurationSettings.AppSettings("constr") & Server.MapPath(".") & ConfigurationSettings.AppSettings("dbs")
Dim mycon As OleDb.OleDbConnection = New OleDb.OleDbConnection(myconstr)
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
      If Not IsPostBack Then
         Bindgrid()
      End If
End Sub
'为datalist绑定数据的过程，最新上架
Sub Bindgrid()
      Dim uid As Integer
      uid = Request.Cookies("uid").Value
      Dim mysql As String
      mysql = "SELECT  * FROM tab_salelist where uid=" & uid
      Dim mycmd As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(mysql, mycon)
      Dim dt As Data.DataSet = New Data.DataSet
      mycmd.Fill(dt)
      Dim dv As Data.DataView = New Data.DataView(dt.Tables(0))
      DataGrid1.DataSource = dv
      DataGrid1.DataBind()
End Sub

Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
      Dim id As String
      id = e.Item.Cells(0).Text
      Response.Write("<script language='javascript'>open('saleinfo.aspx?id=" & id & "','编辑','width=600,height=400,left=150,top=150,resizable=0,scrollbars=0,status=no,toolbar=no,location=no,menu=no')</" & "script>")
End Sub
【搜索】
      搜索的界面和主页十分相似，用的控件也基本一样，一个列表种类，用的是datalist,另一个用于显示明细，仍然用datalist。种类列表的点击事件去改变显示列表的数据源。这个和access里是一样的。

[此贴子已经被作者于2006-8-20 0:45:29编辑过]

情比金坚 · 发表于 2006-8-20 08:48:00

Datalist2的布局比较麻烦一点：我是这样实现的：先做了一个table表格，在表格里放进图片控件，标签控件，文本框控件，按钮控件。然后再把这个表格拖进datalist里去：

<HTML>
<HEAD>
  <title>pearch</title>
  <meta content="Microsoft Visual Studio .NET 7.1" name="GENERATOR">
  <meta content="Visual Basic .NET 7.1" name="CODE_LANGUAGE">
  <meta content="JavaScript" name="vs_defaultClientScript">
  <meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema">
</HEAD>
<body MS_POSITIONING="GridLayout">
  <form id="Form1" method="post" runat="server">
<FONT id="FONT1" face="宋体" runat="server" style="

OSITION: static">
<asp:panel id="

anel1" runat="server" Width="120px" Height="40px">
   <uc1:top id="Top1" runat="server"></uc1:top>
</asp:panel><asp:label id="Label1" style="Z-INDEX: 102; LEFT: 16px; POSITION: absolute; TOP: 152px" runat="server"
   Width="104px" Height="16px" Font-Size="X-Small" ForeColor="Blue" Font-Bold="True">输入关键字</asp:label><asp:textbox id="TextBox1" style="Z-INDEX: 103; LEFT: 16px; POSITION: absolute; TOP: 168px" runat="server"
   Width="112px"></asp:textbox><asp:button id="Button1" style="Z-INDEX: 104; LEFT: 64px; POSITION: absolute; TOP: 200px" runat="server"
   Width="64px" Height="24px" Text="搜索"></asp:button><asp:label id="Label2" style="Z-INDEX: 105; LEFT: 16px; POSITION: absolute; TOP: 232px" runat="server"
   Width="88px" Height="24px" Font-Size="X-Small" ForeColor="Blue" Font-Bold="True">商品种类</asp:label><asp:panel id="

anel2" style="Z-INDEX: 106; LEFT: 8px; POSITION: absolute; TOP: 696px" runat="server"
   Width="144px" Height="32px">
   <uc1:foot id="Foot1" runat="server"></uc1:foot>
</asp:panel><asp:label id="lblpagecount" style="Z-INDEX: 107; LEFT: 16px; POSITION: absolute; TOP: 568px"
   runat="server" Width="88px" Height="24px" Visible="False"></asp:label><asp:label id="lblpageindex" style="Z-INDEX: 108; LEFT: 16px; POSITION: absolute; TOP: 600px"
   runat="server" Width="80px" Height="32px" Visible="False">0</asp:label><asp:label id="lblpage" style="Z-INDEX: 109; LEFT: 432px; POSITION: absolute; TOP: 656px" runat="server"
   Width="96px" Height="24px"></asp:label><asp:linkbutton id="LinkButton1" style="Z-INDEX: 110; LEFT: 544px; POSITION: absolute; TOP: 656px"
   runat="server" Width="64px" Height="24px">上一页</asp:linkbutton><asp:linkbutton id="LinkButton2" style="Z-INDEX: 111; LEFT: 632px; POSITION: absolute; TOP: 656px"
   runat="server" Width="80px" Height="24px">下一页</asp:linkbutton><asp:datalist id="DataList1" style="Z-INDEX: 112; LEFT: 160px; POSITION: absolute; TOP: 144px"
   runat="server" Width="592px" Height="254px" ShowFooter="False" ShowHeader="False">
   <ItemTemplate>
   <TABLE id="Table1" style="WIDTH: 584px; HEIGHT: 138px" cellSpacing="1" cellPadding="1"
   width="584" border="0">
   <TR>
      <TD style="WIDTH: 169px" rowSpan="3">
      <asp:Image id=Image1 runat="server" Height="120px" Width="160px" ImageUrl='<%# container.dataitem("pimg")%>'>
      </asp:Image></TD>
      <TD>
      <asp:label id="Label3" runat="server" Width="165px">
      <%#Container.DataItem("pname")%>
      </asp:label></TD>
      <TD>单  价
      <asp:label id="Label4" runat="server" Width="104px" ForeColor="Red" Font-Strikeout="True">
      <%# DataBinder.Eval(Container.DataIte

sgrshh29 · 发表于 2006-8-20 18:18:00

快了.

yodong · 发表于 2006-8-20 20:09:00

收下.

appleking · 发表于 2006-8-24 01:08:00

收到。。谢谢

johnx9 · 发表于 2006-11-23 05:03:00

很快就轮到我深入研究了![em02]

hotned · 发表于 2009-12-13 20:02:35

级压群芳的无敌贴！

帐号		自动登录	找回密码
密码			注册

群介绍
Access培训群 (792054000)
Access免费培训2群 (163530137)
Access免费培训群 (833510950)
Access免费培训群2 (792054000)
Access交流总群 (5004108)

主题相关群

地区相关群[您还没设置居住地]

[Access本身] 【教程】从Access到Asp.net（十四）

本帖被以下淘专辑推荐:

本帖子中包含更多资源

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)