baobiao.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "BaoBiao.h"
#include "DM1.h"
#include "ColumnSelect.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormBaoBiao *FormBaoBiao;
extern int nPrintErr;
//---------------------------------------------------------------------------
__fastcall TFormBaoBiao::TFormBaoBiao(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormBaoBiao::FormCreate(TObject *Sender)
{
   pMonth = GetQuery("QBbKaoQing");
   DataSource1->DataSet = pMonth;
}
//---------------------------------------------------------------------------
void __fastcall TFormBaoBiao::BitBtn1Click(TObject *Sender)
{
  try
    {
      StrToDateTime(Trim(MEMonth->Text) + "-01");
    }
  catch(...)
    {
      ShowMessage("请输入正确的月份！");
      MEMonth->SetFocus();
      return;
    }
  pMonth->Close();
  pMonth->Parameters->ParamByName("Month")->Value = Trim(MEMonth->Text);
  pMonth->Open();

}
//---------------------------------------------------------------------------
void __fastcall TFormBaoBiao::BitBtn2Click(TObject *Sender)
{
   if (nPrintErr == 1)
  {
    ShowMessage("连接打印机失败! 请检查打印机连接是否正确，然后重新运行程序!");
    return;
  }

   if (pMonth->Active == false) return;
   if (pMonth->RecordCount < 1) return;
   FormPrint1->QRLyf->Caption = Trim(MEMonth->Text);
   FormPrint1->QRLks->Caption = pMonth->FieldByName("ksrq")->AsString;
   FormPrint1->QRLjs->Caption = pMonth->FieldByName("jsrq")->AsString;
   FormPrint1->QRLDay->Caption = pMonth->FieldByName("zts")->AsString;


   FormPrint1->QuickRep1->Preview();


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

void __fastcall TFormBaoBiao::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pMonth->Close();
  if (FormPrint1 != NULL)
  delete FormPrint1;
}
//---------------------------------------------------------------------------

void __fastcall TFormBaoBiao::BitBtn4Click(TObject *Sender)
{
  TFormColumnSelect *FormColumnSelect = new TFormColumnSelect(this);
  FormColumnSelect->pGrid = DBGrid1;
  FormColumnSelect->asWinName = Name;
  FormColumnSelect->ShowModal();
  delete FormColumnSelect;
}
//---------------------------------------------------------------------------

void __fastcall TFormBaoBiao::FormShow(TObject *Sender)
{
  TIniFile* pIni = new TIniFile(ExtractFilePath(Application->ExeName) + "reckq.ini");
   pIni->ReadSection(Name,ComboBoxCol->Items);
   for (int i= 0; i< ComboBoxCol->Items->Count;i++)
   {
     pIni->ReadBool(Name,ComboBoxCol->Items->Strings[i],true);
     for (int j = 0; j< DBGrid1->Columns->Count;j++)
     {
       if (DBGrid1->Columns->Items[j]->FieldName == ComboBoxCol->Items->Strings[i])
       {
         DBGrid1->Columns->Items[j]->Visible = pIni->ReadBool(Name,ComboBoxCol->Items->Strings[i],true);
         break;
       }
     }
   }
   delete pIni;

   if (nPrintErr != 1)
  {
   FormPrint1 = new TFormPrint1(this);
   FormPrint1->QuickRep1->DataSet = pMonth;

   FormPrint1->QRDBText1->DataSet = pMonth;
   FormPrint1->QRDBText1->DataField = "ygbh";
   FormPrint1->QRDBText2->DataSet = pMonth;
   FormPrint1->QRDBText2->DataField = "ygxm";
   FormPrint1->QRDBText3->DataSet = pMonth;
   FormPrint1->QRDBText3->DataField = "bmmc";
   FormPrint1->QRDBText4->DataSet = pMonth;
   FormPrint1->QRDBText4->DataField = "bzmc";
   FormPrint1->QRDBText5->DataSet = pMonth;
   FormPrint1->QRDBText5->DataField = "ycqts";
   FormPrint1->QRDBText6->DataSet = pMonth;
   FormPrint1->QRDBText6->DataField = "cdcs";
   FormPrint1->QRDBText7->DataSet = pMonth;
   FormPrint1->QRDBText7->DataField = "cdzsj";
   FormPrint1->QRDBText8->DataSet = pMonth;
   FormPrint1->QRDBText8->DataField = "ztcs";
   FormPrint1->QRDBText9->DataSet = pMonth;
   FormPrint1->QRDBText9->DataField = "ztzsj";
   FormPrint1->QRDBText10->DataSet = pMonth;
   FormPrint1->QRDBText10->DataField = "busk";
   FormPrint1->QRDBText11->DataSet = pMonth;
   FormPrint1->QRDBText11->DataField = "kgts";
   FormPrint1->QRDBText12->DataSet = pMonth;
   FormPrint1->QRDBText12->DataField = "wxsj";
   FormPrint1->QRDBText13->DataSet = pMonth;
   FormPrint1->QRDBText13->DataField = "wxtj";
   FormPrint1->QRDBText14->DataSet = pMonth;
   FormPrint1->QRDBText14->DataField = "yxsj";
   FormPrint1->QRDBText15->DataSet = pMonth;
   FormPrint1->QRDBText15->DataField = "yxtj";
   FormPrint1->QRDBText16->DataSet = pMonth;
   FormPrint1->QRDBText16->DataField = "psjb";
   FormPrint1->QRDBText17->DataSet = pMonth;
   FormPrint1->QRDBText17->DataField = "xxjb";
   FormPrint1->QRDBText18->DataSet = pMonth;
   FormPrint1->QRDBText18->DataField = "jrjb";

   FormPrint1->QRLNo->Caption = IntToStr(FormPrint1->QuickRep1->PageNumber);
//   FormPrint1->QRLTotal->Caption = IntToStr(FormPrint1->QuickRep1->);
   }
}
//---------------------------------------------------------------------------

void __fastcall TFormBaoBiao::BitBtnPrintClick(TObject *Sender)
{
    if (nPrintErr == 1)
  {
    ShowMessage("连接打印机失败! 请检查打印机连接是否正确，然后重新运行程序!");
    return;
  }

   if (pMonth->Active == false) return;
   if (pMonth->RecordCount < 1) return;
   FormPrint1->QRLyf->Caption = Trim(MEMonth->Text);
   FormPrint1->QRLks->Caption = pMonth->FieldByName("ksrq")->AsString;
   FormPrint1->QRLjs->Caption = pMonth->FieldByName("jsrq")->AsString;
   FormPrint1->QRLDay->Caption = pMonth->FieldByName("zts")->AsString;


   FormPrint1->QuickRep1->Print();
}
//---------------------------------------------------------------------------

void __fastcall TFormBaoBiao::BitBtnPrintSetClick(TObject *Sender)
{
  if (nPrintErr == 1)
  {
    ShowMessage("连接打印机失败! 请检查打印机连接是否正确，然后重新运行程序!");
    return;
  }
  FormPrint1->QuickRep1->PrinterSetup();
}
//---------------------------------------------------------------------------