电脑故障

位置:IT落伍者 >> 电脑故障 >> 浏览文章

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


发布日期:2019/11/5
 
——此文章摘自《Delphi 数据库开发经典案例解析》定价特价购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

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

begin

if key=# then

bitbtnClick;

end;

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

begin

if key=# then

bitbtnClick;

end;

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

begin

if key=# then

bitbtnClick;

end;

//新增记录

procedure TMainProduceFormActivate(Sender: TObject);

begin

//如果是新增按钮被按下则将从物料主文件中选取得零件的编号

//名称等信息送到主需求窗口中并初始化一些数据

if insflag= then

begin

dbeditText:=mainstr;

dbeditText:=mainstr;

end;

if insflag= then

begin

dbeditText:=mainstr;

dbeditText:=mainstr;

dbeditText:=mainstr;

dbeditText:=mainstr;

end;

end;

procedure TMainProduceBitBtnClick(Sender: TObject);

begin

datasourceDataSetInsert;

//将插入删除修改和移动按钮关闭防止错误操作

bitbtnEnabled:=false;

bitbtnEnabled:=false;

bitbtnEnabled:=false;

bitbtnEnabled:=false;

bitbtnEnabled:=false;

bitbtnEnabled:=false;

bitbtnEnabled:=false;

//打开保存和取消按钮的使能允许保存或者取消

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>]

上一篇:主生产计划维护功能的实现[4]

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