RE: TZF - AppendRec

procedure TMovie.CloseMovieRecClick(Sender: TObject);
begin
     TzNavigator1.BtnClick(nbCancel);
end;

procedure TMovie.FormShow(Sender: TObject);
begin
      ActiveControl := edittitle;

end;


procedure TMovie.AddRec(var T : Boolean);
{Var  T : boolean; }
begin
     t:=false;
   If (T=false) then
     begin
     repeat
          MainForm.Movie.clearRecord;
          MainForm.Movie.Appendrec;
        If (T=False) then
         begin
              ActiveControl := edittitle;
         end
    until (t=True);
    end;
end;

procedure TMovie.EditDateExit(Sender: TObject);
begin
      if messageDlg('Do want to add another record 
?',mtConfirmation,[mbYes, mbNo],
         0) = mrYes then
         begin
              ActiveControl := edittitle;
             AddRec(T);
         end
      else
         Begin
             Close;
         end;
end;



Roger Hamilton wrote:
> 
> Can you show your line(s) of code where you do the addrec.?
> Roger
> ----- Original Message ----- 
> From: Walt <[email protected]>
> To: <[email protected]>
> Sent: Monday, October 20, 2003 10:53 AM
> Subject: TZF - AppendRec
> 
> 
> > 
> > 
> > I am new to delphi and to topaz.  Can anyone show me how to have a add 
> > records form that has a choice loop to add more than one record.  I can 
> > do this with the BDE but topaz will add one, but when I try the second 
> > it overwrites the first.  Like I say I am new at this.  Any code as to 
> > how to do this Please!!!
> > 
> > 
> 



I am new to delphi and to topaz.  Can anyone show me how to have a add 
records form that has a choice loop to add more than one record.  I can 
do this with the BDE but topaz will add one, but when I try the second 
it overwrites the first.  Like I say I am new at this.  Any code as to 
how to do this Please!!!

--^----------------------------------------------------------------
This email was sent to: [email protected]

EASY UNSUBSCRIBE click here: http://topica.com/u/?clvXPN.a5kvff.Z2NsZHQt
Or send an email to: [email protected]

TOPICA - Start your own email discussion group. FREE!
http://www.topica.com/partner/tag02/create/index2.html
--^----------------------------------------------------------------