進銷存管理系統銷售管理功能的實現（一）[1]

——此文章摘自《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>]

From:http://tw.wingwit.com/Article/program/Delphi/201311/24913.html