|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> bitbtnEnabled:=true; bitbtnEnabled:=true; //将两个浏览按钮使能打开 bitbtnEnabled:=true; bitbtnEnabled:=true; //必须用保存按钮才能提交 dbgridEnabled:=false; //允许对需求数量和备注进行修改 dbeditReadOnly:=false; dbeditText:=; dbeditReadOnly:=false; dbeditText:=; dbeditReadOnly:=false; dbeditReadOnly:=false; dbeditReadOnly:=false; dbmemoReadOnly:=false; end; //调用choose窗体从物料主文件中选择数据 procedure TMainProduceBitBtnClick(Sender: TObject); var newform:Tchoose; begin //标识从主需求窗体调用物料主文件窗口 mainbomflag:=; newform:=TchooseCreate(application); //将本窗口灰化 selfEnabled:=false; //标识为第一个检索按钮按下 insflag:=; end; //从工厂日历表中选择数据 procedure TMainProduceBitBtnClick(Sender: TObject); begin mainbomflag:=; mainNClick; //将本窗口灰化 selfEnabled:=false; //标识为第一个检索按钮按下 insflag:=; end; //修改记录 procedure TMainProduceBitBtnClick(Sender: TObject); begin datasourceDataSetEdit; //将插入删除修改和移动按钮关闭防止错误操作 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>] |
