procedure Tfrm_xmjbxxzj.FormShow(Sender: TObject);
var
xmdmmax:AnsiString;
begin
with dm.qry1 do
begin
Close;
SQL.Clear;
SQL.Add('select max(xmdm) xmdm from sys_xmjbxx');
Open;
if RecordCount> 0 then
begin
xmdmmax:=FieldByName('xmdm').AsAnsiString;
xmdmmax:=IntToStr(StrToInt(xmdmmax)+1);
edt_xmdm.Text:=xmdmmax;
end;
end;
end;
像这种我要使他改变下，变成我点击保存后他自动生成下一个新的khdm 显示在khdm对应的文本框里

在线等，急，跪求大神指导下

大神些都好忙的样子

你这个不是可以了吗

if recordcount > 0 then
begin
//你原来的
end
else
begin
edt_xmdm.Text:='1';
end;