fatighaz
Messages postés3Date d'inscriptionmercredi 11 avril 2012StatutMembreDernière intervention22 mai 2012
-
22 mai 2012 à 14:52
cs_yanb
Messages postés271Date d'inscriptionlundi 27 octobre 2003StatutMembreDernière intervention 7 juillet 2022
-
24 mai 2012 à 11:42
procedure TForm1.validerbtnClick(Sender: TObject);
begin
if editcode.GetTextLen<1 then
begin
Application.MessageBox('Saisir un code client d''abord?','Erreur',MB_IconError);
editCode.SetFocus;
end else begin
if editN.GetTextLen<1 then
begin
Application.MessageBox('Saisir le N° BLF d''abord?','Erreur',MB_IconError);
editN.SetFocus;
end else begin
if editnom.GetTextLen<1 then
begin
Application.MessageBox('Saisir le nom complet du client d''abord?','Erreur',MB_IconError);
Editnom.SetFocus;
end else begin
if editEN.GetTextLen<1 then
begin
Application.MessageBox('Saisir la Qts EN pour le client ?','Erreur',MB_IconError);
editEN.SetFocus;
end else begin
if editSup.GetTextLen<1 then
begin
Application.MessageBox('Saisir la Qts Sup pour le client ?','Erreur',MB_IconError);
editSup.SetFocus;
end else begin
if editSP.GetTextLen<1 then
begin
Application.MessageBox('Saisir la Qts SP pour le client ?','Erreur',MB_IconError);
editSP.SetFocus;
end else begin
if editGoil.GetTextLen<1 then
begin
Application.MessageBox('Saisir la Qts Goil pour le client ?','Erreur',MB_IconError);
editGoil.SetFocus;
end else begin
if editmontant.GetTextLen<1 then
begin
Application.MessageBox('Saisir le montant pour le client ?','Erreur',MB_IconError);
editmontant.SetFocus;
end else begin
Table1.FieldByName('Date B.C').AsDateTime:=strtodate(editdate.Text);
Table1.FieldByName('Date BLF').AsDateTime:=strtodate(editdateblf.Text);
Table1.FieldByName('Date Ech').AsDateTime:=strtodate(editdateech.Text);
Table1.Post;
validerbtn.Enabled:=false;
modifierbtn.Enabled:=true;
supprimerbtn.Enabled:=true;
annulerbtn.Enabled:=false;
end;
end;
end; end; end; end;end;end;end;
procedure TForm1.annulerbtnClick(Sender: TObject);
begin
Table1.Cancel;
Validerbtn.Enabled:=false;
Modifierbtn.Enabled:=true;
Supprimerbtn.Enabled:=true;
end;
procedure TForm1.supprimerbtnClick(Sender: TObject);
begin
if messagedlg('Voulez_Vous Vraiment Supprimer le client Selectionner?',mtconfirmation,[mbyes,mbno],0)=mryes then
Table1.Delete;
validerbtn.Enabled:=false;
end;
procedure TForm1.imprimerbtnClick(Sender: TObject);
begin
QuickRep1.Preview;
QuickRep1.Print;
end;
procedure TForm1.voirbtnClick(Sender: TObject);
begin
QuickRep1.Preview;
end;
procedure TForm1.EditRechChange(Sender: TObject);
begin
if EditRech.GetTextLen<> 0 then
begin
Table1.Filter:='Nom='''+EditRech.Text+'''';
Table1.Filtered:=true;
end
else
Table1.Filtered:=false;
end;
end.
je veut une requête sql ou la date B.C =date ech + 1 mois exemple
date B.C = 01.01.2011 la date ech sera 01.02.2011 automatique aider moi svp
fatima