Accueil
Contact5eme jours de Préparation TDI2
Page 4 sur 10 • Partagez
Page 4 sur 10 • 
1, 2, 3, 4, 5, 6, 7, 8, 9, 10
5eme jours de Préparation TDI2
par Mr.Hicham Sam Juin 25, 2011 10:03 pm
Rappel du premier message :
Salut tt les TDIens et les TDiennes alors inchallah aujourd'hui on va commencé par EFM dial Asp.net lli daro le membre Csharp
Telecharger
Sans oublions les régles : pas plus de 2 exercices si le 1er ou bien le 2eme n'est pas fait.
Telecharger
Sans oublions les régles : pas plus de 2 exercices si le 1er ou bien le 2eme n'est pas fait.
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Re: 5eme jours de Préparation TDI2
par adil555 Dim Juin 26, 2011 12:26 am
dim pos declartia string au debut ri bach mli ntki 3lka valider y3raf wach supprimer wla modifier
safi ri bda nta
safi ri bda nta
adil555-
- Nombre de messages : 31
Date d'inscription : 21/06/2011
Re: 5eme jours de Préparation TDI2
par Mr.Hicham Dim Juin 26, 2011 12:31 am
Ok merci 
Q1:
Création de la base de donnée (tt le monde sai comment faire bla mandirha)
Q2:
Déclencheurs
Q3:
Voir réponse en haut de Adil55 c'est preske la meme chose
Q4:
je lai déja expliqué en haut comment faire le menu, c'est simple(lli mafhamtch had question ygolo nchr7oh en video)
Q1:
Création de la base de donnée (tt le monde sai comment faire bla mandirha)
Q2:
Déclencheurs
- Code:
use EFMFES_2011
go
if object_ID('empeche_S','TR') is not null
drop trigger empeche_MS
go
create trigger empeche_S ON Marque For Delete As
Begin
if(select count(*) from Marque,Vehicule,deleted where
Marque.code_marque=deleted.code_marque and Marque.code_marque=Vehicule.codemark)=0
begin
print 'Vous ne pouvez pas supprimer'
rollback transaction
return
end
end
if object_ID('empeche_M','TR') is not null
drop trigger empeche_MS
go
create Trigger empeche_M ON Marque For Update As
Begin
if update(code_marque)
begin
if(select count(*) from Marque,Vehicule,inserted where
Marque.code_marque=inserted.code_marque and Marque.code_marque=Vehicule.codemark)=0
begin
print 'Vous ne pouvez pas modifier'
rollback transaction
return
end
end
end
Q3:
Voir réponse en haut de Adil55 c'est preske la meme chose
Q4:
je lai déja expliqué en haut comment faire le menu, c'est simple(lli mafhamtch had question ygolo nchr7oh en video)
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Re: 5eme jours de Préparation TDI2
par Mr.Hicham Dim Juin 26, 2011 12:38 am
Q5:
Interface de la page mise a jour
Voir
Interface de la page mise a jour
Voir
- Code:
Imports System.Data.SqlClient
Partial Class maj_Vehicule
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\h3llspy;Initial Catalog=EFMFES_2011;Integrated Security=True")
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
cmd = New SqlCommand("select nom_marque From Marque", con)
con.Open()
dr = cmd.ExecuteReader
While dr.Read
listmark.Items.Add(dr(0))
End While
dr.Close()
con.Close()
End If
End Sub
Protected Sub btnajouter_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnajouter.Click
Try
cmd = New SqlCommand("select * from Marque where nom_marque=@mark", con)
con.Open()
cmd.Parameters.AddWithValue("@mark", listmark.Text)
Dim m As Integer
dr = cmd.ExecuteReader
While dr.Read
m = dr(0)
End While
dr.Close()
cmd = New SqlCommand("insert into Vehicule values(@num,@imm,@date,@m)", con)
cmd.Parameters.AddWithValue("@num", txtnum.Text)
cmd.Parameters.AddWithValue("@imm", txtimmatr.Text)
cmd.Parameters.AddWithValue("@date", txtdatesorti.Text)
cmd.Parameters.AddWithValue("@m", m)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Ajout Bien effectuer")
Catch ex As Exception
MsgBox("Vehicule existe déja")
End Try
End Sub
Protected Sub btnmodifier_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnmodifier.Click
cmd = New SqlCommand("select * from Marque where nom_marque=@mark", con)
con.Open()
cmd.Parameters.AddWithValue("@mark", listmark.Text)
Dim code As Integer
dr = cmd.ExecuteReader
While dr.Read
code = dr(0)
End While
dr.Close()
If MsgBox("Voulez vous vraiment modifier", MsgBoxStyle.OkCancel, "Modifier") = MsgBoxResult.Ok Then
cmd = New SqlCommand("update Vehicule set immatriculation=@imm,date_sortie=@date,codemark=@code where num=@num", con)
cmd.Parameters.AddWithValue("@num", txtnum.Text)
cmd.Parameters.AddWithValue("@imm", txtimmatr.Text)
cmd.Parameters.AddWithValue("@date", txtdatesorti.Text)
cmd.Parameters.AddWithValue("@code", code)
cmd.ExecuteNonQuery()
MsgBox("Modification bien effectuer")
End If
End Sub
Protected Sub btnRecherche_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnRecherche.Click
Dim rep As String = InputBox("Saisir le num à modifier")
cmd = New SqlCommand("select num,immatriculation,date_sortie,nom_marque from Vehicule,Marque where num=@rep and Vehicule.codemark=Marque.code_marque", con)
con.Open()
cmd.Parameters.AddWithValue("@rep", rep)
dr = cmd.ExecuteReader
While dr.Read
txtnum.Text = dr(0)
txtimmatr.Text = dr(1)
txtdatesorti.Text = dr(2)
listmark.Text = dr(3)
End While
dr.Close()
End Sub
End Class
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Re: 5eme jours de Préparation TDI2
par Mr.Hicham Dim Juin 26, 2011 12:56 am
Q6:
Interface Page de Recherche Vehicule :
Voir
Interface page recherche employé
c'est preske la meme chose ke la page en haut
Voir
Interface Page de Recherche Vehicule :
Voir
- Code:
Imports System.Data.SqlClient
Imports System.Data
Partial Class recherche_vehicule
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\h3llspy;Initial Catalog=EFMFES_2011;Integrated Security=True")
Dim dr As SqlDataReader
Dim cmd As SqlCommand
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
If Not Page.IsPostBack Then
cmd = New SqlCommand("select nom_marque from Marque", con)
con.Open()
dr = cmd.ExecuteReader
While dr.Read
listmark.Items.Add(dr(0))
End While
dr.Close()
con.Close()
End If
End Sub
Protected Sub btnrecherchevehicule_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnrecherchevehicule.Click
If listmark.Text = "Sélectionné" Then
MsgBox("Veuillez sélectionnée la marque SVP")
Exit Sub
End If
cmd = New SqlCommand("select num,immatriculation,date_sortie,nom_marque from Vehicule,Marque where Vehicule.codemark=Marque.code_marque and Marque.nom_marque=@mark", con)
con.Open()
cmd.Parameters.AddWithValue("@mark", listmark.Text)
dr = cmd.ExecuteReader
While dr.Read
gridvehicule.DataSource = dr
gridvehicule.DataBind()
End While
dr.Close()
con.Close()
End Sub
End Class
Interface page recherche employé
c'est preske la meme chose ke la page en haut
Voir
- Code:
Imports System.Data.SqlClient
Imports System.Data
Partial Class rech_employe
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\h3llspy;Initial Catalog=EFMFES_2011;Integrated Security=True")
Dim dr As SqlDataReader
Dim cmd As SqlCommand
Protected Sub btnrecherchemp_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnrecherchemp.Click
If txtemp.Text = "" Then
MsgBox("Veuillez saisir matricule de l'employé SVP")
Exit Sub
End If
cmd = New SqlCommand("select matr,nom,prenom from Employe where matr=@matr", con)
con.Open()
cmd.Parameters.AddWithValue("@matr", txtemp.Text)
dr = cmd.ExecuteReader
Dim t As New DataTable
t.Load(dr)
gridviewemp.DataSource = t
gridviewemp.DataBind()
con.Close()
End Sub
End Class
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Re: 5eme jours de Préparation TDI2
par Mr.Hicham Dim Juin 26, 2011 1:16 am
Q7:
Interface page Inscription
Voir
Interface page Inscription
Voir
- Code:
Imports System.Data.SqlClient
Partial Class inscription
Inherits System.Web.UI.Page
Dim con As New SqlConnection("Data Source=.\h3llspy;Initial Catalog=EFMFES_2011;Integrated Security=True")
Dim cmd As SqlCommand
Dim dr As SqlDataReader
Protected Sub btninscrire_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btninscrire.Click
Try
cmd = New SqlCommand("select * from Employe where matr=@matr", con)
con.Open()
cmd.Parameters.AddWithValue("@matr", txtmatr.Text)
dr = cmd.ExecuteReader
While dr.Read
If dr(0) = Trim(txtmatr.Text) Then
MsgBox("Existe déja")
Exit Sub
End If
End While
dr.Close()
cmd = New SqlCommand("insert into Employe values(@matr,@nom,@pren,@log,@pass)", con)
cmd.Parameters.AddWithValue("@matr", txtmatr.Text)
cmd.Parameters.AddWithValue("@nom", txtnom.Text)
cmd.Parameters.AddWithValue("@pren", txtprenom.Text)
cmd.Parameters.AddWithValue("@log", txtlogin.Text)
cmd.Parameters.AddWithValue("@pass", txtpass.Text)
cmd.ExecuteNonQuery()
con.Close()
MsgBox("Ajout Bien effectuer")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Class
Mr.Hicham-
- Nombre de messages : 464
Date d'inscription : 25/05/2010
Page 4 sur 10 • 1, 2, 3, 4, 5, 6, 7, 8, 9, 10
Sujets similaires» 4eme jours du Préparation TDI2 (sa commence)
» Préparation TDI2 (EFF 2010 Var4)
» 1er jours du Préparation Sur le Forum TRI
» 1er jours du Préparation Sur le Forum TDI
» 2eme jours du Préparation Sur le Forum TDI
» Préparation TDI2 (EFF 2010 Var4)
» 1er jours du Préparation Sur le Forum TRI
» 1er jours du Préparation Sur le Forum TDI
» 2eme jours du Préparation Sur le Forum TDI
Page 4 sur 10
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
» Examen de fin de formation Théorique 2018 TDM
» Examen de Passage Chef Chantier TP 2010 Pratique
» Examen de fin de formation Chef de Chantier T.P 2012 Théorique
» Examen de fin de formation TSGO 2016 Pratique Variante 1
» Examen de fin de formation Chef de Chantier T.P 2008 Théorique
» Examen de Passage Chef de Chantier T.P 2008 Théorique et Pratique
» Examen de Fin de Formation Gestion des Entreprises TSGE 2015
» Examen de Passage 2015 Gestion des Entreprises TSGE
» Examen de Passage Gestion des Entreprises TSGE 2017