employeereport.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "EmployeeReport.h"
#include "WnQuery.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "DateEdit"
#pragma link "GroupBaseForm"
#pragma link "KSAdvReport"
#pragma link "SDComboBox"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmEmployeeReport *frmEmployeeReport;
//---------------------------------------------------------------------------
__fastcall TfrmEmployeeReport::TfrmEmployeeReport(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TGroupBaseForm(Owner,chWnd,MidCode,WhereStr)
{
    OwGrid=sgEmployee; 
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::InitEditControl()
{
 AddGroupItem(edDeptCodeBox,edDeptCode,"EmployeeDept","EmployeeDept,DeptName","\t所属部门\t部门名称");
 AddGroupItem(edShopCodeBox,edShopCode,"EmployeeShop","EmployeeShop,ShopName","\t所属车间\t车间名称");
 AddGroupItem(edTeamCodeBox,edTeamCode,"EmployeeTeam","EmployeeTeam,TeamName","\t所属班组\t班组名称");
 AddGroupItem(cbTowBox,cbTow,"EmployeeTow","EmployeeTow,Towname","\t工种编码\t工种名称");
 AddGroupItem(cbEduBox,cbEdu,"EmployeeEdu","EmployeeEdu,Eduname","\t文化程度编码\t文化程度");
 l_SumField ="sum(EMPLOYEENUM) as EMPLOYEENUM  from SDVW_Employee";
 l_SumDisp="\t人数";

 l_DefField="DeptName,ShopName,TeamName,TowName,EduName,Employeename from SDVW_Employee ";
 l_DefDisp="\t所属部门\t所属车间\t所属班组\t所属工种\t文化程度\t员工姓名";
 s_DateField="EmployeeCDate";

  //FillComboBox(Handle,cbTow,"SELECT DISTINCT EmployeeTow,TowName from sdVW_Employee","EmployeeTow","EmployeeTow");
  FillComboBox(Handle,cbTow,"SELECT DISTINCT EmployeeTow,Tow1=IsNull((select TowName from sdTow where Towcode=EmployeeTow),'') from sdEmployee","Tow1","EmployeeTow");
//  FillComboBox(Handle,cbTow,"SELECT DISTINCT EmployeeTow,Tow1=IsNull((select TowName from sdTow where Towcode=EmployeeTow),'') from sdEmployee","EmployeeTow","Tow1");
  FillComboBox(Handle,cbEdu,"SELECT DISTINCT EmployeeEdu,Edu1=case EmployeeEdu when 1 then '小学' when 2 then '初中' when 3 then '中专' when 4 then '高中' when 5 then '大专' when 6 then '本科' when 7 then '硕士' when 8 then '博士' when 9 then '博士后' end from SDEmployee order by EmployeeEdu","Edu1","EmployeeEdu");
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::edDeptCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="002[部门编号][部门名称]select Deptcode,Deptname from SDdept  order by deptCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"部门编号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edDeptCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::edShopCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="002[车间编号][车间名称]select Shopcode,Shopname from SDShop  order by ShopCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"车间编号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edShopCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::edTeamCodeButtonClick(TObject *Sender)
{
  AnsiString SqlStr;
  SqlStr="002[班组编号][班组名称]select Teamcode,Teamname from SDTeam  order by TeamCode";
  TfrmWnQuery *p;
  try
  {
    StartWaitForm("正在查询,请稍候...");
    p=new TfrmWnQuery(this,"班组编号查询",SqlStr);
  }
  __finally
  {
    EndWaitForm();
  }
  if(p->ShowModal()==mrOk)
  {
     edTeamCode->Text=(p->ColData[1]);
  }
  delete p;
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::dtDateEnChange(TObject *Sender)
{

 dtDateBg->Text=dtDateEn->Text;
}
/*//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::sgLabhDblClick(TObject *Sender)
{
    int ARow=sgLabh->Row;
    if(ARow>0)
       FillGridWithDetail();
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmEmployeeReport::GetDetailQueryStr()
{
    AnsiString Selectstr,Fromstr,Wherestr,Orderstr;
    if(sgLabh->RowCount < 2)
      return("");
    if(sgLabh->Row == 0)
      return("");
    Selectstr="select "
            +AnsiString("LabdLine, ")
            +AnsiString("LabdWo, ")
            +AnsiString("LabdProcess, ")
            +AnsiString("LabdEmployee, ")
            +AnsiString("LabdEmployeeName, ")
            +AnsiString("LabdDType, ")
            +AnsiString("LabdTime, ")
            +AnsiString("LabdPrice, ")
            +AnsiString("LabdDesc ");

    Fromstr=" from SDVW_Labd ";
    Wherestr=" where LabdCode='"+sgLabh->Cells[1][sgLabh->Row]+"'";
    Orderstr=" order by LabdLine ";
    return(Selectstr+Fromstr+Wherestr+Orderstr);
}
//---------------------------------------------------------------------------
void __fastcall TfrmEmployeeReport::FillGridWithDetail()
{
    TComResultSet *RsQuery;
    AnsiString ItemStr,sSql;
    TfrmVW_Labd *VW_Labd;
    sSql=GetDetailQueryStr();  //取Detail查询的SQL语句
    if(sSql=="")
       return;
    try
    {
      VW_Labd=new TfrmVW_Labd(this);
      int ARow=sgLabh->Row;
      VW_Labd->seLabhCode->Text=sgLabh->Cells[1][ARow];
      VW_Labd->scLabhFmonth->Text=sgLabh->Cells[2][ARow];
      VW_Labd->deLabhDate->Text=sgLabh->Cells[3][ARow];
      VW_Labd->scLabhShop->Text=sgLabh->Cells[5][ARow];

      VW_Labd->sgLabd->RowCount=1;
      RsQuery=new  TComResultSet(Handle,g_ClientHandle);
      RsQuery->Open(sSql,"");
      RsQuery->MoveFirst();
      while(RsQuery->Eof == 0)
      {
         ItemStr=  RsQuery->FieldByName("LabdLine")+
              "\t"+RsQuery->FieldByName("LabdWo")+
              "\t"+RsQuery->FieldByName("LabdProcess")+
              "\t"+RsQuery->FieldByName("LabdEmployee")+
              "\t"+RsQuery->FieldByName("LabdEmployeeName")+
              "\t"+RsQuery->FieldByName("LabdDType")+
              "\t"+RsQuery->FieldByName("LabdTime")+
              "\t"+RsQuery->FieldByName("LabdPrice")+
              "\t"+RsQuery->FieldByName("LabdDesc");
       VW_Labd->sgLabd->AddItem(ItemStr);
       RsQuery->MoveNext();
    }
    RsQuery->Close();
    delete RsQuery;
    if(VW_Labd->sgLabd->RowCount > 1)
       VW_Labd->ShowModal();
    }
    __finally
    {
       delete VW_Labd;
    }
}
//---------------------------------------------------------------------------
*/