skchaxun.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "SkChaXun.h"
#include "DM1.h"
#include "QuerySql.h"
#include "SortSelect.h"
#include "PrintSet.h"
#include "stdio.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormSkChaXun *FormSkChaXun;

//---------------------------------------------------------------------------
__fastcall TFormSkChaXun::TFormSkChaXun(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormSkChaXun::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pQuery1->Close();
  pQuery1->SQL->Clear();
  Action = caFree;
}
//---------------------------------------------------------------------------
void __fastcall TFormSkChaXun::FormShow(TObject *Sender)
{
   pQuery1->Close();
   pQuery1->SQL->Clear();
   pQuery1->SQL->Add("select ygbh,kpbh,kpid,sksj,sfyx from kq_shuaka where 1 = 2");
   pQuery1->Open();
}
//---------------------------------------------------------------------------
void __fastcall TFormSkChaXun::FormCreate(TObject *Sender)
{
   pQuery1 = GetQuery("QSkCx");
   DataSource1->DataSet = pQuery1;
}
//---------------------------------------------------------------------------

void __fastcall TFormSkChaXun::BitBtnQueryClick(TObject *Sender)
{
  String sNewSql;
  TFormQuerySql *FormQuerySql = new TFormQuerySql(this);
  FormQuerySql->pGrid = DBGrid1;
  FormQuerySql->pQuery = pQuery1;
  if(FormQuerySql->ShowModal() == mrCancel)
  {
    delete FormQuerySql;
    return;
  }
  sNewSql = "select ygbh,kpbh,kpid,sksj,sfyx from kq_shuaka " + FormQuerySql->sSql + " order by sksj";
  pQuery1->Close();
  pQuery1->SQL->Clear();
  pQuery1->SQL->Add(sNewSql);
  pQuery1->Open();
  delete FormQuerySql;
}
//---------------------------------------------------------------------------

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

void __fastcall TFormSkChaXun::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pQuery1);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "刷卡数据";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
}
//---------------------------------------------------------------------------

void __fastcall TFormSkChaXun::BitBtnImportClick(TObject *Sender)
{
  String sTemp;
  FILE *pFile;
  SaveDialog1->DefaultExt = ExtractFilePath(Application->ExeName);
  if (!SaveDialog1->Execute()) return;
  pFile = fopen(SaveDialog1->FileName.c_str(),"w");
  if (pFile == NULL)
  {
    ShowMessage("创建文件失败!");
    return;
  }
  pQuery1->First();
  while (!pQuery1->Eof)
  {
    sTemp = pQuery1->FieldByName("ygbh")->AsString;
    if (sTemp == "")
    {
      pQuery1->Next();
      continue;
    }
    sTemp = sTemp + ";";
    sTemp = sTemp + pQuery1->FieldByName("sksj")->AsString;
    sTemp = sTemp + ";";
    sTemp = sTemp + pQuery1->FieldByName("sfyx")->AsString;
    sTemp = sTemp + ";\n";
    fprintf(pFile,sTemp.c_str());
    pQuery1->Next();
  }
  fclose(pFile);
  ShowMessage("导出成功!");
}
//---------------------------------------------------------------------------