employee.cpp

速达开源ERP系统

    ClientGroup->AddComponent(2,false,true,false,seEmployeeCode,seEmployeeCode->Name);
    ClientGroup->AddComponent(2,true,true,true,deEmployeeLdate,deEmployeeLdate->Name);
    ClientGroup->AddComponent(2,true,true,true,scEmployeeState,scEmployeeState->Name);
    ClientGroup->AddComponent(2,true,true,true,scEmployeeLr,scEmployeeLr->Name);        
    scEmployeeEdu->ClearAll();
    scEmployeeEdu->AddItems("小学","1");
    scEmployeeEdu->AddItems("初中","2");
    scEmployeeEdu->AddItems("高中","3");
    scEmployeeEdu->AddItems("中专","4");
    scEmployeeEdu->AddItems("大专","5");
    scEmployeeEdu->AddItems("本科","6");
    scEmployeeEdu->AddItems("硕士","7");
    scEmployeeEdu->AddItems("博士","8");
    scEmployeeEdu->AddItems("博士后","9");
    scEmployeeSex->ClearAll();
    scEmployeeSex->AddItems("男","0");
    scEmployeeSex->AddItems("女","1");
    scEmployeeWct->ClearAll();
    scEmployeeWct->AddItems("计时","1");
    scEmployeeWct->AddItems("计件","2");
    FillComboBox(scEmployeeRank,"select RankName='('+RankCode+')'+RankName,RankCode from SdRank order by RankCode","RankName","RankCode");
    FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
    FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
    FillComboBox(scEmployeeTow,"Select TowName=TowCode+'-'+TowName,TowCode from SdTow order by TowCode","TowName","TowCode");
    FillComboBox(scEmployeeSkill,"Select SkillCode,SkillName from sdSkill order by SkillCode","SkillName","SkillCode");
    FillEdit(scEmployeeDept,"Select DeptCode,DeptName from sdDept order by DeptCode","DeptName","DeptCode");
    FillComboBox(scEmployeeLr,"select LrCode,LrDesc from sdLr","LrDesc","LrCode");    

}

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

void __fastcall TfrmEmployee::TreeViewLocation()
{
    AnsiString s,m;
    s = GetFieldValue(fiEmployeeCode);

    for(int i = 1 ; i < tvEmployee->Items->Count ; i ++)
    {
        m = tvEmployee->Items->Item[i]->Text;
        m = m.SubString(2,m.AnsiPos(")")-2);
        if(m == s)
        {
            tvEmployee->Selected = tvEmployee->Items->Item[i];
            break;
        }
    }
}

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

void __fastcall TfrmEmployee::FormShow(TObject *Sender)
{

    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
    muFirstClick(Sender);

}

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

void __fastcall TfrmEmployee::tvEmployeeChange(TObject *Sender,
      TTreeNode *Node)
{

    AnsiString m;
    if(Node == tvEmployee->Items->Item[0])
    {
       ClearControl(false);
        return;
    }

    if(tvEmployee->Selected->StateIndex == 0 )
    {
       ClearControl(false);
        return;
    }

    m = Node->Text;
    m = m.SubString(2,m.AnsiPos(")")-2);
    comServer->LocateByKey(WideString(m));

    if (comServer->Eof == 0)
    {
     GetDataFromComObject();
    }
}

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


void __fastcall TfrmEmployee::muAddDetailClick(TObject *Sender)

{
    if((tvEmployee->Selected->StateIndex == 1)||(tvEmployee->Selected->Level==0))
    {
        ::MessageBox(Handle,"该节点不是分类节点,不能增加.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    AnsiString m;
    TRecBaseForm::muAddDetailClick(Sender);
    m=tvEmployee->Selected->Text;
    scEmployeeDept->LocateKey(m.SubString(2,m.AnsiPos(")")-2));
    FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop where ShopDeptCode='"+scEmployeeDept->ItemData[cbItem2]+"' order by ShopCode","ShopName","ShopCode");
    scEmployeeTeam->ClearAll(); 
    spBtnPict->Enabled=true;

}

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

void __fastcall TfrmEmployee::muEditDetailClick(TObject *Sender)
{

    if(tvEmployee->Selected->Level==0)
    {
        ::MessageBox(Handle,"该顶点不能编辑.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(tvEmployee->Selected->StateIndex == 0)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(GetFieldValue(fiEmployeeState)=="1")
    {
        ::MessageBox(Handle,"该员工已离职,不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
     }   
    KeyCode=scEmployeeShop->ItemData[cbItem2];
    FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop where ShopDeptCode='"+scEmployeeDept->ItemData[cbItem2]+"' order by ShopCode","ShopName","ShopCode");
    scEmployeeShop->LocateKey(KeyCode);
    KeyCode=scEmployeeTeam->ItemData[cbItem2];
    FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam  where TeamShopCode='"+scEmployeeShop->ItemData[cbItem2]+"' order by TeamCode","TeamName","TeamCode");
    scEmployeeTeam->LocateKey(KeyCode);
    TRecBaseForm::muEditDetailClick(Sender);
    spBtnPict->Enabled=true;
}

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

void __fastcall TfrmEmployee::muDeleteDetailClick(TObject *Sender)
{
    if(tvEmployee->Selected->Level==0)
    {
        ::MessageBox(Handle,"该顶点不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(tvEmployee->Selected->StateIndex == 0)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
/*    if(::MessageBox(Handle,
        "你真的要删除该员工吗?",
             "注意",
        MB_YESNO|MB_ICONQUESTION) == IDNO)
        return;*/
    TRecBaseForm::muDeleteDetailClick(Sender);
}

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





void __fastcall TfrmEmployee::spBtnPictClick(TObject *Sender)
{
 if(OpenPictureDialog1->Execute())
 lbEmployeePhoto->Caption=ExtractFileName(OpenPictureDialog1->FileName);
}
//---------------------------------------------------------------------------
void  __fastcall TfrmEmployee::RefreshUpdateData(int MsgSrc,int MsgType)
{
 switch(MsgSrc)
   {
  case euSdRank:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeRank->ItemData[cbItem2];
        FillComboBox(scEmployeeRank,"select RankName='('+RankCode+')'+RankName,RankCode from SdRank","RankName","RankCode");
        scEmployeeRank->LocateKey(KeyCode);
        }
        break;
  case euSdShop:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeShop->ItemData[cbItem2];
        if(CurrentState==caNormal)
          FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop","ShopName","ShopCode");
        else
          FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop where ShopDeptCode='"+scEmployeeDept->ItemData[cbItem2]+"' order by ShopCode","ShopName","ShopCode");
        scEmployeeShop->LocateKey(KeyCode);
        }
        break;
  case euSdTeam:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeTeam->ItemData[cbItem2];
        if(CurrentState==caNormal)
          FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam","TeamName","TeamCode");
        else
          FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam  where TeamShopCode='"+scEmployeeShop->ItemData[cbItem2]+"' order by TeamCode","TeamName","TeamCode");
        scEmployeeTeam->LocateKey(KeyCode);
        }
        break;
  case euSdTow:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeTow->ItemData[cbItem2];
        FillComboBox(scEmployeeTow,"Select TowName=TowCode+'-'+TowName,TowCode from SdTow","TowName","TowCode");
        scEmployeeTow->LocateKey(KeyCode);
        }
        break;
  case euSdSkill:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeSkill->ItemData[cbItem2];
        FillComboBox(scEmployeeSkill,"Select SkillCode,SkillName from sdSkill","SkillName","SkillCode");
        scEmployeeSkill->LocateKey(KeyCode);
        }
        break;
  case euSdDept:
      if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scEmployeeDept->ItemData[cbItem2];
        FillEdit(scEmployeeDept,"Select DeptCode,DeptName from sdDept","DeptName","DeptCode");
        scEmployeeDept->LocateKey(KeyCode);
        }
        break;
   }
}





void __fastcall TfrmEmployee::scEmployeeShopClick(TObject *Sender)
{
  KeyCode=scEmployeeTeam->ItemData[cbItem2];
  FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam  where TeamShopCode='"+scEmployeeShop->ItemData[cbItem2]+"' order by TeamCode","TeamName","TeamCode");
  scEmployeeTeam->LocateKey(KeyCode);
}
//---------------------------------------------------------------------------

void __fastcall TfrmEmployee::muSaveClick(TObject *Sender)
{
    TRecBaseForm::muSaveClick(Sender);
    KeyCode=scEmployeeShop->ItemData[cbItem2];
    FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
    scEmployeeShop->LocateKey(KeyCode);
    KeyCode=scEmployeeTeam->ItemData[cbItem2];
    FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
    scEmployeeTeam->LocateKey(KeyCode);

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

void __fastcall TfrmEmployee::muCancelClick(TObject *Sender)
{
    TRecBaseForm::muCancelClick(Sender);
    KeyCode=scEmployeeShop->ItemData[cbItem2];
    FillComboBox(scEmployeeShop,"Select ShopCode,ShopName from sdShop order by ShopCode","ShopName","ShopCode");
    scEmployeeShop->LocateKey(KeyCode);
    KeyCode=scEmployeeTeam->ItemData[cbItem2];
    FillComboBox(scEmployeeTeam,"select TeamCode,TeamName from sdTeam order by TeamCode","TeamName","TeamCode");
    scEmployeeTeam->LocateKey(KeyCode);

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


void __fastcall TfrmEmployee::seEmployeeCodeKeyDown(TObject *Sender,
      WORD &Key, TShiftState Shift)
{
     if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seEmployeeCode->Text));
      GetDataFromComObject();
    }

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