关于数据更新
我在服务器端用的ADOQuery
然后定义了一个接口INSERT
代码如下:
procedure TCcrT_BasicInfo.Insert(const ID, Name, Birthday, Enroll, Dept,
Station: WideString);
var
Str: string;
begin
Str := 'Insert into t_basicinfo ';
Str := str + ' Values ( ' + '''' + ID + ''',' + '''' +Name + ''','
+ '''' + Birthday + ''',' + '''' + Enroll + ''','
+ '''' + Dept + ''',' + '''' + Station + ''' )';
with ADOQryT_BasicInfo do
begin
Close;
Sql.Clear;
Sql.Add(Str);
ExecSql;
end;
end;
而在客户端的代码如下
DmClient.SckT_basicInfo.AppServer.Insert(edit1.Text,edit4.Text,edit2.Text,edit5.Text,edit3.Text,edit6.Text );
DmClient.CdsT_BasicInfo.Refresh;
然后就报错,说是两次添加,这个怎么解决