pb1.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "Pb1.h"
#include "PbAll.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormPb1 *FormPb1;

extern TDate DateStart,DateEnd;
extern int nPbfs,nBianhao;
extern AnsiString sMingcheng;
//---------------------------------------------------------------------------
__fastcall TFormPb1::TFormPb1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormPb1::BitBtn1Click(TObject *Sender)
{
  if (DateTimePicker1->Date > DateTimePicker2->Date)
    {
      ShowMessage("开始时间不能大于结束时间！");
      DateTimePicker1->SetFocus();
      return;
    }

  TFormPbAll * FormPbAll = new TFormPbAll(Application);

  if (RBAll->Checked) nPbfs =1;
  else if (RBDep->Checked) nPbfs = 2;
  else if (RBGroup->Checked) nPbfs = 3;
  else if (RBEvery->Checked) nPbfs = 4;

  if (RBAll->Checked == false)
    {
      if (DBTextNo->Field->Text != "") nBianhao = DBTextNo->Field->Text.ToInt();
      else nBianhao = -1;
      sMingcheng = DBTextName->Field->Text ;
    }
      DateStart = DateTimePicker1->DateTime;
      DateEnd = DateTimePicker2->DateTime;
  FormPbAll->ShowModal();
  delete FormPbAll;

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

void __fastcall TFormPb1::RBDepClick(TObject *Sender)
{
  if (DataSource1->DataSet !=pBm)
  {

    DBGrid1->Visible = true;
    GroupBox2->Visible = true;
    DBTextNo->DataField = "" ;
    DBTextName->DataField = "";
    DataSource1->DataSet = pBm;

    DBTextNo->DataField = "typeno";
    DBTextName->DataField = "describe";


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

void __fastcall TFormPb1::RBGroupClick(TObject *Sender)
{
  if (DataSource1->DataSet !=pBz)
  {
    DBGrid1->Visible = true;
    GroupBox2->Visible = true;
    DBTextNo->DataField = "" ;
    DBTextName->DataField = "";
    DataSource1->DataSet = pBz;

    DBTextNo->DataField = "groupno";
    DBTextName->DataField = "groupname";


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

void __fastcall TFormPb1::RBEveryClick(TObject *Sender)
{
  if (DataSource1->DataSet !=pAll)
  {
    DBGrid1->Visible = true;
    GroupBox2->Visible = true;
    DBTextNo->DataField = "" ;
    DBTextName->DataField = "";
    DataSource1->DataSet = pAll;

    DBTextNo->DataField = "holderno";
    DBTextName->DataField = "holdername";


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

void __fastcall TFormPb1::RBAllClick(TObject *Sender)
{
  DBGrid1->Visible = false;
  GroupBox2->Visible = false;
  DBTextNo->DataField = "" ;
  DBTextName->DataField = "";
  DataSource1->DataSet = NULL;


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





void __fastcall TFormPb1::FormCreate(TObject *Sender)
{
  pBm = GetQuery("QPbBm");
  pBz = GetQuery("QPbBz");
  pAll = GetQuery("QPbAll");
  pBm->Open();
  pBz->Open();
  pAll->Open();
  DateTimePicker1->Date =  Date();
  DateTimePicker2->Date = Date();
}
//---------------------------------------------------------------------------

void __fastcall TFormPb1::BitBtn2Click(TObject *Sender)
{
   FormPb1->Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormPb1::FormClose(TObject *Sender, TCloseAction &Action)
{
  pBm->Close();
  pBz->Close();
  pAll->Close();        
}
//---------------------------------------------------------------------------