进来看看 顺便等 chenzhuo(睡到自然醒)
添加的时候 编号不能为空 也不能重复
var
id:string;
begin
if not DM.mparAT.Locate( 'MPARA_ID ',RzDBEdit1.Text,[]) then
begin
ShowMessage( '编号不能重复！ ');
Abort;
end;
id:=trim(RzDBEdit1.EditText);
if length(id) <0 then
begin
ShowMessage( '编号不能为空 ');
exit;
end;
DM.mparAT.Append;
end; 为什么不其作用！

[解决办法]
ShowMessage( '编号不能为空 ');??
还是
ShowMessage( '编号不能重复！ ');??
[解决办法]
if not DM.mparAT.Locate( 'MPARA_ID ',RzDBEdit1.Text,[]) then ???????

写反了吧 ，是
if DM.mparAT.Locate( 'MPARA_ID ',RzDBEdit1.Text,[]) then 吧
[解决办法]
弹出什么？

第二个验证改成
if trim(RzDBEdit1.EditText) = ' ' then
begin
end;
[解决办法]
错了，应该是length(id)＝0

[解决办法]
var
id:string;
begin
if DM.mparAT.Locate( 'MPARA_ID ',RzDBEdit1.Text,[]) then
begin
ShowMessage( '编号不能重复！ ');
Exit;
end;
id:=trim(RzDBEdit1.EditText);
if id = ' ' then
begin
ShowMessage( '编号不能为空 ');
exit;
end;
DM.mparAT.Append;
DM.mparAt.FieldByName( 'id ').asstring:=strtoint(id);
.......................
//对个个字段赋值
DM.mparAT.post;
end; 为什么不其作用！
[解决办法]
应该要
DM.mparAT.Append;先
然后在DBEdit1.Text输入
再判断他,
如果没问题就POST