Annexe B : Copie d'écrans
1. Gestion des Clients
2. Saisie des clients
3. Etats généraux des clients (clients et polices
souscrites)
4. Etats généraux des paiements des couts
liés à la police par les clients
Annexe B : Quelques Etats
Annexe D : Programmes
unit unitmain;
interface
uses
Windows, Messages, SysUtils, Variants, Classes,....;
type
Tmainform = class(TForm)
maintext: TStaticText;
StaticText2: TStaticText;
...;
procedure Quitter1Click(Sender: TObject);
....
procedure sbreglemntClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
var
mainform: Tmainform;
implementation
uses unitclient,unitdb,...;
{$R *.dfm}
procedure Tmainform.ConfigurerlHeureetlaDateSystme1Click(Sender:
TObject);
begin
WinExec('rundll32.exe shell32.dll,Control_RunDLL timedate.cpl',
SW_SHOWNORMAL);
end;
procedure Tmainform.FormClose(Sender: TObject; var Action:
TCloseAction);
begin
if messagedlg('Etes-vous sûr de vouloir quitter le Logiciel
de gestion'#10' de COURTASSUR'#10' (COURTASSURADMIN V 1.0)
?',mtconfirmation,[mbYes, mbNo], 0) = mrYes then
begin
application.Terminate;
end
else abort;
end;
procedure Tmainform.OptionRgionaleetLinguistiques1Click(Sender:
TObject);
begin
WinExec(PChar('rundll32.exe shell32.dll,Control_RunDLL
intl.cpl'), SW_SHOWNORMAL);
end;
end.
procedure Tfetatgnpaie.sbappliquerClick(Sender: TObject);
begin
cacdb.Rpaiement.Filtered:=false;
cacdb.Rpaiement.Filter:='libelle_branche='''+dbcbbranche.Text+'''and
nomcomp='''+dbcbcompagnie.Text+'''';
cacdb.Rpaiement.Filtered:=true;
if cacdb.Rpaiement.IsEmpty=true then
begin
Showmessage('Aucune Enregistrement lié à cette
Combinaison');
cacdb.Rpaiement.Filtered:=false;
end;
end;
if edrecherche.GetTextlen=0 then
cacdb.Rpaiement.Filtered:=false
else
begin
case rgchearch.ItemIndex of
0:// code client
cacdb.Rpaiement.Filter:='codeclient='''+edrecherche.Text+'''';
1:// police
cacdb.Rpaiement.Filter:='codepolice='''+edrecherche.Text+'''';
end; cacdb.Rpaiement.filtered:=true;
end; end;   
| 
