qjzl.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "QjZl.h"
#include "DM1.h"
#include "QuerySql.h"
#include "PrintSet.h"
#include "SortSelect.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormQjZl *FormQjZl;
//---------------------------------------------------------------------------
__fastcall TFormQjZl::TFormQjZl(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormQjZl::FormCreate(TObject *Sender)
{
  pBm = GetQuery("QQjZl");
  DataSource1->DataSet = pBm;
}
//---------------------------------------------------------------------------
void __fastcall TFormQjZl::FormShow(TObject *Sender)
{

  pBm->Open();
  sOldSql = pBm->SQL->Text ;

}
//---------------------------------------------------------------------------
void __fastcall TFormQjZl::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pBm->Close();
  pBm->SQL->Text = sOldSql;

}
//---------------------------------------------------------------------------
void __fastcall TFormQjZl::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;
  BitBtnQuery->Enabled = false;
  BitBtnPrint->Enabled = false;
  BitBtnSort->Enabled = false;

  DBEditBh->SetFocus();

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

void __fastcall TFormQjZl::BitBtnQueryClick(TObject *Sender)
{
  TFormQuerySql *FormQuerySql = new TFormQuerySql(this);
  FormQuerySql->pGrid = DBGrid1;
  FormQuerySql->pQuery = pBm;
  if(FormQuerySql->ShowModal() == mrCancel)
  {
    delete FormQuerySql;
    return;
  }
  sNewSql = "select * from kq_qingjiazl " + FormQuerySql->sSql + " order by bianhao";
  pBm->Close();
  pBm->SQL->Clear();
  pBm->SQL->Add(sNewSql);
  pBm->Open();
  delete FormQuerySql;
}
//---------------------------------------------------------------------------

void __fastcall TFormQjZl::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pBm);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "请假种类";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
  
}
//---------------------------------------------------------------------------

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