| 12
 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