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

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

    //當月工資管理
    //設置字段的寬度
     procedure TmainTabSheetShow(Sender: TObject);
    begin
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    dbgridColumns[]Width:=;
    end;
    //讀取工資的歷史紀錄
    procedure TmainButtonClick(Sender: TObject);
    //利用SQL 建庫時的腳本實現月工資統計表的形成
    begin
    //檢查輸入的要導入數據的月份和將導入數據的當前月份如果為空則提示重新輸入
     if (edittext=)or(edittext=) then
       MessageBox(輸入不能為空!錯誤MB_OK)
    //檢查輸入的時間的格式
       else if (length(editText)<>)or(length(editText)<>) then
        MessageBox(輸入應如格式!錯誤MB_OK)
        else
        begin
    //形成當月工資統計表
         adocommandCommandText:=exec sf_形成月工資統計表 +editText+
         +editText+;
         adocommandExecute;
         //刷新數據
         adoqueryActive:=false;
         adoqueryActive:=true;
     
        end;
    end;
    //計算當月工資
    procedure TmainButtonClick(Sender: TObject);
    begin
         adocommandCommandText:=exec sf_當月工資統計;
         adocommandExecute;
    //刷新數據
         adoqueryActive:=false;
         adoqueryActive:=true;
    end;

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

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