?? ex29vb.aspx
字號:
<%@import namespace="system.data.SqlClient"%>
<%@import namespace="system.data"%>
<html>
<head>
<title>第二十九例 Sql Server數據庫的訪問操作</title>
<SCRIPT LANGUAGE="VB" debug=true runat="server">
Private Sqlserver AS String
'定義當頁面重新裝載時的事件
Sub Page_Load(myList AS Object,E as EventArgs)
Sqlserver = "server=cm;database=model;uid=sa;pwd="
If NOT Page.IsPostBack
MemberFunctionUpdate.Visible = true
MemberFunctionAdd.Visible = false
BindMemberData()
End If
End Sub
'定義函數Panel的可見控件
Sub PanelReset()
MemberFunctionUpdate.Visible = true
MemberFunctionAdd.Visible = false
End Sub
'定義函數：新增用戶時的可見控件
Sub newUser(sender As Object , e As EventArgs)
MemberFunctionUpdate.Visible = false
MemberFunctionAdd.Visible = true
End Sub
'定義函數：取消成員數據編輯時候的事件
Sub MemberData_Cancel(Sender As Object, E As DataGridCommandEventArgs)
MemberData.EditItemIndex = -1
BindMemberData()
End Sub
'定義函數：編輯成員數據編輯時候的事件
Sub MemberData_Edit(Sender As Object, E As DataGridCommandEventArgs)
MemberData.EditItemIndex = E.Item.ItemIndex
BindMemberData()
End Sub
'定義函數：取消新增用戶時進入的頁面
Sub OnCancel(sender As Object , e As System.EventArgs)
Response.Redirect("ex29-1VB.aspx")
End Sub
'定義函數：新增用戶
Sub MemberData_Add(sender As Object , e As System.EventArgs)
Dim addUserCommand As SqlCommand
Dim delMember as String
Dim conn AS SqlConnection
Dim NewUserIn AS String
conn = New SqlConnection(SqlServer)
conn.open()
If FirstName.Value = "" OR LastName.Value = "" OR Address1.Value = "" OR City.Value = "" OR UserState.Value = "" OR Zip.Value = "" then
validationFail.Text = "<font size=+1 color=red>每個選項都不能為空！</font><BR><BR>"
Else
NewUserIn = "INSERT INTO MemberData Values (@FirstName,@LastName,@Address1,@Address2,@City,@State,@Zip)"
addUserCommand = New SqlCommand(NewUserIn, conn)
addUserCommand.Parameters.Add(New SqlParameter("@FirstName", SqldbType.nVarChar, 20))
addUserCommand.Parameters("@FirstName").Value = FirstName.value
addUserCommand.Parameters.Add(New SqlParameter("@LastName", SqldbType.nVarChar, 20))
addUserCommand.Parameters("@LastName").Value = LastName.value
addUserCommand.Parameters.Add(New SqlParameter("@Address1", SqldbType.nVarChar, 50))
addUserCommand.Parameters("@Address1").Value = Address1.value
addUserCommand.Parameters.Add(New SqlParameter("@Address2", SqldbType.nVarChar, 70))
addUserCommand.Parameters("@Address2").Value = Address2.value
addUserCommand.Parameters.Add(New SqlParameter("@City", SqldbType.nVarChar, 70))
addUserCommand.Parameters("@City").Value = City.value
addUserCommand.Parameters.Add(New SqlParameter("@State", SqldbType.nVarChar, 20))
addUserCommand.Parameters("@State").Value = UserState.value
addUserCommand.Parameters.Add(New SqlParameter("@Zip", SqldbType.nVarChar, 20))
addUserCommand.Parameters("@Zip").Value = Zip.value
adduserCommand.executeReader()
PanelReset()
BindMemberData()
End If
End Sub
'定義函數：更新用戶數據
Sub MemberData_Update(Sender As Object, E As DataGridCommandEventArgs)
Dim updateMember As String
Dim upCommand As SqlCommand
Dim myParam AS SqlParameter
Dim memberFormData As TextBox
Dim connState As Integer
Dim paramNumber As Integer
Dim paramName As String
Dim conn AS SqlConnection
conn = New SqlConnection(SqlServer)
conn.Open()
updateMember = "Update MemberData Set FirstName = @FirstName,"
updateMember = updateMember & "LastName=@LastName,Address1=@Address1,"
updateMember = updateMember & "Address2=@Address2,City=@City,State=@state,"
updateMember = updateMember & "Zip=@zip Where ID = @ID"
upCommand = New SqlCommand(updateMember, conn)
upCommand.Parameters.Add(new SqlParameter("@ID", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@FirstName", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@LastName", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@Address1", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@Address2", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@City", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@State", SqldbType.nVarChar, 50))
upCommand.Parameters.Add(new SqlParameter("@Zip", SqldbType.nVarChar, 50))
upCommand.Parameters.Item("@ID").Value = MemberData.DataKeys.Item(E.Item.ItemIndex)
For paramNumber = 1 To upCommand.Parameters.Count - 1
myParam = upCommand.Parameters(paramNumber)
paramName = myParam.ParameterName
memberFormData = E.Item.FindControl(paramName.SubString(1)&"_up")
upCommand.Parameters.Item(paramName).Value = memberFormData.Text
Next
upCommand.ExecuteReader()
MemberData.EditItemIndex = -1
BindMemberData()
End Sub
'定義函數：刪除用戶數據
Sub MemberData_Delete(Sender As Object, E As DataGridCommandEventArgs)
Dim delCommand As SqlCommand
Dim delMember as String
Dim conn AS SqlConnection
conn = New SqlConnection(SqlServer)
conn.open()
delMember = "Delete from MemberData Where ID = @ID"
delCommand = New SqlCommand(delMember, conn)
delCommand.Parameters.Add(new SqlParameter("@ID", SqldbType.nVarChar, 50))
delCommand.Parameters.Item("@ID").Value = MemberData.DataKeys.Item(E.Item.ItemIndex)
delCommand.ExecuteReader()
MemberData.EditItemIndex = -1
BindMemberData()
End Sub
'定義函數：顯示用戶數據
Sub BindMemberData()
Dim conn AS SqlConnection
Dim dbComm AS SqlDataAdapter
Dim Sql AS String
Dim ds AS New DataSet
conn = New SqlConnection(Sqlserver)
Sql = "Select * from MemberData ORDER BY ID"
dbComm = New SqlDataAdapter(Sql,conn)
dbComm.Fill(ds,"MemberData")
MemberData.DataSource = ds.Tables("MemberData").DefaultView
MemberData.DataBind()
End Sub
</SCRIPT>
</head>
<Body>
<form runat=server>
<asp:panel id="MemberFunctionUpdate" runat="server">
<H3><font face="Verdana">第二十九例 Sql Server數據庫的訪問操作</font></H3>
<ASP:DataGrid id="MemberData" runat="server"
DataKeyField="ID"
BorderColor="black"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
Font-Name="Verdana" Font-Size="12pt"
HeaderStyle-BackColor="#aaaadd"
AlternatingItemStyle-BackColor="#eeeeee"
AutoGenerateColumns=false
OnEditCommand="MemberData_Edit"
OnUpdateCommand="MemberData_Update"
OnCancelCommand="MemberData_Cancel"
OnDeleteCommand = "MemberData_Delete"
>
<Columns>
<asp:ButtonColumn Text="刪除" CommandName="Delete"/>
<asp:EditCommandColumn
EditText="編輯"
CancelText="取消"
UpdateText="更新"/>
<asp:TemplateColumn HeaderText="姓名">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("FirstName")%>'
runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="FirstName_up"
Text='<%# Container.DataItem("FirstName")%>'
Size="10"
runat="server" />
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="昵稱">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("LastName")%>'
runat="server"/>
</ItemTemplate>
<EditItemTemplate>
<asp:TextBox id="LastName_up"
Text='<%# Container.DataItem("LastName")%>'
runat="server" />
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="地址一">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("Address1")%>'
ItemStyle-Wrap="false"
runat="server"/>
</ItemTEMPLATE>
<EditItemTemplate>
<asp:TextBox id="Address1_up"
Text='<%# Container.DataItem("Address1")%>'
runat="server" />
</EditItemTemplate>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="地址二">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("Address2")%>'
runat="server"/>
</ItemTEMPLATE>
<EditItemTemplate>
<asp:TextBox id="Address2_up"
Text='<%# Container.DataItem("Address2")%>'
runat="server" />
</EditItemTEMPLATE>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="城市">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("City")%>'
runat="server"/>
</ItemTEMPLATE>
<EditItemTemplate>
<asp:TextBox id="City_up"
Text='<%# Container.DataItem("City")%>'
runat="server" />
</EditItemTEMPLATE>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="地區">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("State")%>'
runat="server"/>
</ItemTEMPLATE>
<EditItemTemplate>
<asp:TextBox id="State_up"
Text='<%# Container.DataItem("State")%>'
runat="server" />
</EditItemTEMPLATE>
</asp:TemplateColumn>
<asp:TemplateColumn HeaderText="郵編">
<ItemTemplate>
<asp:Label Text='<%# Container.DataItem("Zip")%>'
runat="server"/>
</ItemTEMPLATE>
<EditItemTemplate>
<asp:TextBox id="Zip_up"
Text='<%# Container.DataItem("Zip")%>'
runat="server" />
</EditItemTemplate>
</asp:TemplateColumn>
</Columns>
</asp:DataGrid>
</BR>
<asp:button TEXT="增加用戶" runat="server" onClick="newUser" />
</asp:panel>
<asp:panel id="MemberFunctionAdd" runat="server">
<CENTER>
<H3>增加一個用戶</H3>
<asp:label id="validationFail" runat="server" />
<TABLE>
<TR>
<TD valign="top"><B>姓名:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="FirstName" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>昵稱:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="LastName" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>地址一:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="Address1" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>地址二:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="Address2" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>城市:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="City" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>地區:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="UserState" runat="server"></TD>
</TR>
<TR>
<TD valign="top"><B>郵編:</B></TD>
<TD valign="top"><INPUT TYPE="text" id="Zip" runat="server"></TD>
</TR>
<TR>
<TD valign="top" colspan="2" align="center">
<BR><BR>
<INPUT TYPE="Submit" VALUE="提交" runat="server" onServerClick="MemberData_Add" />
<INPUT TYPE="Submit" VALUE="取消" runat="server" onServerClick="OnCancel" />
</TD>
</TR>
</TABLE>
</asp:panel>
</form>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -