salaryhis.cpp

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

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "SalaryHis.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TfmSalaryHis *fmSalaryHis;
//---------------------------------------------------------------------------
__fastcall TfmSalaryHis::TfmSalaryHis(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfmSalaryHis::btSeekClick(TObject *Sender)
{
    AnsiString szSQL;    // 查询语句
    AnsiString szCondition;   // 条件
    szSQL = "select b.姓名,a.* from 工资发放历史表 as a, 职员基本信息表 ";
    szSQL += "as b where a.职员编号=b.职员编号";
    if(!edMonth->Text.IsEmpty())
        szCondition += "日期 = " + edMonth->Text + " and ";;
    if(!edPeopleCode->Text.IsEmpty())
        szCondition += "姓名 like '%" + edPeopleCode->Text + "%' and ";
    if(!szCondition.IsEmpty ())    // 存在查询条件
    {
        szCondition = szCondition.SubString(1,szCondition.Length()-5);
        szSQL += " and " + szCondition;
    }
    Query1->SQL->Clear();
    Query1->SQL->Add(szSQL);
    Query1->Open();
    // 这里控制各列的列宽
    DBGrid1->Columns->Items[0]->Width = 45;
    DBGrid1->Columns->Items[1]->Width = 45;
    DBGrid1->Columns->Items[2]->Width = 76;
    DBGrid1->Columns->Items[3]->Width = 76;
    DBGrid1->Columns->Items[4]->Width = 60;
    DBGrid1->Columns->Items[5]->Width = 64;
    for(int i=6; i<DBGrid1->Columns->Count; i++)
        DBGrid1->Columns->Items[6]->Width = 45;
}
//---------------------------------------------------------------------------
void __fastcall TfmSalaryHis::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    // 删除窗体并回收空间
    Action = caFree;
}
//---------------------------------------------------------------------------