|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> () MRP计算窗体的时间处理程序代码如下 //MRP计算 procedure TMRPCalBitBtnClick(Sender: TObject); var //调用储存过程时的参数 vvv:string; i:integer; begin //考虑库存生产和采购订单 if checkboxChecked then v:= else v:=; //是否考虑提前期 if checkboxChecked then v:= else v:=; //是否考虑损耗 if checkboxChecked then v:= else v:=; //调用储存过程执行mrp计算 adocommandCommandText:=exec sf_mrp计算 +v++v+ +v+; adocommandExecute; //刷新数据 adoqueryActive:=false; adoqueryActive:=true; //允许发布计算结果 bitbtnEnabled:=true; end; procedure TMRPCalDataSourceDataChange(Sender: TObject; Field: TField); begin //设置列宽度 dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; end; right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |
