Buoi4 HuongDan Doc
-
Upload
mai-nguyen-thi -
Category
Documents
-
view
21 -
download
2
Transcript of Buoi4 HuongDan Doc
Trang 1/17
Hướng dẫn thực hành buổi 4Kết nối CSDL
Phần Quản Lý (Admin)Bài Tập 1: Code hướng dẫn
CREATE PROCEDURE [dbo].[sp_CatSelect]@CatID as integer ASif @CatID=0Select * from categorieselseselect * from categorieswhere CatID=@CatID
CREATE PROCEDURE [dbo].[sp_ProSelectByID]@CatID as integer,@An as integer,@hien as integerasSelect * from productswhere catid=@Catid and (ProStatus=@An or ProStatus=@hien)GO
CREATE PROCEDURE [dbo].[sp_ProDelete]@chuoiProduct as varchar(100)asDeclare @ChuoiThucThi as varchar(200)Set @ChuoiThucThi='Delete from Products where ProID in('+@chuoiProduct+')'exec(@chuoithucthi)select errcode=1, errmsg=N'Xóa thành công'GO
Trang 2/17
Code trang QuanLySanPham.aspx
<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false" CodeFile="QLSanPham.aspx.vb"Inherits="QuanLy_QLSanPham" title="Untitled Page" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server"><h1 align="center">QUẢN LÝ SẢN PHẨM THEO DANH MỤC</h1>Chọn danh mục: <asp:DropDownList ID="cboCat" runat="server"AutoPostBack=true></asp:DropDownList><asp:Button ID="cmdAddSP" runat="server" Text="Thêm sản phẩm mới"CssClass="Button"/> <asp:Button ID="cmdXoa"Text="Xóa Sản Phẩm" runat="server" CssClass="Button" /> <br /><table width="100%" class="DataTable">Lọc theo trạng thái :<asp:CheckBox runat="server" Text="Hiển thị"ID="chkHien" AutoPostBack="true" /> <asp:CheckBox runat="server"Text="Khóa" ID="chkAn" AutoPostBack="true" /><asp:Repeater ID="rptPro" runat="server">
<HeaderTemplate><tr class="Table_Header">
<td>ProID</td><td>ProName</td><td>ProStatus</td><td>ProImage</td><td>ProPrice</td><td>ProDescript</td><td>ProInform</td><td>Delete</td><td>Edit</td>
</tr></HeaderTemplate><ItemTemplate><tr>
<td><%#Eval("ProID")%></td><td><%#Eval("ProName")%></td><td><%#IIf(Container.DataItem("ProStatus") = 1, "<img
src=""image/on.gif"">", "<img src=""image/off.gif"">")%></td><td><%#Eval("ProImage")%></td><td><%#Eval("ProPrice")%></td><td><%#Eval("ProDescript")%></td>
<td><%#Eval("ProInform")%></td><td><input type="checkbox" value="<%#Eval("ProID")%>" name="chkXoa"
/></td><td><a href="EditPro.aspx?tiep=<%#Eval("ProID")%>">Edit</a></td>
</tr></ItemTemplate><FooterTemplate></table></FooterTemplate></asp:Repeater></asp:Content>
Trang 3/17
Code trang QuanLySanPham.aspx.vb
Partial Class QuanLy_QLSanPhamInherits System.Web.UI.PageSub LoadCombo()
Dim bang As New ds.sp_CatSelectDataTableDim BienKT As New dsTableAdapters.sp_CatSelectTableAdapter
bang.Reset() BienKT.Fill(bang, 0) cboCat.DataSource = bang cboCat.DataValueField = "CatID" cboCat.DataTextField = "CatName" cboCat.DataBind()
End SubSub LoadDuLieu(ByVal MaDM As Integer, ByVal bienAn As Integer, ByVal bienHien
As Integer)Dim bangDL As New ds.sp_ProSelectByIDDataTableDim BienDL As New dsTableAdapters.sp_ProSelectByIDTableAdapter
bangDL.Reset() BienDL.Fill(bangDL, MaDM, bienAn, bienHien) rptPro.DataSource = bangDL rptPro.DataBind()
End SubProtected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs)
Handles Me.LoadIf Not IsPostBack Then
LoadCombo() LoadDuLieu(cboCat.SelectedValue, 0, 1)
End IfEnd Sub
Protected Sub cmdAddSP_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdAddSP.Click Session("CatID") = cboCat.SelectedValue Response.Redirect("AddSanPham.aspx?CatID=" & cboCat.SelectedValue)
End Sub
Protected Sub cboCat_SelectedIndexChanged(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cboCat.SelectedIndexChanged LoadDuLieu(cboCat.SelectedValue, GetAn, GetHien)
End SubFunction GetAn() As Integer
If chkAn.Checked ThenReturn 0
ElseReturn -1
End IfEnd FunctionFunction GetHien() As Integer
If chkHien.Checked ThenReturn 1
ElseReturn -1
End IfEnd Function
Trang 4/17
Function GetAn() As IntegerIf chkAn.Checked Then
Return 0Else
Return -1End If
End FunctionFunction GetHien() As Integer
If chkHien.Checked ThenReturn 1
ElseReturn -1
End IfEnd Function
Protected Sub chkAn_CheckedChanged(ByVal sender As Object, ByVale As System.EventArgs) Handles chkAn.CheckedChanged LoadDuLieu(cboCat.SelectedValue, GetAn, GetHien)
End Sub
Protected Sub chkHien_CheckedChanged(ByVal sender As Object,ByVal e As System.EventArgs) Handles chkHien.CheckedChanged LoadDuLieu(cboCat.SelectedValue, GetAn, GetHien)
End Sub
Protected Sub cmdXoa_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdXoa.Click
Dim mangchon As String mangchon = Request("chkXoa")
Dim BangkEtnoi1 As New ds.sp_ProDeleteDataTableDim bien1 As New dsTableAdapters.sp_ProDeleteTableAdapter
bien1.Fill(BangkEtnoi1, mangchon) LoadDuLieu(cboCat.SelectedValue, GetAn, GetHien)
End SubEnd Class
Trang 5/17
Bài tập 2:
Code trang AddSanPham.aspx
CREATE PROCEDURE [dbo].[sp_ProInsert]@ProName as nvarchar(50),@ProImage as nvarchar(50),@ProPrice as float,@ProDescript as nvarchar(50),@ProInform as nvarchar(50),@CatID as integerasInsertProducts(ProName,ProImage,ProPrice,ProDescript,ProInform,CatID)values(@ProName,@ProImage,@ProPrice,@ProDescript,@ProInform,@CatID)Select ErrCode=1,ErrMsg=N'T ạo thành công sản phẩm'GO
<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false" CodeFile="AddSanPham.aspx.vb"Inherits="QuanLy_AddSanPham" title="Untitled Page" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server"><h1 align="center"> TẠO MỚI SẢN PHẨM</h1><br />
<table width="500" align="center" class="DataTable"><tr><td colspan="5" class="Table_Header">
Add user</td></tr><tr><td class="ContentCell">Proname</td>
<td class="InputCell"><asp:TextBox ID="txtProname"runat="server"></asp:TextBox></td>
</tr><tr>
<td class="ContentCell">ProImage</td><td class="InputCell"><asp:TextBox ID="txtProImage"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProPrice</td><td class="InputCell"><asp:TextBox ID="txtProPrice"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProDescript</td><td class="InputCell"><asp:TextBox ID="txtProDescript"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProInform</td><td class="InputCell"><asp:TextBox ID="txtProInform"
runat="server"></asp:TextBox></td></tr>
<tr ><td colspan="5" align="right">
Trang 6/17
Code trang AddSanPham.aspx.vb
<tr><td class="ContentCell">ProInform</td><td class="InputCell"><asp:TextBox ID="txtProInform"
runat="server"></asp:TextBox></td></tr>
<tr ><td colspan="5" align="right"><asp:Label ID="lblLoi" runat="server"></asp:Label> <asp:Button ID="cmdCancel" runat="server"
Text="Cancel" CssClass="Button" /> <asp:Button ID="cmdAdd" runat="server" Text="Tạo
sản phẩm" CssClass="Button" /></td></tr>
</table></asp:Content>
Partial Class QuanLy_AddSanPhamInherits System.Web.UI.Page
Protected Sub cmdCancel_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdCancel.Click txtProDescript.Text = "" txtProImage.Text = "" txtProInform.Text = "" txtProname.Text = "" txtProPrice.Text = ""
End Sub
Protected Sub cmdAdd_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdAdd.Click
Dim bang As New ds.sp_ProInsertDataTableDim bienInsert As New dsTableAdapters.sp_ProInsertTableAdapter
bang.Reset() bienInsert.Fill(bang, Trim(txtProname.Text),Trim(txtProImage.Text), Trim(txtProPrice.Text),Trim(txtProDescript.Text), Trim(txtProInform.Text),CInt(Session("CatID"))) lblLoi.Text = bang.Rows(0).Item( "ErrMsg")
txtProDescript.Text = "" txtProImage.Text = "" txtProInform.Text = "" txtProname.Text = "" txtProPrice.Text = ""
End SubEnd Class
Trang 7/17
Bài tập 3:
Code trang EditSanPham.aspx
CREATE PROCEDURE [dbo].[sp_ProUpdate]@ProID as integer,@ProName as nvarchar(50),@ProStatus as integer,@ProImage as nvarchar(50),@ProPrice as float,@ProDescript as nvarchar(50),@ProInform as nvarchar(50)
asUpdate Products setProName=@ProName,ProImage=@ProImage,ProPrice=@ProPrice,ProDescript=@ProDescript,ProInform=@ProInform,ProStatus=@ProStatuswhere ProID=@ProIDSelect ErrCode=1, ErrMsg=N'Hiệu chỉnh sản phẩm thành công'GO
<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false" CodeFile="EditPro.aspx.vb" Inherits="QuanLy_EditPro"title="Untitled Page" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server"><h1 align="center"> HIỆU CHỈNH SẢN PHẨM</h1><br />
<table width="500" align="center" class="DataTable"><tr>
<td class="ContentCell">Proname</td><td class="InputCell"><asp:TextBox ID="txtProname"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProImage</td><td class="InputCell"><asp:TextBox ID="txtProImage"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProPrice</td><td class="InputCell"><asp:TextBox ID="txtProPrice"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProDescript</td><td class="InputCell"><asp:TextBox ID="txtProDescript"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell">ProInform</td><td class="InputCell"><asp:TextBox ID="txtProInform"
runat="server"></asp:TextBox></td></tr><tr><td class="ContentCell">ProStatus</td>
<td class="InputCell"><asp:DropDownList ID="cboStatus"
runat="server"></asp:DropDownList></td></tr>
Trang 8/17
Code trang EditSanPham.aspx.vb
<tr><td class="ContentCell">ProInform</td><td class="InputCell"><asp:TextBox ID="txtProInform"
runat="server"></asp:TextBox></td></tr><tr><td class="ContentCell">ProStatus</td>
<td class="InputCell"><asp:DropDownList ID="cboStatus"
runat="server"></asp:DropDownList></td></tr>
<tr ><td colspan="2" align="right" style="height: 23px"><asp:Label ID="lblLoi" runat="server"></asp:Label> <asp:Button ID="cmdCancel" runat="server" Text="Cancel"
CssClass="Button" /> <asp:Button ID="cmdEdit" runat="server" Text="Hiệu
chỉnh sản phẩm" CssClass="Button" /></td></tr>
</table>
</asp:Content>
Partial Class QuanLy_EditProInherits System.Web.UI.PageDim MaSP As IntegerDim Bangketnoi As New ds.sp_ProSelectDataTableDim bien As New dsTableAdapters.sp_ProSelectTableAdapter
Protected Sub Page_Load(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles Me.Load MaSP = Request("tiep")
If Not IsPostBack Then InputDatainCombo() LoadDuLieu(MaSP)
End IfEnd SubSub InputDatainCombo()
cboStatus.Items.Insert(0, "Cấm sử dụng") cboStatus.Items.Insert(1, "Được sử dụng")
End SubSub LoadDuLieu(ByVal proid As Integer)
Bangketnoi.Reset() bien.Fill(Bangketnoi, proid) txtProDescript.Text = Bangketnoi.Rows(0).Item( "ProDescript") txtProImage.Text = Bangketnoi.Rows(0).Item( "ProImage") txtProInform.Text = Bangketnoi.Rows(0). Item("ProInform") txtProname.Text = Bangketnoi.Rows(0).Item( "Proname") txtProPrice.Text = Bangketnoi.Rows(0).Item( "ProPrice") cboStatus.SelectedIndex = Bangketnoi.Rows(0).Item( "ProStatus")
End Sub
Protected Sub cmdCancel_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdCancel.Click LoadDuLieu(MaSP)
End Sub
Protected Sub cmdEdit_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdEdit.Click
Trang 9/17
Câu 4:
Protected Sub cmdCancel_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdCancel.Click LoadDuLieu(MaSP)
End Sub
Protected Sub cmdEdit_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdEdit.Click
Dim bangEdit As New ds.sp_ProUpdateDataTableDim bienEdit As New
dsTableAdapters.sp_ProUpdateTableAdapter bangEdit.Reset() bienEdit.Fill(bangEdit, MaSP, Trim(txtProname.Text),cboStatus.SelectedIndex, Trim(txtProImage.Text),CInt(txtProPrice.Text), Trim(txtProDescript.Text) ,Trim(txtProInform.Text)) lblLoi.Text = bangEdit.Rows(0).Item( "errmsg")
End SubEnd Class
CREATE PROCEDURE [dbo].[sp_CatSelect]@CatID as integer,@hien as integer,@an as integerASif @CatID=0Select * From Categorieswhere CatStatus=@an or CatStatus=@hienelseSelect * From Categorieswhere CatID=@CatID
CREATE PROCEDURE [dbo].[sp_CatDelete]@chuoiCatID as varchar(100)asDeclare @ChuoiThucThi as varchar(200)Set @ChuoiThucThi='Delete from Categories where Catid in('+@chuoiCatID+')'exec(@chuoithucthi)select errcode=1, errmsg=N'Xoa thanh cong'
Trang 10/17
Code trang QuanLyDanhMuc.aspx
<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false"
CodeFile="qldanhmuc.aspx.vb" Inherits="QuanLy_qldanhmuc" Title="UntitledPage" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"runat="Server">
<strong><span style="font-size: 14pt">QUẢN LÝ DANH MỤC</span></strong><br /><br /><table border="0" style="width: 100%">
<tr><td style="width: 100%">
<a href="AddCat.aspx"><span style="color: #1f5080">Tạo danhmục mới</span> </a>
<asp:Button ID="cmdXoa" runat="server" CssClass="Button"
Text="Xoa danh muc" /></td>
</tr><tr>
<td style="width: 1000px"> Lọc dữ liệu theo trạng thái:<asp:CheckBox runat="server"Text="Hiển thị" ID="chkHien" AutoPostBack="true" /> <asp:CheckBoxrunat="server" Text="Khóa" ID="chkAn" AutoPostBack="true" />
</td></tr><tr>
<td width="100%"><asp:Repeater ID="rptDanhmuc" runat="server">
<HeaderTemplate><table>
<tr class="Table_Header"><td>
Cat id</td><td>
Cat name</td><td>
Cat image</td><td>
Cat Status</td><td>
Cat Descript</td><td>
Delete Cat</td><td>
Edit cat</td>
</tr></HeaderTemplate><ItemTemplate>
<tr><td><%#Eval("Catid")%></td><td><%#Eval("CatName")%></td><td><img src="Uploads\<%#Eval("CatImage")%>"
width="100px" height="100px" /></td><td><%#IIf(Container.DataItem("CatStatus") = 1,
"<img src=""image/on.gif"">", "<img src=""image/off.gif"">")%></td><td><%#Eval("CatDescript")%></td><td><input type="checkbox"
value="<%#Eval("Catid")%>" name="chkXoa" /></td>
Trang 11/17
Code trang QuanLyDanhMuc.aspx.vb
<ItemTemplate><tr>
<td><%#Eval("Catid")%></td><td><%#Eval("CatName")%></td><td><img src="Uploads\<%#Eval("CatImage")%>"
width="100px" height="100px" /></td><td><%#IIf(Container.DataItem("CatStatus") = 1,
"<img src=""image/on.gif"">", "<img src=""image/off.gif"">")%></td><td><%#Eval("CatDescript")%></td><td><input type="checkbox"
value="<%#Eval("Catid")%>" name="chkXoa" /></td><td><a
href="EditCat.aspx?CatID=<%#Eval("Catid")%>">Edit</a></td></tr>
</ItemTemplate><FooterTemplate></table></FooterTemplate>
</asp:Repeater></td>
</tr></table><br />
</asp:Content>
Partial Class QuanLy_qldanhmucInherits System.Web.UI.PageDim BangkEtnoi As New ds.sp_CatSelectDataTableDim bien As New dsTableAdapters.sp_CatSelectTableAdapterSub LayDuLieu(ByVal an As Integer, ByVal hien As Integer)
BangkEtnoi.Reset() bien.Fill(BangkEtnoi, 0, an, hien) rptDanhmuc.DataSource = BangkEtnoi rptDanhmuc.DataBind()
End SubProtected Sub Page_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles Me.LoadIf Not IsPostBack Then
LayDuLieu(0, 1)End If
End Sub
Protected Sub cmdXoa_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdXoa.Click
Dim mangchon As String mangchon = Request("chkXoa")
Dim BangkEtnoi1 As New ds.sp_CatDeleteDataTableDim bien1 As New dsTableAdapters.sp_CatDeleteTableAdapter
bien1.Fill(BangkEtnoi1, mangchon) LayDuLieu(0, 1)
End Sub
Protected Sub chkHien_CheckedChanged(ByVal sender As Object, ByVal eAs System.EventArgs) Handles chkHien.CheckedChanged LayDuLieu(KiemTraAn, KiemTraHien)
End Sub
Protected Sub chkAn_CheckedChanged(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles chkAn.CheckedChanged LayDuLieu(KiemTraAn, KiemTraHien)
Trang 12/17
Bài tập 5
Protected Sub chkHien_CheckedChanged(ByVal sender As Object, ByVale As System.EventArgs) Handles chkHien.CheckedChanged LayDuLieu(KiemTraAn, KiemTraHien)
End Sub
Protected Sub chkAn_CheckedChanged(ByVal sender As Object,ByVal e As System.EventArgs) Handles chkAn.CheckedChanged LayDuLieu(KiemTraAn, KiemTraHien)
End Sub
Function KiemTraHien() As IntegerIf chkHien.checked = True Then
Return 1Else
Return -1End If
End Function
Function KiemTraAn() As IntegerIf chkAn.Checked = True Then
Return 0Else
Return -1End If
End Function
End Class
CREATE PROCEDURE [dbo].[sp_CatInsert]@Catname as nvarchar(50),@CatImage as nvarchar(250),@CatDescript as nvarchar(50)as if (exists(Select * from Categories where CatName = @Catname))
beginSelect ErrCode=1, ErrMsg=N'Danh m ục đã tồn tại'return
endInsert Into Categories(catname,catimage,catstatus,catdescript)
values(@Catname,@CatImage,1,@CatDescript )Select ErrCode=0, ErrMsg=N'T ạo thành công'
Trang 13/17
Code trang AddDanhMuc.aspx<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false" CodeFile="AddCat.aspx.vb" Inherits="QuanLy_AddCat"title="Untitled Page" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server">
<br /><table align="center" class="DataTable" width="500">
<tr><td class="Table_Header" colspan="2">
Add Categories</td></tr><tr>
<td class="ContentCell"> Cat name</td>
<td class="InputCell"><asp:TextBox ID="txtCatname"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell"> Cat Image</td>
<td class="InputCell"><asp:FileUpload ID="myFileUpload" runat="server" /><asp:Button ID="btnFileUpload" runat="server" Text="Upload
File" /><br /><asp:Label ID="lblSaveResults" runat="server"></asp:Label><asp:Label ID="lblTenFile" runat="server"
Visible="False"></asp:Label></td></tr><tr>
<td class="ContentCell"> Cat description</td>
<td class="InputCell"> <asp:TextBox ID="txtDes"
runat="server"></asp:TextBox></td></tr><tr>
<td align="right" colspan="2"><asp:Label ID="lblLoi" runat="server"></asp:Label> <asp:Button ID="cmdCancel" runat="server"
CssClass="Button" Text="Cancel" /> <asp:Button ID="cmdAdd" runat="server"
CssClass="Button" Text="Create categories" /></td>
</tr></table>
</asp:Content>
Trang 14/17
Code trang AddDanhMuc.aspx.vb
Imports System.IO
Partial Class QuanLy_AddCatInherits System.Web.UI.Page
Protected Sub cmdAdd_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdAdd.Click
Dim BangKetNoi As New ds.sp_CatInsertDataTableDim Bien As New dsTableAdapters.sp_CatInsertTableAdapter
BangKetNoi.Reset() Bien.Fill(BangKetNoi, Trim(txtCatname.Text), lblTenFile.Text,Trim(txtDes.Text)) lblLoi.Text = BangKetNoi.Rows(0).Item("errmsg") txtCatname.Text = "" txtDes.Text = "" txtCatname.Focus()
End Sub
Protected Sub cmdCancel_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdCancel.Click txtCatname.Text = "" txtDes.Text = "" txtCatname.Focus()
End Sub
Protected Sub btnFileUpload_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles btnFileUpload.Click
Dim strStatusMessage As StringDim strSaveFileAs As String
strSaveFileAs = Server.MapPath( "uploads/" &myFileUpload.FileName)
TryIf myFileUpload.HasFile Then
myFileUpload.SaveAs(strSaveFileAs) strStatusMessage = "File saved as: " + strSaveFileAs
Else strStatusMessage = "No file was uploaded."
End IfCatch Ex As Exception
strStatusMessage = "Unable to save the uploaded file. Theerror was: " & Ex.Message
Finally lblSaveResults.Text = strStatusMessage lblTenFile.Text = myFileUpload.FileName
End TryEnd Sub
End Class
Trang 15/17
Bài 6:
Code trang EditDanhMuc.aspx
CREATE PROCEDURE [dbo].[sp_CatUpdate]@Catid as integer,@Catname as nvarchar(50),@CatImage as nvarchar(250),@CatStatus as integer,@CatDescript as nvarchar(50) ASupdate Categoriesset CatName=@Catname,CatImage=@CatImage,CatStatus=@CatStatus,CatDescript=@CatDescriptwhere Catid=@CatiDselect Errcode=1, ErrMsg=N'Hi ệu chỉnh danh mục thành công'
<%@ Page Language="VB" MasterPageFile="~/QuanLy/MasterPage.master"AutoEventWireup="false" CodeFile="EditCat.aspx.vb" Inherits="QuanLy_EditCat"title="Untitled Page" %><asp:Content ID="Content1" ContentPlaceHolderID="ContentPlaceHolder1"Runat="Server">
<table align="center" class="DataTable" width="500"><tr>
<td class="Table_Header" colspan="2"> Edit Categories</td>
</tr><tr>
<td class="ContentCell" style="width: 145px; height: 30px"> Cat name</td>
<td class="InputCell" style="height: 30px"><asp:TextBox ID="txtCatname"
runat="server"></asp:TextBox></td></tr><tr>
<td class="ContentCell" style="width: 145px"> Cat Image</td>
<td class="InputCell"><asp:FileUpload ID="myFileUpload" runat="server"
/><asp:Button ID="btnFileUpload"runat="server" Text="Upload File" /><asp:Label
ID="lblSaveResults" runat="server"></asp:Label><asp:LabelID="lblTenFile" runat="server"
Visible="False"></asp:Label></td></tr><tr>
<td class="ContentCell" style="width: 145px; height: 28px"> Status</td>
<td class="InputCell" style="height: 28px"><asp:DropDownList ID="cboStatus" runat="server"></asp:DropDownList></td>
</tr><tr>
<td class="ContentCell" style="width: 145px"> Cat Description</td>
<td class="InputCell"><asp:TextBox ID="txtDes" runat="server"></asp:TextBox></td>
</tr>
Trang 16/17
Code trang EditDanhMuc.aspx.vb
<tr><td class="ContentCell" style="width: 145px; height: 28px">
Status</td><td class="InputCell" style="height: 28px">
<asp:DropDownList ID="cboStatus" runat="server"></asp:DropDownList></td>
</tr><tr>
<td class="ContentCell" style="width: 145px"> Cat Description</td>
<td class="InputCell"><asp:TextBox ID="txtDes" runat="server"></asp:TextBox></td>
</tr><tr>
<td align="right" colspan="2" style="height: 23px"><asp:Label ID="lblLoi" runat="server"></asp:Label> <asp:Button ID="cmdCancel" runat="server"
CssClass="Button" Text="Cancel" /> <asp:Button ID="cmdEdit" runat="server"
CssClass="Button" Text="Hiệu chỉnh danh mục" /></td>
</tr></table>
</asp:Content>
Imports System.IOPartial Class QuanLy_EditCat
Inherits System.Web.UI.PageDim CatID As IntegerProtected Sub btnFileUpload_Click(ByVal sender As Object, ByVal e As
System.EventArgs) Handles btnFileUpload.ClickDim strStatusMessage As StringDim strSaveFileAs As String
strSaveFileAs = Server.MapPath( "uploads/" & myFileUpload.FileName)Try
If myFileUpload.HasFile Then myFileUpload.SaveAs(strSave FileAs) strStatusMessage = "File saved as: " + strSaveFileAs
Else strStatusMessage = "No file was uploaded."
End IfCatch Ex As Exception
strStatusMessage = "Unable to save the uploaded file. The errorwas: " & Ex.Message
Finally lblSaveResults.Text = strStatusMessage lblTenFile.Text = myFileUpload.FileName
End TryEnd Sub
Protected Sub cmdEdit_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdEdit.Click
Dim BangKetNoi As New ds.sp_CatUpdateDataTableDim Bien As New dsTableAdapters.sp_CatUpdateTableAdapter
BangKetNoi.Reset() Bien.Fill(BangKetNoi, CatID, Trim(txt Catname.Text),lblTenFile.Text, cboStatus.SelectedIndex, Trim(txtDes.Text)) lblLoi.Text = BangKetNoi.Rows(0).Item( "errmsg") txtCatname.Text = "" txtDes.Text = "" txtCatname.Focus()
Trang 17/17
Protected Sub cmdEdit_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdEdit.Click
Dim BangKetNoi As New ds.sp_CatUpdateDataTableDim Bien As New dsTableAdapters.sp_CatUpdateTableAdapter
BangKetNoi.Reset() Bien.Fill(BangKetNoi, CatID, Trim(txtCatname.Text),lblTenFile.Text, cboStatus.SelectedIndex, Trim(txtDes.Text)) lblLoi.Text = BangKetNoi.Rows(0).Item( "errmsg") txtCatname.Text = "" txtDes.Text = "" txtCatname.Focus()
End Sub
Protected Sub cmdCancel_Click(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles cmdCancel.Click LoadDuLieu(CatID)
End Sub
Sub LoadDuLieu(ByVal catid As Integer)Dim BangkEtnoi As New ds.sp_CatSelectDataTableDim bien As New dsTableAdapters.sp_CatSelectTableAdapter
BangkEtnoi.Reset() bien.Fill(BangkEtnoi, catid, -1, -1) txtCatname.Text = BangkEtnoi.Rows(0).Item( "Catname") lblTenFile.Text = BangkEtnoi.Rows(0).Item( "CatImage")
cboStatus.SelectedIndex =BangkEtnoi.Rows(0).Item("CatStatus") txtDes.Text = BangkEtnoi.Rows(0).Item( "CatDescript")
End Sub
Sub InputDatainCombo() cboStatus.Items.Insert(0, "Không sử dụng") cboStatus.Items.Insert(1, "Được sử dụng")
End Sub
Protected Sub Page_Load(ByVal sender As Object, ByVal e AsSystem.EventArgs) Handles Me.Load CatID = Request("CatID")
If Not IsPostBack Then InputDatainCombo() LoadDuLieu(CatID)
End IfEnd Sub
End Class