RE: TZF - AppendRec

I hope you see what I am trying to do.  I have tryed buttons to add a 
new record and that works in the BDE, but topaz you have to 
clearrec,appendrec. In the BDE you just Insert and that works. Would 
like to add more than one record by just clicking a button or enter 
while it has the focus.

Walt wrote:
> 
> 
> 
> 
> 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!!!



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
--^----------------------------------------------------------------