當月工資管理功能的實現[3]

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

    //發放所選員工的工資
    procedure TmainButtonClick(Sender: TObject);
    var
    num:string;
    begin
    //獲取要發放工資的員工的編號
    num:=adoqueryFields[]AsString;
    //發放工資
    adocommandCommandText:=exec sf_當月工資發放 +num+;
    adocommandExecute;
    MessageBox(所選員工的工資發放已成功!SuccessMB_OK);
    //刷新數據
    adoqueryActive:=false;
    adoqueryActive:=true;
    end;      

    至此我們就完成了當月工資管理的功能運行結果如圖和所示

http://developcsaicn/delphi/images/jpg>
圖  導入工資歷史

    運行程序時單擊【導入工資歷史】按鈕可以生成初始的工資信息將用戶指定的歷史月份中的工資紀錄導入到指定的當前月份中此時有歷史工資紀錄的員工歷史月份的工資紀錄將被倒入到表中而自動生成沒有歷史工資記錄的員工(如新員工)的各工資項均為用戶可以手工修改這些工資項目修改完畢後單擊【計算當月工資】按鈕可以計算出工資使用導入工資歷史的目的是為了讓大部分員工的工資項明細可以通過【倒入工資歷史】按鈕從歷史數據中倒入從而減輕輸入工作的強調單擊【工資發放】按鈕可以發放選定職員的工資打印出工資條並將工資發放的記錄放入歷史將已經發放工資的員工從當月工資管理表中刪去

http://developcsaicn/delphi/images/jpg>
圖  修改並計算當月工資

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

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