知识大全主生产计划维护功能的实现[6]

Posted 2022-07-14 知

篇首语：真者，精诚之至也，不精不诚，不能动人。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全主生产计划维护功能的实现[6]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>

// 取消操作 procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet Cancel; //将插入删除修改和移动按钮打开 bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; bitbtn Enabled:=true; //关闭保存和取消按钮的使能 bitbtn Enabled:=false; bitbtn Enabled:=false; //将两个浏览按钮使能关闭 bitbtn Enabled:=false; bitbtn Enabled:=false; //恢复dbgrid的选取功能 dbgrid Enabled:=true; //恢复dbedit的只读属性 dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbedit ReadOnly:=true; dbmemo ReadOnly:=true; dbmemo ReadOnly:=true; //刷新数据 adoquery Active:=false; adoquery Active:=true; end; // 删除记录 procedure TMainProduce BitBtn Click(Sender: TObject); begin if application MessageBox( 确实删除该数据？删除 MB_OKCANCEL)=ID_OK then datasource dataset delete; end; procedure TMainProduce DataSource DataChange(Sender: TObject;Field: TField); begin //设置列的宽度 dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; end;

cha138/Article/program/Delphi/201311/24910

知识大全 主生产计划维护功能的实现[6]

知识大全主生产计划维护功能的实现[6]