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

Posted 2022-07-14 计划

篇首语：送饥者一条鱼，只管一天不饿；教他学会捕鱼，能使他永不受饿。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全主生产计划维护功能的实现[2]相关的知识，希望对你有一定的参考价值。

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

主需求计划和主生产计划窗体相似之处非常多它们的很多代码都是非常相似的只不过所操作的数据表由主需求计划改为了主生产计划这样只需要对主需求计划维护窗体的时间处理代码做少许修改即可达到目的

( ) 下面给出主生产计划窗体事件处理程序的代码请读者参考主需求计划窗体时间处理程序的代码加以理解并特别注意其中的不同之处 uses MainForm ChooseForm; $R * dfm // 下一条记录 procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet Next; end; // 上一条记录 procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet Prior; end; // 首条记录 procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet First; end; // 末条记录 procedure TMainProduce BitBtn Click(Sender: TObject); begin datasource DataSet Last; end; // 关闭窗体 procedure TMainProduce FormClose(Sender: TObject; var Action: TCloseAction); begin action:=cafree; end; procedure TMainProduce BitBtn Click(Sender: TObject); begin close; end; // 查询数据 procedure TMainProduce BitBtn Click(Sender: TObject); begin adoquery Close; adoquery SQL Clear; adoquery SQL Add( select * from 主生产计划 where (物料编号 like % +edit Text+ % )and ); adoquery SQL Add( (年份 like % +edit Text+ % )and(计划期 like % +edit Text+ % ) ); adoquery Open; edit Clear; edit Clear; edit Clear; end;

cha138/Article/program/Delphi/201311/24906

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

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