jiari.cpp

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

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

#include <vcl.h>
#pragma hdrstop

#include "jiari.h"
#include "DM1.h"
#include "PrintSet.h"
#include "SortSelect.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormJiari *FormJiari;

//---------------------------------------------------------------------------
__fastcall TFormJiari::TFormJiari(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::BitBtnAddClick(TObject *Sender)
{
  GroupBox1->Enabled = true;
  DBGrid1->Enabled = false;
  BitBtnAdd->Enabled = false;
  BitBtnAlter->Enabled = false;
  BitBtnDel->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnQuit->Enabled = false;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;
  pQJiari->Append();

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


void __fastcall TFormJiari::BitBtnAlterClick(TObject *Sender)
{
  GroupBox1->Enabled = true;
  DBGrid1->Enabled = false;
  BitBtnAdd->Enabled = false;
  BitBtnAlter->Enabled = false;
  BitBtnDel->Enabled = false;
  BitBtnSave->Enabled = true;
  BitBtnCancel->Enabled = true;
  BitBtnQuit->Enabled = false;
  BitBtnSort->Enabled = false;
  BitBtnPrint->Enabled = false;
  pQJiari->Edit();

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

void __fastcall TFormJiari::BitBtnDelClick(TObject *Sender)
{
  if (Application->MessageBoxA("确定要删除当前记录吗？","警告！",MB_YESNO) ==IDYES)
  {
   pQJiari->Delete();

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

void __fastcall TFormJiari::BitBtnSaveClick(TObject *Sender)
{

  try
   {
     pQJiari->Post();
   }
  catch(Exception &exception)
   {
    ShowMessage("保存失败！    因为：" + exception.Message);
    pQJiari->Close();
    pQJiari->Open();
   }
  GroupBox1->Enabled = false;
  DBGrid1->Enabled = true;
  BitBtnAdd->Enabled = true;
  BitBtnAlter->Enabled = true;
  BitBtnDel->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::BitBtnCancelClick(TObject *Sender)
{
  pQJiari->Cancel();
  GroupBox1->Enabled = false;
  DBGrid1->Enabled = true;
  BitBtnAdd->Enabled = true;
  BitBtnAlter->Enabled = true;
  BitBtnDel->Enabled = true;
  BitBtnSave->Enabled = false;
  BitBtnCancel->Enabled = false;
  BitBtnQuit->Enabled = true;
  BitBtnSort->Enabled = true;
  BitBtnPrint->Enabled = true;
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::DateTimePicker1Change(TObject *Sender)
{
  DBEdit1->Text = FormatDateTime("yyyy-mm-dd",DateTimePicker1->DateTime);

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

void __fastcall TFormJiari::DBEdit1Change(TObject *Sender)
{
  if (DBEdit1->Text == "") return;
  DateTimePicker1->DateTime = DBEdit1->Text ;
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::DBEdit1KeyPress(TObject *Sender, char &Key)
{
 ShowMessage("请用鼠标选取日期！");
}
//---------------------------------------------------------------------------


void __fastcall TFormJiari::FormCreate(TObject *Sender)
{
  pQJiari = GetQuery("QJiari");
  pQJiari->Open();
  DataSource1->DataSet = pQJiari;
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::BitBtnQuitClick(TObject *Sender)
{
  FormJiari->Close();
}
//---------------------------------------------------------------------------

void __fastcall TFormJiari::FormClose(TObject *Sender,
      TCloseAction &Action)
{
  pQJiari->Close();
}
//---------------------------------------------------------------------------


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

void __fastcall TFormJiari::BitBtnPrintClick(TObject *Sender)
{
  TFormPrintSet *FormPrintSet = new TFormPrintSet(this);
  FormPrintSet->SetDataSource(pQJiari);
  FormPrintSet->SetGrid(DBGrid1);
  FormPrintSet->EditTitle->Text = "假日表";
  FormPrintSet->ShowModal();
  delete FormPrintSet;
}
//---------------------------------------------------------------------------