procedure TWebModule1.WebModule1WebActionItem1Action(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
with query1 do
begin
sql.clear;
sql.add('select * from basic order by id');
open;
if query1.canmodify then
begin
insert;
FieldByName('name').Value:='121';
fieldbyname('password').Value:='user';
post;
end;
end;
end;end.组件为:database,query,querytableproducer. 插入不进去数值!如果去掉if ... then ...出现错误的意思好象是数据没有处于编辑状态。请教高手!谢谢!
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
with query1 do
begin
sql.clear;
sql.add('select * from basic order by id');
open;
if query1.canmodify then
begin
insert;
FieldByName('name').Value:='121';
fieldbyname('password').Value:='user';
post;
end;
end;
end;end.组件为:database,query,querytableproducer. 插入不进去数值!如果去掉if ... then ...出现错误的意思好象是数据没有处于编辑状态。请教高手!谢谢!
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货