知识大全进销存管理系统销售管理功能的实现（二）[2]

Posted 2022-07-14 知

篇首语：我们一路走，一路被辜负，一路点燃希望，一路寻找答案。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统销售管理功能的实现（二）[2]相关的知识，希望对你有一定的参考价值。

——此文章摘自《Delphi 数据库开发经典案例解析》定价￥　特价￥　购买>>//track linktech cn/?m_id=dangdang&a_id=A &l= &l_type = width= height= border= nosave>

// 将选取的值添加到stringgrid单元并隐藏列表框 procedure Toutput ComboBox Select(Sender: TObject); begin if currentCol= then begin stringgrid Cells[ currentRow]:=bobox Text; bobox Visible:=false; bobox Items Clear; end; end; // 双击货号列读入商品信息 procedure Toutput StringGrid DblClick(Sender: TObject); begin // 只允许在第一列由 (双击) 标示处双击 if currentCol= then begin // 显示库存清单 manage button click; // 显示商品清单时不允许对进货单窗体进行操作 output Enabled:=false; end; end; // 动态添加客户数据词典 // 客户资料窗体中双击读入数据功能见客户资料窗体的代码 procedure Toutput ComboBox DropDown(Sender: TObject); begin //显示客户清单 info visible:=true; info N Click; //显示客户清单时不允许对进货单窗体进行操作 output Enabled:=false; end; // 窗体显示时设置当前值 procedure Toutput FormShow(Sender: TObject); begin //制表事件为当前日期 edit Text:=datetostr(date); //制单人即登录用户 edit Text:=manage StatusBar Panels[ ] Text; currentRow:= ; currentCol:= ; end; // 关闭窗体时打开管理窗体 procedure Toutput FormClose(Sender: TObject; var Action: TCloseAction); var i j:integer; begin manage show;

cha138/Article/program/Delphi/201311/24893

知识大全 进销存管理系统销售管理功能的实现（二）[2]

知识大全进销存管理系统销售管理功能的实现（二）[2]