我想在IE中对一个表添加记录 (intraweb5.1.24)
却显示 不能对一个 read—only的dataset进行操作
下面是一些代码:
//in DatamoduleUnit
procedure tdatamodule1.Add(nickname:string;name:string;password:string);
begin
query1.Append;
query1.fieldvalues['nickname']:=nickname;
query1.fieldvalues['name']:=name;
query1.fieldvalues['password']:=password;
query1.Post;
end; //in unit2
procedure Treg.IWButton1Click(Sender: TObject);
begin
if iwedit1.Text='' then
begin
webapplication.ShowMessage('Please Input Your Nickname!');
abort;
end;
if iwedit3.Text<>iwedit4.Text then
begin
webapplication.ShowMessage('Your password and your confirm password is differnt');
abort;
end;
datamodule1.Add(iwedit1.Text,iwedit2.Text,iwedit3.Text);
end;
却显示 不能对一个 read—only的dataset进行操作
下面是一些代码:
//in DatamoduleUnit
procedure tdatamodule1.Add(nickname:string;name:string;password:string);
begin
query1.Append;
query1.fieldvalues['nickname']:=nickname;
query1.fieldvalues['name']:=name;
query1.fieldvalues['password']:=password;
query1.Post;
end; //in unit2
procedure Treg.IWButton1Click(Sender: TObject);
begin
if iwedit1.Text='' then
begin
webapplication.ShowMessage('Please Input Your Nickname!');
abort;
end;
if iwedit3.Text<>iwedit4.Text then
begin
webapplication.ShowMessage('Your password and your confirm password is differnt');
abort;
end;
datamodule1.Add(iwedit1.Text,iwedit2.Text,iwedit3.Text);
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货