tiaoban1.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "TiaoBan1.h"
#include "TiaoBan2.h"
#include "DM1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormTiaoBan1 *FormTiaoBan1;

extern TDate DateStartTb,DateEndTb;
extern int nPbfsTb,nBianhaoTb;
extern AnsiString sMingchengTb;
//---------------------------------------------------------------------------
__fastcall TFormTiaoBan1::TFormTiaoBan1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormTiaoBan1::BitBtn1Click(TObject *Sender)
{
  if (DateTimePicker1->Date > DateTimePicker2->Date)
    {
      ShowMessage("开始时间不能大于结束时间！");
      DateTimePicker1->SetFocus();
      return;
    }

  TFormTiaoBan2 * FormTiaoBan2 = new TFormTiaoBan2(Application);

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

  if (RBAll->Checked == false)
    {
      if (DBTextNo->Field->Text != "") nBianhaoTb = DBTextNo->Field->Text.ToInt();
      else nBianhaoTb = -1;
      sMingchengTb = DBTextName->Field->Text ;
    }
      DateStartTb = DateTimePicker1->DateTime;
      DateEndTb = DateTimePicker2->DateTime;
  FormTiaoBan2->ShowModal();
  delete FormTiaoBan2;

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

void __fastcall TFormTiaoBan1::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 TFormTiaoBan1::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 TFormTiaoBan1::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 TFormTiaoBan1::RBAllClick(TObject *Sender)
{
  DBGrid1->Visible = false;
  GroupBox2->Visible = false;
  DBTextNo->DataField = "" ;
  DBTextName->DataField = "";
  DataSource1->DataSet = NULL;


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





void __fastcall TFormTiaoBan1::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 TFormTiaoBan1::BitBtn2Click(TObject *Sender)
{
   FormTiaoBan1->Close();
}
//---------------------------------------------------------------------------

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