|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>> dbcomboboxVisible:=false; dbcomboboxVisible:=true; dbeditText:=; //将插入删除修改和移动按钮关闭防止错误操作 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 datasourceDataSetEdit; //物料主文件中存储的是类别的拼音而不是名称因此插入时需要输入拼音而不是名称 dbcomboboxVisible:=false; dbcomboboxVisible:=true; //将插入删除修改和移动按钮关闭防止错误操作 [] [] [] [] [] [] [] [] |
