MRP计算历史查询功能的实现[2]

() MRP计算历史查询窗体的事件处理程序代码如下

//查询

procedure TmrphistoryBitBtnClick(Sender: TObject);

begin

adoqueryClose;

adoquerySQLClear;

adoquerySQLAdd(select a*b物料名称 from mrp物料需求历史 a物料主文件 b

where (a物料编号 like %+editText+%)and);

adoquerySQLAdd((a年份 like %+editText+%)

and(a计划期 like %+editText+%));

adoquerySQLAdd(and(a物料编号=b物料编号));

adoqueryOpen;

editClear;

editClear;

editClear;

end;

procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);

begin

if key=# then

bitbtnClick;

end;

procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);

begin

if key=# then

bitbtnClick;

end;

procedure TmrphistoryEditKeyPress(Sender: TObject; var Key: Char);

begin

if key=# then

bitbtnClick;

end;

//关闭窗体

procedure TmrphistoryFormClose(Sender: TObject; var Action: TCloseAction);

begin

action:=cafree;

end;

//动态设置列宽度

procedure TmrphistoryDataSourceDataChange(Sender: TObject;

Field: TField);

var

i:integer;

begin

for i:= to dbgridColumnsCount do

dbgridColumns[i]Width:=;

end;

这样我们就完成了本实例的最后一个功能其效果图如图所示

[] []

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

下一篇：MRP计算历史查询功能的实现[1]