代码
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的值添加到数据表中.
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的值添加到数据表中.
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货