Préparation TDI2 (EFF 2010 Var4)

j'ai po compris

hicham rah lcode dyal suppression hwa li copit lik 9bila kaytsuprimaw les ligne li clé primaire dyalhom makaynch f lautre table wli kayn kay3tini erreur wnfss mochkil fach kansupprimer man datagrid . jarabt on delete cascade o walo o jarbt ncharcher 3la dak clé wach existe f lautre table ila kan ytl3 lia msgboxx fih erreur mé waloo o kayn hal akhor anani nzid wahd champ etat de type bit o f suppression n3tih 0 maybanch mat2afichach f les textbox ou bien datagrid mé khft f tashih y9albo la base de donnés wkhsshom mayl9awhch f base de donnés :s hadak li tsupprima o fhad cas lakhra ghaddi yb9a f la base de donnés :s

b7al haka bghit ngolik, chofi hahowa l code kaml dial forum Hopital dial Var1_2010

Code:


Imports System.Data
Imports System.Data.SqlClient

Public Class Hopital

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        da = New SqlDataAdapter("select * from Hopital", con)
        con.Open()
        da.Fill(ds, "Hopital")
        dt = ds.Tables("Hopital")
        con.Close()
        MsgBox("Chargement des données bien effectuer")

    End Sub

    Private Sub btnAjouter_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAjouter.Click

        If txtidhop.Text = "" Or Not IsNumeric(txtidhop.Text) Or txtnomhop.Text = "" Or txtadres.Text = "" Or txtville.Text = "" Then
            MsgBox("Tous les champs doit etre rempli correctement !!")
            Exit Sub
        End If

        Dim rep As Boolean = False
        For i As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(i)(0) = txtidhop.Text Then
                rep = True
                Exit For
            End If
        Next

        Dim dr As DataRow = dt.NewRow
        If rep = False Then
            dr(0) = txtidhop.Text
            dr(1) = txtnomhop.Text
            dr(2) = txtadres.Text
            dr(3) = txtville.Text
            dt.Rows.Add(dr)
            MsgBox("Ajout Bien effectuer")
        Else
            MsgBox("ID hopital existe déja")
            vider(Me)
            txtidhop.Focus()
        End If

    End Sub


    Private Sub btnmodif_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmodif.Click

        For i As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(i)(0) = Trim(txtidhop.Text) Then
                If txtnomhop.Text = "" Or txtadres.Text = "" Or txtville.Text = "" Then
                    MsgBox("Les champs doit etre remplie")
                Else
                    dt.Rows(i)(1) = txtnomhop.Text
                    dt.Rows(i)(2) = txtadres.Text
                    dt.Rows(i)(3) = txtville.Text
                    MsgBox("Modification bien effectuer")
                End If
                Exit For
            End If
        Next

    End Sub

    Private Sub btnenregist_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnenregist.Click
        Dim rep As String
        rep = MsgBox("Voulez vous vraiment enregistrer", 4, "Enregistrement")
        If rep = vbYes Then
            Try
                con.Open()
                cmdbuil = New SqlCommandBuilder(da)
                da.Update(ds, "Hopital")
                MsgBox("Enregistrement Bien effectuer")
                con.Close()
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            End
        Else
            End
        End If
    End Sub

    Private Sub btnsupprim_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsupprim.Click

        For i As Integer = 0 To dt.Rows.Count - 1
            If dt.Rows(i)(0) = Trim(txtidhop.Text) Then
                dt.Rows(i).Delete()
                MsgBox("Suppression bien effectuer")
                Exit For
            End If
        Next
    End Sub

    Public Sub pose(ByVal pos As Integer)
        txtidhop.Text = dt.Rows(pos)(0)
        txtnomhop.Text = dt.Rows(pos)(1)
        txtadres.Text = dt.Rows(pos)(2)
        txtville.Text = dt.Rows(pos)(3)
    End Sub

    Private Sub btnpremier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpremier.Click
        pos = 0
        pose(pos)
        btnpremier.Enabled = False
        btnpreceden.Enabled = False
        btnsuivant.Enabled = True
        btndernier.Enabled = True
    End Sub

    Private Sub btnpreceden_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpreceden.Click
        btnsuivant.Enabled = True
        btndernier.Enabled = True
        pos = pos - 1
        If pos < 0 Then
            MsgBox("vous etes deja au premier enregistrement")
            btnpremier.Enabled = False
            btnpreceden.Enabled = False
            pos = 0
        Else
            pose(pos)
        End If
    End Sub

    Private Sub btnsuivant_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsuivant.Click
        btnpremier.Enabled = True
        btnpreceden.Enabled = True
        pos = pos + 1
        If pos > dt.Rows.Count - 1 Then
            MsgBox("vous etes deja au derniere enregistrement")
            btnsuivant.Enabled = False
            btndernier.Enabled = False
            pos = dt.Rows.Count - 1
        Else
            pose(pos)
        End If
    End Sub

    Private Sub btndernier_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndernier.Click
        pos = dt.Rows.Count - 1
        pose(pos)
        btnsuivant.Enabled = False
        btndernier.Enabled = False
        btnpremier.Enabled = True
        btnpreceden.Enabled = True
    End Sub

    Private Sub btnfermer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnfermer.Click
        Me.Close()
    End Sub
End Class




wala hahowa l corrigé dial Var1_2010 partie windows kamla

TDI_V1_2010

bsr . kif jakoum les variente lwlin ?? ana yalah khdama fi variente 1 . mafhmtch les question lkhrin f web 4 5 et 6 letat makhdmnahach f web o xml ma9rinahch o hadak so2al lhr mafhmtoch ga3 . hahia la base de donnés ila htajha chi had :

Code:

create database v1_2011
use v1_2011
create table personnel(
matricule int primary key,
nom char(20),
prenom char(20),
telephone char(20),
passe char(20))

create  table marque (
NomMarque char(20) primary  key)


create table Autocar(
codecar int primary  key,
capacite int,
dateachat date,
consommation int,
NomMarque char(20) foreign key references marque(NomMarque) on delete cascade on update cascade)

create table ville(
Codeville int primary  key,
nomville char(20))

create table ligne (
Codeligne  int primary  key,
distance int,
CodeVilleDepart int foreign key  references ville (Codeville)on delete cascade on update cascade,
CodeVillearrivee int foreign key  references ville (Codeville))

create table calendrier(
Codecalendrier int primary key ,
jourVoyage int,
heurDepart time,
heurearrive time)

create table  voyage(
codevoyage int identity(1,1) primary key,
dhdepartvoyage datetime,
dharrivevoyage datetime,
places int,
compteurdepart int,
compteurarrive int,
matricule int foreign key references personnel (matricule)on delete cascade on update cascade,
codecar int foreign key references autocar (codecar)on delete cascade on update cascade,
Codecalendrier int  foreign key references calendrier (Codecalendrier) on delete cascade on update cascade)





3afakoum li khdm chi haja ylo7ha hna :s et mercii