1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109
|
Protected Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
With sdsListePAge
.DataSourceMode = SqlDataSourceMode.DataSet
.SelectCommand = "SELECT Id_Pages, ApplicationId, Page_Titre, Page_Lien, Page_Nom, Page_Default, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET FROM GLOBAL_Pages WHERE ApplicationId = '" & GetApplicationGUID().ToString & "'"
.UpdateCommand = "UPDATE GLOBAL_Pages SET Page_Titre = @Page_Titre, Page_Lien = @Page_Lien, Page_Nom = @Page_Nom, Page_Default = @Page_Default, Page_Actif = @Page_Actif, Page_Restriction = @Page_Restriction, Page_Date_MEL = @Page_Date_MEL, Page_Date_RET = @Page_Date_RET WHERE Id_Pages = @Id_Pages"
.DeleteCommand = "DELETE FROM GLOBAL_Pages WHERE Id_Pages = @Id_Pages"
.InsertCommand = "INSERT INTO GLOBAL_Pages (ApplicationId, Page_Titre, Page_Lien, Page_Nom, Page_Default, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET) VALUES (@ApplicationId, @Page_Titre, @Page_Lien, @Page_Nom, @Page_Default, @Page_Actif, @Page_Restriction, @Page_Date_MEL, @Page_Date_RET)"
.UpdateCommandType = SqlDataSourceCommandType.Text
End With
With gvListePage
Dim IdPage, Page_Titre, Page_Lien, Page_Nom, Page_Actif, Page_Restriction, Page_Date_MEL, Page_Date_RET As New BoundField
With IdPage
.HeaderText = "Ref"
.DataField = "Id_Pages"
.ControlStyle.Width = Unit.Pixel(25)
.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Titre
.HeaderText = "Titre de la Page"
.DataField = "Page_Titre"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Lien
.HeaderText = "Lien"
.DataField = "Page_Lien"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Nom
.HeaderText = "Nom"
.DataField = "Page_Nom"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Actif
.HeaderText = "Actif"
.DataField = "Page_Actif"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Restriction
.HeaderText = "Restri"
.DataField = "Page_Restriction"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Date_MEL
.HeaderText = "Date MEL"
.DataField = "Page_Date_MEL"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
With Page_Date_RET
.HeaderText = "DAte RET"
.DataField = "Page_Date_RET"
'.ControlStyle.Width = Unit.Pixel(25)
'.HeaderStyle.Width = Unit.Pixel(25)
End With
Dim Defaut As New ImageField
With Defaut
.DataImageUrlField = "Page_Default"
.DataImageUrlFormatString = "~/App_Themes/" & GetParamSite("Theme") & "/{0}.png"
End With
Dim defaultCMD As New ButtonField
With defaultCMD
.HeaderText = "Defaut"
.Text = "Rendre"
.ButtonType = ButtonType.Button
.CommandName = "RendreDefault"
End With
Dim detailCMD As New ButtonField
With detailCMD
.HeaderText = "Détail"
.Text = "Détail"
.ButtonType = ButtonType.Button
.CommandName = "Detail"
End With
With .Columns
.Add(IdPage)
.Add(Page_Titre)
.Add(Page_Lien)
.Add(Page_Nom)
.Add(Page_Actif)
.Add(Page_Restriction)
.Add(Page_Date_MEL)
.Add(Page_Date_RET)
.Add(Defaut)
.Add(defaultCMD)
.Add(detailCMD)
End With
.AutoGenerateColumns = False
.AutoGenerateEditButton = True
.AllowPaging = True
.PageSize = 20
.DataBind()
End With
End Sub |
Partager