下面是我的修改确认代码:
with data_MD.dm_Books.qry_Delete do
begin
close;
sql.Clear;
sql.Add('update BookInf set ISBN=:ISBN,Name=:Name,Author=:Author,PH=:PH,Type=:Type');
sql.Add(' where ISBN=:m_ISBN');
parameters.ParamByName('ISBN').value:=trim(edt_ISBN.Text);
parameters.ParamByName('Name').value:=trim(edt_Name.Text);
parameters.ParamByName('Author').value:=trim(edt_Author.Text);
parameters.ParamByName('PH').value:=trim(edt_PH.Text);
parameters.ParamByName('Type').value:=trim(cb_Type.Text);
parameters.ParamByName('m_ISBN').value:='1';//此处指定查找ISBN为1的记录
execsql;
end;
修改ISBN时,分步执行edt_ISBN.Text修改为2,但表中并未改过来,请各位大侠赐教!
with data_MD.dm_Books.qry_Delete do
begin
close;
sql.Clear;
sql.Add('update BookInf set ISBN=:ISBN,Name=:Name,Author=:Author,PH=:PH,Type=:Type');
sql.Add(' where ISBN=:m_ISBN');
parameters.ParamByName('ISBN').value:=trim(edt_ISBN.Text);
parameters.ParamByName('Name').value:=trim(edt_Name.Text);
parameters.ParamByName('Author').value:=trim(edt_Author.Text);
parameters.ParamByName('PH').value:=trim(edt_PH.Text);
parameters.ParamByName('Type').value:=trim(cb_Type.Text);
parameters.ParamByName('m_ISBN').value:='1';//此处指定查找ISBN为1的记录
execsql;
end;
修改ISBN时,分步执行edt_ISBN.Text修改为2,但表中并未改过来,请各位大侠赐教!
参数化,默认的数据类型是variant类型