代码
procedure TUserManageForm.InsertButtonClick(Sender: TObject);
var i: integer;
begin
   MoodLabel.Caption:='编辑状态';
   LoginForm.UserTable.Last;
   i:=LoginForm.UserTable.fieldbyname('用户ID').AsInteger;
   LoginForm.UserdateSource.AutoEdit:=true;
   LoginForm.UserTable.Append;
   LoginForm.UserTable.Edit;
   IDEdit.Text:=inttostr(i+1);
   OkButton.Enabled:=True;
   CancelButton.Enabled:=True;
   UserNameEdit.SetFocus;
   S:=S+1;
end;
可是点击确定后,IDEdit.Text的赋值无法添加到Table中.但用户名等其他用onkeypress后输入的数据却可以成功添加.请问怎么才能实现将IDEdit.text的值添加到数据表中.