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

 > 

Mise en place d'un système informatisé pour la gestion des ressources humaines de l'hôpital général de référence de Katwa.

( Télécharger le fichier original )
par Kambale ZADO
UNIVERSITÉ DIVINA GLORIA DE BUTEMBO "U.D.G.B" en sigle - Graduat 2014
  

précédent sommaire suivant

Bitcoin is a swarm of cyber hornets serving the goddess of wisdom, feeding on the fire of truth, exponentially growing ever smarter, faster, and stronger behind a wall of encrypted energy

4.4.QUELQUES DONNEES DE TEST

Ici, nous présentons les données de test que nous avons introduit dans quelques tables seulement.

a. Table ADRESSE

ADRESSE

CODEADRESS

VILLE

COMMUNE

QUARTIER

AVENUE

NOPARC

NOTEL

EMAIL

BU01

Butembo

Bulengera

Mukuna

Kihinga

174

243 993 532 398

zadokambale@gmail.com

BU02

Butembo

Mususa

Kitulu

Vulumbi

89

243 812 872 472

jeanmari@yahoo.fr

BU03

Butembo

Kimemi

kambali

kighombwe

110

243 895 493 676

anicethkuzu@yahoo.com

b. Table EMPRUNT

EMPRUNT

REFEMPRUNT

MONTANT

DATEOCTROI

NUMMATR

MUT01

10,00 €

20/12/2013

200

MUT03

32,00 €

25/04/2014

202

MUT04

20,00 €

10/01/2014

100

c. Table PRESENCE

PRESENCE

DATEJOUR

NUMMATR

HEUREARR

HEUREDEP

MOTIFDEP

30/07/2014

200

08:00:00

17:00:00

FIN DU TRAVAIL

30/07/2014

202

08:00:00

11:00:00

MALADIE JUSTIFIEE

16/08/2014

200

08:00:00

12:00:00

FIN

d. Table AFFECTATION

AFFECTATION

NUMAFFECT

CODEFONCT

NUMMATR

DATEAFFEC

NUMCONTR

1

CG

200

10/01/2013

2

2

DN

202

20/05/2005

6

6

INFTR

100

12/01/2012

60

e. Table AGENT

AGENT

NUMMATR

NOCARTE

NOMAGENT

POSTNOMAGENT

PRENOMAGENT

SEXE

LIEUNAISS

DATENAISS

ETATCIVIL

NOMSCONJ

NBRENF

NOMPERE

NOMMERE

PROVDOR

TERRITDOR

VILLAGEDOR

CODEADRESS

50

100

KATEMBO

MUSAVULI

Dieudonne

M

BUNIA

12/03/1986

MARIE

KAVIRA

3

MUHINDO

MBAMBU

NORD KIVU

BENI

ISALE

BU01

100

125

KAMBALE

KINDUVUYIRA

ZADO

M

BUTEMBO

28/01/1992

CELIBATAIRE

----

0

KASEREKA

KAVIRA

NORD KIVU

LUBERO

KIMBULU

BU01

200

25

KASEREKA

MUSANGI

GRACE

M

GOMA

10/10/1985

MARIE

KATUNGU

2

KAMBALE

MASIKA

NORD KIVU

LUBERO

MUSIENENE

BU02

202

10

KAVIRA

KITAMBALA

NEEMA

F

BUTEMBO

14/02/1992

MARIEE

KATEMBO

6

PALUKU

KAVIRA

NORD KIVU

LUBERO

MISEBERE

BU03

f. Table FONCTION

FONCTION

CODEFONCT

NOMFONCT

DEPT

SERVICE

ACC

ACCOUCHEUSE

MATERNITE-MERE-MATER

SANTE COMMUNAUTAIRE

AGIS

ADMINISTRATEUR GESTIONNAIRE

ADMINISTRATION ET GESTION

ADMINISTRATION

CG

COMPTABLE

ADMINSTRATION ET GESTION

FINANCIER

DN

DIRECTEUR DE NURSING

DIRECTION DE NURSING

MEDICAL

INFTR

INFIRMIER TRAITANT

PEDIATRIE

SANTE COMMUNAUTAIRE

4.5.LES ETATS OU RAPPORTS

4.5.1.Fiche d'identité des agents

a. Forme

Cette fiche permet de rapporter sur l'affectation du personnel dans différents services de l'hôpital. Elle donne le matricule de l'agent et informe sur le département, le service, et la fonction de l'agent.

b. Codes VB.Net de l'état Fiche d'affectation des agents par service

Imports System.Data

Imports System.Data.OleDb

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class ContenairePrincipal

Dim con As OleDbConnection

Dim cmd As OleDbCommand

Dim da As OleDbDataAdapter

Dim ds As DataSet

Private Sub ListeDaffectationDesAgentParServiceToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListeDaffectationDesAgentParServiceToolStripMenuItem.Click

con = New OleDbConnection

con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\ZADO\Documents\GESTION_RESSOURCES_HUMAINES_DB.accdb"

con.Open()

cmd = New OleDbCommand

cmd.Connection = con

cmd.CommandText = "select * from REqAFFECTATIONAGENT"

da = New OleDbDataAdapter(cmd)

ds = New DataSet

da.Fill(ds, "REqAFFECTATIONAGENT")

Dim ListeAffectationAgent = New ListeAffectationAgent

ListeAffectationAgent.SetDataSource(ds.Tables(0))

Dim frmAffectationAgentService = New frmAffectationAgentService

frmAffectationAgentService.CrystalReportViewer1.ReportSource = ListeAffectationAgent

frmAffectationAgentService.CrystalReportViewer1.Refresh()

frmAffectationAgentService.CrystalReportViewer1.Update()

frmAffectationAgentService.Show()

con.Close()

End Sub

précédent sommaire suivant






Bitcoin is a swarm of cyber hornets serving the goddess of wisdom, feeding on the fire of truth, exponentially growing ever smarter, faster, and stronger behind a wall of encrypted energy








"L'imagination est plus importante que le savoir"   Albert Einstein