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

Posted 2022-07-21 拼音

篇首语：既靠天，也靠地，还靠自己。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全进销存管理系统资料管理功能的实现（二）[3]相关的知识，希望对你有一定的参考价值。

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

adoquery Open; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= ; dbgrid Columns[ ] Width:= end; end; // 在进货单或销售单窗体中调用信息管理窗体 // 实现通过单击grid控件向进货单或销售单中传送相应的数据 procedure TInfo DBGrid DblClick(Sender: TObject); var num name:string; begin // 向进货单中传送商品或供货商信息 //判断是否是从进货单窗体中调用的信息管理窗体以及调用的是哪个数据表 if (input Enabled=false)and(label Caption= 供货商拼音 ) then begin //将供货商的标号和名称传回进货单窗体 num:=dbgrid Fields[ ] AsString; name:=dbgrid Fields[ ] AsString; input ComboBox Text:=num; input Edit Text:=name; //成功后返回进货单 input Enabled:=true; info Close; manage Hide; end; if (input Enabled=false)and(label Caption= 商品拼音 ) then begin //将货号和商品名称传回进货单窗体 num:=dbgrid Fields[ ] AsString; name:=dbgrid Fields[ ] AsString; if input currentRow= then input currentRow:= ; input StringGrid Cells[ input currentRow]:=num; input StringGrid Cells[ input currentRow]:=name; //成功后返回进货单 input Enabled:=true; info Close; manage Hide; end; // 向销售单中传送客户信息 if (output Enabled=false)and(label Caption= 客户拼音 ) then begin //向将客户编号和名称传回销售单窗体 num:=dbgrid Fields[ ] AsString; name:=dbgrid Fields[ ] AsString; output ComboBox Text:=num; output Edit Text:=name; //成功后返回销售单 output Enabled:=true; info Close; manage Hide; end; end;

cha138/Article/program/Delphi/201311/24968

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

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