asp.net总结(2)

原创 2007年09月21日 12:44:00
create table worker (name varchar(10),age varchar(10),sex varchar(10),part varchar(100),salary varchar(100))
insert into worker
select 'xlei','25','male','bank','199' union all
select 'zll','25','remale','techion','299' union all
select 'wting','25','male','mobile','399' union all
select 'syong','25','remale','save','499' union all
select 'lbin','25','male','echo','599'


name  age   sex      part        salary
lbin    25    male    mobile    599
syong    25    remale    save    499
wting    25    male    mobile    399
xlei    25    male    bank    199
zll    25    remale    bank    299
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebDataList2.aspx.vb" Inherits="WebApplication1.WebDataList2"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
    
<HEAD>
        
<title>WebDataList2</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 face="MS UI Gothic">
                
<asp:datalist id="DataList2" style="Z-INDEX: 101; LEFT: 32px; POSITION: absolute; TOP: 56px" runat="server"
                    Width
="552px">
                    
<SelectedItemTemplate>
                        
<asp:Button id="Button3" runat="server" Text="Cancel" CommandName="unselect"></asp:Button>
                    
</SelectedItemTemplate>
                    
<ItemTemplate>//这是初始状态,首先datalist与数据库绑定,然后以下是将初始状态控件与数据库绑定后的显示,一般用来操作text或者label链接等关于文本的绑定
                        
<asp:Label id=Label1 runat="server" Width="96px" Text='<%# DataBinder.Eval(Container, "DataItem.name") %>'>name</asp:Label>
                        <asp:Label id=Label2 runat="server" Width="64px" Text='<%# DataBinder.Eval(Container, "DataItem.age") %>'>age</asp:Label>
                        <asp:Label id=Label3 runat="server" Width="72px" Text='<%# DataBinder.Eval(Container, "DataItem.sex") %>'>sex</asp:Label>
                        <asp:Label id=Label4 runat="server" Width="80px" Text='<%# DataBinder.Eval(Container, "DataItem.part") %>'>part</asp:Label>
                        <asp:Label id=Label5 runat="server" Width="152px" Text='<%# DataBinder.Eval(Container, "DataItem.salary") %>'>salary</asp:Label>
                        <asp:Button id="Button1" runat="server" Text="Select" CommandName="select"></asp:Button>
                        
<asp:Button id="Button2" runat="server" Text="Edit" CommandName="edit"></asp:Button>
                    <
asp:CheckBox id="CheckBox1" runat="server"/asp:><CheckBox>
                       <asp:Button id="Button7" runat="server" Text="Delete" CommandName="delete"></asp:Button>
                       </ItemTemplate>

                    <EditItemTemplate>这是编辑状态,当我们点击编辑后布局以及控件与数据库绑定显示
                        
<asp:Label id=Label6 runat="server" Width="88px" Text='<%# DataBinder.Eval(Container, "DataItem.name") %>'>name</asp:Label>
                        <asp:Label id=Label7 runat="server" Width="72px" Text='<%# DataBinder.Eval(Container, "DataItem.age") %>'>age</asp:Label>
                        <asp:DropDownList id="DropDownList1" runat="server" Width="128px"></asp:DropDownList>
                        
<asp:TextBox id=TextBox1 runat="server" Width="176px" Text='<%# DataBinder.Eval(Container, "DataItem.salary") %>'>salary</asp:TextBox>
                        <asp:Button id="Button4" runat="server" Text="Cancel" CommandName="cancel"></asp:Button>
                        
<asp:Button id="Button5" runat="server" Text="Update" CommandName="update"></asp:Button>
                    
</EditItemTemplate>
                
</asp:datalist>
                   < asp:Button id="Button6" style="Z-INDEX: 102; LEFT: 48px; POSITION: absolute; TOP: 432px" runat="server" Text="Button"></asp:Button>
                 </FONT></form>
     
</body>
</HTML>

Imports System.Data
Imports System.Data.OleDb

Public Class WebDataList2Class WebDataList2
    
Inherits System.Web.UI.Page
    
Dim objConn As New OleDbConnection


Web フォーム デザイナで生成されたコード#Region " Web フォーム デザイナで生成されたコード "

    
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()Sub InitializeComponent()

    
End Sub

    
Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList
    
Protected WithEvents DataList2 As System.Web.UI.WebControls.DataList


    
Private designerPlaceholderDeclaration As System.Object

    
Private Sub Page_Init()Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        
Dim strcon As String
        strcon 
= "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa ;Password=sa ;Initial Catalog=test1;Data Source=192.168.10.250 "
        objConn.ConnectionString 
= strcon
        InitializeComponent()

    
End Sub


#End Region


    
Private Sub Page_Load()Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
If Not Me.IsPostBack Then
            
Call conn()
        
End If
    
End Sub


    
Public Sub conn()Sub conn()
  
        objConn.Open()
        
Dim objAdapter As New OleDbDataAdapter("SELECT * From worker order by name", objConn)
        
Dim ds As DataSet = New DataSet
        objAdapter.Fill(ds, 
"users")
        DataList2.DataSource 
= ds.Tables(0)
        DataList2.DataBind()
        objConn.Close()
    
End Sub


    
Private Sub DataList2_ItemCommand()Sub DataList2_ItemCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.ItemCommand

//需要我们在初始,选择,编辑状态
中的按钮等控件分别设置CommandName,点击不同的按钮就会触发该事件,然后判断该按钮的CommandName从而进入相应的选择,编辑还是更新状态,需要在update按钮中CommandName=“update”才可进行update操作,见前台
If e.CommandName = "select" Then
            DataList2.SelectedIndex 
= e.Item.ItemIndex
//点击某行选择按钮,然后该行就会处于选择状态
            Call conn()
        
ElseIf e.CommandName = "unselect" Then
            DataList2.SelectedIndex 
= -1
            
Call conn()
        
ElseIf e.CommandName = "edit" Then
            DataList2.EditItemIndex 
= e.Item.ItemIndex  //点击某行编辑按钮,然后该行就会处于编辑状态
            
Call conn()
        
ElseIf e.CommandName = "cancel" Then
//取消编辑选择操作
            DataList2.EditItemIndex 
= -1
            
Call conn()
        
End If

    
End Sub


    
Private Sub DataList2_ItemDataBound()Sub DataList2_ItemDataBound(ByVal sender As ObjectByVal e As System.Web.UI.WebControls.DataListItemEventArgs) Handles DataList2.ItemDataBound
//当datalist与数据库绑定,就会触发该事件,然后逐行的判断e.Item.ItemType状态第一次绑定时,判断的顺序第一行状态为ListItemType.Item 第二行为ListItemType.AlternatingItem...如果我们点击了第n行选择,第n+1行为编辑,这时与数据库绑定后触发该事件顺序为当 n行时状态为ListItemType.SelectedItem,n+1行为ListItemType.EditItem ,其它和初始状态一样,注意的就是逐行的判断然后绑定数据

Dim objAdapter As New OleDbDataAdapter("SELECT * From worker order by name  ", objConn)
        
Dim ds As DataSet = New DataSet
        objAdapter.Fill(ds, 
"users")
        
If e.Item.ItemType = ListItemType.EditItem Then            '
            If objConn.State = ConnectionState.Open Then
                objConn.Close()
            
End If
            objConn.Open()
            
Dim SelectDropDownList As DropDownList
            SelectDropDownList 
= CType(e.Item.FindControl("DropDownList1"), DropDownList)
            SelectDropDownList.DataSource 
= ds.Tables(0)
            SelectDropDownList.DataTextField 
= "part"
            
Dim str As String = ds.Tables(0).Rows(e.Item.ItemIndex)(3)//通过读取数据库里的数据来判断
            SelectDropDownList.DataBind()
            SelectDropDownList.SelectedIndex 
= SelectDropDownList.Items.IndexOf(SelectDropDownList.Items.FindByText(str))

        
End If
    
End Sub


    
Private Sub DataList2_UpdateCommand()Sub DataList2_UpdateCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.UpdateCommand
        
Dim str As String
        
str = "update worker set part='" & CType(e.Item.FindControl("DropDownList1"), DropDownList).SelectedItem.Text & "' where name='" & CType(e.Item.FindControl("label6"), Label).Text & "'"
        
Dim objCmd As New OleDbCommand(str, objConn)
        objConn.Open()
        objCmd.ExecuteNonQuery()
        DataList2.EditItemIndex 
= -1
        objConn.Close()
        
Call conn()
    
End Sub
End Class

 
    Private Sub DataList2_DeleteCommand()Sub DataList2_DeleteCommand(ByVal source As ObjectByVal e As System.Web.UI.WebControls.DataListCommandEventArgs) Handles DataList2.DeleteCommand
        
Dim str As String
        
Dim CheckBoxValue As CheckBox
        CheckBoxValue 
= CType(e.Item.FindControl("CheckBox1"), CheckBox)
        
If CheckBoxValue.Checked = True Then
            
str = "delete from  worker where name='" & CType(e.Item.FindControl("label1"), Label).Text & "'"
            
Dim objCmd As New OleDbCommand(str, objConn)
            objConn.Open()
            objCmd.ExecuteNonQuery()
            DataList2.EditItemIndex 
= -1
            objConn.Close()
            
Call conn()
        
End If
    
End Sub


    Private Sub Button6_Click()Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        
Dim MyItem As DataListItem    //在外部遍历ditalist
        
For Each MyItem In DataList2.Items
            
Dim CheckBoxValue As CheckBox
            
Dim LabelValue As Label
            CheckBoxValue 
= CType(MyItem.FindControl("CheckBox1"), CheckBox)
            LabelValue 
= CType(MyItem.FindControl("Label1"), Label)
            
If CheckBoxValue.Checked = True Then
                Response.Write(MyItem.ItemIndex 
& "&nbsp" & LabelValue.Text & "<br>")
            
End If
        
Next

        
'Dim i As Integer
        'For i = 0 To DataList2.Items.Count - 1
        'Dim ccc As CheckBox
        'ccc = CType(MyItem.FindControl("CheckBox1"), CheckBox)
        'Response.Write(i & "<br>")
        'Next
    End Sub

ASP.NET Web开发技术的深入总结

【IT168技术】在国内.Net开发这个环境里, 中小型公司,或者大公司但主营业务不是软件开发里面的软件小团队,针对.Net开发人员的要求都是十项全能型的全才, 能做的了从前台页面展现到最后数据存储的...
  • SJian123
  • SJian123
  • 2014年09月02日 16:01
  • 1234

ASP.NET学习篇之——小结

通过前面的学习,我们已经对ASP.NET有了初步了解,ASP.NET就是一个开发框架或者说开发环境,如果我们在具体一点说的话,ASP.NET是服务器端脚本编程的全新技术,我们利用它可以很方便的进行we...
  • zwk626542417
  • zwk626542417
  • 2013年11月06日 08:15
  • 2142

Asp.net学习总结

Asp.net北大青鸟。虽然是在讲,如何用asp.net控件。其实一直都是在传输一种思想。     讲服务器端 和 客户端 相分离。在开发的过程中,要时刻知道,客户端 与 服务端 在什么时候交互。对不...
  • zc474235918
  • zc474235918
  • 2014年08月17日 15:33
  • 1542

asp.net mvc 学习总结

自学MVC看这里——全网最全ASP.NET MVC 教程汇总 http://www.cnblogs.com/powertoolsteam/archive/2015/08/13/4667892.htm...
  • bcbobo21cn
  • bcbobo21cn
  • 2017年05月03日 21:01
  • 1613

ASP.NET 总结

一、Socket 就是两个程序通讯用的 一台计算机上的端口有65536个(1~65535)http:80端口、FTP:21端口、SMTP:23端口Socket一般应用模式(服务端和客户端) 服务器...
  • sinat_27706697
  • sinat_27706697
  • 2016年02月25日 11:29
  • 1231

asp.net实训总结

public void SendSMTPEMail(string strSmtpServer, string strFrom, string strFromPass, string strto, st...
  • C979170768
  • C979170768
  • 2011年10月31日 20:40
  • 6380

ASP.NET学习总结

ASP.NET学习总结         ASP.NET视频看完了,总结一下这些天的学习的学习成果。 一、什么是ASP.NET  (1)百度百科的解释:         AS...
  • haiyan_cf
  • haiyan_cf
  • 2014年06月14日 18:04
  • 1959

第三天ASP.NET学习总结

1.DataGrid控件不用模板时显示头部文字和超链接:  ID="dgrdLinks"  AutoGenerateColumns="False"  EnableViewState="False"  ...
  • PConlineSTU
  • PConlineSTU
  • 2007年02月02日 14:18
  • 668

ASP.NET 项目总结

恩,第一次用 ASP.NET MVC 开发正式项目。好累。一直在抠细节, 现在把这一个礼拜学到的东西总结下, 新手要多总结!...
  • changtianshuiyue
  • changtianshuiyue
  • 2014年11月09日 22:23
  • 1312

asp.net课程设计心得(一)

前言: 每学期一度的课程设计又到了!谈到课程设计,真是几家欢喜几家愁啊。有想法的,基础好的同学,四五天就完事了;而那些学完了这门课还没弄明白的学的是什么的同学,就头痛了。上网下载、图书馆借指导书...
  • BOBO12082119
  • BOBO12082119
  • 2010年12月14日 21:36
  • 3114
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:asp.net总结(2)
举报原因:
原因补充:

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