主生产计划维护功能的实现[7]

//为产品名称文本框查询产品名称

procedure TMainProduceDataSourceDataChange(Sender: TObject;

Field: TField);

begin

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select 物料名称 from 物料主文件 where 物料编号=+dbeditText+);

adoqueryOpen;

dbeditText:=adoqueryFieldByName(物料名称)AsString;

end;

procedure TMainProduceBitBtnClick(Sender: TObject);

var

ordernum:string;

begin

//选中的数据的计划期和物料编号

order:=dbgridFields[]AsString;

num:=dbgridFields[]AsString;

//将主需求计划表中的数据送入主生产计划表

adocommandCommandText:=insert into 主生产计划([物料编号] [年份] [计划期]

[开始日期] [结束日期] [需求数量] [MPS数量] [状态] [备注]) select 物料编号

年份计划期 开始日期结束日期需求数量需求数量状态备注 from 主需求计划 where

(物料编号=+num+)and(计划期=+order+);

adocommandExecute;

//保存到主需求计划历史

adocommandCommandText:=insert into 主需求计划历史 select * from 主需求计划 where (物料编号=+num+)and(计划期=+order+);

adocommandExecute;

//删除在主需求计划表中的已被插入到主生产计划表中的数据

adocommandCommandText:=delete from 主需求计划 where (物料编号=+num+)

and(计划期=+order+);

adocommandExecute;

//刷新数据

adoqueryActive:=false;

adoqueryActive:=true;

adoqueryActive:=false;

adoqueryActive:=true;

end;

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

right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] []

上一篇：进销存管理系统销售管理功能的实现（一）[1]

下一篇：主生产计划维护功能的实现[6]