setvac.cpp

是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.

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

#include <vcl.h>
#pragma hdrstop

#include "SetVac.h"
#include "SetVacEdit.h"
#include "DM.h"
#include "Public.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "BaseForm"
#pragma resource "*.dfm"
TfrmSetVac *frmSetVac;
//---------------------------------------------------------------------------
__fastcall TfrmSetVac::TfrmSetVac(TComponent* Owner)
    : TfrmBaseForm(Owner)
{

}
//---------------------------------------------------------------------------
void __fastcall TfrmSetVac::BtnAddClick(TObject *Sender)
{
    ShowForm(frmSetVacEdit);
    frmSetVacEdit->AddBill();
}
//---------------------------------------------------------------------------

void __fastcall TfrmSetVac::BtnViewClick(TObject *Sender)
{
    ShowForm(frmSetVacEdit);
    frmSetVacEdit->ViewBill(DSGrid->DataSet->FieldByName("DataID")->AsInteger);
}
//---------------------------------------------------------------------------
void __fastcall TfrmSetVac::BtnDelClick(TObject *Sender)
{
    try
    {
        if (DSGrid->DataSet->IsEmpty() || DSGrid->DataSet->RecordCount ==0 )
        {
            Message("没有可用数据!");
            return;
        }
        if (QueryDly("确定删除该条记录?"))
        {
            frmDM->Con->Execute("delete from SetVac where DataID="
                + IntToStr(DSGrid->DataSet->FieldByName("DataID")->AsInteger) );
            RefreshData();
        }

    }
    catch(Exception &Err)
    {
        if (AnsiPos("中了包含相关记录",Err.Message)!=0)
            Message("该记录被其它地方引用,不能删除!");
        else
            Message(Err.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmSetVac::BtnCloseClick(TObject *Sender)
{
    Close();    
}
//---------------------------------------------------------------------------
void __fastcall TfrmSetVac::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    frmSetVac=NULL;
    Action=caFree;
}
//---------------------------------------------------------------------------