renshiziliao.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "RenShiZiLiao.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormRenShiZiLiao *FormRenShiZiLiao;
//---------------------------------------------------------------------------
__fastcall TFormRenShiZiLiao::TFormRenShiZiLiao(TComponent* Owner)
  : TForm(Owner)
{
}

//-------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::EnterPro(AnsiString sFormTitle,AnsiString sFieldName,AnsiString sQueryName)
{
  Caption = sFormTitle;
  TabSheet1->Caption = sFormTitle;
  pBm = GetQuery(sQueryName);
  DBEditMc->DataField = sFieldName;
  DBGrid1->Columns->Items[0]->FieldName = sFieldName;
  pBm->Open();               
  DataSource1->DataSet = pBm;
}
//---------------------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pBm->Close();

}
//---------------------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::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;

  DBEditMc->SetFocus();

  pBm->Append();

}
//---------------------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::BitBtnDeleteClick(TObject *Sender)
{
  if (pBm->RecNo < 1) return;
  if (Application->MessageBoxA("确定要删除吗？","询问",MB_YESNO)==IDYES)
    {
      pBm->Delete();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::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;
  DBEditMc->SetFocus();
  pBm->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TFormRenShiZiLiao::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 TFormRenShiZiLiao::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;
}
//---------------------------------------------------------------------------