gudingban.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Gudingban.h"
#include "DM1.h"
#include "SortSelect.h"
#include "PrintSet.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormGudingban *FormGudingban;

//---------------------------------------------------------------------------
__fastcall TFormGudingban::TFormGudingban(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormGudingban::BitBtnAddClick(TObject *Sender)
{
  GroupBox1->Enabled = true;
  DBGrid1->Enabled = false;
  BitBtnAdd->Enabled = false;
  BitBtnAlter->Enabled = false;
  BitBtnDel->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnExit->Enabled = false;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;

  pGdb->Append();
  DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnAlterClick(TObject *Sender)
{
  GroupBox1->Enabled = true;
  DBGrid1->Enabled = false;
  BitBtnAdd->Enabled = false;
  BitBtnAlter->Enabled = false;
  BitBtnDel->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnExit->Enabled = false;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;
  DBEdit1->SetFocus();
}
//---------------------------------------------------------------------------


void __fastcall TFormGudingban::BitBtnDelClick(TObject *Sender)
{
  if (Application->MessageBox("确定要删除当前记录吗？","警告",MB_YESNO) == IDYES)
     {
       pGdb->Delete();
       
     }
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnSaveClick(TObject *Sender)
{
  try
   {
    pGdb->Post();
   }
  catch(...)
   {
    ShowMessage("保存失败！");
    return;
   }
  GroupBox1->Enabled = false;
  DBGrid1->Enabled = true;
  BitBtnAdd->Enabled = true;
  BitBtnAlter->Enabled = true;
  BitBtnDel->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnExit->Enabled = true;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;

}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnCancelClick(TObject *Sender)
{
  pGdb->Cancel();
  GroupBox1->Enabled = false;
  DBGrid1->Enabled = true;
  BitBtnAdd->Enabled = true;
  BitBtnAlter->Enabled = true;
  BitBtnDel->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnExit->Enabled = true;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;        
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnExitClick(TObject *Sender)
{
  FormGudingban->Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::FormKeyPress(TObject *Sender, char &Key)
{
  if(Key==VK_RETURN)
      {
        SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
        Key=0;
      }        
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::FormCreate(TObject *Sender)
{
  pGdb = GetQuery("QGudingban");
  pBcmc = GetQuery("QBcmc");
  pGdb->Open();
  pBcmc->Open();
  DataSource1->DataSet = pGdb;
  DataSource2->DataSet = pBcmc;
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pGdb->Close();
  pBcmc->Close();        
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnSortClick(TObject *Sender)
{
  TFormSortSelect *FormSortSelect = new TFormSortSelect(this);
  FormSortSelect->SetItem(DBGrid1);
  if (FormSortSelect->ShowModal() == mrOk)
  pGdb->Sort = FormSortSelect->sSort;
  delete FormSortSelect;
}
//---------------------------------------------------------------------------

void __fastcall TFormGudingban::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pGdb);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "规律排班表";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
}
//---------------------------------------------------------------------------