分析代碼,只要參與.請指出錯誤.謝謝 (150分)

experts:
good afternoon!
1.two table relation through one key field. for case : customer,order.
i want to use tedit to add data to the two table in only one form.[green][/green][^][?]
thanks!!!
[red]2[/red].please explain the difference in paradox table among referential integrity and master/detail relation and
table's lookup field .[?]
one for 100and the second for 50

1:
if Tabel1.CanModify then
begin
Tabel1.Append;
Tabel1.Fields[].vaalue := edit.text;
...
Tabel2.Append;
Tabel2.Fields[].vaalue := edit.text;
...
end;

2:
use relation to ensure integrity

i have test it !
for example: temployee and tpay
key field : emp_code
master table :temployee
detail table: tpay
code :

procedure Thire_form.RzButton1Click(Sender: TObject);
begin
with datamodule.mainDataModule do
begin
te_menage.insert;
Te_menage.FieldByName('emp_name').value:=xm.Text ;
Te_menage.fieldbyname('sex').value:=sex.text;
te_menage.fieldbyname('birthday').value:=birth.date;
te_menage.fieldbyname('sfzh').value:=sfzh.text;
te_menage.fieldbyname('scr_recr').value:=edu.text;
te_menage.fieldbyname('zzmm').value:=zzmm.text;
te_menage.FieldByName ('mz').value:=mz.Text ;
te_menage.FieldByName ('zzzh').value:=zzzh.Text ;
te_menage.FieldByName ('jsr').value:=jsr.Text ;
te_menage.FieldByName ('in_date').value:=in_date.date;
te_menage.FieldByName ('hyzk').value:=hy.Text ;
te_menage.FieldByName ('jg').value:=jg.Text ;
te_menage.FieldByName ('home').value:=addr.Text ;
te_menage.FieldByName ('tele').value:=tel.Text ;
te_menage.FieldByName ('shgx').value:=shgx.Text ;
te_menage.FieldByName ('myself').value:=intro.Text ;
te_menage.FieldByName ('emp_code').value:=gh.Text ;
te_menage.FieldByName ('car_code').value:=kh.text;
te_menage.FieldByName ('zw').value:=zw.Text ;
te_menage.FieldByName ('gongzhong').value:=gongzhong.Text ;
te_menage.FieldByName ('star').value:=star.Text ;
te_menage.FieldByName ('gz_mod').value:=gzjb.Text ;
[red]tpay.open;[/red][8D]
[red]tpay.insert;[/red][8D]
tpay.FieldByName ('gz').value:=strtoint(pay.Text) ;
tpay.FieldByName ('bt').value:=strtoint(gbbt.Text) ;

//troom.insert;
//troom.FieldByName ('room_code').value:=room.Text ;
//troom.FieldByName ('dine_code').value:=din_code.Text ;

Te_menage.Post ;
Tpay.Post ;
//Troom.Post ;
xm.Text:='' ;
sex.text:='';
birth.date:=now;
sfzh.text:='';
edu.text:='';
zzmm.text:='';
mz.Text:='' ;
zzzh.Text :='';
jsr.Text :='';
in_date.date:=now;
hy.Text:='' ;
jg.Text:='' ;
addr.Text :='';
tel.Text :='';
shgx.Text:='' ;
intro.Text:='' ;
gh.Text:='' ;
kh.text:='';
zw.Text:='' ;
gongzhong.Text:='' ;
star.Text:='' ;
gzjb.Text:='' ;
pay.Text:='' ;
gbbt.Text:='' ;
//room.Text:='' ;
//din_code.Text:='' ;
end;
end;

in the end

it shows "tpay is not in edit mode or insert mode ."
but you see the red line!!!

problem resolved!
master table fist post.
then detail table post.
thanks!!!

得分吧!
忘了[8D][8D]

得分吧!
忘了