Mise à jour des enregistrements sur Interbase avec Delphi
bonjour, je suis nouveau en programmation, voila mon probleme et que j'ai une base de données interbase qui est composée de cinq tables, voila lorsque j'ajoute des enregistrements, je suis oblige de fermer le programme et de le relancer pour pouvoir imprimer les derniers enregistrements,
car si j'imprime directement, les enregistrements ajoutes n'apparaissent pas.
merci pour votre aide.
Rq:
j'utilise: ibdatabase, ibtransaction, ibtable.
j déjà utilise ibtable1.refresh: ca ne marche pas;
j utilise ibdatabase.connected:=false puis ibdatabase.connected:=true: ca ne marche pas
j utilise ibtable1.open..........ibtable1.refresh ibtable1.close : non plus
je ne comprend plus rien
voici mon code :
Code:
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
|
//*******************FAMILLES**********************************
//%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
IF FAMILLES.Visible THEN
BEGIN
IBTABLE1.First;
for i:=1 to ibtable1.RECORDCOUNT DO
BEGIN
IF (ibtable1.FieldValues['CODE']=EDIT1.TEXT) AND
(ibtable1.FieldValues['FAMILLE']=EDIT2.TEXT) THEN
BEGIN
SHOWMESSAGE('LA FAMILLE EXISTE DEJA');
FAMILLES.Visible:=FALSE;
EDIT1.Text:='';
EDIT2.Text:='';
AJOUTER.Enabled:=FALSE;
ANNULER.Enabled:=FALSE;
EXIT;
END;
ibtable1.Next;
END;
ibtable1.Last;
ibtable1.APPEND;
ibtable1.FieldValues['NFM']:=ibtable1.RECORDCOUNT+1;
ibtable1.FieldValues['CODE']:=EDIT1.TEXT;
ibtable1.FieldValues['FAMILLE']:=EDIT2.TEXT;
ibtable1.POST;
FAMILLES.Visible:=FALSE;
EDIT1.Text:='';
EDIT2.Text:='';
END; |
pour le bouton impression:
Code:
1 2 3 4 5 6
| IBTABLE1.Active:=TRUE;
ETAT_ART.IBQUERY1.Active:=FALSE;
ETAT_ART.IBQUERY1.SQL.Clear;
ETAT_ART.IBQUERY1.SQL.Text:='select * from FAMILLES';
ETAT_ART.IBQUERY1.Active:=TRUE;
ETAT_ART.QR1.Preview; |
merci pour vos reponses