知识大全 进销存管理系统资料管理功能的实现(二)[3]
Posted 拼音
篇首语:既靠天,也靠地,还靠自己。本文由小常识网(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相关参考
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang
——此文章摘自《Delphi数据库开发经典案例解析》定价¥ 特价¥ 购买>>//tracklinktechcn/?m_id=dangdang