حلول مشاكل القن السري للدخول ل Microsoft Teams
Les activités du module 1
أقوى برنامج كشف الهكر بالمجان لمدة سنتين
Programme d'aide pour la realisation d'un projet de gestion en VB NET
Imports System.Data.OleDb
Public Objetdatatable As DataTable
La fonction de chaque formulaire
Sub reservation()
Try
strsql = "select * from reservation"
cmd = New OleDbCommand(strsql)
Objetdataadapter = New OleDbDataAdapter(cmd)
cmd.Connection = con
Objetdataadapter.Fill(Objetdataset, "reservation")
Objetdatatable = Objetdataset.Tables("reservation")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
_______________________________________________
Load
Private Sub reservation_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call connect()
Call reservation()
Me.TextBox1.Text = Objetdatatable.Rows(rownumber).Item("nreservation")
Me.TextBox2.Text = Objetdatatable.Rows(rownumber).Item("villedepart")
Me.TextBox3.Text = Objetdatatable.Rows(rownumber).Item("villearrivee")
Me.TextBox4.Text = Objetdatatable.Rows(rownumber).Item("datedepart")
Me.TextBox5.Text = Objetdatatable.Rows(rownumber).Item("montant")
DataGridView2.DataSource = Objetdataset
DataGridView2.DataMember = "reservation"
End Sub
______________________________________________
SUIVANT:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Call connect()
If rownumber = Objetdatatable.Rows.Count - 1 Then
MsgBox("dernier enregistrement")
Else
rownumber += 1
Me.TextBox1.Text = Objetdatatable.Rows(rownumber).Item("nreservation")
Me.TextBox2.Text = Objetdatatable.Rows(rownumber).Item("villedepart")
Me.TextBox3.Text = Objetdatatable.Rows(rownumber).Item("villearrivee")
Me.TextBox4.Text = Objetdatatable.Rows(rownumber).Item("datedepart")
Me.TextBox5.Text = Objetdatatable.Rows(rownumber).Item("montant")
End If
End Sub
_______________________________________________
PRECEDENT:
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Call connect()
If rownumber = 0 Then
MsgBox("premier enregistrement")
Else
rownumber -= 1
Me.TextBox1.Text = Objetdatatable.Rows(rownumber).Item("nreservation")
Me.TextBox2.Text = Objetdatatable.Rows(rownumber).Item("villedepart")
Me.TextBox3.Text = Objetdatatable.Rows(rownumber).Item("villearrivee")
Me.TextBox4.Text = Objetdatatable.Rows(rownumber).Item("datedepart")
Me.TextBox5.Text = Objetdatatable.Rows(rownumber).Item("montant")
End If
End Sub
_______________________________________________
NOUVEAU:
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
End Sub
_______________________________________________
ENREGISTRER:
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Call connect()
If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or TextBox5.Text = "" Then
MsgBox("remplir tous les champs")
Else
Objetdatarow = Objetdataset.Tables("reservation").NewRow()
Objetdatarow("nreservation") = Me.TextBox1.Text
Objetdatarow("villedepart") = Me.TextBox2.Text
Objetdatarow("villearrivee") = Me.TextBox3.Text
Objetdatarow("datedepart") = Me.TextBox4.Text
Objetdatarow("montant") = Me.TextBox5.Text
Objetdataset.Tables("reservation").Rows.Add(Objetdatarow)
Objetcommandbuilder = New OleDbCommandBuilder(Objetdataadapter)
Objetdataadapter.Update(Objetdataset, "reservation")
Objetdataset.Clear()
Objetdataadapter.Fill(Objetdataset, "reservation")
Objetdatatable = Objetdataset.Tables("reservation")
MsgBox("enregistrement effectuées")
End If
End Sub
_______________________________________________
FERMER:
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Me.Close()
End Sub
_______________________________________________
Supprimer
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Call connect()
Objetdataset.Tables("reservation").Rows(rownumber).Delete()
Objetcommandbuilder = New OleDbCommandBuilder(Objetdataadapter)
Objetdataadapter.Update(Objetdataset, "reservation")
MsgBox("suppression effectué")
End Sub
MODIFIER:
Private Sub
Button7_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button7.ClickCall connect()
Objetdatarow = Objetdataset.Tables("client").Rows(rownumber)
Objetdatarow("nreservation") = Me.TextBox1.Text
Objetdatarow("villedepart") = Me.TextBox2.Text
Objetdatarow("villearrivee") = Me.TextBox3.Text
Objetdatarow("datedepart") = Me.TextBox4.Text
Objetdatarow("montant") = Me.TextBox5.Text
Objetcommandbuilder = New OleDbCommandBuilder(Objetdataadapter)
Objetdataadapter.Update(Objetdataset, "client")
Objetdataset.Clear()
Objetdataadapter.Fill(Objetdataset, "client")
Objetdatatable = Objetdataset.Tables("client")
MsgBox("modification effectués")
End Sub
RECHERCHER
Private Sub
Button8_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles
Button8.ClickCall connect()
Call reservation()
Dim cmd As New OleDbCommand("select * from reservation where [code] like '%" & txtSearch.Text & "%'")
cmd.Connection = con
Dim da As New OleDbDataAdapter
da.SelectCommand = cmd
Dim ds As New DataSet
da.Fill(ds, "client")
dtg1.DataSource = ds.Tables("client")
con.Close()
End Sub
End Class
___________________________________________
MODULE
Imports System.Data.OleDb
Imports System.Data
Module Module1
Public con As New OleDbConnection()
Public cmd As OleDbCommand
Public Objetdataadapter As OleDbDataAdapter
Public Objetdataset As New DataSet()
Public strsql As String
Public Objetdatatable As DataTable
Public Objetdatarow As DataRow
Public rownumber As Integer
Public Objetcommandbuilder As OleDbCommandBuilder
Public Objetdatatable1 As DataTable
Public Sub connect()
Try
con = New OleDbConnection()
con.ConnectionString = "provider=Microsoft.ace.OLEDB.12.0;" & "Data Source =C:\Users\user\Desktop\pri.accdb;"
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
End Module
JMerise : le logiciel de modélisation des MCD pour Merise
JMerise : est un logiciel dédié à la modélisation des modèles conceptuels de données (MCD) pour Merise il permet la généralisation et la spécialisation des entités, la création des relations et des cardinalités ainsi que la généralisation des modéles logiques de données(MLD) et des script SQL..
- Pour télécharger le logiciel Jmerise cliquer ici
l'archive JMerise.zip contient les éléments suivants :
1. JMerise.jar
2. exemple.mcd
3. lisez moi.txt
4. un répertoire 'lib' qui contient Les Drivers .jar et les fichiers parametres.class
- Pour ouvrir le logiciel Jmerise
Dezipper le fichier JMerise.zip;
ne pas renommer 'JMerise.jar' et le répertoire 'lib' non plus.
ne pas renommer 'JMerise.jar' et le répertoire 'lib' non plus.
Modèle conceptuel de données : Exercices
Salut tout le monde,
Exercice Tennis : joue et gagne
Déterminer les cardinalités des relations jouer et gagner dans le cas d'un tournoi en simple
Exercice : Gestion d’une entreprise
Dans une entreprise, un département est identifié par un nom et caractérisé par une localisation.
Un employé est caractérisé par un numéro, son nom, son grade et le département dans lequel il travaille.
Le numéro d’un employé est unique dans un département mais pas dans l’entreprise.
1) Donner le modèle conceptuel de données correspondant, en précisant les attributs.
Exercice : Gestion des dossiers comptables d’un centre de gestion
On se situe dans un centre de gestion comprenant plusieurs agences délocalisées dans une commune. Dans chaque agence travaillent plusieurs comptables, chacun gérant plusieurs exploitations. Un comptable ne travaille que dans une seule agence et une exploitation ne peut gérer que par un seul comptable.
Quelques informations sont : Le nom de l’exploitation, La commune où se situe l’exploitation, Le nom du comptable, Le directeur et la ville de l’agence, Le nom de l’agence, L’âge du comptable, Le numéro de téléphone du comptable, le nom de la commune
1. Établir le modèle conceptuel de donnée (MCD) correspondant ?
Exercice : Gestion des logements dans une agence immobilière
Une agence de location de maisons et d’appartements désire gérer sa liste de logements. Elle voudrait connaître l’implantation de chaque logement (nom de la commune et du quartier) ainsi que les personnes qui les occupent (les signataires uniquement).
Le loyer dépend d’un logement, mais en fonction de son type (maison, studio, T1, T2...)
Pour chaque logement, on veut disposer également de l’adresse, de la superficie ainsi que du loyer.
Quant aux individus qui occupent les logements (les signataires du contrat uniquement), on se contentera de leurs noms, prénoms, date de naissance et numéro de téléphone.
Pour chaque commune, on désire connaître le nombre d’habitants ainsi que la distance séparant la commune de l’agence.
1. Etablir le modèle conceptuel des données correspondant
Tous les droits sont résérvés à solutions professionnelles 2020 | Privacy-Policy | Réglement |