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

#include <vcl.h>
#pragma hdrstop

#include "WSalary_Set.h"     //考勤工資參數設置窗體頭文件
#include "DataModule.h"      //數據模塊窗體頭文件
#include "Archives_Query.h"  //數據記錄查詢窗體頭文件
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Inherit"
#pragma link "CSPIN"
#pragma resource "*.dfm"
TF_Set *F_Set;
//---------------------------------------------------------------------------
__fastcall TF_Set::TF_Set(TComponent* Owner)
        : TF_Inherit(Owner)
{
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::CheckBox1Click(TObject *Sender)
{   /*****提取星期六星期天復選框單擊事件*****/
    if(CheckBox1->Checked){
      int Record;
      TDateTime *Date = new TDateTime();
      *Date = StrToDate(MaskEdit1->Text+"-01");   //賦用戶填寫月份的第一天
      DM->AT_Count->Filter = "Count_Name='Set'";  //設置過濾器，提取應考勤日期信息表計數值
      DM->AT_Count->Filtered = true;              //開啟過濾器
      DM->AT_Count->Open();                       //打開記錄號計數器表
      Record = DM->AT_CountCount_Value->Value;    //提取計數值
      for(int i=0;i<31;i++){
        if(Date->DayOfWeek()==1||Date->DayOfWeek()==7){ //判斷是否為星期六或星期天
          Record+=1;
          DM->AQ_WSet->Append();                    //在應考勤日期信息表中追加一條記錄
          DM->AQ_WSetWSet_ID->Value = Record;       //記錄編號賦值
          DM->AQ_WSetWSet_Date->Value = *Date; //應考勤日期賦值
          DM->AQ_WSet->Post();                      //提交數據值
          }
        Date->operator +=(1);                     //日期增加一天
        }
      DM->AT_Count->Edit();     //編輯記錄號計數數據表
      DM->AT_CountCount_Value->Value = Record;  //記錄編號賦值
      DM->AT_Count->Post();     //提交編輯數據
      DM->AT_Count->Close();    //關閉記錄號計數數據表
      }
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::BitBtn1Click(TObject *Sender)
{   /*****考勤參數修改按鈕單擊事件*****/
    TIniFile *ini;  //申請一個TIniFile類對象
    //打開考勤工資管理系統Config.INI配置文件，如果不存在則創建
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");  //ExtractFilePath(ParamStr(0))取得當前工作路徑
    ini->WriteString("WorkTime","Time1",MaskEdit2->Text);  //寫入上午上班時間
    ini->WriteString("WorkTime","Time2",MaskEdit3->Text);  //寫入上午下班時間
    ini->WriteString("WorkTime","Time3",MaskEdit4->Text);  //寫入下午上班時間
    ini->WriteString("WorkTime","Time4",MaskEdit5->Text);  //寫入下午下班時間
    delete ini;  //釋放ini對象
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::BitBtn2Click(TObject *Sender)
{   /*****考勤參數恢復默認值按鈕單擊事件*****/
    MaskEdit2->Text = "08:00:00";  //恢復默認上午上班時間
    MaskEdit3->Text = "11:30:00";  //恢復默認上午下班時間
    MaskEdit4->Text = "13:30:00";  //恢復默認下午上班時間
    MaskEdit5->Text = "17:00:00";  //恢復默認下午下班時間
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::FormShow(TObject *Sender)
{   /*****考勤工資參數設置窗體創建事件*****/
    MaskEdit1->Text = FormatDateTime("yyyy-mm",Now()); //取得當前年月
    TIniFile *ini;  //申請一個TIniFile類對象
    //打開考勤工資管理系統Config.INI配置文件，如果不存在則創建
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");  //ExtractFilePath(ParamStr(0))取得當前工作路徑
    MaskEdit2->Text = ini->ReadString("WorkTime","Time1","08:00:00");  //讀取上午上班時間，如果不存則賦第三項默認值
    MaskEdit3->Text = ini->ReadString("WorkTime","Time2","11:30:00");  //讀取上午下班時間
    MaskEdit4->Text = ini->ReadString("WorkTime","Time3","13:30:00");  //讀取下午上班時間
    MaskEdit5->Text = ini->ReadString("WorkTime","Time4","17:00:00");  //讀取下午下班時間
    CSpinEdit1->Text = ini->ReadInteger("SalaryParam","Salary1",10);   //讀取基本工資單價
    CSpinEdit6->Text = ini->ReadInteger("SalaryParam","Salary2",20);   //讀取加班工資單價
    CSpinEdit2->Text = ini->ReadInteger("SalaryParam","Salary3",100);  //讀取出差工資單價
    CSpinEdit3->Text = ini->ReadInteger("SalaryParam","Salary4",50);   //讀取遲到早退扣發單價
    CSpinEdit4->Text = ini->ReadInteger("SalaryParam","Salary5",100);  //讀取曠工扣發單價
    delete ini;  //釋放ini對象
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::BitBtn3Click(TObject *Sender)
{   /*****工資參數修改按鈕單擊事件*****/
    TIniFile *ini;  //申請一個TIniFile類對象
    ini = new TIniFile(ExtractFilePath(ParamStr(0))+"Config.INI");  //ExtractFilePath(ParamStr(0))取得當前工作路徑
    ini->WriteInteger("SalaryParam","Salary1",CSpinEdit1->Text.ToInt());  //寫入基本工資單價
    ini->WriteInteger("SalaryParam","Salary2",CSpinEdit6->Text.ToInt());  //寫入加班工資單價
    ini->WriteInteger("SalaryParam","Salary3",CSpinEdit2->Text.ToInt());  //寫入出差工資單價
    ini->WriteInteger("SalaryParam","Salary4",CSpinEdit3->Text.ToInt());  //寫入遲到早退扣發單價
    ini->WriteInteger("SalaryParam","Salary5",CSpinEdit4->Text.ToInt());  //寫入曠工扣發單價
    delete ini;  //釋放ini對象
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::BitBtn4Click(TObject *Sender)
{   /*****工資參數恢復默認值按鈕單擊事件*****/
    CSpinEdit1->Text = "10";  //恢復默認正常工資單價
    CSpinEdit6->Text = "20";  //恢復默認加班工資單價
    CSpinEdit2->Text = "100"; //恢復默認出差工資單價
    CSpinEdit3->Text = "50";  //恢復默認遲到早退扣發單價
    CSpinEdit4->Text = "100"; //恢復默認曠工扣發單價
}
//---------------------------------------------------------------------------


void __fastcall TF_Set::ToolButton1Click(TObject *Sender)
{   /*****增加工具條快捷按鈕單擊事件*****/
    int Record;
    DM->AT_Count->Filter = "Count_Name='Set'";  //設置過濾器，提取正常休息日子信息表計數值
    DM->AT_Count->Filtered = true;              //開啟過濾器
    DM->AT_Count->Open();                       //打開記錄編號計數表
    Record = DM->AT_CountCount_Value->Value;    //提取計數值
    DM->AQ_WSet->AppendRecord(ARRAYOFCONST((Record+1,DateToStr(DateTimePicker1->Date))));  //增加一條正常休息日子記錄
    DM->AT_Count->Edit();     //編輯記錄號計數數據表
    DM->AT_CountCount_Value->Value = Record+1;  //記錄號加1再賦值
    DM->AT_Count->Post();     //提交編輯數據
    DM->AT_Count->Close();    //關閉記錄號計數數據表
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton2Click(TObject *Sender)
{   /*****編輯工具條快捷按鈕單擊事件*****/
    DM->AQ_WSet->Edit();     //編輯正常休息日子記錄
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton3Click(TObject *Sender)
{   /*****刪除工具條快捷按鈕單擊事件*****/
    DM->AQ_WSet->Delete();   //刪除一條正常休息日子記錄
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton4Click(TObject *Sender)
{   /*****提交工具條快捷按鈕單擊事件*****/
    DM->AQ_WSet->Post();    //提交正常休息日子記錄的操作
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton6Click(TObject *Sender)
{   /*****取消工具條快捷按鈕單擊事件*****/
    DM->AQ_WSet->Cancel();  //取消正常休息日子記錄的操作
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton10Click(TObject *Sender)
{   /*****查找工具條快捷按鈕單擊事件*****/
    TStringList *str1 = new TStringList();
    TStringList *str2 = new TStringList();
    F_Query->Q_Table = "WSalary_WSet";  //賦查找表名
    str1->Add("日期");           //添加正常休息日期查找字段
    str2->Add("WSet_Date");      //添加正常休息日期在數據表中的字段名
    F_Query->T_Field[0] = 2;     //添加正常休息日期字段類型代號，為日期類型
    F_Query->S_Field = str1;     //查詢窗體上S_Field公有變量賦值
    F_Query->N_Field = str2;     //查詢窗體上N_Field公有變量賦值
    F_Query->CBE_Field->Text="日期"; //查找字段賦值
    F_Query->Query = DM->AQ_WSet;//設定查找數據集為應到考勤日信息表
    F_Query->ShowModal();        //打開數據記錄查詢窗口
    delete str1,str2;            //釋放str1,str2對象
}
//---------------------------------------------------------------------------

void __fastcall TF_Set::ToolButton12Click(TObject *Sender)
{   /*****關閉工具條快捷按鈕單擊事件*****/
    F_Set->Close();                  //關閉考勤工資參數設置管理窗口
}
//---------------------------------------------------------------------------