Annexes rapport stage BTSII1 - Programme de pointage
Annexes rapport stage BTSII1 - Programme de pointage
Annexes rapport stage BTSII1 - Programme de pointage
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
ANNEXES<br />
Annexe 1 : Modèle Conceptuel <strong>de</strong> données ................................................................................. II<br />
Annexe 2 : Dictionnaires <strong>de</strong>s données ........................................................................................III<br />
Annexe 3 : Structure <strong>de</strong> la table "histo" ......................................................................................III<br />
Annexe 4 : Structure <strong>de</strong> la table "tache"......................................................................................IV<br />
Annexe 5 : Structure <strong>de</strong> la table "salarie"....................................................................................IV<br />
Annexe 6 : Structure <strong>de</strong> la table "ofent".......................................................................................V<br />
Annexe 7 : Fenêtre principale .....................................................................................................VI<br />
Annexe 8 : Fenêtre "Saisie <strong>de</strong>s tâches" ..................................................................................... VII<br />
Annexe 9 : Fenêtre "Liste <strong>de</strong>s salariés"....................................................................................VIII<br />
Annexe 10 : Fenêtre "Fiche salarié"............................................................................................IX<br />
Annexe 11 : Fenêtre "Liste <strong>de</strong>s affaires et <strong>de</strong>s ofents".................................................................X<br />
Annexe 12 : Fenêtre "Fiche opération" .......................................................................................XI<br />
Annexe 14 : Fenêtre "Modification Historique" ......................................................................XIII<br />
Annexe 15 : Fenêtre "Anomalies"............................................................................................XIV<br />
Annexe 16 : Fenêtre "Correction <strong>de</strong>s anomalies"...................................................................... XV<br />
Annexe 17 : Fenêtre "Ecart".....................................................................................................XVI<br />
Annexe 18 : Fenêtre "Temps passé par opération" ................................................................ XVII<br />
Annexe 19 : Fenêtre "Consultation <strong>de</strong>s archives" ................................................................. XVIII<br />
Annexe 20 : Fenêtre "Imprimer" ..............................................................................................XIX<br />
Annexe 21 : Fenêtre "Archivage".............................................................................................. XX<br />
Annexe 22 : Fenêtre "Opérations sur les tables"......................................................................XXI<br />
Annexe 23 : Barre d'avancement..............................................................................................XXI<br />
Annexe 24 : Fenêtre "Ai<strong>de</strong>" ................................................................................................... XXII<br />
Annexe 25 : Aperçu <strong>de</strong> l'impression <strong>de</strong> "l'Historique".......................................................... XXIII<br />
Annexe 26 : Aperçu <strong>de</strong> l'impression du "Temps passé par opération" .................................XXIV<br />
Annexe 27 : Aperçu <strong>de</strong> l'impression du "Temps <strong>de</strong> travail" .................................................. XXV<br />
Annexe 28 : Aperçu <strong>de</strong> l'impression <strong>de</strong> la "Fiche opération"................................................XXVI<br />
Annexe 29 : Co<strong>de</strong> source <strong>de</strong> la fenêtre Historique...............................................................XXVII
Annexe 1 : Modèle Conceptuel <strong>de</strong> données<br />
Début<br />
Fin<br />
II
Annexe 2 : Dictionnaires <strong>de</strong>s données<br />
Nom <strong>de</strong> la propriété Type Entité Signification<br />
MAT chaîne Salarie numéro <strong>de</strong> matricule<br />
NOM chaîne Salarie nom du salarié<br />
PRENOM chaîne Salarie prénom du salarié<br />
EMPLOI chaîne Salarie emploi du salarié<br />
QUALIF chaîne Salarie qualification du salarié<br />
NIVEAU chaîne Salarie niveau du salarié<br />
INDICE chaîne Salarie Indice<br />
COEFF chaîne Salarie Coefficient<br />
AFFNUM chaîne Ofent numéro <strong>de</strong> l'affaire<br />
OFNUM entier Ofent numéro <strong>de</strong> l'ofent<br />
OFLIB chaîne Ofent libellé <strong>de</strong> l'ofent<br />
CODEP chaîne Ofent co<strong>de</strong> dépôt<br />
DESIP chaîne Ofent <strong>de</strong>scription du produit<br />
QTEPDT entier Ofent quantité produite<br />
DETNUM entier Ofent numéro ?<br />
OFDEL chaîne Ofent Délai<br />
TEMPSVISE entier Ofent temps <strong>de</strong> production visé<br />
HEURE chaîne Temps<br />
LIBELLE chaîne Tache Voir note au V., 1., a)<br />
DATE date calendrier<br />
Annexe 3 : Structure <strong>de</strong> la table "histo"<br />
Nom du champ Type<br />
Taille Signification<br />
MATSAL chaîne 4 matricule du salarié<br />
NUMAFF chaîne 10 numéro <strong>de</strong> l'affaire<br />
NUMOFF entier 10 numéro <strong>de</strong> l'ofent<br />
CODETACHE chaîne 4 type <strong>de</strong> tâche<br />
DATEFIN date date <strong>de</strong> début <strong>de</strong> la tâche<br />
DATEDEB date date <strong>de</strong> fin <strong>de</strong> la tâche<br />
HEUREFIN chaîne 10 heure <strong>de</strong> début <strong>de</strong> la tâche<br />
HEUREDEB chaîne 10 heure <strong>de</strong> fin <strong>de</strong> la tâche<br />
TOTAL reel temps <strong>de</strong> travail effectué<br />
JOUR entier court numéro du jour <strong>de</strong> la semaine<br />
III
Annexe 4 : Structure <strong>de</strong> la table "tache"<br />
LIBELLE DEBUT FIN<br />
Fabrication 1111 2111<br />
Déjeuner 1222 2222<br />
Réunion 1333 2333<br />
Autre 1444 2444<br />
Journée 1555 2555<br />
Annexe 5 : Structure <strong>de</strong> la table "salarie"<br />
Nom du champ Type<br />
Taille Signification<br />
MAT chaîne 4 numéro <strong>de</strong> matricule<br />
NOM chaîne 30 nom du salarié<br />
PRENOM chaîne 20 prénom du salarié<br />
EMPLOI chaîne 30 emploi du salarié<br />
QUALIF chaîne 30 qualification du salarié<br />
NIVEAU chaîne 4 niveau du salarié<br />
INDICE chaîne 4 Indice<br />
COEFF chaîne 4 Coefficient<br />
DATEENTREE date temps <strong>de</strong> travail effectué<br />
DATESORTIE date numéro du jour <strong>de</strong> la semaine<br />
IV
Annexe 6 : Structure <strong>de</strong> la table "ofent"<br />
Nom du champ Type Taille Signification<br />
AFFNUM chaîne 10 numéro <strong>de</strong> l'affaire<br />
OFNUM entier 10 numéro <strong>de</strong> l'ofent<br />
OFLIB chaîne 30 libellé <strong>de</strong> l'ofent<br />
CODEP chaîne 8 co<strong>de</strong> dépôt<br />
DESIP chaîne 35 <strong>de</strong>scription du produit<br />
QTEPDT entier 6 quantité produite<br />
DETNUM entier 2<br />
OFDEL chaîne 10 délai<br />
TEMPSVISE entier 6 temps <strong>de</strong> production visé<br />
TEMPSPASSE réel temps <strong>de</strong> production écoulé<br />
V
Annexe 7 : Fenêtre principale<br />
VI
Annexe 8 : Fenêtre "Saisie <strong>de</strong>s tâches"<br />
VII
Annexe 9 : Fenêtre "Liste <strong>de</strong>s salariés"<br />
VIII
Annexe 10 : Fenêtre "Fiche salarié"<br />
IX
Annexe 11 : Fenêtre "Liste <strong>de</strong>s affaires et <strong>de</strong>s ofents"<br />
X
Annexe 12 : Fenêtre "Fiche opération"<br />
XI
Annexe 13 : Fenêtre "Historique"<br />
XII
Annexe 14 : Fenêtre "Modification Historique"<br />
XIII
Annexe 15 : Fenêtre "Anomalies"<br />
XIV
Annexe 16 : Fenêtre "Correction <strong>de</strong>s anomalies"<br />
XV
Annexe 17 : Fenêtre "Ecart"<br />
XVI
Annexe 18 : Fenêtre "Temps passé par opération"<br />
XVII
Annexe 19 : Fenêtre "Consultation <strong>de</strong>s archives"<br />
XVIII
Annexe 20 : Fenêtre "Imprimer"<br />
XIX
Annexe 21 : Fenêtre "Archivage"<br />
XX
Annexe 22 : Fenêtre "Opérations sur les tables"<br />
Annexe 23 : Barre d'avancement<br />
XXI
Annexe 24 : Fenêtre "Ai<strong>de</strong>"<br />
XXII
Annexe 25 : Aperçu <strong>de</strong> l'impression <strong>de</strong> "l'Historique"<br />
XXIII
Annexe 26 : Aperçu <strong>de</strong> l'impression du "Temps passé par opération"<br />
XXIV
Annexe 27 : Aperçu <strong>de</strong> l'impression du "Temps <strong>de</strong> travail"<br />
XXV
Annexe 28 : Aperçu <strong>de</strong> l'impression <strong>de</strong> la "Fiche opération"<br />
XXVI
Annexe 29 : Co<strong>de</strong> source <strong>de</strong> la fenêtre Historique<br />
unit historique;<br />
interface<br />
uses<br />
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, Db, DBTables,<br />
Grids, DBGrids, StdCtrls, DBCtrls, ExtCtrls, quickrpt, Qrctrls;<br />
//déclaration <strong>de</strong> type<br />
type<br />
TFormHistoric = class(TForm)<br />
Label_tacheterm: TLabel;<br />
DBGridterm: TDBGrid;<br />
label_en_cours: TLabel;<br />
DBGri<strong>de</strong>ncours: TDBGrid;<br />
Retour_histo: TButton;<br />
Imprimer_histo: TButton;<br />
Labelcritere: TLabel;<br />
Label_mat_histo: TLabel;<br />
Label_tache_histo: TLabel;<br />
requetecours: TQuery;<br />
DataSourcereterm: TDataSource;<br />
DataSourcerecour: TDataSource;<br />
DBGrid3: TDBGrid;<br />
DataSourcedbgrid3: TDataSource;<br />
operation: TTable;<br />
Label_recapitulatif_histo: TLabel;<br />
tache: TComboBox;<br />
matricule: TComboBox;<br />
salarie: TTable;<br />
Hist_anomalie: TButton;<br />
CheckBoxdate: TCheckBox;<br />
Buttonapercu: TButton;<br />
Buttonhelp: TButton;<br />
Buttonactualisation: TButton;<br />
GroupBox1: TGroupBox;<br />
requeteterm: TQuery;<br />
Button1: TButton;<br />
Etathisto: TQuickRep;<br />
TitleBand1: TQRBand;<br />
QRLabel1: TQRLabel;<br />
ColumnHea<strong>de</strong>rBand1: TQRBand;<br />
QRLabel2: TQRLabel;<br />
QRLabel3: TQRLabel;<br />
QRLabel4: TQRLabel;<br />
QRLabel5: TQRLabel;<br />
QRLabel6: TQRLabel;<br />
QRLabel8: TQRLabel;<br />
QRLabel7: TQRLabel;<br />
QRLabel11: TQRLabel;<br />
QRLabel13: TQRLabel;<br />
QRLabel14: TQRLabel;<br />
QRLabel15: TQRLabel;<br />
QRLabel16: TQRLabel;<br />
QRBand24: TQRBand;<br />
QRLabel87: TQRLabel;<br />
QRLabeldate: TQRLabel;<br />
XXVII
QRLabel12: TQRLabel;<br />
QRLabel22: TQRLabel;<br />
QRLabel19: TQRLabel;<br />
QRBand1: TQRBand;<br />
QRDBText11: TQRDBText;<br />
QRDBText12: TQRDBText;<br />
QRDBText13: TQRDBText;<br />
QRDBText14: TQRDBText;<br />
QRDBText15: TQRDBText;<br />
QRDBText16: TQRDBText;<br />
QRDBText17: TQRDBText;<br />
QRDBText18: TQRDBText;<br />
QRDBText19: TQRDBText;<br />
QRLabel25: TQRLabel;<br />
QRLabel26: TQRLabel;<br />
QRLabel27: TQRLabel;<br />
QRLabel28: TQRLabel;<br />
QRLabel29: TQRLabel;<br />
QRLabel30: TQRLabel;<br />
QRLabel31: TQRLabel;<br />
QRLabel32: TQRLabel;<br />
QRDBText20: TQRDBText;<br />
QRLabel9: TQRLabel;<br />
QRLabel17: TQRLabel;<br />
QRLabel10: TQRLabel;<br />
QRLabel18: TQRLabel;<br />
QRLabel21: TQRLabel;<br />
QRLabel23: TQRLabel;<br />
//fin déclaration <strong>de</strong> type<br />
//déclaration <strong>de</strong> procédure<br />
procedure RetourHistoClick(Sen<strong>de</strong>r: TObject);<br />
procedure ModifierHistoClick(Sen<strong>de</strong>r: TObject);<br />
procedure matriculeChange(Sen<strong>de</strong>r: TObject);<br />
procedure ImprimerHistoClick(Sen<strong>de</strong>r: TObject);<br />
procedure HistAnomalieClick(Sen<strong>de</strong>r: TObject);<br />
procedure ButtonApercuClick(Sen<strong>de</strong>r: TObject);<br />
procedure FormShow(Sen<strong>de</strong>r: TObject);<br />
procedure FormCreate(Sen<strong>de</strong>r: TObject);<br />
procedure ButtonHelpClick(Sen<strong>de</strong>r: TObject);<br />
procedure Liaison_Table(Sen<strong>de</strong>r: TObject; chemin:String);<br />
procedure FormClose(Sen<strong>de</strong>r: TObject; var Action: TCloseAction);<br />
procedure ButtonActualisationClick(Sen<strong>de</strong>r: TObject);<br />
procedure ModifierClick(Sen<strong>de</strong>r: TObject)<br />
//fin <strong>de</strong> déclaration <strong>de</strong> procédure<br />
private<br />
{ Déclarations privées }<br />
public<br />
{ Déclarations publiques }<br />
end;<br />
//déclaration <strong>de</strong> variable<br />
var<br />
FormHistoric: TFormHistoric;<br />
//fin <strong>de</strong> déclaration <strong>de</strong> variable<br />
implementation<br />
uses principal, ai<strong>de</strong>, rattrapage, anomalie, modifHistorique, SplashUnit;<br />
XXVIII
{$R *.DFM}<br />
//création <strong>de</strong>s critères <strong>de</strong> sélection dans l'historique<br />
//critere1 -> tâche terminée<br />
//critere2 -> tâche en cours<br />
procedure Creer_Critere(mat_s:String; tache:String; var critere1:string; var<br />
critere2:String; auj:boolean);<br />
begin<br />
critere1:= ' where "histo.db".NOF="ofent.db".NOF and<br />
"histo.db".OPERATION="ofent.db".OPERATION and<br />
CODETACHE=FIN';<br />
critere2:= ' where CODETACHE=<strong>de</strong>but';<br />
if mat_s'TOUS' then<br />
begin<br />
critere1:=critere1+' and MATSAL="'+mat_s+'"';<br />
critere2:=critere2+' and MATSAL="'+mat_s+'"';<br />
// MATSAL : champ <strong>de</strong> la table histo<br />
end; //endif<br />
if tache'TOUTES' then<br />
begin<br />
critere1:=critere1+' and CODETACHE="'+inttostr(strtoint(tache)+1000)+'"';<br />
// CODETACHE : champ <strong>de</strong> la table histo<br />
end; //endif<br />
if auj=true then<br />
begin<br />
critere1:=critere1+' and DATEDEB=DATEDUJOUR';<br />
// DATEDEB : champ <strong>de</strong> la table histo<br />
// DATEDUJOUR : champ <strong>de</strong> la table DATE<br />
end; //endif<br />
end; //Creer_Critere<br />
//retour au menu principal<br />
procedure TFormHistoric.RetourHistoClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
//fermeture <strong>de</strong> la fenêtre<br />
EURO_PROCESS.Show;<br />
FormHistoric.Close;<br />
end; //TFormHistoric.RetourHistoClick<br />
//retour au menu principal<br />
procedure TFormHistoric.ModifierHistoClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
//fermeture <strong>de</strong> la fenêtre<br />
EURO_PROCESS.Show;<br />
FormHistoric.Close;<br />
end; //TFormHistoric.ModifierHistoClick<br />
//affecte le chemin <strong>de</strong> la table à la propriété DatabaseName<br />
//du composant TTable<br />
procedure TFormHistoric.Liaison_Table(Sen<strong>de</strong>r: TObject;chemin:String);<br />
begin<br />
requeteterm.DatabaseName:=chemin;<br />
XXIX
equetecours.DatabaseName:=chemin;<br />
salarie.Close;<br />
salarie.DatabaseName:=chemin;<br />
salarie.TableName:='Salarie2.db';<br />
operation.DatabaseName:=chemin;<br />
operation.TableName:='TACHE.db';<br />
end; //TFormHistoric.Liaison_Table<br />
//remplit les combobox et effectue toutes les initialisations nécessaires à cette fenêtre<br />
procedure TFormHistoric.FormCreate(sen<strong>de</strong>r:Tobject);<br />
var i:integer;<br />
//compteur <strong>de</strong> boucle<br />
var chemin:String; //chemin du répertoire en cours<br />
begin<br />
//recherche du chemin <strong>de</strong>s tables et mise a jour<br />
getdir(0, chemin);<br />
chemin:=chemin+'\table';<br />
Liaison_Table(Sen<strong>de</strong>r, chemin);<br />
//initialisation <strong>de</strong> la combo tache<br />
for i:=1 to NBTACHE do<br />
tache.Items.Add(Co<strong>de</strong>_tache[i]);<br />
tache.Items.Add('TOUTES');<br />
tache.Text:='TOUTES';<br />
//rend l'état invisible<br />
Etathisto.Visible:=false;<br />
end; //TFormHistoric.FormCreate<br />
//pré construction <strong>de</strong>s requêtes choix <strong>de</strong>s bases<br />
procedure Preconstruction(auj:boolean; var <strong>de</strong>but_requete1:String; var<br />
<strong>de</strong>but_requete2:String);<br />
begin<br />
<strong>de</strong>but_requete1:='select * from "histo.db", "ofent.db", "tache.db"';<br />
<strong>de</strong>but_requete2:='select * from "activite_en_cour.db", "tache.db"';<br />
if auj=True then<br />
<strong>de</strong>but_requete1:=<strong>de</strong>but_requete1+',"DATEDUJOUR.db"';<br />
end; //pré construction<br />
//mise à jour <strong>de</strong>s dbgrids, tache_en_cours et tache terminé<br />
//lors d'un changement <strong>de</strong> critère <strong>de</strong> sélection<br />
procedure TFormHistoric.matriculeChange(Sen<strong>de</strong>r: TObject);<br />
var critere1, critere2:String;<br />
//critère <strong>de</strong> sélection <strong>de</strong>s tables<br />
var <strong>de</strong>but_requete1, <strong>de</strong>but_requete2:String; //table concerné par la requête (source)<br />
var tache:String; //tâche <strong>de</strong>mandée<br />
begin<br />
//édition du matricule<br />
tache:=tache.text;<br />
//création <strong>de</strong>s donnes <strong>de</strong> requête<br />
Preconstruction(CheckBoxdate.Checked, <strong>de</strong>but_requete1, <strong>de</strong>but_requete2);<br />
Creer_Critere(matricule.text, tache, critere1, critere2, CheckBoxdate.Checked);<br />
XXX
mise a jour <strong>de</strong> la requête SQl pour les tâches terminées<br />
requeteterm.Close;<br />
requeteterm.SQL.Clear;<br />
requeteterm.SQL.Add(<strong>de</strong>but_requete1);<br />
requeteterm.SQL.Add(critere1);<br />
requeteterm.SQL.Add('ORDER BY MATSAL <strong>de</strong>sc, DATEDEB <strong>de</strong>sc, HEUREDEB <strong>de</strong>sc, HEUREFIN <strong>de</strong>sc, NOF,<br />
OPERATION, LIBELLE');<br />
requeteterm.Open;<br />
//mise a jour <strong>de</strong> la requête SQL pour les tâches en cours<br />
requetecours.Close;<br />
requetecours.SQL.Clear;<br />
requetecours.SQL.Add(<strong>de</strong>but_requete2);<br />
if critere2'""' then requetecours.SQL.Add(critere2);<br />
requetecours.SQL.Add('ORDER BY MATSAL,DATEDEB <strong>de</strong>sc, HEUREDEB <strong>de</strong>sc, NOF <strong>de</strong>sc, OPERATION<br />
<strong>de</strong>sc');<br />
requetecours.Open;<br />
end; //THistoric.matriculeChange<br />
//impression <strong>de</strong> l'historique<br />
procedure TFormHistoric.ImprimerHistoClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
if MessageDlg('Imprimer?', mtConfirmation, mbokcancel, 0)=mrOk<br />
then<br />
begin<br />
try<br />
QRLabeldate.Caption:='Fait le '+ EURO_PROCESS.DateDuJourFormate;<br />
Etathisto.Print;<br />
ShowMessage('Impression lancée...');<br />
except<br />
MessageDlg('Erreur d''impression indéterminée', mtConfirmation, mbokcancel, 0);<br />
end; //fin exception<br />
end; //endif<br />
end; //THistoric.ImprimerHistoClick<br />
//affiche la fenêtre anomalie<br />
procedure TFormHistoric.HistAnomalieClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
//fermeture <strong>de</strong> la fenêtre et ouverture <strong>de</strong> anomalie<br />
Formhistoric.Close;<br />
Formanomalie.Visible:=false;<br />
Formanomalie.Show;<br />
end; //THistoric.HistAnomalieClick<br />
//affiche l'aperçu avant impression<br />
procedure TFormHistoric.ButtonApercuClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
QRLabeldate.Caption:='Fait le '+EURO_PROCESS.DateDuJourFormate;<br />
Etathisto.Preview;<br />
end; //TFormHistoric.ButtonApercuClick<br />
//lancer à chaque ouverture <strong>de</strong> la fenêtre, réinitialise la fenêtre<br />
procedure TFormHistoric.FormShow(Sen<strong>de</strong>r: TObject);<br />
XXXI
egin<br />
//ouverture <strong>de</strong> base et requête<br />
SplashForm.Close;<br />
SplashForm.Show;<br />
SplashForm.Refresh;<br />
SplashForm.ProgressBar1.Position:=0;<br />
salarie.Open;<br />
operation.Open;<br />
SplashForm.ProgressBar1.Position:=10;<br />
requeteterm.Open;<br />
SplashForm.ProgressBar1.Position:=40;<br />
requetecours.Open;<br />
SplashForm.ProgressBar1.Position:=55;<br />
//initialisation <strong>de</strong> la combo matricule<br />
ButtonActualisationClick(Sen<strong>de</strong>r);<br />
SplashForm.ProgressBar1.Position:=70;<br />
matricule.Text:='TOUS';<br />
SplashForm.ProgressBar1.Position:=85;<br />
matriculechange(Sen<strong>de</strong>r);<br />
SplashForm.ProgressBar1.Position:=100;<br />
SplashForm.Hi<strong>de</strong>;<br />
end; //TFormHistoric.FormShow<br />
//affiche la fenêtre d'ai<strong>de</strong><br />
procedure TFormHistoric.ButtonHelpClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
FormAi<strong>de</strong>.RadioButtonhisto.Checked:=true;<br />
FormAi<strong>de</strong>.Show;<br />
end; //TFormHistoric.ButtonHelpClick<br />
//actualise la fenêtre et la combobox matricule<br />
procedure TFormHistoric.ButtonActualisationClick(Sen<strong>de</strong>r: TObject);<br />
var matricule_actu:String; //matricule sélectionné<br />
begin<br />
//initialisation <strong>de</strong> la combo matricule<br />
salarie.Open ;<br />
salarie.First;<br />
matricule_actu:=matricule.Text;<br />
matricule.Clear;<br />
while (salarie.EOF=false) do<br />
begin<br />
matricule.Items.Add(salarie.FieldByName('MAT').AsString);<br />
salarie.Next ;<br />
end; //fin while<br />
matricule.Items.Add('TOUS');<br />
salarie.Close;<br />
//réaffichage<br />
matricule.Text:=matricule_actu;<br />
//actualisation <strong>de</strong>s dbgrids<br />
requeteterm.Close;<br />
requetecours.Close;<br />
requeteterm.Open;<br />
requetecours.Open;<br />
end; //TFormHistoric.ButtonActualisationClick<br />
XXXII
corrige les erreurs survenu lors d'une erreur d'un <strong>pointage</strong><br />
procedure TFormHistoric.ModifierClick(Sen<strong>de</strong>r: TObject);<br />
begin<br />
//remplissage <strong>de</strong>s zones <strong>de</strong> données<br />
FormModifHistorique.Editmat.Text:=DBGridterm.Fields[0].AsString;<br />
FormModifHistorique.EditNumof.Text:=DBGridterm.Fields[1].AsString;<br />
FormModifHistorique.Editnumop.Text:=DBGridterm.Fields[2].AsString;<br />
FormModifHistorique.Edit<strong>de</strong>sip.Text:=DBGridterm.Fields[3].AsString;<br />
FormModifHistorique.Editlibelle.Text:=DBGridterm.Fields[4].AsString;<br />
FormModifHistorique.DateTimePickerdate<strong>de</strong>b.Date:=DBGridterm.Fields[5].AsDateTime;<br />
FormModifHistorique.DateTimePickerdatefin.Date:=DBGridterm.Fields[6].AsDateTime;<br />
FormModifHistorique.DateTimePickerheure<strong>de</strong>b.Time:=Strtotime(DBGridterm.Fields[7].AsString);<br />
FormModifHistorique.DateTimePickerheurefin.Time:=Strtotime(DBGridterm.Fields[8].AsString);<br />
//ouverture <strong>de</strong> la fenêtre ModifHistorique<br />
FormModifHistorique.Close;<br />
FormHistoric.Enabled:=false;<br />
FormModifHistorique.Show;<br />
end; //TFormanomalie.ButtonrattraperClick<br />
//clôture <strong>de</strong> la fenêtre<br />
procedure TFormHistoric.FormClose(Sen<strong>de</strong>r: TObject; var Action: TCloseAction);<br />
begin<br />
//clôture <strong>de</strong>s bases<br />
requeteterm.Close;<br />
requetecours.Close;<br />
salarie.Close;<br />
operation.Close;<br />
//ouverture fenêtre principale<br />
EURO_PROCESS.Enabled:=true;<br />
end; //TFormHistoric.FormClose<br />
end. //fin <strong>de</strong> historique.pas<br />
XXXIII