|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> bitbtnEnabled:=false; bitbtnEnabled:=false; bitbtnEnabled:=false; bitbtnEnabled:=false; bitbtnEnabled:=false; bitbtnEnabled:=false; bitbtnEnabled:=false; //允许保存或取消对数据所作的操作 bitbtnEnabled:=true; bitbtnEnabled:=true; //允许修改文本框中的内容 dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; end; //删除一条记录 procedure TmaterialsBitBtnClick(Sender: TObject); begin if applicationMessageBox(确实删除记录？该命令不可取消!删除记录MB_OKCANCEL)=IDOK then datasourceDataSetDelete else abort; end; [] [] [] [] [] [] [] [] |
