1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61
| procedure Tdm_Medic.IBCAlerter1Event(Sender: TObject; EventName: string;
EventCount: Integer);
begin
IBCAlerter1.Events.Clear;
// Ajout des événements
IBCAlerter1.Events.Add('nouveau_patient');
IBCAlerter1.Events.Add('Patient_examine');
IBCAlerter1.Events.Add('facture_reglee');
IBCAlerter1.Events.Add('CONNEXION_CLIENT');
IBCAlerter1.Events.Add('DECONNEXION_CLIENT');
// Recensement des événements
IBCAlerter1.AutoRegister := True;
// traitement des événements
if not(IBCTable_INFO_PC.Active) then
IBCTable_INFO_PC.Open;
if EventName = 'CONNEXION_CLIENT' then
begin
MessageDlg(Format('Démarrage connexion du poste %s à %s',
[IBCTable_INFO_PC.FieldByName('PC').AsString,
IBCTable_INFO_PC.FieldByName('DATE_CON').AsString]),
mtInformation, [mbOK], 0);
Exit;
end;
if EventName = 'DECONNEXION_CLIENT' then
begin
MessageDlg(Format('Fin connexion du poste %s à %s',
[IBCTable_INFO_PC.FieldByName('PC').AsString,
IBCTable_INFO_PC.FieldByName('DATE_CON').AsString]),
mtInformation, [mbOK], 0);
Exit;
end;
if EventName = 'nouveau_patient' then
begin
MessageDlg('Nouvel enregistrement dans table des patients',
mtInformation, [mbOK], 0);
Exit;
end;
if EventName = 'facture_reglee' then
begin
if not(IBCTable_Fact_Reglee.Active) then
IBCTable_Fact_Reglee.Open;
IBCTable_Fact_Reglee.Locate('CODE_PATIENT',
fm_Auscultation.IBCTable_PatientCODE_PATIENT.AsString, []);
MessageDlg(Format('Facture réglée du patient %s',
[IBCTable_Fact_Reglee.FieldByName('NOM_PATIENT').AsString]),
mtInformation, [mbOK], 0);
Exit;
end;
if EventName = 'Patient_examine' then
begin
MessageDlg(Format('Le patient %s vient d''être examiné.',
[IBCTable_PatientNOM_PATIENT.AsString]), mtInformation, [mbOK], 0);
Exit;
end;
end; |
Partager