bzwh.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "BzWh.h"
#include "DM1.h"
#include "QuerySql.h"
#include "PrintSet.h"
#include "SortSelect.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormBzWh *FormBzWh;
//---------------------------------------------------------------------------
__fastcall TFormBzWh::TFormBzWh(TComponent* Owner)
  : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::FormCreate(TObject *Sender)
{
  pBm = GetQuery("QBmWh");
  pBz = GetQuery("QBzWh");
  DataSource1->DataSet = pBz;
  DataSource2->DataSet = pBm;
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::FormShow(TObject *Sender)
{

  pBz->Open();
  pBm->Open();
  sOldSql = pBz->SQL->Text ;
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pBz->Close();
  pBm->Close();
  pBz->SQL->Text = sOldSql;
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::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;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;

  DBEditBh->SetFocus();

  pBz->Append();

}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::BitBtnDeleteClick(TObject *Sender)
{
  if (pBz->RecNo < 1) return;
  if (Application->MessageBoxA("确定要删除吗？","询问",MB_YESNO)==IDYES)
    {
      pBz->Delete();
    }
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::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;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;
  DBEditBh->SetFocus();
  pBz->Edit();
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::BitBtnSaveClick(TObject *Sender)
{
  try
    {
      pBz->Post();
    }
  catch(Exception &exception)
    {
      ShowMessage("保存失败！\n因为：" + exception.Message);
      BitBtnCancelClick(this);
      pBz->Close();
      pBz->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;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;
}
//---------------------------------------------------------------------------
void __fastcall TFormBzWh::BitBtnCancelClick(TObject *Sender)
{
  pBz->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;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;
}
//---------------------------------------------------------------------------





void __fastcall TFormBzWh::DBLookupComboBox1Click(TObject *Sender)
{
  pBz->FieldByName("depno")->AsInteger = pBm->FieldByName("typeno")->AsInteger;  
}
//---------------------------------------------------------------------------

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

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

void __fastcall TFormBzWh::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pBz);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "班组资料";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
}
//---------------------------------------------------------------------------