|
——此文章摘自《Delphi 数据库开发经典案例解析》定价￥特价￥购买>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave> 销售和进货是两个类似的功能销售是从库存中出货进货是向库存中添加商品在本实例中他们所接触到的数据表是一一对应的如进货单与销售单进货单明细和销售单明细这两者仅仅是操作的对象和计算方法不一样而实现方法是一样的因此销售功能的制作步骤和代码本小节将不再详细介绍需要注意的是进货单中的货物可以选择储存仓库而销售单中的货物出货时只能从存有这个货物的仓库中出货进货单中的进货数量在本例中没有限制而销售单中的销售数量必须小于等于仓库中的储存数量对这两个个要求在程序中都有详细的注释请读者阅读时特别注意 这个窗体的控件和进货管理的控件几乎完全一致对比进货单与销售单进货单明细与销售单明细数据表可以发现实体的属性是一致的只是供货商变成了客户进价变成了售价从图可以看到销售管理窗体和进货窗体几乎是一样的运行时的操作也基本一致因此本节不再详细叙述它的完成过程读者可以从配书光盘中自行查阅 http://developcsaicn/delphi/images/jpg> 图 销售管理窗体 () 新建一个窗体并保存为FormOutputpas () 完成该销售单窗体的完整代码如下 unit FormOutput; interface uses Windows Messages SysUtils Variants Classes Graphics Controls Forms Dialogs ADODB DB StdCtrls Grids ExtCtrls; type Toutput = class(TForm) Label: TLabel; Label: TLabel; Label: TLabel; Panel: TPanel; Label: TLabel; Label: TLabel; Label: TLabel; Label: TLabel; Edit: TEdit; Edit: TEdit; ComboBox: TComboBox; ComboBox: TComboBox; Edit: TEdit; StringGrid: TStringGrid; ComboBox: TComboBox; right>[] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] [http://developcsaicn/delphi/htm>] |
