Annexes rapport stage BTSII1 - Programme de pointage

ANNEXES 

Annexe 1 : Modèle Conceptuel de données ................................................................................. II 

Annexe 2 : Dictionnaires des données ........................................................................................III 

Annexe 3 : Structure de la table "histo" ......................................................................................III 

Annexe 4 : Structure de la table "tache"......................................................................................IV 

Annexe 5 : Structure de la table "salarie"....................................................................................IV 

Annexe 6 : Structure de la table "ofent".......................................................................................V 

Annexe 7 : Fenêtre principale .....................................................................................................VI 

Annexe 8 : Fenêtre "Saisie des tâches" ..................................................................................... VII 

Annexe 9 : Fenêtre "Liste des salariés"....................................................................................VIII 

Annexe 10 : Fenêtre "Fiche salarié"............................................................................................IX 

Annexe 11 : Fenêtre "Liste des affaires et des ofents".................................................................X 

Annexe 12 : Fenêtre "Fiche opération" .......................................................................................XI 

Annexe 14 : Fenêtre "Modification Historique" ......................................................................XIII 

Annexe 15 : Fenêtre "Anomalies"............................................................................................XIV 

Annexe 16 : Fenêtre "Correction des anomalies"...................................................................... XV 

Annexe 17 : Fenêtre "Ecart".....................................................................................................XVI 

Annexe 18 : Fenêtre "Temps passé par opération" ................................................................ XVII 

Annexe 19 : Fenêtre "Consultation des archives" ................................................................. XVIII 

Annexe 20 : Fenêtre "Imprimer" ..............................................................................................XIX 

Annexe 21 : Fenêtre "Archivage".............................................................................................. XX 

Annexe 22 : Fenêtre "Opérations sur les tables"......................................................................XXI 

Annexe 23 : Barre d'avancement..............................................................................................XXI 

Annexe 24 : Fenêtre "Aide" ................................................................................................... XXII 

Annexe 25 : Aperçu de l'impression de "l'Historique".......................................................... XXIII 

Annexe 26 : Aperçu de l'impression du "Temps passé par opération" .................................XXIV 

Annexe 27 : Aperçu de l'impression du "Temps de travail" .................................................. XXV 

Annexe 28 : Aperçu de l'impression de la "Fiche opération"................................................XXVI 

Annexe 29 : Code source de la fenêtre Historique...............................................................XXVII

Annexe 1 : Modèle Conceptuel de données 

Début 

Fin 

II

Annexe 2 : Dictionnaires des données 

Nom de la propriété Type Entité Signification 

MAT chaîne Salarie numéro de matricule 

NOM chaîne Salarie nom du salarié 

PRENOM chaîne Salarie prénom du salarié 

EMPLOI chaîne Salarie emploi du salarié 

QUALIF chaîne Salarie qualification du salarié 

NIVEAU chaîne Salarie niveau du salarié 

INDICE chaîne Salarie Indice 

COEFF chaîne Salarie Coefficient 

AFFNUM chaîne Ofent numéro de l'affaire 

OFNUM entier Ofent numéro de l'ofent 

OFLIB chaîne Ofent libellé de l'ofent 

CODEP chaîne Ofent code dépôt 

DESIP chaîne Ofent description du produit 

QTEPDT entier Ofent quantité produite 

DETNUM entier Ofent numéro ? 

OFDEL chaîne Ofent Délai 

TEMPSVISE entier Ofent temps de production visé 

HEURE chaîne Temps 

LIBELLE chaîne Tache Voir note au V., 1., a) 

DATE date calendrier 

Annexe 3 : Structure de la table "histo" 

Nom du champ Type 

Taille Signification 

MATSAL chaîne 4 matricule du salarié 

NUMAFF chaîne 10 numéro de l'affaire 

NUMOFF entier 10 numéro de l'ofent 

CODETACHE chaîne 4 type de tâche 

DATEFIN date date de début de la tâche 

DATEDEB date date de fin de la tâche 

HEUREFIN chaîne 10 heure de début de la tâche 

HEUREDEB chaîne 10 heure de fin de la tâche 

TOTAL reel temps de travail effectué 

JOUR entier court numéro du jour de la semaine 

III

Annexe 4 : Structure de la table "tache" 

LIBELLE DEBUT FIN 

Fabrication 1111 2111 

Déjeuner 1222 2222 

Réunion 1333 2333 

Autre 1444 2444 

Journée 1555 2555 

Annexe 5 : Structure de la table "salarie" 

Nom du champ Type 

Taille Signification 

MAT chaîne 4 numéro de matricule 

NOM chaîne 30 nom du salarié 

PRENOM chaîne 20 prénom du salarié 

EMPLOI chaîne 30 emploi du salarié 

QUALIF chaîne 30 qualification du salarié 

NIVEAU chaîne 4 niveau du salarié 

INDICE chaîne 4 Indice 

COEFF chaîne 4 Coefficient 

DATEENTREE date temps de travail effectué 

DATESORTIE date numéro du jour de la semaine 

IV

Annexe 6 : Structure de la table "ofent" 

Nom du champ Type Taille Signification 

AFFNUM chaîne 10 numéro de l'affaire 

OFNUM entier 10 numéro de l'ofent 

OFLIB chaîne 30 libellé de l'ofent 

CODEP chaîne 8 code dépôt 

DESIP chaîne 35 description du produit 

QTEPDT entier 6 quantité produite 

DETNUM entier 2 

OFDEL chaîne 10 délai 

TEMPSVISE entier 6 temps de production visé 

TEMPSPASSE réel temps de production écoulé 

V

Annexe 7 : Fenêtre principale 

VI

Annexe 8 : Fenêtre "Saisie des tâches" 

VII

Annexe 9 : Fenêtre "Liste des salariés" 

VIII

Annexe 10 : Fenêtre "Fiche salarié" 

IX

Annexe 11 : Fenêtre "Liste des affaires et des ofents" 

X

Annexe 12 : Fenêtre "Fiche opération" 

XI

Annexe 13 : Fenêtre "Historique" 

XII

Annexe 14 : Fenêtre "Modification Historique" 

XIII

Annexe 15 : Fenêtre "Anomalies" 

XIV

Annexe 16 : Fenêtre "Correction des anomalies" 

XV

Annexe 17 : Fenêtre "Ecart" 

XVI

Annexe 18 : Fenêtre "Temps passé par opération" 

XVII

Annexe 19 : Fenêtre "Consultation des archives" 

XVIII

Annexe 20 : Fenêtre "Imprimer" 

XIX

Annexe 21 : Fenêtre "Archivage" 

XX

Annexe 22 : Fenêtre "Opérations sur les tables" 

Annexe 23 : Barre d'avancement 

XXI

Annexe 24 : Fenêtre "Aide" 

XXII

Annexe 25 : Aperçu de l'impression de "l'Historique" 

XXIII

Annexe 26 : Aperçu de l'impression du "Temps passé par opération" 

XXIV

Annexe 27 : Aperçu de l'impression du "Temps de travail" 

XXV

Annexe 28 : Aperçu de l'impression de la "Fiche opération" 

XXVI

Annexe 29 : Code source de la fenêtre Historique 

unit historique; 

interface 

uses 

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables, 

Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, quickrpt, Qrctrls; 

//déclaration de type 

type 

TFormHistoric = class(TForm) 

Label_tacheterm: TLabel; 

DBGridterm: TDBGrid; 

label_en_cours: TLabel; 

DBGridencours: TDBGrid; 

Retour_histo: TButton; 

Imprimer_histo: TButton; 

Labelcritere: TLabel; 

Label_mat_histo: TLabel; 

Label_tache_histo: TLabel; 

requetecours: TQuery; 

DataSourcereterm: TDataSource; 

DataSourcerecour: TDataSource; 

DBGrid3: TDBGrid; 

DataSourcedbgrid3: TDataSource; 

operation: TTable; 

Label_recapitulatif_histo: TLabel; 

tache: TComboBox; 

matricule: TComboBox; 

salarie: TTable; 

Hist_anomalie: TButton; 

CheckBoxdate: TCheckBox; 

Buttonapercu: TButton; 

Buttonhelp: TButton; 

Buttonactualisation: TButton; 

GroupBox1: TGroupBox; 

requeteterm: TQuery; 

Button1: TButton; 

Etathisto: TQuickRep; 

TitleBand1: TQRBand; 

QRLabel1: TQRLabel; 

ColumnHeaderBand1: TQRBand; 













QRBand24: TQRBand; 


QRLabeldate: TQRLabel; 

XXVII




QRBand1: TQRBand; 

QRDBText11: TQRDBText; 
























//fin déclaration de type 

//déclaration de procédure 

procedure RetourHistoClick(Sender: TObject); 

procedure ModifierHistoClick(Sender: TObject); 

procedure matriculeChange(Sender: TObject); 

procedure ImprimerHistoClick(Sender: TObject); 

procedure HistAnomalieClick(Sender: TObject); 

procedure ButtonApercuClick(Sender: TObject); 

procedure FormShow(Sender: TObject); 

procedure FormCreate(Sender: TObject); 

procedure ButtonHelpClick(Sender: TObject); 

procedure Liaison_Table(Sender: TObject; chemin:String); 

procedure FormClose(Sender: TObject; var Action: TCloseAction); 

procedure ButtonActualisationClick(Sender: TObject); 

procedure ModifierClick(Sender: TObject) 

//fin de déclaration de procédure 

private 

{ Déclarations privées } 

public 

{ Déclarations publiques } 

end; 

//déclaration de variable 

var 

FormHistoric: TFormHistoric; 

//fin de déclaration de variable 

implementation 

uses principal, aide, rattrapage, anomalie, modifHistorique, SplashUnit; 

XXVIII

{$R *.DFM} 

//création des critères de sélection dans l'historique 

//critere1 -> tâche terminée 

//critere2 -> tâche en cours 

procedure Creer_Critere(mat_s:String; tache:String; var critere1:string; var 

critere2:String; auj:boolean); 

begin 

critere1:= ' where "histo.db".NOF="ofent.db".NOF and 

"histo.db".OPERATION="ofent.db".OPERATION and 

CODETACHE=FIN'; 

critere2:= ' where CODETACHE=debut'; 

if mat_s'TOUS' then 

begin 

critere1:=critere1+' and MATSAL="'+mat_s+'"'; 

critere2:=critere2+' and MATSAL="'+mat_s+'"'; 

// MATSAL : champ de la table histo 

end; //endif 

if tache'TOUTES' then 

begin 

critere1:=critere1+' and CODETACHE="'+inttostr(strtoint(tache)+1000)+'"'; 

// CODETACHE : champ de la table histo 

end; //endif 

if auj=true then 

begin 

critere1:=critere1+' and DATEDEB=DATEDUJOUR'; 

// DATEDEB : champ de la table histo 

// DATEDUJOUR : champ de la table DATE 

end; //endif 

end; //Creer_Critere 

//retour au menu principal 

procedure TFormHistoric.RetourHistoClick(Sender: TObject); 

begin 

//fermeture de la fenêtre 

EURO_PROCESS.Show; 

FormHistoric.Close; 

end; //TFormHistoric.RetourHistoClick 

//retour au menu principal 

procedure TFormHistoric.ModifierHistoClick(Sender: TObject); 

begin 

//fermeture de la fenêtre 

EURO_PROCESS.Show; 

FormHistoric.Close; 

end; //TFormHistoric.ModifierHistoClick 

//affecte le chemin de la table à la propriété DatabaseName 

//du composant TTable 

procedure TFormHistoric.Liaison_Table(Sender: TObject;chemin:String); 

begin 

requeteterm.DatabaseName:=chemin; 

XXIX

equetecours.DatabaseName:=chemin; 

salarie.Close; 

salarie.DatabaseName:=chemin; 

salarie.TableName:='Salarie2.db'; 

operation.DatabaseName:=chemin; 

operation.TableName:='TACHE.db'; 

end; //TFormHistoric.Liaison_Table 

//remplit les combobox et effectue toutes les initialisations nécessaires à cette fenêtre 

procedure TFormHistoric.FormCreate(sender:Tobject); 

var i:integer; 

//compteur de boucle 

var chemin:String; //chemin du répertoire en cours 

begin 

//recherche du chemin des tables et mise a jour 

getdir(0, chemin); 

chemin:=chemin+'\table'; 

Liaison_Table(Sender, chemin); 

//initialisation de la combo tache 

for i:=1 to NBTACHE do 

tache.Items.Add(Code_tache[i]); 

tache.Items.Add('TOUTES'); 

tache.Text:='TOUTES'; 

//rend l'état invisible 

Etathisto.Visible:=false; 

end; //TFormHistoric.FormCreate 

//pré construction des requêtes choix des bases 

procedure Preconstruction(auj:boolean; var debut_requete1:String; var 

debut_requete2:String); 

begin 

debut_requete1:='select * from "histo.db", "ofent.db", "tache.db"'; 

debut_requete2:='select * from "activite_en_cour.db", "tache.db"'; 

if auj=True then 

debut_requete1:=debut_requete1+',"DATEDUJOUR.db"'; 

end; //pré construction 

//mise à jour des dbgrids, tache_en_cours et tache terminé 

//lors d'un changement de critère de sélection 

procedure TFormHistoric.matriculeChange(Sender: TObject); 

var critere1, critere2:String; 

//critère de sélection des tables 

var debut_requete1, debut_requete2:String; //table concerné par la requête (source) 

var tache:String; //tâche demandée 

begin 

//édition du matricule 

tache:=tache.text; 

//création des donnes de requête 

Preconstruction(CheckBoxdate.Checked, debut_requete1, debut_requete2); 

Creer_Critere(matricule.text, tache, critere1, critere2, CheckBoxdate.Checked); 

XXX

mise a jour de la requête SQl pour les tâches terminées 

requeteterm.Close; 

requeteterm.SQL.Clear; 

requeteterm.SQL.Add(debut_requete1); 

requeteterm.SQL.Add(critere1); 

requeteterm.SQL.Add('ORDER BY MATSAL desc, DATEDEB desc, HEUREDEB desc, HEUREFIN desc, NOF, 

OPERATION, LIBELLE'); 

requeteterm.Open; 

//mise a jour de la requête SQL pour les tâches en cours 

requetecours.Close; 

requetecours.SQL.Clear; 

requetecours.SQL.Add(debut_requete2); 

if critere2'""' then requetecours.SQL.Add(critere2); 

requetecours.SQL.Add('ORDER BY MATSAL,DATEDEB desc, HEUREDEB desc, NOF desc, OPERATION 

desc'); 

requetecours.Open; 

end; //THistoric.matriculeChange 

//impression de l'historique 

procedure TFormHistoric.ImprimerHistoClick(Sender: TObject); 

begin 

if MessageDlg('Imprimer?', mtConfirmation, mbokcancel, 0)=mrOk 

then 

begin 

try 

QRLabeldate.Caption:='Fait le '+ EURO_PROCESS.DateDuJourFormate; 

Etathisto.Print; 

ShowMessage('Impression lancée...'); 

except 

MessageDlg('Erreur d''impression indéterminée', mtConfirmation, mbokcancel, 0); 

end; //fin exception 

end; //endif 

end; //THistoric.ImprimerHistoClick 

//affiche la fenêtre anomalie 

procedure TFormHistoric.HistAnomalieClick(Sender: TObject); 

begin 

//fermeture de la fenêtre et ouverture de anomalie 

Formhistoric.Close; 

Formanomalie.Visible:=false; 

Formanomalie.Show; 

end; //THistoric.HistAnomalieClick 

//affiche l'aperçu avant impression 

procedure TFormHistoric.ButtonApercuClick(Sender: TObject); 

begin 

QRLabeldate.Caption:='Fait le '+EURO_PROCESS.DateDuJourFormate; 

Etathisto.Preview; 

end; //TFormHistoric.ButtonApercuClick 

//lancer à chaque ouverture de la fenêtre, réinitialise la fenêtre 

procedure TFormHistoric.FormShow(Sender: TObject); 

XXXI

egin 

//ouverture de base et requête 

SplashForm.Close; 

SplashForm.Show; 

SplashForm.Refresh; 

SplashForm.ProgressBar1.Position:=0; 

salarie.Open; 

operation.Open; 






//initialisation de la combo matricule 

ButtonActualisationClick(Sender); 


matricule.Text:='TOUS'; 


matriculechange(Sender); 


SplashForm.Hide; 

end; //TFormHistoric.FormShow 

//affiche la fenêtre d'aide 

procedure TFormHistoric.ButtonHelpClick(Sender: TObject); 

begin 

FormAide.RadioButtonhisto.Checked:=true; 

FormAide.Show; 

end; //TFormHistoric.ButtonHelpClick 

//actualise la fenêtre et la combobox matricule 

procedure TFormHistoric.ButtonActualisationClick(Sender: TObject); 

var matricule_actu:String; //matricule sélectionné 

begin 

//initialisation de la combo matricule 

salarie.Open ; 

salarie.First; 

matricule_actu:=matricule.Text; 

matricule.Clear; 

while (salarie.EOF=false) do 

begin 

matricule.Items.Add(salarie.FieldByName('MAT').AsString); 

salarie.Next ; 

end; //fin while 

matricule.Items.Add('TOUS'); 


//réaffichage 

matricule.Text:=matricule_actu; 

//actualisation des dbgrids 





end; //TFormHistoric.ButtonActualisationClick 

XXXII

corrige les erreurs survenu lors d'une erreur d'un pointage 

procedure TFormHistoric.ModifierClick(Sender: TObject); 

begin 

//remplissage des zones de données 

FormModifHistorique.Editmat.Text:=DBGridterm.Fields[0].AsString; 

FormModifHistorique.EditNumof.Text:=DBGridterm.Fields[1].AsString; 

FormModifHistorique.Editnumop.Text:=DBGridterm.Fields[2].AsString; 

FormModifHistorique.Editdesip.Text:=DBGridterm.Fields[3].AsString; 

FormModifHistorique.Editlibelle.Text:=DBGridterm.Fields[4].AsString; 

FormModifHistorique.DateTimePickerdatedeb.Date:=DBGridterm.Fields[5].AsDateTime; 

FormModifHistorique.DateTimePickerdatefin.Date:=DBGridterm.Fields[6].AsDateTime; 

FormModifHistorique.DateTimePickerheuredeb.Time:=Strtotime(DBGridterm.Fields[7].AsString); 

FormModifHistorique.DateTimePickerheurefin.Time:=Strtotime(DBGridterm.Fields[8].AsString); 

//ouverture de la fenêtre ModifHistorique 

FormModifHistorique.Close; 

FormHistoric.Enabled:=false; 

FormModifHistorique.Show; 

end; //TFormanomalie.ButtonrattraperClick 

//clôture de la fenêtre 

procedure TFormHistoric.FormClose(Sender: TObject; var Action: TCloseAction); 

begin 

//clôture des bases 




operation.Close; 

//ouverture fenêtre principale 

EURO_PROCESS.Enabled:=true; 

end; //TFormHistoric.FormClose 

end. //fin de historique.pas 

XXXIII

Annexes rapport stage BTSII1 - Programme de pointage

You also want an ePaper? Increase the reach of your titles

Delete template?

Save as template?