Les codes sources
`Importation des bibliothèques
Imports System.Data.SqlClient
Imports System.Windows.Forms
Imports Microsoft.Office.Interop
Imports System.IO
` Gestion des utilisateurs avec les
privileges
Private Sub cmdsubmit_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdsubmit.Click
theo += 1
If theo = 4 Then
MsgBox("Le nombre maximun d'essai a expiré!",
MsgBoxStyle.Exclamation, "Alerte!")
MsgBox("L'application va se fermer automatiquement
pour éviter tout dégat informatique!", MsgBoxStyle.Exclamation,
"Alerte!")
End
End If
Dim con As New
SqlClient.SqlConnection("server=Server;uid=sa;pwd=sql2005;database=Gestion_coopec")
Try
con.Open()
cmd = New SqlCommand("select *from T_Login where
(identifiant = '" & txtusername.Text & "' and privilege ='" &
ComboBox1.Text & "' and pwd = '" & txtpwd.Text & "')", con)
dr = cmd.ExecuteReader
If dr.HasRows = False Then
MsgBox("Nom d'utilisateur et/ou mot de passe
inconnu", MsgBoxStyle.Critical, "Identifiez-vous ou contacter l'administrateur
système")
theocent()
ElseIf dr.HasRows = True Then
dr.Read()
Accueil.TxtIdUser.Text = dr(0)
Accueil.txtNomUser.Text = dr(1)
If dr(3) = "Admin" Then
'Accès rapide
Accueil.cmd_membre.Enabled = True
Accueil.cmd_depot.Enabled = True
Accueil.cmd_kuweka.Enabled = True
Accueil.Button4.Enabled = True
Accueil.cmd_edituser.Enabled = True
Accueil.cmdRemb.Enabled = True
Accueil.cmd_recherhe.Enabled = True
Accueil.cmd_print.Enabled = True
Accueil.cmdPropos.Enabled = True
Accueil.cmd_close.Enabled = True
'Fichier
Accueil.ToolStripMenuItem2.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem1.Enabled = True
Accueil.ToolStripMenuItem3.Enabled = True
Accueil.QuitterToolStripMenuItem.Enabled =
True
'Enregistrement
Accueil.EnregistrementToolStripMenuItem.Enabled = True
Accueil.AdhésionDesMembresToolStripMenuItem.Enabled = True
Accueil.DépôtDesFondsToolStripMenuItem.Enabled = True
Accueil.RetraitDesFondsToolStripMenuItem.Enabled = True
Accueil.GestionDesCréditsToolStripMenuItem.Enabled = True
Accueil.RemboursementDunCréditToolStripMenuItem.Enabled = True
'Mise à jour
Accueil.ToolStripMenuItem1.Enabled = True
Accueil.MiseÀJourDesMembresToolStripMenuItem.Enabled = True
Accueil.MiseÀJourDesCompteUtilisateursToolStripMenuItem.Enabled =
True
Accueil.ActualiserLeRetraitsToolStripMenuItem.Enabled = True
Accueil.ActualiserLesCréditsToolStripMenuItem.Enabled = True
Accueil.ActualiserLesRemboursementsToolStripMenuItem.Enabled = True
'Synthèse
Accueil.RemboursementToolStripMenuItem.Enabled = True
Accueil.ToolStripMenuItem5.Enabled = True
Accueil.ToolStripMenuItem4.Enabled = True
Accueil.FicheÉpargneToolStripMenuItem.Enabled = True
Accueil.TousLesRemboursementsToolStripMenuItem.Enabled = True
Accueil.TousLesRemboursementsToolStripMenuItem1.Enabled = True
'Paramètres
Accueil.OutilsDadministrationToolStripMenuItem.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem.Enabled = True
Accueil.EditionDesUtilisateursToolStripMenuItem.Enabled = True
Accueil.NotepadToolStripMenuItem.Enabled =
True
Accueil.PenséésBêtesToolStripMenuItem.Enabled = True
'j'efface les information en rapport avec la
connexion pour qu'un autre ne vienne se connecter avec ça.
theocent()
Accueil.Show()
Me.Hide()
Else
If dr(3) = "Gérant" Then
'Accès rapide
Accueil.cmd_membre.Enabled = True
Accueil.cmd_depot.Enabled = False
Accueil.cmd_kuweka.Enabled = False
Accueil.Button4.Enabled = True
'Crédit
Accueil.cmd_edituser.Enabled = False
Accueil.cmdRemb.Enabled = True
Accueil.cmd_recherhe.Enabled = True
Accueil.cmd_print.Enabled = True
Accueil.cmdPropos.Enabled = True
Accueil.cmd_close.Enabled = True
'Fichier
Accueil.ToolStripMenuItem2.Enabled =
True
Accueil.GestionDesUtilisateursToolStripMenuItem1.Enabled = False
Accueil.ToolStripMenuItem3.Enabled =
True
Accueil.QuitterToolStripMenuItem.Enabled
= True
'Enregistrement
Accueil.EnregistrementToolStripMenuItem.Enabled = True
Accueil.AdhésionDesMembresToolStripMenuItem.Enabled = True
Accueil.DépôtDesFondsToolStripMenuItem.Enabled = False
Accueil.RetraitDesFondsToolStripMenuItem.Enabled = False
Accueil.GestionDesCréditsToolStripMenuItem.Enabled = True
Accueil.RemboursementDunCréditToolStripMenuItem.Enabled = True
'Mise à jour
Accueil.ToolStripMenuItem1.Enabled =
True
Accueil.MiseÀJourDesMembresToolStripMenuItem.Enabled = True
Accueil.MiseÀJourDesCompteUtilisateursToolStripMenuItem.Enabled =
False
Accueil.ActualiserLeRetraitsToolStripMenuItem.Enabled = False
Accueil.ActualiserLesCréditsToolStripMenuItem.Enabled = True
Accueil.ActualiserLesRemboursementsToolStripMenuItem.Enabled = True
'Synthèse
Accueil.RemboursementToolStripMenuItem.Enabled = True
Accueil.ToolStripMenuItem5.Enabled =
True
Accueil.ToolStripMenuItem4.Enabled =
True
Accueil.FicheÉpargneToolStripMenuItem.Enabled = True
Accueil.TousLesRemboursementsToolStripMenuItem.Enabled = True
Accueil.TousLesRemboursementsToolStripMenuItem1.Enabled = True
'Paramètres
Accueil.OutilsDadministrationToolStripMenuItem.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem.Enabled = False
Accueil.EditionDesUtilisateursToolStripMenuItem.Enabled = True 'Calculatrice
Accueil.NotepadToolStripMenuItem.Enabled
= True
Accueil.PenséésBêtesToolStripMenuItem.Enabled = True
theocent()
Accueil.Show()
Me.Hide()
Else
If dr(3) = "Depot" Then
'Accès rapide
Accueil.cmd_membre.Enabled = False
Accueil.cmd_depot.Enabled = True
Accueil.cmd_kuweka.Enabled = False
Accueil.Button4.Enabled = False
'Crédit
Accueil.cmd_edituser.Enabled =
False
Accueil.cmdRemb.Enabled = False
Accueil.cmd_recherhe.Enabled =
True
Accueil.cmd_print.Enabled = False
Accueil.cmdPropos.Enabled = True
Accueil.cmd_close.Enabled = True
'Fichier
Accueil.ToolStripMenuItem2.Enabled =
True
Accueil.GestionDesUtilisateursToolStripMenuItem1.Enabled = False
Accueil.ToolStripMenuItem3.Enabled =
False
Accueil.QuitterToolStripMenuItem.Enabled = True
'Enregistrement
Accueil.EnregistrementToolStripMenuItem.Enabled = True
Accueil.AdhésionDesMembresToolStripMenuItem.Enabled = False
Accueil.DépôtDesFondsToolStripMenuItem.Enabled = True
Accueil.RetraitDesFondsToolStripMenuItem.Enabled = False
Accueil.GestionDesCréditsToolStripMenuItem.Enabled = False
Accueil.RemboursementDunCréditToolStripMenuItem.Enabled = False
'Mise à jour
Accueil.ToolStripMenuItem1.Enabled =
True
Accueil.MiseÀJourDesMembresToolStripMenuItem.Enabled = False
Accueil.MiseÀJourDesCompteUtilisateursToolStripMenuItem.Enabled = True
'Depot
Accueil.ActualiserLeRetraitsToolStripMenuItem.Enabled = False
Accueil.ActualiserLesCréditsToolStripMenuItem.Enabled = False
Accueil.ActualiserLesRemboursementsToolStripMenuItem.Enabled = False
'Synthèse
Accueil.RemboursementToolStripMenuItem.Enabled = True
Accueil.ToolStripMenuItem5.Enabled =
False
Accueil.ToolStripMenuItem4.Enabled =
True
Accueil.FicheÉpargneToolStripMenuItem.Enabled = False
Accueil.TousLesRemboursementsToolStripMenuItem.Enabled = False
Accueil.TousLesRemboursementsToolStripMenuItem1.Enabled = False
'Paramètres
Accueil.OutilsDadministrationToolStripMenuItem.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem.Enabled = False
Accueil.EditionDesUtilisateursToolStripMenuItem.Enabled = True 'Calculatrice
Accueil.NotepadToolStripMenuItem.Enabled = True
Accueil.PenséésBêtesToolStripMenuItem.Enabled = True
theocent()
Accueil.Show()
Me.Hide()
Else
If dr(3) = "Retrait" Then
'Accès rapide
Accueil.cmd_membre.Enabled =
False
Accueil.cmd_depot.Enabled =
False
Accueil.cmd_kuweka.Enabled = True
'Retrait
Accueil.Button4.Enabled = False
'Crédit
Accueil.cmd_edituser.Enabled =
False
Accueil.cmdRemb.Enabled =
False
Accueil.cmd_recherhe.Enabled =
True
Accueil.cmd_print.Enabled =
False
Accueil.cmdPropos.Enabled =
True
Accueil.cmd_close.Enabled =
True
'Fichier
Accueil.ToolStripMenuItem2.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem1.Enabled = False
Accueil.ToolStripMenuItem3.Enabled = False
Accueil.QuitterToolStripMenuItem.Enabled = True
'Enregistrement
Accueil.EnregistrementToolStripMenuItem.Enabled = True
Accueil.AdhésionDesMembresToolStripMenuItem.Enabled = False
Accueil.DépôtDesFondsToolStripMenuItem.Enabled = False
Accueil.RetraitDesFondsToolStripMenuItem.Enabled = True
Accueil.GestionDesCréditsToolStripMenuItem.Enabled = False
Accueil.RemboursementDunCréditToolStripMenuItem.Enabled = False
'Mise à jour
Accueil.ToolStripMenuItem1.Enabled = True
Accueil.MiseÀJourDesMembresToolStripMenuItem.Enabled = False
Accueil.MiseÀJourDesCompteUtilisateursToolStripMenuItem.Enabled = False
'Depot
Accueil.ActualiserLeRetraitsToolStripMenuItem.Enabled = True
Accueil.ActualiserLesCréditsToolStripMenuItem.Enabled = False
Accueil.ActualiserLesRemboursementsToolStripMenuItem.Enabled = False
'Synthèse
Accueil.RemboursementToolStripMenuItem.Enabled = True
Accueil.ToolStripMenuItem5.Enabled = False
Accueil.ToolStripMenuItem4.Enabled = False
Accueil.FicheÉpargneToolStripMenuItem.Enabled = True
Accueil.TousLesRemboursementsToolStripMenuItem.Enabled = False
Accueil.TousLesRemboursementsToolStripMenuItem1.Enabled = False
'Paramètres
Accueil.OutilsDadministrationToolStripMenuItem.Enabled = True
Accueil.GestionDesUtilisateursToolStripMenuItem.Enabled = False
Accueil.EditionDesUtilisateursToolStripMenuItem.Enabled = True 'Calculatrice
Accueil.NotepadToolStripMenuItem.Enabled = True
Accueil.PenséésBêtesToolStripMenuItem.Enabled = True
theocent()
Accueil.Show()
Me.Hide()
End If
End If
End If
End If
End If
dr.Close()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
`Parcourir l'exlorateur windows pour insèrer une
photo
Public Class Frm_Membre
Dim adapter As New SqlDataAdapter
Dim ds As New DataSet
Private Sub Button4_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button4.Click
Form1.ShowDialog()
End Sub
` Parcourir l'explorateur Windows pour choisir une photo
Private Sub btnparcourir_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles btnparcourir.Click
Dim theocent As New OpenFileDialog
theocent.ShowDialog()
theocent.InitialDirectory = "c:\Photos"
theocent.Filter = "Photo en Jpg (*.jpg)|*.txt|Coopec
(*.*)|*.*"
If theocent.FileName <> "" Then
TxtPhoto.Text = "c:\Photos\" &
Dir(theocent.FileName)
Picphoto.Image = Image.FromFile(theocent.FileName)
End If
End Sub
`Enregistrement des données en SQL
Server
Private Sub cmdSave_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdSave.Click
If txtnom.TextLength = 0 Then
MsgBox("Les noms de l'agent sont
recommandés!", MsgBoxStyle.Information, "Gest Coopec")
txtnom.Focus()
Exit Sub
End If
Dim con As New SqlConnection("server=Server; uid=sa;
pwd=sql2005; database=Gestion_coopec")
Dim table As New DataTable
Try
con.Open()
Dim com As New SqlCommand("insert into
Membre(Nom,Postnom,Datenaissance,Lieunais,Sexe,NumCarteId,Profession,Tel_bureau,Tel_mobile,Etacivil,Commune,Quartier,DateAdhesion,Lieu_Adhesion,Photo,Frais_ouverture,Montant_solde)
values('" + txtnom.Text + "','" + txtpost.Text + "',convert(datetime,'" +
txtdatenaiss.Value + "',103),'" + txtlieunaiss.Text + "','" +
combosexe.SelectedItem + "','" + txtid.Text + "','" + txtprofession.Text +
"','" + txttel.Text + "','" + txtmobil.Text + "','" + combostatut.SelectedItem
+ "','" + txtcomune.Text + "','" + txtquartier.Text + "',CONVERT(datetime,'" +
txtdate.Value + "',103),'" + txtlieuouvert.Text + "','" + TxtPhoto.Text + "','"
+ txtfrais.Text + "','" + txt_montantsolde.Text + "')", con)
com.ExecuteNonQuery()
adapter = New SqlDataAdapter("select
NumFolio,Nom,Postnom,Datenaissance,Lieunais,Sexe,NumCarteId,Profession,Tel_bureau,Tel_mobile,Etacivil,Commune,Quartier,DateAdhesion,Lieu_Adhesion,Photo,Frais_ouverture,Montant_solde
from Membre", con)
adapter.Fill(table)
Me.DataGridView1.AutoGenerateColumns = True
Me.DataGridView1.DataSource = table
theocent()
MsgBox("Le membre a été
enregistré avec succès!")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
`Nettoyage des contrôles après
enregistrement
Public Sub theocent()
txtfolio.Text = ""
txtfrais.Text = ""
txt_montantsolde.Text = ""
txtnom.Text = ""
txtpost.Text = ""
combosexe.Text = ""
combostatut.Text = ""
txtid.Text = ""
txtprofession.Text = ""
txtlieunaiss.Text = ""
'txtdatenaiss.value = ""
txtlieuouvert.Text = ""
txtcomune.Text = ""
'txtdate.value = ""
txtmobil.Text = ""
txttel.Text = ""
txtquartier.Text = ""
TxtPhoto.Text = ""
Picphoto.Image = Nothing
End Sub
`Appel de la procedure pour le nettoyage des
champs
Private Sub txtnum_recherche_Click(ByVal sender As Object,
ByVal e As System.EventArgs)
theocent()
End Sub
`Exportation des données vers Excel
Private Sub cmdExcel_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdExcel.Click
Dim xlApp As Excel.Application
Dim xlWorkBook As Excel.Workbook
Dim xlWorkSheet As Excel.Worksheet
Dim misValue As Object =
System.Reflection.Missing.Value
Dim i As Integer
Dim j As Integer
xlApp = New Excel.ApplicationClass
xlWorkBook = xlApp.Workbooks.Add(misValue)
xlWorkSheet = xlWorkBook.Sheets("Feuil1")
For i = 0 To DataGridView1.RowCount - 2
For j = 0 To DataGridView1.ColumnCount - 1
xlWorkSheet.Cells(i + 1, j + 1) = _
DataGridView1(j, i).Value.ToString()
Next
Next
xlWorkSheet.SaveAs(Application.StartupPath & "\Les
membres.xls") 'enregistre dans le dossier Debug de l'application
'xlWorkBook.Application.Visible = True
'xlWorkBook.Activate()
xlWorkBook.Close()
xlApp.Quit()
releaseObject(xlApp)
releaseObject(xlWorkBook)
releaseObject(xlWorkSheet)
'xlWorkBook.Application.Visible = True
'xlWorkBook.Activate()
MessageBox.Show("Exportation réussie," &
vbNewLine & "vous aurez vos données sur une matrice Excel à
l'instant", "Exportez vers Excel", MessageBoxButtons.OK,
MessageBoxIcon.Information)
End Sub
`Procédure d'initialisation de l'application Excel
Private Sub releaseObject(ByVal obj As Object)
Try
System.Runtime.InteropServices.Marshal.ReleaseComObject(obj)
obj = Nothing
Catch ex As Exception
obj = Nothing
Finally
GC.Collect()
End Try
End Sub
` Fonction pour interdir la saisie des
alphanumériques dans le zones de texte numérique
Public Sub ControleTextBox(ByRef e As
System.Windows.Forms.KeyPressEventArgs)
If InStr("0123456789", e.KeyChar) = 0 And e.KeyChar
<> vbBack Then
e.Handled = True
MsgBox(" Vous devez retourner un caractère
numérique pour poursuivre les opération", vbCritical, "Gest
Coopec")
End If
End Sub
`Appel de la fonction
Private Sub txtfrais_KeyPress(ByVal sender As Object, ByVal e
As System.Windows.Forms.KeyPressEventArgs) Handles txtfrais.KeyPress
ControleTextBox(e)
End Sub
End Class
`Procédure pour rechercher un enregistrement
existant dans la base
Private Sub txtnum_recherche_Leave(ByVal sender As Object, ByVal
e As System.EventArgs) Handles txtnum_recherche.Leave
Dim con As New SqlConnection("server=Server; uid=sa;
pwd=sql2005; database=Gestion_coopec")
'Dim table As New DataTable
con.Open()
Dim com As New SqlCommand("SELECT
NumFolio,Nom,Postnom,Datenaissance,Lieunais,Sexe,NumCarteId,Profession,Tel_bureau,Tel_mobile,Etacivil,Commune,Quartier,DateAdhesion,Lieu_Adhesion,Photo,Frais_ouverture,Montant_solde
FROM Membre where NumFolio='" & txtnum_recherche.Text.Trim() & "'",
con)
Dim dr As SqlDataReader = com.ExecuteReader()
If dr.Read() Then
Me.txtfolio.Text = dr("NumFolio").ToString() '1
Me.txtfrais.Text = dr("Frais_ouverture").ToString()
'2
Me.txt_montantsolde.Text =
dr("Montant_solde").ToString() '3
Me.txtnom.Text = dr("Nom").ToString() '4
Me.txtpost.Text = dr("Postnom").ToString() '5
Me.txtdatenaiss.Value =
dr("Datenaissance").ToString() '6
Me.txtlieunaiss.Text = dr("Lieunais").ToString()
'7
Me.combosexe.Text = dr("Sexe").ToString() '8
Me.txtid.Text = dr("NumCarteId").ToString() '9
Me.txtprofession.Text = dr("Profession").ToString()
'11
Me.txttel.Text = dr("Tel_bureau").ToString() '12
Me.txtmobil.Text = dr("Tel_mobile").ToString() '13
Me.combostatut.Text = dr("Etacivil").ToString()
'14
Me.txtcomune.Text = dr("Commune").ToString() '15
Me.txtquartier.Text = dr("Quartier").ToString()
'16
Me.txtdate.Value = dr("DateAdhesion").ToString()
'17
txtlieuouvert.Text =
dr("Lieu_Adhesion").ToString()
Me.TxtPhoto.Text = dr("Photo").ToString() '18
Me.cmdDel.Enabled = True
Try
Me.TxtPhoto.Text = dr("Photo")
Me.Picphoto.Image =
Image.FromFile(TxtPhoto.Text)
Catch ex As Exception
Me.Picphoto.Image = Nothing
Me.Picphoto.Image =
Image.FromFile("c:\Photos\WCcapture &.jpg")
End Try
'adapter = New SqlDataAdapter("select* from Membre
where NumFolio='" + txtnum_recherche.Text + "'", con)
'adapter.Fill(table)
'Me.DataGridView1.AutoGenerateColumns = True
'Me.DataGridView1.DataSource = table
'Me.cmdDel.Enabled = True
'@ Theocent_Soft, Inc
Else
MsgBox("Ce numéro de compte est mal
orthograhié ou inéxistant, veillez le retaper!!!!",
MsgBoxStyle.Critical)
txtnum_recherche.Text = ""
txtnum_recherche.Focus()
End If
End Sub
Private Sub cmdEdit_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdEdit.Click
If txtfolio.TextLength = 0 Then
MsgBox("La mise à jour doit s'effectuer
d'abord au niveau du numéro de compte!!", MsgBoxStyle.OkOnly, "info")
'MsgBox("Vous ne povez pas modifier sans
insèrer un numéro de compte", MsgBoxStyle.Information, "info")
txtfolio.Focus()
Exit Sub
End If
Dim con As New SqlConnection("server=Server; uid=sa;
pwd=sql2005; database=Gestion_coopec")
Dim table As New DataTable
Try
con.Open()
Dim com As New SqlCommand("update Membre set Nom='" +
txtnom.Text + "',Postnom='" + txtpost.Text + "',Lieunais='" + txtlieunaiss.Text
+ "',Sexe='" + combosexe.Text + "',NumCarteId='" + txtid.Text +
"',Profession='" + txtprofession.Text + "',Tel_bureau='" + txttel.Text +
"',Tel_mobile='" + txtmobil.Text + "',Etacivil='" + combostatut.Text +
"',Commune='" + txtcomune.Text + "',Quartier='" + txtquartier.Text +
"',Lieu_Adhesion='" + txtlieuouvert.Text + "',Photo='" + TxtPhoto.Text +
"',Frais_ouverture='" + txtfrais.Text + "',Montant_solde='" +
txt_montantsolde.Text + "' where NumFolio='" + txtfolio.Text + "'", con)
com.ExecuteNonQuery()
theocent()
adapter = New SqlDataAdapter("select* from Membre",
con)
adapter.Fill(table)
Me.DataGridView1.AutoGenerateColumns = True
Me.DataGridView1.DataSource = table
MsgBox("La mise à jour a été
effectuer avec succès", vbInformation, "Gest Nyalukemba")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdDel.Click
If txtfolio.TextLength = 0 Then
MsgBox("Veillez rechercher un utilisateur par son nom
avant d'effectuer cette opération", MsgBoxStyle.Information, "Gest
Coopec")
txtnum_recherche.Focus()
End If
Try
Dim con As New
SqlConnection("server=Server;uid=sa;pwd=sql2005;database=Gestion_coopec")
con.Open()
Dim cmd As New SqlCommand("delete from Membre where
NumFolio='" & txtfolio.Text & "'", con)
cmd.ExecuteNonQuery()
Me.theocent()
MsgBox("Le numéro de compte '" &
txtnum_recherche.Text & "' a été suprimé avec
succès!!!")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
` Procédure pour modifier un
enregistrement
rivate Sub cmdEdit_Click(ByVal sender As System.Object, ByVal e
As System.EventArgs) Handles cmdEdit.Click
If txtfolio.TextLength = 0 Then
MsgBox("La mise à jour doit s'effectuer
d'abord au niveau du numéro de compte!!", MsgBoxStyle.OkOnly, "info")
'MsgBox("Vous ne povez pas modifier sans
insèrer un numéro de compte", MsgBoxStyle.Information, "info")
txtfolio.Focus()
Exit Sub
End If
Dim con As New SqlConnection("server=Server; uid=sa;
pwd=sql2005; database=Gestion_coopec")
Dim table As New DataTable
Try
con.Open()
Dim com As New SqlCommand("update Membre set Nom='" +
txtnom.Text + "',Postnom='" + txtpost.Text + "',Lieunais='" + txtlieunaiss.Text
+ "',Sexe='" + combosexe.Text + "',NumCarteId='" + txtid.Text +
"',Profession='" + txtprofession.Text + "',Tel_bureau='" + txttel.Text +
"',Tel_mobile='" + txtmobil.Text + "',Etacivil='" + combostatut.Text +
"',Commune='" + txtcomune.Text + "',Quartier='" + txtquartier.Text +
"',Lieu_Adhesion='" + txtlieuouvert.Text + "',Photo='" + TxtPhoto.Text +
"',Frais_ouverture='" + txtfrais.Text + "',Montant_solde='" +
txt_montantsolde.Text + "' where NumFolio='" + txtfolio.Text + "'", con)
com.ExecuteNonQuery()
theocent()
adapter = New SqlDataAdapter("select* from Membre",
con)
adapter.Fill(table)
Me.DataGridView1.AutoGenerateColumns = True
Me.DataGridView1.DataSource = table
MsgBox("La mise à jour a été
effectuer avec succès", vbInformation, "Gest Nyalukemba")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
` Procédure pour supprimer un
enregistrement
Private Sub cmdDel_Click(ByVal sender As System.Object, ByVal
e As System.EventArgs) Handles cmdDel.Click
If txtfolio.TextLength = 0 Then
MsgBox("Veillez rechercher un utilisateur par son nom
avant d'effectuer cette opération", MsgBoxStyle.Information, "Gest
Coopec")
txtnum_recherche.Focus()
End If
Try
Dim con As New
SqlConnection("server=Server;uid=sa;pwd=sql2005;database=Gestion_coopec")
con.Open()
Dim cmd As New SqlCommand("delete from Membre where
NumFolio='" & txtfolio.Text & "'", con)
cmd.ExecuteNonQuery()
Me.theocent()
MsgBox("Le numéro de compte '" &
txtnum_recherche.Text & "' a été suprimé avec
succès!!!")
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Sub
`Procédure pour capturer les images
Imports DirectX.Capture
Imports System.Drawing
Imports System.Drawing.Imaging
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Code généré par le Concepteur
Windows Form "
Dim WCcapture As String
Public Sub New()
MyBase.New()
'Cet appel est requis par le Concepteur Windows Form.
InitializeComponent()
'Ajoutez une initialisation quelconque après
l'appel InitializeComponent()
End Sub
'La méthode substituée Dispose du formulaire
pour nettoyer la liste des composants.
Protected Overloads Overrides Sub Dispose(ByVal disposing As
Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Requis par le Concepteur Windows Form
Private components As System.ComponentModel.IContainer
'REMARQUE : la procédure suivante est requise par
le Concepteur Windows Form
'Elle peut être modifiée en utilisant le
Concepteur Windows Form.
'Ne la modifiez pas en utilisant l'éditeur de code.
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents ComboBox1 As
System.Windows.Forms.ComboBox
Friend WithEvents ComboBox2 As
System.Windows.Forms.ComboBox
Friend WithEvents PicCam As
System.Windows.Forms.PictureBox
Friend WithEvents CmdCapture As
System.Windows.Forms.Button
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents GroupBox1 As
System.Windows.Forms.GroupBox
Friend WithEvents CheckBox1 As
System.Windows.Forms.CheckBox
Friend WithEvents cmdvalide As System.Windows.Forms.Button
Friend WithEvents txtnomCapt As
System.Windows.Forms.TextBox
Friend WithEvents PicCapture As
System.Windows.Forms.PictureBox
<System.Diagnostics.DebuggerStepThrough()> Private Sub
InitializeComponent()
Dim resources As
System.ComponentModel.ComponentResourceManager = New
System.ComponentModel.ComponentResourceManager(GetType(Form1))
Me.Button1 = New System.Windows.Forms.Button()
Me.PicCapture = New System.Windows.Forms.PictureBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.ComboBox2 = New System.Windows.Forms.ComboBox()
Me.PicCam = New System.Windows.Forms.PictureBox()
Me.CmdCapture = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.cmdvalide = New System.Windows.Forms.Button()
Me.txtnomCapt = New System.Windows.Forms.TextBox()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
CType(Me.PicCapture,
System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PicCam,
System.ComponentModel.ISupportInitialize).BeginInit()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.BackColor =
System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer),
CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button1.Image =
CType(resources.GetObject("Button1.Image"), System.Drawing.Image)
Me.Button1.ImageAlign =
System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.Location = New System.Drawing.Point(303,
385)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(295, 31)
Me.Button1.TabIndex = 1
Me.Button1.Text = "Valider la configuration"
Me.Button1.UseVisualStyleBackColor = False
'
'PicCapture
'
Me.PicCapture.BackColor =
System.Drawing.SystemColors.ActiveBorder
Me.PicCapture.BorderStyle =
System.Windows.Forms.BorderStyle.Fixed3D
Me.PicCapture.Location = New System.Drawing.Point(12,
12)
Me.PicCapture.Name = "PicCapture"
Me.PicCapture.Size = New System.Drawing.Size(275, 234)
Me.PicCapture.TabIndex = 7
Me.PicCapture.TabStop = False
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(113,
394)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(174, 21)
Me.ComboBox1.TabIndex = 9
'
'ComboBox2
'
Me.ComboBox2.FormattingEnabled = True
Me.ComboBox2.Location = New System.Drawing.Point(803,
391)
Me.ComboBox2.Name = "ComboBox2"
Me.ComboBox2.Size = New System.Drawing.Size(44, 21)
Me.ComboBox2.TabIndex = 10
'
'PicCam
'
Me.PicCam.BackColor =
System.Drawing.SystemColors.ActiveBorder
Me.PicCam.BorderStyle =
System.Windows.Forms.BorderStyle.Fixed3D
Me.PicCam.Location = New System.Drawing.Point(303, 12)
Me.PicCam.Name = "PicCam"
Me.PicCam.Size = New System.Drawing.Size(295, 367)
Me.PicCam.TabIndex = 12
Me.PicCam.TabStop = False
'
'CmdCapture
'
Me.CmdCapture.BackColor =
System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer),
CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.CmdCapture.Font = New System.Drawing.Font("Microsoft
Sans Serif", 18.0!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.CmdCapture.ForeColor = System.Drawing.Color.Navy
Me.CmdCapture.Image =
CType(resources.GetObject("CmdCapture.Image"), System.Drawing.Image)
Me.CmdCapture.Location = New System.Drawing.Point(617,
12)
Me.CmdCapture.Name = "CmdCapture"
Me.CmdCapture.Size = New System.Drawing.Size(129, 318)
Me.CmdCapture.TabIndex = 11
Me.CmdCapture.Text = "Capturer"
Me.CmdCapture.UseVisualStyleBackColor = False
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(9, 396)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(98, 13)
Me.Label1.TabIndex = 13
Me.Label1.Text = "Source de capture:"
'
'Button2
'
Me.Button2.BackColor =
System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer),
CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.Button2.Font = New System.Drawing.Font("Microsoft Sans
Serif", 8.25!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Button2.ForeColor =
System.Drawing.SystemColors.Desktop
Me.Button2.Image =
CType(resources.GetObject("Button2.Image"), System.Drawing.Image)
Me.Button2.Location = New System.Drawing.Point(617,
336)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(128, 80)
Me.Button2.TabIndex = 14
Me.Button2.Text = "Annuler"
Me.Button2.TextAlign =
System.Drawing.ContentAlignment.BottomCenter
Me.Button2.UseVisualStyleBackColor = False
'
'GroupBox1
'
Me.GroupBox1.BackColor =
System.Drawing.SystemColors.ActiveBorder
Me.GroupBox1.Controls.Add(Me.cmdvalide)
Me.GroupBox1.Controls.Add(Me.txtnomCapt)
Me.GroupBox1.Controls.Add(Me.CheckBox1)
Me.GroupBox1.Location = New System.Drawing.Point(12,
252)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(275, 127)
Me.GroupBox1.TabIndex = 15
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Zone de sauvegarge"
'
'cmdvalide
'
Me.cmdvalide.BackColor =
System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer),
CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.cmdvalide.Font = New System.Drawing.Font("Microsoft
Sans Serif", 9.75!, System.Drawing.FontStyle.Bold,
System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdvalide.ForeColor = System.Drawing.Color.Navy
Me.cmdvalide.Image =
CType(resources.GetObject("cmdvalide.Image"), System.Drawing.Image)
Me.cmdvalide.Location = New System.Drawing.Point(134,
16)
Me.cmdvalide.Name = "cmdvalide"
Me.cmdvalide.Size = New System.Drawing.Size(95, 105)
Me.cmdvalide.TabIndex = 2
Me.cmdvalide.Text = "Valider la prise"
Me.cmdvalide.TextAlign =
System.Drawing.ContentAlignment.BottomCenter
Me.cmdvalide.UseVisualStyleBackColor = False
'
'txtnomCapt
'
Me.txtnomCapt.Location = New System.Drawing.Point(6,
58)
Me.txtnomCapt.Name = "txtnomCapt"
Me.txtnomCapt.Size = New System.Drawing.Size(122, 20)
Me.txtnomCapt.TabIndex = 1
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(6,
30)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(101, 17)
Me.CheckBox1.TabIndex = 0
Me.CheckBox1.Text = "Identifier l'image"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(5, 13)
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(757, 428)
Me.Controls.Add(Me.GroupBox1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.CmdCapture)
Me.Controls.Add(Me.ComboBox2)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.PicCapture)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.PicCam)
Me.Icon = CType(resources.GetObject("$this.Icon"),
System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "Form1"
Me.StartPosition =
System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Capture d'une photo"
CType(Me.PicCapture,
System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PicCam,
System.ComponentModel.ISupportInitialize).EndInit()
Me.GroupBox1.ResumeLayout(False)
Me.GroupBox1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
#End Region
` A l'ouverture du formulaire recherche des dispositives
vidéos
Private Sub Form1_Load(ByVal sender As Object, ByVal e As
System.EventArgs) Handles MyBase.Load
Dim j As Short
Dim f As Filter
Try
'listage des peripheriques video installés sur
la machine
ComboBox1.Items.Clear()
For j = 0 To Dispositivos.VideoInputDevices.Count -
1
f = Dispositivos.VideoInputDevices(j)
ComboBox1.Items.Add(f.Name)
Next
If j > 0 Then ComboBox1.SelectedIndex = 0
'listage des peripheriques audio installés sur
la machine
ComboBox2.Items.Clear()
For j = 0 To Dispositivos.AudioInputDevices.Count -
1
f = Dispositivos.AudioInputDevices(j)
ComboBox2.Items.Add(f.Name)
Next
If j > 0 Then ComboBox2.SelectedIndex = 0
'pre configuration du capturing
'definission de la camera
CaptureInformation2.Camera =
Dispositivos.VideoInputDevices(ComboBox1.SelectedIndex)
'mise en place du stream video et audio
CaptureInformation2.CaptureInfo = New
DirectX.Capture.Capture(CaptureInformation2.Camera,
Dispositivos.AudioInputDevices(ComboBox2.SelectedIndex))
'renseignement du panneau d'affichage de la video
CaptureInformation2.CaptureInfo.PreviewWindow =
PicCam
'compteur pour les capture d'image (frame video)
CaptureInformation2.Counter = 1
CaptureInformation2.CounterFrames = 1
'configurations avancées
Configurer()
'pour faire plus joli
Button1.Enabled = False
'pour la gestion evennementiel de la capture d'ecran
je cree un gestionnaire d evennement sur Framecapturecomplete
AddHandler
CaptureInformation2.CaptureInfo.FrameCaptureComplete, AddressOf
NewCaptureReady
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
'******pour la sauvegarde de mon image
If CheckBox1.Checked = True Then
cmdvalide.Enabled = True
txtnomCapt.Enabled = True
Else
cmdvalide.Enabled = False
txtnomCapt.Enabled = False
End If
'**************************************
End Sub
` Module pour préparer la configuration de l'image
dans l'environnement Windows
Private Sub Configurer()
Try
'configurations avancées
'configuration du systeme de compression video et
audio
CaptureInformation2.CaptureInfo.VideoCompressor =
Dispositivos.VideoCompressors(1) 'compression video
'taille de la video
CaptureInformation2.CaptureInfo.FrameSize = New
Size(320, 240) 'taille de la video
'FPS de la video
CaptureInformation2.CaptureInfo.FrameRate = 50
'FPS
'fichier .avi
''CaptureInformation.CaptureInfo.Filename =
Application.StartupPath + "\essai.avi"
'lancement du streaming d'affichage
CaptureInformation2.CaptureInfo.RenderPreview()
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
End Sub
` Procédure pour capturer à nouveau si
l'image capturée ne vous plait pas
Private Sub NewCaptureReady(ByVal Sender As
System.Windows.Forms.PictureBox)
'appele par le gestionnaire de handler sur l'evennement
"FrameCapture
'ma picture capturé est arrivée...
Dim la As PictureBox = CType(Sender, PictureBox) 'la je
converti mon picturebox en picturebox...je sais pas pourquoi, fo le faire sinom
ca marche pas
Try
PicCapture.Image = la.Image 'j affecte ma capture
d'image a mon picturebox qui attend que ca.
Catch ex As Exception
MsgBox(ex.Message)
End
End Try
End Sub
Sub Tue(ByVal Chem As String)
Try
Catch ex As Exception
'rien
End Try
End Sub
Private Sub CmdCapture_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles CmdCapture.Click
Try
'demande une capture DirectX ...et lorsqu'elle est
ready je la recoit par le Handler cree un peut plus haut
CaptureInformation2.CaptureInfo.CaptureFrame()
'Tue(System.AppDomain.CurrentDomain.BaseDirectory()
& WCcapture & ".jpg")
Tue("c:\Photos\" & WCcapture & ".jpg")
Do While PicCapture.Image Is Nothing
Application.DoEvents()
Loop
PicCapture.Image.Save("c:\Photos\" & "WCcapture
&.jpg", System.Drawing.Imaging.ImageFormat.Jpeg)
Catch ex As Exception
MsgBox(ex.Message.ToString, MsgBoxStyle.Critical,
"impossible d'enregister l'image")
End Try
'End
End Sub
` Attribuer un nom à l'image capturer
Private Sub CheckBox1_CheckedChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
cmdvalide.Enabled = True
txtnomCapt.Enabled = True
Else
cmdvalide.Enabled = False
txtnomCapt.Enabled = False
End If
End Sub
`Valider l'image capturée et affectation de
l'image dans un formulaire different
Private Sub cmdvalide_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles cmdvalide.Click
Dim NomImage As String
Dim cheminSave As String
NomImage = txtnomCapt.Text
cheminSave = "C:\Photos\" & NomImage & ".jpg"
If PicCapture.Image Is Nothing Then
'PicCapture.Image.Save("cheminSave") '&
"d:\Photos"
PicCapture.Image.Save("C:\Photos\" & NomImage
& ".jpg")
End If
Frm_Membre.Picphoto.Image = PicCapture.Image
Frm_Membre.TxtPhoto.Text = cheminSave
Me.Dispose()
Me.Close()
End Sub
End Sub
End Class
Parcourir les enregistrements dans la base
Private Sub GetIdDepot(ByVal CursorPosition As Integer)
txtIdDepot.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(0)
txtNomMembr.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(1)
txtpostnomMembre.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(2)
txtnomGuichetier.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(3)
txtanciensolde.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(4)
txtnuvosolde.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(5)
txtMontantot.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(6)
txtdeposepar.Text =
ds.Tables("dsDepots").Rows(CursorPosition).Item(7)
If CursorPosition = 0 And CursorPosition =
ds.Tables("dsDepots").Rows.Count - 1 Then
BtNext.Enabled = False
BtPrevious.Enabled = False
ElseIf CursorPosition = 0 And CursorPosition <
ds.Tables("dsDepots").Rows.Count - 1 Then
BtNext.Enabled = True
BtPrevious.Enabled = False
ElseIf CursorPosition > 0 And CursorPosition <
ds.Tables("dsDepots").Rows.Count - 1 Then
BtNext.Enabled = True
BtPrevious.Enabled = True
ElseIf CursorPosition > 0 And CursorPosition =
ds.Tables("dsDepots").Rows.Count - 1 Then
BtNext.Enabled = False
BtPrevious.Enabled = True
End If
End Sub
`Le billetage des coupures au
dépôt
Private Sub txtundol_TextChanged(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles txtundol.TextChanged
Dim undol As Integer
If txtundol.Text = "" Then
undol = 0
txtundol.Text = 0
'il faut retrancher le nombre du billet mal saisie
lors du backspace
Else
undol = CInt(txtundol.Text)
End If
txtundoltot.Text = undol * 1
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtundoltot.Text)
'Mise à jour du nouveau solde
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
Private Sub txtcinqdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtcinqdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcinqdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtcinqdol.TextChanged
Dim Cinqdol As Integer
If txtcinqdol.Text = "" Then
Cinqdol = 0
txtcinqdol.Text = 0
txtMontantot.Text = CInt(txtMontantot.Text) -
CInt(txtcinddoltot.Text)
Else
'Cinqdol = CInt(txtcinqdol.Text)
Cinqdol = (txtcinqdol.Text)
End If
txtcinddoltot.Text = Cinqdol * 5
'apple procedure calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtcinddoltot.Text)
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
Private Sub txtdixdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtdixdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtdixdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtdixdol.TextChanged
Dim Dixdol As Integer
If txtdixdol.Text = "" Then
Dixdol = 0
txtdixdol.Text = 0
Else
Dixdol = CInt(txtdixdol.Text)
End If
txtdixdoltot.Text = Dixdol * 10
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtdixdoltot.Text)
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
Private Sub txtvingtdol_KeyPress(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles
txtvingtdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtvingtdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtvingtdol.TextChanged
Dim Vingdol As Integer
If txtvingtdol.Text = "" Then
Vingdol = 0
txtvingtdol.Text = 0
Else
Vingdol = CInt(txtvingtdol.Text)
End If
txtvingtdoltot.Text = Vingdol * 20
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtvingtdoltot.Text)
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
Private Sub txtcinquantedol_KeyPress(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles
txtcinquantedol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcinquantedol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
txtcinquantedol.TextChanged
Dim C50dol As Integer
If txtcinquantedol.Text = "" Then
C50dol = 0
txtcinquantedol.Text = 0
Else
C50dol = CInt(txtcinquantedol.Text)
End If
txtcinquantedoltot.Text = C50dol * 50
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtcinquantedoltot.Text)
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
Private Sub txtcentdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtcentdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcentdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtcentdol.TextChanged
Dim C100dol As Integer
If txtcentdol.Text = "" Then
C100dol = 0
txtcentdol.Text = 0
Else
C100dol = CInt(txtcentdol.Text)
End If
txtcentdoltot.Text = C100dol * 100
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtcentdoltot.Text)
txtnuvosolde.Text = CInt(txtanciensolde.Text) +
CInt(txtMontantot.Text)
End Sub
` Le billetage au retrait
Private Sub txtundol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtundol.TextChanged
Dim undol As Integer
If txtundol.Text = "" Then
undol = 0
txtundol.Text = 0
'il faut retrancher le nombre du billet mal saisie
lors du backspace
Else
undol = CInt(txtundol.Text)
End If
txtundoltot.Text = undol * 1
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtundoltot.Text)
'Update pour nouvo solde
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
Private Sub txtcinqdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtcinqdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcinqdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtcinqdol.TextChanged
Dim Cinqdol As Integer
If txtcinqdol.Text = "" Then
Cinqdol = 0
txtcinqdol.Text = 0
txtMontantot.Text = CInt(txtMontantot.Text) -
CInt(txtCinqdolTot.Text)
Else
Cinqdol = CInt(txtcinqdol.Text)
End If
txtCinqdolTot.Text = Cinqdol * 5
'appele procedure calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtCinqdolTot.Text)
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
Private Sub txtdixdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtdixdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtdixdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtdixdol.TextChanged
Dim Dixdol As Integer
If txtdixdol.Text = "" Then
Dixdol = 0
txtdixdol.Text = 0
Else
Dixdol = CInt(txtdixdol.Text)
End If
txtdixdoltot.Text = Dixdol * 10
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtdixdoltot.Text)
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
Private Sub txtvingtdol_KeyPress(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles
txtvingtdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtvingtdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtvingtdol.TextChanged
Dim Vingdol As Integer
If txtvingtdol.Text = "" Then
Vingdol = 0
txtvingtdol.Text = 0
Else
Vingdol = CInt(txtvingtdol.Text)
End If
txtvingtdoltot.Text = Vingdol * 20
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtvingtdoltot.Text)
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
Private Sub txtcinquantedol_KeyPress(ByVal sender As Object,
ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles
txtcinquantedol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcinquantedol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles
txtcinquantedol.TextChanged
Dim C50dol As Integer
If txtcinquantedol.Text = "" Then
C50dol = 0
txtcinquantedol.Text = 0
Else
C50dol = CInt(txtcinquantedol.Text)
End If
txtcinquantedoltot.Text = C50dol * 50
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtcinquantedoltot.Text)
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
Private Sub txtcentdol_KeyPress(ByVal sender As Object, ByVal
e As System.Windows.Forms.KeyPressEventArgs) Handles txtcentdol.KeyPress
ControleTextBox(e)
End Sub
Private Sub txtcentdol_TextChanged(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles txtcentdol.TextChanged
Dim C100dol As Integer
If txtcentdol.Text = "" Then
C100dol = 0
txtcentdol.Text = 0
Else
C100dol = CInt(txtcentdol.Text)
End If
txtcentdoltot.Text = C100dol * 100
'calcul montant depot
txtMontantot.Text = CInt(txtMontantot.Text) +
CInt(txtcentdoltot.Text)
If CInt(txtanciensolde.Text) < CInt(txtMontantot.Text)
Then
MsgBox("Votre solde est insuffisant!!! vous ne pouvez
pas retirer", MsgBoxStyle.Critical)
Else
txtnuvosolde.Text = CInt(txtanciensolde.Text) -
CInt(txtMontantot.Text)
End If
End Sub
`Procédure pour calculer les
crédits
Private Sub cboTypeCredit_TextChanged(ByVal sender As Object,
ByVal e As System.EventArgs) Handles cboTypeCredit.TextChanged
If cboTypeCredit.Text = "Crédit enseignants"
Then
txtTauxInter.Text = 1.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit aux
salariés des Eses de l Etat" Then
txtTauxInter.Text = 1.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit aux
salariés des Entreprises" Then
txtTauxInter.Text = 1.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédits au P.M.E" Then
txtTauxInter.Text = 2.5
txtInteret.Text = 0
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédits ordinaires
individuels" Then
txtTauxInter.Text = 2.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit solidaires mamans"
Then
txtTauxInter.Text = 2.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit avec le
système de collecte de fonds sur place" Then
txtTauxInter.Text = 2.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit agricole" Then
txtTauxInter.Text = 2.5
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
If cboTypeCredit.Text = "Crédit express" Then
txtTauxInter.Text = 3
txtInteret.Text = CDbl(txtMontantCredit.Text) *
CDbl(txtTauxInter.Text) / 100
txtTotrembourse.Text = CDbl(txtInteret.Text) +
CDbl(txtMontantCredit.Text)
End If
End Sub
Conclusion
Dans le présent travail, nous avons
traité « Du développement d'une
architecture « Client - Serveur » pour la gestion des
coopératives d'épargne et de crédit. Cas de la Coopec
Nyalukemba ». L'objectif étant de mettre en
place un système d'information qui fonctionnerait en réseau local
ou même étendu et qui faciliterait la gestion des activités
entre les différents guichets et l'ensemble du personnel de
l'institution ainsi que faciliter la production des différents rapports
de synthèse en temps réel.
Rappelons que nous avons posé notre
problématique sur les questions principales suivantes :
- Quelles stratégies de suivi et de contrôle que
doit adopter ce système pour accorder aux membres et agents de la
coopérative un service de qualité, fiable et
sécurisé?
- Quel système faut-il mettre au point pour centraliser
et partager les données liées aux opérations de la
Coopérative dans tous ces services ?
Face à ces problèmes, nous avons émis les
réponses provisoires suivantes :
- A ce sujet, il convient de recourir à la nouvelle
stratégie de gestion de données relatives aux Coopératives
d'Epargne et de Crédit au moyen de l'informatique, ce qui permettra
l'amélioration et le perfectionnement du travail pour une
rentabilité optimale.
- La mise au point d'une base de données, conçue
spécialement pour la gestion des adhésions, des
dépôts ; des retraits, d'octroi, de remboursement des
crédits et biens d'autres, serait une solution efficiente et
rénovée pour faciliter ces différentes opérations
et minimiser la lenteur dans la production de certains rapports liés aux
membres de la coopérative et cette base de données servirait
à stocker diverses informations dont on se servirait plus tard pour
telle ou telle autre situation.
- Ce partage en réseau de la base de données
faciliterait au gérant, aux charges de crédits et risques, au
guichetier et autres agents de la coopérative d'avoir accès en
temps réel aux informations des membres, afin d'avoir une main mise sur
toutes les activités et d'en faire le calcul directe des soldes entre
les différents dépôts et retraits effectués au cours
d'une période donnée.
En confrontant la première hypothèse aux
résultats auxquels nous sommes aboutis, nous confirmons sans doute que
nous avons recouru aux nouvelles stratégies de gestion rationnelle des
institutions de micro finance car dans l'ensemble notre application constitue
une solution aux différents problèmes identifié au sein de
la coopérative.
Par la suite nous confirmons la deuxième
hypothèse car l'application conçue facilite spécialement
la gestion des adhésions, des dépôts ; des retraits,
d'octroi, de remboursement des crédits. L'application est
également capable de retrouver l'ensemble des informations relatives
à une opération donnée et de produire le rapport pour
chacune des opérations selon la demande des utilisateurs.
Quant à la dernière, nous l'affirmons sans
doute. L'application conçue répond aux critères multi
utilisateurs en ayant prévu une architecture réseau permettant
aux utilisateurs du système d'information (Administrateur de la base de
données, Gérant et les différents guichetiers) d'y
accéder en temps réel et d'y effectuer les opérations en
interrogeant une base de données distante.
Etant donné qu'un travail scientifique, ne manque
jamais quelques lacunes, nécessitant des correctifs ou
d'améliorations prochaines par d'autres chercheurs dans la même
thématique. C'est la raison pour laquelle toute suggestion ou remarque
serait la bienvenue de la part de lecteurs. Il nous est indispensable alors de
donner certaines propositions de sujet de recherche scientifique aux futurs
chercheurs qui nous emboiteront le pas.
· Mise en place d'un système
d'information multiposte pour la gestion des opérations de virement et
de transfert des fonds par intégration des techniques de Win socket et
Windows communication Fondation.
· Conception d'une application informatique
de gestion d'une institution de micro finance usant d'une multitude de devise
de monnaies.
Ainsi le monde étant ouvert, nous restons unis entre
chercheur, pour contribuer à l'évolution de la recherche
scientifique.
| 
