——此文章摘自《Delphi 数据库开发经典案例解析》定价¥特价¥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> //将选取的值添加到stringgrid单元并隐藏列表框 procedure ToutputComboBoxSelect(Sender: TObject); begin if currentCol= then begin stringgridCells[currentRow]:=comboboxText; comboboxVisible:=false; comboboxItemsClear; end; end; //双击货号列读入商品信息 procedure ToutputStringGridDblClick(Sender: TObject); begin //只允许在第一列由(双击)标示处双击 if currentCol= then begin //显示库存清单 managebuttonclick; //显示商品清单时不允许对进货单窗体进行操作 outputEnabled:=false; end; end; //动态添加客户数据词典 //客户资料窗体中双击读入数据功能见客户资料窗体的代码 procedure ToutputComboBoxDropDown(Sender: TObject); begin //显示客户清单 infovisible:=true; infoNClick; //显示客户清单时不允许对进货单窗体进行操作 outputEnabled:=false; end; //窗体显示时设置当前值 procedure ToutputFormShow(Sender: TObject); begin //制表事件为当前日期 editText:=datetostr(date); //制单人即登录用户 editText:=manageStatusBarPanels[]Text; currentRow:=; currentCol:=; end; //关闭窗体时打开管理窗体 procedure ToutputFormClose(Sender: TObject; var Action: TCloseAction); var ij:integer; begin manageshow; right>[http://developcsaicn/delphi/htm>] [] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] |