time.cpp

来自「一个以前收集的基于C/S架构的ERP客户端源代码」· C++ 代码 · 共 129 行

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

#include <vcl.h>
#pragma hdrstop

#include "Time.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "KSAdvReport"
#pragma resource "*.dfm"
TfrmTime *frmTime;
//---------------------------------------------------------------------------
__fastcall TfrmTime::TfrmTime(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
  OwGrid=TimeGrid;
  AnsiString YearStr,MonthStr,DateStr;
  DateStr=DateToStr(Date());
  YearStr=DateStr.SubString(1,4);
  MonthStr=DateStr.SubString(6,8);
  if(MonthStr.Pos('-')-1>1)
  {
  MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
  //cbsdMonth->Text=YearStr+MonthStr;
  }
  else
  {
   MonthStr=MonthStr.SubString(1,MonthStr.Pos('-')-1);
  // cbsdMonth->Text=YearStr+"0"+MonthStr;
  }

}
//---------------------------------------------------------------------------
void __fastcall TfrmTime::InitEditControl()
{
 AddGroupItem(edDeptBox,edDept,"sysDeptName","sysDept,sysDeptName","\t部门编码\t部门名称");
 AddGroupItem(edEmployeeBox,edEmployee,"sysEmployeeName","sysEmployee,sysEmployeeName","\t员工编码\t员工名称");
 AddGroupItem(sysFmonthBox,cbsdMonth,"sysFmonth","sysFmonth","\t财务月份");
 l_DefField="sysDeptName,sysEmployeeName,sysFmonth,sysWDay, sysWorkTime,sysOverTime, sysErrandTime,sysHolidayTime,sysLeaveTime,sysduty FROM ksVW_Time";
 l_DefDisp="\t部门名称\t员工\t财务月份\t上班天数\t工作时间\t加班时间\t出差时间\t放假时间\t请假时间\t出勤率";
  s_DateField="sysFmonth";
 FillComboBox(Handle,cbsdMonth,"select distinct sysFmonth=substring(workplanDate,1,7)from ksworkplan order by sysFmonth","sysFmonth");

  edDept->Text="" ;
  edEmployee->Text="";

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



void __fastcall TfrmTime::edDeptButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="004[部门编码][部门名称][联系人][电话]select DeptCode,DeptName,DeptLinkman,DeptTel from sdDept  order by DeptCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"部门查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edDept->Text=(p->ColData[2]);
  }
  delete p;
}
//---------------------------------------------------------------------------



void __fastcall TfrmTime::edEmployeeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="002[员工编码][员工名称]select EmployeeCode,EmployeeName from sdEmployee  order by EmployeeCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"员工查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edEmployee->Text=(p->ColData[2]);
  }
  delete p;

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

/*void __fastcall TfrmTime::btFindClick(TObject *Sender)
{
   if ((edDept->Text==""||edEmployee->Text=="")&& cbsdMonth->Text!="")
      l_DefField=" sysDeptName,sysEmployeeName,sysWDay, sysWorkTime,sysOverTime, sysErrandTime,sysHolidayTime,sysLeaveTime,sysduty FROM ksVW_TimeStat_Month";
     else{
   if (edDept->Text==""|| cbsdMonth->Text==""||edEmployee->Text=="")
      l_DefField="sysDeptName,sysEmployeeName,sysWDay, sysWorkTime,sysOverTime, sysErrandTime,sysHolidayTime,sysLeaveTime,sysduty FROM ksVW_TimeStat_Init";
      else  l_DefField=" sysDeptName,sysEmployeeName,sysWDay, sysWorkTime,sysOverTime, sysErrandTime,sysHolidayTime,sysLeaveTime,sysduty FROM ksVW_Time";
    }
   try
    {
      StartWaitForm("正在查询,请稍候...");
      FillGridWithData();
    }
    __finally
    {
      EndWaitForm();
    }



}  */
//---------------------------------------------------------------------------