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

Posted 2022-07-14 计划

篇首语：一锹挖不成水井，一天盖不成罗马城。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全主生产计划维护功能的实现[7]相关的知识，希望对你有一定的参考价值。

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

// 为产品名称文本框查询产品名称 procedure TMainProduce DataSource DataChange(Sender: TObject; Field: TField); begin adoquery Close; adoquery SQL Clear; adoquery SQL Add( select 物料名称 from 物料主文件 where 物料编号= +dbedit Text+ ); adoquery Open; dbedit Text:=adoquery FieldByName( 物料名称 ) AsString; end; procedure TMainProduce BitBtn Click(Sender: TObject); var order num:string; begin //选中的数据的计划期和物料编号 order:=dbgrid Fields[ ] AsString; num:=dbgrid Fields[ ] AsString; //将主需求计划表中的数据送入主生产计划表 adomand CommandText:= insert into 主生产计划([物料编号] [年份] [计划期] [开始日期] [结束日期] [需求数量] [MPS数量] [状态] [备注]) select 物料编号年份计划期开始日期结束日期需求数量需求数量状态备注 from 主需求计划 where (物料编号= +num+ )and(计划期= +order+ ) ; adomand Execute; //保存到主需求计划历史 adomand CommandText:= insert into 主需求计划历史 select * from 主需求计划 where (物料编号= +num+ )and(计划期= +order+ ) ; adomand Execute; //删除在主需求计划表中的已被插入到主生产计划表中的数据 adomand CommandText:= delete from 主需求计划 where (物料编号= +num+ ) and(计划期= +order+ ) ; adomand Execute; //刷新数据 adoquery Active:=false; adoquery Active:=true; adoquery Active:=false; adoquery Active:=true; end;

到此我们就完成了主生产计划维护的功能其效果如图所示

cha138/Article/program/Delphi/201311/24911

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

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