Base de donnee

Signaler
Messages postés
3
Date d'inscription
mercredi 11 avril 2012
Statut
Membre
Dernière intervention
22 mai 2012
-
Messages postés
265
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 juillet 2021
-
voici mon code
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, jpeg, Buttons, Grids, DBGrids, DB, DBTables,
Mask, DBCtrls, QuickRpt, QRCtrls;

type
TForm1 = class(TForm)
Image1: TImage;
Bevel1: TBevel;
nouveaubtn: TSpeedButton;
validerbtn: TSpeedButton;
annulerbtn: TSpeedButton;
modifierbtn: TSpeedButton;
supprimerbtn: TSpeedButton;
SpeedButton6: TSpeedButton;
imprimerbtn: TSpeedButton;
DBGrid1: TDBGrid;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Label11: TLabel;
EditRech: TEdit;
Image2: TImage;
SpeedButton8: TSpeedButton;
Label13: TLabel;
DataSource1: TDataSource;
Table1: TTable;
Editcode: TDBEdit;
Editnom: TDBEdit;
EditN: TDBEdit;
EditEN: TDBEdit;
EditSup: TDBEdit;
EditSP: TDBEdit;
EditGoil: TDBEdit;
Editmontant: TDBEdit;
Editdate: TMaskEdit;
Editdateblf: TMaskEdit;
QuickRep1: TQuickRep;
DetailBand1: TQRBand;
TitleBand1: TQRBand;
QRLabel1: TQRLabel;
QRDBText1: TQRDBText;
QRDBText2: TQRDBText;
QRDBText3: TQRDBText;
QRDBText4: TQRDBText;
QRDBText5: TQRDBText;
QRDBText6: TQRDBText;
QRDBText7: TQRDBText;
QRDBText8: TQRDBText;
QRDBText9: TQRDBText;
QRDBText10: TQRDBText;
QRLabel2: TQRLabel;
QRLabel3: TQRLabel;
QRLabel4: TQRLabel;
QRLabel5: TQRLabel;
QRLabel6: TQRLabel;
QRLabel7: TQRLabel;
QRLabel8: TQRLabel;
QRLabel9: TQRLabel;
QRLabel10: TQRLabel;
QRLabel11: TQRLabel;
QRImage1: TQRImage;
Label12: TLabel;
Editdateech: TMaskEdit;
procedure nouveaubtnClick(Sender: TObject);
procedure validerbtnClick(Sender: TObject);
procedure annulerbtnClick(Sender: TObject);
procedure modifierbtnClick(Sender: TObject);
procedure supprimerbtnClick(Sender: TObject);
procedure imprimerbtnClick(Sender: TObject);
procedure voirbtnClick(Sender: TObject);
procedure EditRechChange(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.nouveaubtnClick(Sender: TObject);
begin
Table1.Open;
Table1.Append;
Validerbtn.Enabled:=true;
Modifierbtn.Enabled:=true;
AnnulerBtn.Enabled:=true;
Supprimerbtn.Enabled:=false;
end;

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.modifierbtnClick(Sender: TObject);
begin
Table1.Edit;
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);
Validerbtn.Enabled:=true;
Supprimerbtn.Enabled:=False;
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

1 réponse

Messages postés
265
Date d'inscription
lundi 27 octobre 2003
Statut
Membre
Dernière intervention
19 juillet 2021
13
Salut,
Table1.FieldByName('Date Ech').AsDateTime := IncMonth(StrToDate(EditDate.Text),1); 

@+