Re: TZF - AppendRec

Walt,

----- Original Message ----- 
From: "Walt" <[email protected]>
To: <[email protected]>
Sent: Tuesday, October 21, 2003 2:07 AM
Subject: 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.

You can use tzdbf.Append to add a record and tzdbf.Post to post the record.

So appending could be:



tzdbf.Append;
tzdbf.SetCField('somefield', 'Hello world');
tzdbf.Post;

Also you can use the TDataSet methods (more standard)

tzdbf.Append;
Tzdbf.FieldByName('somefield').AsString := 'Hello World';
tzdbf.Post;



Good luck

Benno


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