🚀 go-pugleaf

well, it seems that I have solved my own problem, but I am sure there is an
easier way to do it.

what I did was check the registry for the tables values of 1 (means they
have been created) if the had been I then wrote the ID number to that table.
The big problem is that there is a lot of same code, but they all have the
autoincrementing number

Now I just need to create the relations between them all...

Any ideas on that aspect?



"Lee" <gobroski@elltel.net> wrote in message
news:3f4cb1db$1@newsgroups.borland.com...
> I have created a primary key on my student information table,
> autoincrementing.  Now I would like that number to becopied on to the
other
> tables that I have created.
>
> How I did the autoincrementing was a little odd I am wondering if there is
a
> better way to do this:
>
>     Data->Table->Connection = Data->Connection;
>     Data->Table->TableName = "StudentInformation";
>     Data->DataSet->CommandType = cmdTable;
>     //opens student information
>     Data->DataSet->CommandText = "StudentInformation";
>     Data->DataSet->Open();
>     Data->Table->Active = true;
>     Data->Table->Insert();
>     Data->Table->FieldByName("ID")->AsInteger = Data->DataSet->RecordCount
+
> 1;  //checks the number of records and adds one, every time I add a new
one.
>     Data->Table->FieldByName("SID")->AsInteger = StrToInt(Edit1->Text);
>     Data->Table->FieldByName("Last")->AsString = Edit2->Text;
>     Data->Table->FieldByName("First")->AsString = Edit3->Text;
>     Data->DataSet->Close();
>     Data->Table->Post();
>     Edit1->SetFocus();
>     Button1->Caption = "Next Student";
>     Edit1->Clear();
>     Edit2->Clear();
>     Edit3->Clear();
>
>
> Thanks.
>
> Lee
>
>