renyuan.cpp

企业员工考勤和工资管理系统

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

#include <vcl.h>
#pragma hdrstop

#include "RenYuan.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormRenYuan *FormRenYuan;
//---------------------------------------------------------------------------
__fastcall TFormRenYuan::TFormRenYuan(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::FormCreate(TObject *Sender)
{
  pBm = GetQuery("QRenYuan");
  DataSource1->DataSet = pBm;
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::FormShow(TObject *Sender)
{
  pBm->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pBm->Close();

}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::BitBtnAddClick(TObject *Sender)
{
  DBGrid1->Enabled = false;
  GroupBox1->Enabled = true;
  BitBtnQuit->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnAdd->Enabled = false;
  BitBtnEdit->Enabled = false;
  BitBtnDelete->Enabled = false;

  DBEditBh->SetFocus();

  pBm->Append();
  pBm->FieldByName("UseKq")->AsBoolean = 1;

}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::BitBtnDeleteClick(TObject *Sender)
{
  if (pBm->RecNo < 1) return;
  if (Application->MessageBoxA("确定要删除吗？","询问",MB_YESNO)==IDYES)
    {
      pBm->Delete();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::BitBtnEditClick(TObject *Sender)
{
  DBGrid1->Enabled = false;
  GroupBox1->Enabled = true;
  BitBtnQuit->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnAdd->Enabled = false;
  BitBtnEdit->Enabled = false;
  BitBtnDelete->Enabled = false;
  DBEditBh->SetFocus();
  pBm->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::BitBtnSaveClick(TObject *Sender)
{
  try
    {
      pBm->Post();
    }
  catch(Exception &exception)
    {
      ShowMessage("保存失败！\n因为：" + exception.Message);
      BitBtnCancelClick(this);
      pBm->Close();
      pBm->Open();

      return;
    }
  ShowMessage("保存成功！");

  DBGrid1->Enabled = true;
  GroupBox1->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnAdd->Enabled = true;
  BitBtnEdit->Enabled = true;
  BitBtnDelete->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFormRenYuan::BitBtnCancelClick(TObject *Sender)
{
  pBm->Cancel();
  DBGrid1->Enabled = true;
  GroupBox1->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnAdd->Enabled = true;
  BitBtnEdit->Enabled = true;
  BitBtnDelete->Enabled = true;
}
//---------------------------------------------------------------------------