盒子论坛 v2.1

我在做一个简单的数据库
在用DBNavigator时有困难
我想在每次单击Insert时那个表的第一个‘合同号’自己会由最后一个记录加1
这样就不能用Insert了，否则他一直加到前面去，就会重复‘合同号’。
我在nbInsert里直接加了Append方法，行是行了，可是不知道规不规范
nbInsert:
begin
DataControls.CTable.Append;

IsAddNew:=true;
DBEdit1.Enabled:=true;
if NewContractNo<10 then
DBEdit1.Text:='000'+inttoStr(NewContractNo)
else if NewContractNo<100 then
DBEdit1.Text:='00'+inttostr(NewContractNo)
else if NewContractNo<1000 then
DBEdit1.Text:=inttostr(NewContractNo);
DBEdit1.Enabled:=false;
DBEdit3.EditText:=CalToTodayDate; //设置起租日期
end;

还有那个post,我里面有几个必填项，如果不填，会弹出对话框
并跳出post,我用了exit,可没用，单击了post后，虽弹出对话框
可是并没有post还是执行了，不知道怎么办
请急救，在线等待，帮我看一下代码，非常感谢

nbPost:
begin
if IsAddNew then
begin
if CheckNewCon_tract=true then//CheckNewContract就是检测必填项的
begin
Add_House;
DBNavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast,
nbInsert,nbEdit,nbDelete,nbPost,nbCancel,nbRefresh];
//if DataControls.CTable.Active<>true then DataControls.CTable.Open;
//DataControls.CTable.First;
Inc(NewContractNo);
IsAddNew:=false;
end
else
begin
exit;//exit在这里
end;
end;
end;
----------------------------------------------
ss

作者：

huakaibird (暖壶)	★☆☆☆☆	-
	普通会员

2004/4/25 17:07:03

1楼：

哪位大哥帮一下忙
----------------------------------------------
ss

作者：

huakaibird (暖壶)	★☆☆☆☆	-
	普通会员

2004/4/26 12:19:00

2楼：

没人帮我以下吗？哎
----------------------------------------------
ss

作者：

huakaibird (暖壶)	★☆☆☆☆	-
	普通会员

2004/4/27 18:01:53

3楼：

没高手吗？
----------------------------------------------
ss

作者：

sephil (NAILY Soft)	★☆☆☆☆	-
	盒子中级会员

2004/4/27 19:10:33

4楼：

我昏了

合同号字段设置为AutoInc不就行了

else
begin
exit;//exit在这里
end;

exit完全多余，后面根本就没有可以执行的代码了，还要exit干什么

----------------------------------------------
Copyright 2008 ? NAILY Soft

Click here to redirect to my home
Click here to redirect to my blog

信息

登陆以后才能回复