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

Posted 2022-07-14 主文

篇首语：少壮不努力，老大徒伤悲。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全主生产计划维护功能的实现[3]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

procedure TMainProduce Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; procedure TMainProduce Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; procedure TMainProduce Edit KeyPress(Sender: TObject; var Key: Char); begin if key=# then bitbtn Click; end; // 新增记录 procedure TMainProduce FormActivate(Sender: TObject); begin //如果是新增按钮被按下则将从物料主文件中选取得零件的编号 //名称等信息送到主需求窗口中并初始化一些数据 if insflag= then begin dbedit Text:=main str; dbedit Text:=main str ; end; if insflag= then begin dbedit Text:=main str; dbedit Text:=main str ; dbedit Text:=main str ; dbedit Text:=main str ; end; end; procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet Insert; //将插入删除修改和移动按钮关闭防止错误操作 bitbtn Enabled:=false; bitbtn Enabled:=false; bitbtn Enabled:=false; bitbtn Enabled:=false; bitbtn Enabled:=false; bitbtn Enabled:=false; bitbtn Enabled:=false; //打开保存和取消按钮的使能允许保存或者取消

cha138/Article/program/Delphi/201311/24907

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

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