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

    ——此文章摘自《Delphi 數據庫開發經典案例解析》定價￥　特價￥　購買>>http://tracklinktechcn/?m_id=dangdang&a_id=A&l=&l_type= width= height= border= nosave>

    //將選取的值添加到stringgrid單元並隱藏列表框
    procedure ToutputComboBoxSelect(Sender: TObject);
    begin
    if currentCol= then
    begin
     stringgridCells[currentRow]:=comboboxText;
     comboboxVisible:=false;
     comboboxItemsClear;
    end;
    end;
     
     
    //雙擊貨號列讀入商品信息
    procedure ToutputStringGridDblClick(Sender: TObject);
     
    begin
    //只允許在第一列由(雙擊)標示處雙擊
    if currentCol= then
    begin
    //顯示庫存清單
    managebuttonclick;
    //顯示商品清單時不允許對進貨單窗體進行操作
    outputEnabled:=false;
    end;
    end;
     
    //動態添加客戶數據詞典
    //客戶資料窗體中雙擊讀入數據功能見客戶資料窗體的代碼
    procedure ToutputComboBoxDropDown(Sender: TObject);
    begin
    //顯示客戶清單
     infovisible:=true;
     infoNClick;
    //顯示客戶清單時不允許對進貨單窗體進行操作
     outputEnabled:=false;
     
    end;
     
    //窗體顯示時設置當前值
    procedure ToutputFormShow(Sender: TObject);
    begin
    //制表事件為當前日期
    editText:=datetostr(date);
    //制單人即登錄用戶
    editText:=manageStatusBarPanels[]Text;
    currentRow:=;
    currentCol:=;
    end;
     
    //關閉窗體時打開管理窗體
    procedure ToutputFormClose(Sender: TObject; var Action: TCloseAction);
    var
    ij:integer;
    begin
    manageshow;

right>[http://developcsaicn/delphi/htm>]  []  [http://developcsaicn/delphi/htm>]  [http://developcsaicn/delphi/htm>]  

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