hmdoc.cpp

邮 电 公 司 erp源码

    m_Query->Close();
    return Count;
}
//---------------------------------------------------------------------------
bool TsdWl::Find(AnsiString WhereStr)
{
    AnsiString m_SqlStr;
    if(WhereStr.IsEmpty()==true)
        throw Exception("查找表达式不能为空");
    m_SqlStr="select * from sdWl where  "+WhereStr;
    m_Query->Close();
    m_Query->SQL->Clear();
   m_Query->SQL->Add(m_SqlStr);
    m_Query->Open();
    if(m_Query->RecordCount!=1)
    {
        m_Query->Close();
        return false;
    }
    else
    {
        BatchLetValue();
        m_Query->Close();
        return true;
    }
}
//**************************************
//     TsdEmployee 员工资料
//**************************************
//--------------------------------------------------------------
void __fastcall TsdEmployee:: SetEmployeeCode(AnsiString value)
{
 if(value.IsEmpty())
   throw Exception("员工代码不能为空！");
 if(value.UpperCase()!=m_EmployeeCode.UpperCase())
  {
   m_Query->Close();
   m_Query->SQL->Clear();
   m_Query->SQL->Add("select * from sdemployee where EmployeeCode='"+value+"'");
   m_Query->Open();
   if(m_Query->RecordCount>0)
     {
      m_Query->Close();
      throw Exception("员工代码"+value+"已存在！");
     }
   m_Query->Close();
  }
  m_EmployeeCode=value;
}
void __fastcall TsdEmployee:: SetEmployeeName(AnsiString value)
{
if(value.IsEmpty())
 throw Exception("员工名称不能为空");
 m_EmployeeName=value;
}
void __fastcall TsdEmployee:: SetEmployeeSex(int    value)
{
 m_EmployeeSex=value;
}
void __fastcall TsdEmployee:: SetEmployeeEdu(int    value)
{
 m_EmployeeEdu=value;
}
void __fastcall TsdEmployee:: SetEmployeeBorthday(AnsiString value)
{
if(value.IsEmpty())
 throw Exception("员工出生日期不能为空");
 m_EmployeeBorthday=Validate(value);
}
void __fastcall TsdEmployee:: SetEmployeeIDCard(AnsiString value)
{
 m_EmployeeIDCard=value;
}
void __fastcall TsdEmployee:: SetEmployeeDept(AnsiString value)
{
if(value.IsEmpty())
  throw Exception("员工所在部门号不能为空");
  m_EmployeeDept=value;
}
void __fastcall TsdEmployee:: SetEmployeeRank(AnsiString value)
{
 if(value.IsEmpty())
   throw Exception("员工职位不能为空");
 m_EmployeeRank=value;
}
void __fastcall TsdEmployee:: SetEmployeeTow(AnsiString value)
{
 if(value.IsEmpty())
    throw Exception("员工工种不能为空");
 m_EmployeeTow=value;
}
void __fastcall TsdEmployee:: SetEmployeeShop(AnsiString value)
{
 if(!value.IsEmpty()&&value!=m_EmployeeShop)
  {
   m_Query->Close();
   m_Query->SQL->Clear();
   m_Query->SQL->Add("select * from sdShop where ShopDeptCode='"+m_EmployeeDept+"' and ShopCode='"+value+"'");
   m_Query->Open();
   if(m_Query->RecordCount<1)
     {
      m_Query->Close();
      throw Exception("该部门"+m_EmployeeDept+"没有编号为："+value+"的车间！");
     }
   m_Query->Close();
  }
  m_EmployeeShop=value;
}
void __fastcall TsdEmployee:: SetEmployeeTeam(AnsiString value)
{
 if(!value.IsEmpty()&&value!=m_EmployeeTeam)
  {
   m_Query->Close();
   m_Query->SQL->Clear();
   m_Query->SQL->Add("select * from sdTeam where TeamShopCode='"+m_EmployeeShop+"' and TeamCode='"+value+"'");
   m_Query->Open();
   if(m_Query->RecordCount<1)
     {
      m_Query->Close();
      throw Exception("该车间"+m_EmployeeShop+"没有编号为："+value+"的班组！");
     }
   m_Query->Close();
  }
  m_EmployeeTeam=value;
}
void __fastcall TsdEmployee:: SetEmployeeCdate(AnsiString value)
{
 if(value.IsEmpty())
   throw Exception("员工入职日期不能为空");
 if(Validate(value)<m_EmployeeBorthday)
    throw Exception("入职日期不能小于出生日期");
 m_EmployeeCdate=Validate(value);
}
void __fastcall TsdEmployee:: SetEmployeeLdate(AnsiString value)
{
 m_EmployeeLdate=Validate(value);
}
void __fastcall TsdEmployee:: SetEmployeeSkill(AnsiString value)
{
 if(value.IsEmpty())
    throw Exception("员工技能代码不能为空");
 m_EmployeeSkill=value;
}
void __fastcall TsdEmployee:: SetEmployeeAddr(AnsiString value)
{
 m_EmployeeAddr=value;
}
void __fastcall TsdEmployee:: SetEmployeeZip(AnsiString value)
{
 m_EmployeeZip=value;
}
void __fastcall TsdEmployee:: SetEmployeeTel(AnsiString value)
{
 m_EmployeeTel=value;
}
void __fastcall TsdEmployee:: SetEmployeeRpr(AnsiString value)
{
  m_EmployeeRpr=value;
}
void __fastcall TsdEmployee:: SetEmployeeWct(int    value)
{
 if(value!=1&&value!=2)
   throw Exception("员工工资计算方式非法");
 m_EmployeeWct=value;
}
void __fastcall TsdEmployee:: SetEmployeePhoto(AnsiString value)
{
 m_EmployeePhoto=value;
}
void __fastcall TsdEmployee:: SetEmployeeUser(AnsiString value)
{
 m_EmployeeUser=value;
}
void __fastcall TsdEmployee:: SetEmployeeState(int    value)
{
       m_EmployeeState=value;
}
//---------------------------------------------------------------------------
AnsiString TsdEmployee::GetFieldValue(euEmployee sdFieldName)
{
    switch(sdFieldName)
    {
      case fiEmployeeCode:
           return EmployeeCode;
      case fiEmployeeName:
           return EmployeeName;
      case fiEmployeeSex:
           return EmployeeSex;
      case fiEmployeeEdu:
           return EmployeeEdu;
      case fiEmployeeBorthday:
           return EmployeeBorthday;
      case fiEmployeeIDCard:
           return EmployeeIDCard;
      case fiEmployeeDept:
           return EmployeeDept;
      case fiEmployeeRank:
           return EmployeeRank;
      case fiEmployeeTow:
           return EmployeeTow;
      case fiEmployeeShop:
           return EmployeeShop;
      case fiEmployeeTeam:
           return EmployeeTeam;
      case fiEmployeeCdate:
           return EmployeeCdate;
      case fiEmployeeLdate:
           return EmployeeLdate;
      case fiEmployeeSkill:
           return EmployeeSkill;
      case fiEmployeeAddr:
           return EmployeeAddr;
      case fiEmployeeZip:
           return EmployeeZip;
      case fiEmployeeTel:
           return EmployeeTel;
      case fiEmployeeRpr:
           return EmployeeRpr;
      case fiEmployeeWct:
           return EmployeeWct;
      case fiEmployeePhoto:
           return EmployeePhoto;
      case fiEmployeeUser:
           return EmployeeUser;
      case fiEmployeeSysDate:
           return EmployeeSysDate;
      case fiEmployeeState:
           return EmployeeState;
      case fiEmployeeLr:
           return EmployeeLr;     
     }
         throw Exception("当前字段未定义可取值");  
}
//---------------------------------------------------------------------------
void TsdEmployee::SetFieldValue(euEmployee sdFieldName, AnsiString value)
{
     value=Trim(value);
    switch(sdFieldName)
     {
    case fiEmployeeCode:  
         EmployeeCode=value;
          break;
    case fiEmployeeName:  
         EmployeeName=value;
          break;
    case fiEmployeeSex:  
         EmployeeSex=value.ToInt();
          break;
    case fiEmployeeEdu:  
         EmployeeEdu=value.ToInt();
          break;
    case fiEmployeeBorthday:  
         EmployeeBorthday=value;
          break;
    case fiEmployeeIDCard:  
         EmployeeIDCard=value;
          break;
    case fiEmployeeDept:  
         EmployeeDept=value;
          break;
    case fiEmployeeRank:  
         EmployeeRank=value;
          break;
    case fiEmployeeTow:  
         EmployeeTow=value;
          break;
    case fiEmployeeShop:  
         EmployeeShop=value;
          break;
    case fiEmployeeTeam:  
         EmployeeTeam=value;
          break;
    case fiEmployeeCdate:  
         EmployeeCdate=value;
          break;
    case fiEmployeeLdate:  
         EmployeeLdate=value;
          break;
    case fiEmployeeSkill:  
         EmployeeSkill=value;
          break;
    case fiEmployeeAddr:  
         EmployeeAddr=value;
          break;
    case fiEmployeeZip:  
         EmployeeZip=value;
          break;
    case fiEmployeeTel:  
         EmployeeTel=value;
          break;
    case fiEmployeeRpr:  
         EmployeeRpr=value;
          break;
    case fiEmployeeWct:  
         EmployeeWct=value.ToInt();
          break;
    case fiEmployeePhoto:  
         EmployeePhoto=value;
          break;
    case fiEmployeeUser:  
         EmployeeUser=value;
          break;
    case fiEmployeeState:  
         EmployeeState=value.ToInt();
          break;
    default: 
        throw Exception("当前字段未定义可赋值");  
          
      }
}
//---------------------------------------------------------------------------
TsdEmployee::TsdEmployee(TDataComm *DC)
                :TsdStandard(DC)
{
    try
    {
        QueryString="SELECT * FROM sdEmployee";
        FilterString="";
        OrderString="EmployeeDept,EmployeeCode";
        EmptyValue(0);
        EmptyValue(1);
        
    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}
TsdEmployee::TsdEmployee()
                :TsdStandard()
{
    try
    {
        QueryString="SELECT * FROM sdEmployee";
        FilterString="";
        OrderString="EmployeeDept,EmployeeCode";
        EmptyValue(0);
        EmptyValue(1);

    }
    catch(Exception &e)
    {
        ShowMessage(e.Message);
    }
}

//---------------------------------------------------------------------------
TsdEmployee::~TsdEmployee()
{
  try{
     }
  catch(...)
    {
     throw Exception("析构函数出错");
    }
}
//---------------------------------------------------------------------------
void TsdEmployee::BackupValue()
{
      b_EmployeeCode=m_EmployeeCode;
      b_EmployeeName=m_EmployeeName;
      b_EmployeeSex=m_EmployeeSex;
      b_EmployeeEdu=m_EmployeeEdu;
      b_EmployeeBorthday=m_EmployeeBorthday;
      b_EmployeeIDCard=m_EmployeeIDCard;
      b_EmployeeDept=m_EmployeeDept;
      b_EmployeeRank=m_EmployeeRank;
      b_EmployeeTow=m_EmployeeTow;
      b_EmployeeShop=m_EmployeeShop;
      b_EmployeeTeam=m_EmployeeTeam;
      b_EmployeeCdate=m_EmployeeCdate;
      b_EmployeeLdate=m_EmployeeLdate;
      b_EmployeeSkill=m_EmployeeSkill;
      b_EmployeeAddr=m_EmployeeAddr;
      b_EmployeeZip=m_EmployeeZip;
      b_EmployeeTel=m_EmployeeTel;
      b_EmployeeRpr=m_EmployeeRpr;
      b_EmployeeWct=m_EmployeeWct;
      b_EmployeePhoto=m_EmployeePhoto;
      b_EmployeeUser=m_EmployeeUser;
      b_EmployeeSysDate=m_EmployeeSysDate;
      b_EmployeeState=m_EmployeeState;
      b_EmployeeLr=m_EmployeeLr;
}
//---------------------------------------------------------------------------
void TsdEmployee::RestoreValue()
{
      m_EmployeeCode=b_EmployeeCode;
      m_EmployeeName=b_EmployeeName;
      m_EmployeeSex=b_EmployeeSex;
      m_EmployeeEdu=b_EmployeeEdu;
      m_EmployeeBorthday=b_EmployeeBorthday;
      m_EmployeeIDCard=b_EmployeeIDCard;
      m_EmployeeDept=b_EmployeeDept;
      m_EmployeeRank=b_EmployeeRank;
      m_EmployeeTow=b_EmployeeTow;
      m_EmployeeShop=b_EmployeeShop;
      m_EmployeeTeam=b_EmployeeTeam;
      m_EmployeeCdate=b_EmployeeCdate;
      m_EmployeeLdate=b_EmployeeLdate;
      m_EmployeeSkill=b_EmployeeSkill;
      m_EmployeeAddr=b_EmployeeAddr;
      m_EmployeeZip=b_EmployeeZip;
      m_EmployeeTel=b_EmployeeTel;
      m_EmployeeRpr=b_EmployeeRpr;
      m_EmployeeWct=b_EmployeeWct;
      m_EmployeePhoto=b_EmployeePhoto;
      m_EmployeeUser=b_EmployeeUser;
      m_EmployeeSysDate=b_EmployeeSysDate;
      m_EmployeeState=b_EmployeeState;
      m_EmployeeLr=b_EmployeeLr;
}
//---------------------------------------------------------------------------
void TsdEmployee::EmptyValue(int Index)
{
   switch(Index)
   {
    case 0:
        m_EmployeeCode="";
        m_EmployeeName="";
        m_EmployeeSex=0;
        m_EmployeeEdu=0;
        m_EmployeeBorthday="";
        m_EmployeeIDCard="";
        m_EmployeeDept="";
        m_EmployeeRank="";
        m_EmployeeTow="";
        m_EmployeeShop="";
        m_EmployeeTeam="";
        m_EmployeeCdate="";
        m_EmployeeLdate="";
        m_EmployeeSkill="";
        m_EmployeeAddr="";
        m_EmployeeZip="";
        m_EmployeeTel="";
        m_EmployeeRpr="";
        m_EmployeeWct=0;
        m_EmployeePhoto="";
        m_EmployeeUser="";
        m_EmployeeSysDate="";
        m_EmployeeState=0;
        m_EmployeeLr="";
    break;
    case 1:
        b_EmployeeCode="";
        b_EmployeeName="";
        b_EmployeeSex=0;
        b_EmployeeEdu=0;
        b_EmployeeBorthday="";
        b_EmployeeIDCard="";
        b_EmployeeDept="";
        b_EmployeeRank="";
        b_EmployeeTow="";
        b_EmployeeShop="";
        b_EmployeeTeam="";
        b_EmployeeCdate="";