with DM.SYSBKSETADOQ do begin Append; FieldByName(''''图书类别'''').AsString:=Edit1.text; post; end; Showmessage(''''添加成功'''');
我的‘修改/完成’做法
if Button2.Caption=''''修改'''' then begin Button2.Caption:=''''完成''''; DBGrid1.ReadOnly:=false; end else begin Button2.Caption:=''''修改''''; DBGrid1.ReadOnly:=true; end;