renshi.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "RenShi.h"
#include "DM1.h"
#include "QuerySql.h"
#include "PrintSet.h"
#include "SortSelect.h"
#include "ColumnSelect.h"
//#include <Clipbrd.hpp>

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormRenShi *FormRenShi;
//---------------------------------------------------------------------------
__fastcall TFormRenShi::TFormRenShi(TComponent* Owner)
  : TForm(Owner)
{
}
//------------------------------------------


//---------------------------------------------------------------------------
void __fastcall TFormRenShi::FormCreate(TObject *Sender)
{
  pRenShi = GetQuery("QRenShi");
  pBm = GetQuery("QBmWh");
  pBz1 = GetQuery("Query5");
  pBz2 = GetQuery("QBzWh");
  pZhiWu = GetQuery("QZhiWu");
  pZhiChen = GetQuery("QZhiChen");
  pLiZhiYY = GetQuery("QLiZhiYY");


  DataSource1->DataSet = pRenShi;
  DataSource2->DataSet = pBm;
  DataSource3->DataSet = pBz2;
  DataSource4->DataSet = pZhiWu;
  DataSource5->DataSet = pZhiChen;
  DataSource6->DataSet = pLiZhiYY;

}
//---------------------------------------------------------------------------
void __fastcall TFormRenShi::FormShow(TObject *Sender)
{
  pRenShi->Open();
  sOldSql = pRenShi->SQL->Text;
  pBm->Open();
  pBz2->Open();
  //BzAll();
  pZhiWu->Open();
  pZhiChen->Open();
  pLiZhiYY->Open();

  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;

}
//---------------------------------------------------------------------------
void __fastcall TFormRenShi::DBLCbmmcClick(TObject *Sender)
{
  int nBmbh;
  nBmbh = pBm->FieldByName("typeno")->AsInteger;
  pRenShi->FieldByName("departmentno")->AsInteger = nBmbh;
  pBz1->Close();
  pBz1->SQL->Clear();
  pBz1->SQL->Add("select groupno,groupname from groupdata where depno = " + IntToStr(nBmbh));
  pBz1->Open();
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pRenShi->Close();
  pBm->Close();
  pBz1->Close();
  pBz1->SQL->Clear();
  pBz2->Close();
  pZhiWu->Close();
  pZhiChen->Close();
  pLiZhiYY->Close();

  pRenShi->SQL->Text = sOldSql;  

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

void __fastcall TFormRenShi::DBLCbzmcClick(TObject *Sender)
{
  pRenShi->FieldByName("groupno")->AsInteger = pBz1->FieldByName("groupno")->AsInteger;
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::BitBtnAddClick(TObject *Sender)
{
  DBGrid1->Enabled = false;
  TabSheet1->Enabled = true;
  TabSheet2->Enabled = true;
  TabSheet3->Enabled = true;
  TabSheet4->Enabled = true;

  BitBtnQuit->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnAdd->Enabled = false;
  BitBtnEdit->Enabled = false;
  BitBtnDelete->Enabled = false;

  BitBtnQuery->Enabled = false;
  BitBtnPrint->Enabled = false;
  BitBtnSort->Enabled = false;

  DataSource3->DataSet = pBz1;
  pBz1->Close();
  DBEygbh->Enabled = true;
  DBEygbh->SetFocus();

  pRenShi->Append();
  pRenShi->FieldByName("inservice")->AsBoolean = 1 ;
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::BitBtnDeleteClick(TObject *Sender)
{
  if (pRenShi->RecNo < 1) return;
  if (Application->MessageBoxA("确定要删除吗？","询问",MB_YESNO)==IDYES)
    {
      pRenShi->Delete();
    }
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::BitBtnEditClick(TObject *Sender)
{
  pRenShi->Edit();
  DBGrid1->Enabled = false;
  TabSheet1->Enabled = true;
  TabSheet2->Enabled = true;
  TabSheet3->Enabled = true;
  TabSheet4->Enabled = true;
  BitBtnQuit->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnAdd->Enabled = false;
  BitBtnEdit->Enabled = false;
  BitBtnDelete->Enabled = false;
  BitBtnQuery->Enabled = false;
  BitBtnPrint->Enabled = false;
  BitBtnSort->Enabled = false;

  DataSource3->DataSet = pBz1;
  if (DBLCbmmc->Text.IsEmpty()) pBz1->Close();
  else DBLCbmmcClick(this);
  DBEygbh->Enabled = false;

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

void __fastcall TFormRenShi::BitBtnSaveClick(TObject *Sender)
{
  try
    {
      pRenShi->Post();
    }
  catch(Exception &exception)
    {
      ShowMessage("保存失败！\n因为：" + exception.Message);
      //BitBtnCancelClick(this);
      //pRenShi->Close();
      //pRenShi->Open();
      return;
    }
  //ShowMessage("保存成功！");

  DBGrid1->Enabled = true;
  TabSheet1->Enabled = false;
  TabSheet2->Enabled = false;
  TabSheet3->Enabled = false;
  TabSheet4->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnAdd->Enabled = true;
  BitBtnEdit->Enabled = true;
  BitBtnDelete->Enabled = true;
  DBEygbh->Enabled = false;
  BitBtnQuery->Enabled = true;
  BitBtnPrint->Enabled = true;
  BitBtnSort->Enabled = true;

  DataSource3->DataSet = pBz2;
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::BitBtnCancelClick(TObject *Sender)
{
  pRenShi->Cancel();
  DBGrid1->Enabled = true;
  TabSheet1->Enabled = false;
  TabSheet2->Enabled = false;
  TabSheet3->Enabled = false;
  TabSheet4->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnAdd->Enabled = true;
  BitBtnEdit->Enabled = true;
  BitBtnDelete->Enabled = true;
  DBEygbh->Enabled = false;
  BitBtnQuery->Enabled = true;
  BitBtnPrint->Enabled = true;
  BitBtnSort->Enabled = true;

  DataSource3->DataSet = pBz2;
}
//---------------------------------------------------------------------------

void __fastcall TFormRenShi::FormKeyPress(TObject *Sender, char &Key)
{
  if(Screen->ActiveControl->Name == "DBMbeizhu") return;
  if(Key==VK_RETURN)
      {
        SendMessage(this->Handle,WM_NEXTDLGCTL,0,0);
        Key=0;
      }
}
//---------------------------------------------------------------------------



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

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

void __fastcall TFormRenShi::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pRenShi);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "人事资料";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
  
}
//---------------------------------------------------------------------------

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


void __fastcall TFormRenShi::ButtonZhaoPianClick(TObject *Sender)
{
  OpenDialog1->InitialDir = Application->ExeName; 
  if (OpenDialog1->Execute())
  {
   try
   {
    DBImage1->Picture->LoadFromFile(OpenDialog1->FileName);
   }
   catch(...)
   {
     ShowMessage("打开图片失败！");
     return;
   }

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

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