defclass.cpp

来自「是我编写的一个考勤机管理系统,用于计算某员工某段时间以来的迟到与早退等情况.」· C++ 代码 · 共 91 行

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

#include <vcl.h>
#pragma hdrstop
#include "DefClass.h"
#include "DefClassEdit.h"
#include "DM.h"
#include "Public.h"

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

#pragma package(smart_init)
#pragma resource "*.dfm"
TfrmDefClass *frmDefClass;
//---------------------------------------------------------------------------
__fastcall TfrmDefClass::TfrmDefClass(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::BtnAddClick(TObject *Sender)
{
    ShowForm(frmDefClassEdit);
    frmDefClassEdit->AddBill() ;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::RefreshData(void)
{
    DSGrid->DataSet->Active =false;
    DSGrid->DataSet->Active =true;
    Grid->Refresh() ;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::BtnViewClick(TObject *Sender)
{
    if (DSGrid->DataSet->IsEmpty() || DSGrid->DataSet->RecordCount ==0 )
    {
        Message("没有可用数据!");
        return;
    }
    ShowForm(frmDefClassEdit);
    frmDefClassEdit->ViewBill(DSGrid->DataSet->FieldByName("DefClassID")->AsInteger);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::BtnDelClick(TObject *Sender)
{
    try
    {
        if (DSGrid->DataSet->IsEmpty() || DSGrid->DataSet->RecordCount ==0 )
        {
            Message("没有可用数据!");
            return;
        }
        if (QueryDly("确定删除<" + DSGrid->DataSet->FieldByName("DefClassName")->AsString + ">?"))
            DSGrid->DataSet->Delete() ;
    }
    catch(Exception &Err)
    {
        if (AnsiPos("中了包含相关记录",Err.Message)!=0)
            Message("该记录被其它地方引用,不能删除!");
        else
            Message(Err.Message);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::BtnCloseClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmDefClass::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    frmDefClass=NULL;
    Action=caFree;    
}
//---------------------------------------------------------------------------

void __fastcall TfrmDefClass::GridDblClick(TObject *Sender)
{
    BtnViewClick(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TfrmDefClass::BtnRefreshClick(TObject *Sender)
{
    RefreshData() ;    
}
//---------------------------------------------------------------------------