salarymanage.cpp

全面剖析人力资源管理的内容

//----------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "SalaryManage.h"
//----------------------------------------------------------------------------
#pragma resource "*.dfm"
TfmSalaryManage *fmSalaryManage;
//----------------------------------------------------------------------------
__fastcall TfmSalaryManage::TfmSalaryManage(TComponent *Owner)
	: TForm(Owner)
{
}
//----------------------------------------------------------------------------
void __fastcall TfmSalaryManage::FormCreate(TObject *Sender)
{
	Query1->Open();
	Table2->Open();
}
//---------------------------------------------------------------------------
// 从历史倒入工资明细项目
void __fastcall TfmSalaryManage::btGetSalaryClick(TObject *Sender)
{
    if(edNowMonth->Text.IsEmpty() || edOldMonth->Text.IsEmpty())
        return;     // 条件不全
    if(edNowMonth->Text.Length() != 6 || edOldMonth->Text.Length()!=6)
        return;     // 条件不正确
    // 执行数据倒入的存储过程
    TQuery *pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString szSQL;
    szSQL = "exec sf_形成月工资统计表 " + edOldMonth->Text;
    szSQL +=  "," + edNowMonth->Text;
    pQuery->SQL->Clear();
    pQuery->SQL->Add(szSQL);
    pQuery->ExecSQL ();
    delete pQuery;
    // 刷新列表显示
    Query1->Close();
    Query1->Open();
}
//---------------------------------------------------------------------------
// 计算当月工资
void __fastcall TfmSalaryManage::btCalSalaryClick(TObject *Sender)
{
    // 执行计算工资的存储过程
    TQuery *pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString szSQL;
    szSQL = "exec sf_当月工资统计";
    pQuery->SQL->Clear();
    pQuery->SQL->Add(szSQL);
    pQuery->ExecSQL ();
    delete pQuery;
    // 刷新列表显示
    Query1->Close();
    Query1->Open();
}
//---------------------------------------------------------------------------
// 发放当前指定职员的工资
void __fastcall TfmSalaryManage::btGiveSalaryClick(TObject *Sender)
{
    int bOk = Application->MessageBox("是否发放","提示",MB_YESNO);
    if(bOk == 7) return;
    // 执行工资发放的存储过程
    TQuery *pQuery = new TQuery(NULL);
    pQuery->DatabaseName = "db";
    AnsiString szSQL;
    szSQL = "exec sf_当月工资发放 '";
    szSQL += Query1->FieldByName("职员编号")->AsString;
    szSQL += "'";
    pQuery->SQL->Clear();
    pQuery->SQL->Add(szSQL);
    pQuery->ExecSQL ();
    delete pQuery;
    // 刷新列表显示
    Query1->Close();
    Query1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TfmSalaryManage::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;
}
//---------------------------------------------------------------------------