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

　　　 uses MainForm,ChooseForm;
　　　 {$R *.dfm}
　　　 //--------------下一条记录------------
　　　 procedure TMainProduce.BitBtn3Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.Next;
　　　 end;
　　　 //--------------上一条记录------------
　　　 procedure TMainProduce.BitBtn2Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.Prior;
　　　 end;
　　　 //--------------首条记录------------
　　　 procedure TMainProduce.BitBtn1Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.First;
　　　 end;
　　　 //--------------末条记录------------
　　　 procedure TMainProduce.BitBtn4Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.Last;
　　　 end;
　　　 //--------------关闭窗体------------
　　　 procedure TMainProduce.FormClose(Sender: TObject;
　　　　　 var Action: TCloseAction);
　　　 begin
　　　 action:=cafree;
　　　 end;
　　　　　
　　　 procedure TMainProduce.BitBtn10Click(Sender: TObject);
　　　 begin
　　　 close;
　　　 end;
　　　　　
　　　 //--------------查询数据------------
　　　 procedure TMainProduce.BitBtn12Click(Sender: TObject);
　　　 begin
　　　 adoquery2.Close;
　　　 adoquery2.SQL.Clear;
　　　 adoquery2.SQL.Add('select * from 主生产计划 where (物料编号 like ''%'+edit1.Text+'%'')and');
　　　 adoquery2.SQL.Add('(年份 like ''%'+edit2.Text+'%'')and(计划期 like ''%'+edit3.Text+'%'')');
　　　 adoquery2.Open;
　　　 edit1.Clear;
　　　 edit2.Clear;
　　　 edit3.Clear;
　　　 end;

　 procedure TMainProduce.Edit1KeyPress(Sender: TObject; var Key: Char);
　　　 begin
　　　 if key=#13 then
　　　　 bitbtn12.Click;
　　　 end;
　　　 procedure TMainProduce.Edit2KeyPress(Sender: TObject; var Key: Char);
　　　 begin
　　　 if key=#13 then
　　　　 bitbtn12.Click;
　　　 end;
　　　 procedure TMainProduce.Edit3KeyPress(Sender: TObject; var Key: Char);
　　　 begin
　　　 if key=#13 then
　　　　 bitbtn12.Click;
　　　 end;　

　　　 procedure TMainProduce.BitBtn5Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.Insert;
　　　 //将插入、删除、修改和移动按钮关闭，防止错误操作
　　　 bitbtn6.Enabled:=false;
　　　 bitbtn7.Enabled:=false;
　　　 bitbtn1.Enabled:=false;
　　　 bitbtn2.Enabled:=false;
　　　 bitbtn3.Enabled:=false;
　　　 bitbtn4.Enabled:=false;
　　　 bitbtn5.Enabled:=false;
　　　 //打开保存和取消按钮的使能，允许保存或者取消

bitbtn8.Enabled:=true;
　　　 bitbtn9.Enabled:=true;
　　　 //将两个浏览按钮使能打开
　　　 bitbtn11.Enabled:=true;
　　　 bitbtn13.Enabled:=true;
　　　 //必须用保存按钮才能提交
　　　 dbgrid2.Enabled:=false;
　　　 //允许对需求数量和备注进行修改
　　　 dbedit7.ReadOnly:=false;
　　　 dbedit7.Text:='0';
　　　 dbedit9.ReadOnly:=false;
　　　 dbedit9.Text:='0';
　　　 dbedit8.ReadOnly:=false;
　　　 dbedit10.ReadOnly:=false;
　　　 dbedit11.ReadOnly:=false;
　　　 dbmemo1.ReadOnly:=false;
　　　 end;
　　　 //--------------调用choose窗体，从物料主文件中选择数据------------
　　　 procedure TMainProduce.BitBtn13Click(Sender: TObject);
　　　 var
　　　 newform:Tchoose;
　　　 begin
　　　 //标识从主需求窗体调用物料主文件窗口
　　　 main.bomflag:=4;
　　　 newform:=Tchoose.Create(application);
　　　 //将本窗口灰化
　　　 self.Enabled:=false;
　　　 //标识为第一个检索按钮按下
　　　 insflag:=1;
　　　 end;
　　　　　
　　　 //--------------从工厂日历表中选择数据------------
　　　 procedure TMainProduce.BitBtn11Click(Sender: TObject);
　　　 begin
　　　　 main.bomflag:=5;
　　　　 main.N5.Click;
　　　　 //将本窗口灰化
　　　 self.Enabled:=false;
　　　 //标识为第一个检索按钮按下
　　　 insflag:=2;
　　　 end;
　　　　　
　　　 //--------------修改记录------------
　　　 procedure TMainProduce.BitBtn6Click(Sender: TObject);
　　　 begin
　　　 datasource2.DataSet.Edit;
　　　 //将插入、删除、修改和移动按钮关闭，防止错误操作
　　　 bitbtn6.Enabled:=false;
　　　 bitbtn7.Enabled:=false;
　　　 bitbtn1.Enabled:=false;

bitbtn2.Enabled:=false;
　　　 bitbtn3.Enabled:=false;
　　　 bitbtn4.Enabled:=false;
　　　 bitbtn5.Enabled:=false;
　　　 //打开保存和取消按钮的使能，允许保存或者取消
　　　 bitbtn8.Enabled:=true;
　　　 bitbtn9.Enabled:=true;
　　　 //将两个浏览按钮使能打开
　　　 bitbtn11.Enabled:=true;
　　　 bitbtn13.Enabled:=true;
　　　 //必须用保存按钮才能提交
　　　 dbgrid2.Enabled:=false;
　　　 //允许对需求数量和备注进行修改
　　　 dbedit7.ReadOnly:=false;
　　　 dbedit9.ReadOnly:=false;
　　　 dbedit8.ReadOnly:=false;
　　　 dbedit10.ReadOnly:=false;
　　　 dbedit11.ReadOnly:=false;
　　　 dbmemo1.ReadOnly:=false;
　　　 end;