ANNEXE
QUELQUES CODES
PrivateSub Valider_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles Valider.Click
Try
cmde.CommandText = "Insert into tRoledeprogrammation
(Ord,Ed,Objdoc,Entreprise,Dateval,Numimp,Nomver,Durcontr,Numov) values('"&
fpc.Text &"','"& dates.Text &"','"& cbomot.Text &"','"&
contrib.Text &"','"& perdu.Text &"','"& nif.Text
&"','"& nomver.Text &"','"& durcont.Text &"','"&
numref.Text &"') "
cmde.Connection = kab
kab.Open()
Dim rep As MsgBoxResult = MsgBox(" Voulez-vous enregistrer?")
cmde.ExecuteNonQuery()
If MsgBoxResult.Ok Then
MsgBox("La base des données a capté
ces informations", MsgBoxStyle.Exclamation, "Réussite")
chargerdg()
Else
cmde.ExecuteNonQuery()
kab.Close()
MsgBox("Il y a une erreur")
EndIf
Catch ex As Exception
MsgBox(" Erreur des doublons")
kab.Close()
EndTry
EndSub
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) HandlesMyBase.Load
cbomot.Items.Add("Avis de Mise en recouvrement")
cbomot.Items.Add("Taxation Office")
cbomot.Items.Add("Avis de redressement")
cbotres.Items.Add("TRESOR")
cbotres.Items.Add("EAD")
contrib.Items.Add("MAISON NGOYA")
contrib.Items.Add("MAISON DIEU TOUT PUISSANT")
contrib.Items.Add("STATION IHUSI")
contrib.Items.Add("STATION SIPET")
contrib.Items.Add("MAISON GRACE A LA GLOIRE")
contrib.Items.Add("QUINCAILLERIE LA JOIE")
numbur.Text = 19.8
gouv.Text = "Gouvernement"
tauxff.Text = 930
chargerdg()
EndSub
Imports System
Imports System.Data
Imports System.Data.OleDb
PublicClass MEN
Dim kab AsNew
OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ir
KABANZA JUSTIN\Documents\Controle.accdb")
PrivateSub Bordereau_taxation_Click(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles Bordereau_taxation.Click
Try
Dim contenu AsString
contenu = ""
Dim Bordereau AsNew ETAT
kab.ConnectionString =
("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Ir KABANZA
JUSTIN\Documents\Controle.accdb")
Dim donnees AsNew DataSet
donnees.Clear()
kab.Open()
'Dim rc As New CONNEXION
'rc.kab.Close()
'rc.dts.Clear()
Dim a AsString = InputBox("Saisir la nature d'impôt
à rechercher")
contenu = ("SELECT * from tAvisderedressement where(
Natimp='"& a &"')")
MessageBox.Show("Etes-vous sûr de vouloir
méner cette rechercher?")
Dim adaptateur As OleDbDataAdapter
adaptateur = New OleDb.OleDbDataAdapter(contenu,
kab)
adaptateur.Fill(donnees, "Controle")
kab.Close()
Dim objRpt AsNew Vrai_bordereau
objRpt.SetDataSource(donnees.Tables(0))
Bordereau.CrystalReportViewer1.ReportSource =
objRpt
Bordereau.CrystalReportViewer1.RefreshReport()
Bordereau.CrystalReportViewer1.Update()
'affichage de notre crystallreport
Bordereau.Show()
Catch ex As Exception
MsgBox("erreur")
EndTry
EndSub
| 
