WOW !! MUCH LOVE ! SO WORLD PEACE !
Fond bitcoin pour l'amélioration du site: 1memzGeKS7CB3ECNkzSn2qHwxU6NZoJ8o
  Dogecoin (tips/pourboires): DCLoo9Dd4qECqpMLurdgGnaoqbftj16Nvp


Home | Publier un mémoire | Une page au hasard

 > 

Suivi automatisé de la gestion du contrôle fiscal dans une administration publique. Cas du centre des impôts de Goma.

( Télécharger le fichier original )
par Justin KABANZA
ISC/Goma - Graduat 2015
  

précédent sommaire

Extinction Rebellion

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

précédent sommaire






Extinction Rebellion





Changeons ce systeme injuste, Soyez votre propre syndic





"Soit réservé sans ostentation pour éviter de t'attirer l'incompréhension haineuse des ignorants"   Pythagore