5eme jours de Préparation TDI2

Page 4 sur 10 Précédent  1, 2, 3, 4, 5, 6, 7, 8, 9, 10  Suivant

Voir le sujet précédent Voir le sujet suivant Aller en bas

5eme jours de Préparation TDI2

Message par Mr.Hicham le 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.



Mr.Hicham
 
 

Nombre de messages : 464
Date d'inscription : 25/05/2010
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas


Re: 5eme jours de Préparation TDI2

Message par adil555 le 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 Very Happy



adil555
 
 

Nombre de messages : 31
Date d'inscription : 21/06/2011
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:31 am

Ok merci Smile

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
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:38 am

Q5:
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
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 12:56 am

Q6:

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
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Re: 5eme jours de Préparation TDI2

Message par Mr.Hicham le Dim Juin 26, 2011 1:16 am

Q7:

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
Masculin

Voir le profil de l'utilisateur

Revenir en haut Aller en bas

Page 4 sur 10 Précédent  1, 2, 3, 4, 5, 6, 7, 8, 9, 10  Suivant

Voir le sujet précédent Voir le sujet suivant Revenir en haut


 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum