|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> adoqueryOpen; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:=; dbgridColumns[]Width:= end; end; //在进货单或销售单窗体中调用信息管理窗体 //实现通过单击grid控件向进货单或销售单中传送相应的数据 procedure TInfoDBGridDblClick(Sender: TObject); var numname:string; begin //向进货单中传送商品或供货商信息 //判断是否是从进货单窗体中调用的信息管理窗体以及调用的是哪个数据表 if (inputEnabled=false)and(labelCaption=供货商拼音) then begin //将供货商的标号和名称传回进货单窗体 num:=dbgridFields[]AsString; name:=dbgridFields[]AsString; inputComboBoxText:=num; inputEditText:=name; //成功后返回进货单 inputEnabled:=true; infoClose; manageHide; end; if (inputEnabled=false)and(labelCaption=商品拼音) then begin //将货号和商品名称传回进货单窗体 num:=dbgridFields[]AsString; name:=dbgridFields[]AsString; if inputcurrentRow= then inputcurrentRow:=; inputStringGridCells[inputcurrentRow]:=num; inputStringGridCells[inputcurrentRow]:=name; //成功后返回进货单 inputEnabled:=true; infoClose; manageHide; end; //向销售单中传送客户信息 if (outputEnabled=false)and(labelCaption=客户拼音) then begin //向将客户编号和名称传回销售单窗体 num:=dbgridFields[]AsString; name:=dbgridFields[]AsString; outputComboBoxText:=num; outputEditText:=name; //成功后返回销售单 outputEnabled:=true; infoClose; manageHide; end; end; right>[http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] |
