|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //关闭窗体 procedure TMRPCalFormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; //发布MRP计算结果 procedure TMRPCalBitBtnClick(Sender: TObject); begin if applicationMessageBox(是否发布本次计算结果发布mrp计算结果MB_OKCANCEL)=ID_OK then begin //调用储存过程执行mrp计算结果发布 adocommandCommandText:=exec sf_mrp结果发布; adocommandExecute; //刷新数据 adoqueryActive:=false; adoqueryActive:=true; adoqueryActive:=false; adoqueryActive:=true; end; end; MRP计算窗体的时间处理程序代码看似是所有窗体中最简单的但实际上它是整个生产管理系统的核心前面所有的功能都是为了这一步而做准备而且实际上MRP计算的过程相当复杂只不过本实例中把非常复杂繁琐的MRP计算过程用储存过程的形式在数据库建库的时候就写到了数据库中这样在Delphi程序中只需要调用相应的储存过程即可大大减轻了应用程序开发的负担读者结合前面的数据库建库过程可以对本节内容加以更深刻的理解MRP计算功能和结果发布功能如图和图 right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] |
