——此文章摘自《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>] |