dept.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Dept.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma resource "*.dfm"
TfrmDept *frmDept;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmDept::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::ClearControl(bool BringToNext)
{
    if(BringToNext)
       return;
    labDeptUpper->Caption="";
    seDeptItem->Text = "";
    seDeptName->Text = "";
    seDeptLinkman->Text="";
    seDeptAddr->Text="";
    seDeptTel->Text="";
    seDeptFax->Text="";
    seDeptEmail->Text="";
    seDeptZip->Text="";
    memDeptDesc->Text= "";
    seDeptEnd->Checked = false;

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

void __fastcall TfrmDept::GetDataFromComObject()
{
    labDeptUpper->Caption=GetFieldValue(fiDeptUpperCode);
    seDeptItem->Text    = GetFieldValue(fiDeptItem);
    seDeptName->Text    = GetFieldValue(fiDeptName);
    seDeptLinkman->Text = GetFieldValue(fiDeptLinkman);
    seDeptAddr->Text    = GetFieldValue(fiDeptAddr);
    seDeptTel->Text     = GetFieldValue(fiDeptTel);
    seDeptFax->Text     = GetFieldValue(fiDeptFax);
    seDeptEmail->Text   = GetFieldValue(fiDeptEmail);
    seDeptZip->Text     = GetFieldValue(fiDeptZip);
    memDeptDesc->Text   = GetFieldValue(fiDeptDesc);
    seDeptEnd->Checked=   GetFieldValue(fiDeptEnd) == "1";

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

void __fastcall TfrmDept::SendDataToComObject()
{
    AnsiString strLevel, strErr,strTemp;
    int Level;
    strLevel= tvDept->Selected->Level;
    Level=strLevel.ToInt();
    if(CurrentState==4)
      Level++;
    //输入的代码长度必须等于设定长度
    strTemp=seDeptItem->Text;
    if (strTemp.Length() != TierLen[Level])
    {
     strErr="本级编码长度必须为:  "+AnsiString(TierLen[Level]);
     throw Exception(strErr.c_str());
    }
    if((labDeptUpper->Caption+seDeptItem->Text).Length()>18)
         throw Exception("上级编码长度将超过18");
    WriteFieldValue(comServer,fiDeptUpperCode,m_DeptUpperCode);
    WriteFieldValue(comServer,fiDeptLevel,AnsiString(m_DeptLevel));
    WriteFieldValue(comServer,fiDeptItem,seDeptItem->Text);       // DeptItem
    WriteFieldValue(comServer,fiDeptName,seDeptName->Text);       // DeptName
    WriteFieldValue(comServer,fiDeptLinkman,seDeptLinkman->Text); // DeptLinkman
    WriteFieldValue(comServer,fiDeptAddr,seDeptAddr->Text);       // DeptAddr
    WriteFieldValue(comServer,fiDeptTel,seDeptTel->Text);         // DeptTel
    WriteFieldValue(comServer,fiDeptFax,seDeptFax->Text);         // DeptFax
    WriteFieldValue(comServer,fiDeptEmail,seDeptEmail->Text);     // DeptEmail
    WriteFieldValue(comServer,fiDeptZip,seDeptZip->Text);         // DeptLinkman
    WriteFieldValue(comServer,fiDeptDesc,memDeptDesc->Text);      // DeptDesc
    WriteFieldValue(comServer,fiDeptEnd,seDeptEnd->Checked ? "1":"0");
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::WaitUserInput()
{
    seDeptItem->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::RefreshGridData(int mAction)
{
    AnsiString  tempText;
    if (mAction == 0)
    {
        if(tvDept->Selected)
        {
            tempText = "(" + GetFieldValue(fiDeptCode) + ")" + GetFieldValue(fiDeptName);
            tvDept->Items->AddChild(tvDept->Selected,tempText);
            tvDept->Selected->Expanded = true;
        }
    }
    else if(mAction == 1)
    {
        tvDept->Selected->Text = "(" + GetFieldValue(fiDeptCode) + ")"
             + GetFieldValue(fiDeptName);

    }
    else if(mAction == 2)
    {
        tvDept->Items->Delete(tvDept->Selected);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::FillGridWithData()
{
     AnsiString  tempText;
     static TTreeNode* TempNode[7];
     int mLevel;

     tvDept->Items->Clear();
     TempNode[0]=tvDept->Items->Add(NULL,"所有的部门");
       comServer->MoveFirst();
     while (comServer->Eof == 0)
     {
        mLevel = StrToInt(GetFieldValue(fiDeptLevel));
        if(mLevel <= 0)
        {
            ::MessageBox(Handle,"部门层级码的级别不能小于零。","错误",MB_OK|MB_ICONSTOP);
            comServer->MoveNext();
            continue;
        }
        for(int i=0;i<8;i++)
        {
          if(TempNode[mLevel-1]->Text=="")
              mLevel--;
        }
        tempText = "(" + GetFieldValue(fiDeptCode) + ")" + GetFieldValue(fiDeptName);
        TempNode[mLevel] = tvDept->Items->AddChild(TempNode[mLevel-1],tempText);
        comServer->MoveNext();
     }
     tvDept->Selected=TempNode[0];
     TempNode[0]->Expand(false);
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, Panel1,Panel1->Name);
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::TreeViewLocation()
{
    AnsiString s,c;
    s = GetFieldValue(fiDeptCode);
    for(int i = 1 ; i < tvDept->Items->Count ; i ++)
    {
        c = tvDept->Items->Item[i]->Text;    //取关键字
        c = c.SubString(2,c.AnsiPos(")")-2);
        if(s == c)
        {
            tvDept->Selected = tvDept->Items->Item[i];
            break;
        }
    }
}
//---------------------------------------------------------------------------

__fastcall TfrmDept::TfrmDept(TComponent* Owner)
       : TRecBaseForm(Owner,euSdDept,"")
{
   InitTierLen();
   m_DeptLevel=0;
   m_DeptUpperCode="";
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    labItemLength->Caption=AnsiString(TierLen[1]);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::tvDeptChange(TObject *Sender,
      TTreeNode *Node)
{
    ClearControl(false);
    AnsiString s;
    if (Node == tvDept->Items->Item[0])
    {
        return;
    }
    s = Node->Text;
    s = s.SubString(2,s.AnsiPos(")")-2);
    comServer->LocateByKey(s);
    if (comServer->Eof == 0)
    {
        GetDataFromComObject();
    }
    labItemLength->Caption=AnsiString(TierLen[tvDept->Selected->Level]);
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::muAddDetailClick(TObject *Sender)
{
    AnsiString  s;
     if(seDeptEnd->Checked==true)
    {
       ::MessageBox(Handle,"当前是末级，不能增加下一级.","操作错误",MB_OK|MB_ICONSTOP);
       return;
    }
    else
    {
        m_DeptLevel = tvDept->Selected->Level;
        if(TierLen[m_DeptLevel+1]==0)
         throw Exception("部门资料不能超过'"+AnsiString(m_DeptLevel+1)+"'级");
        labItemLength->Caption=AnsiString(TierLen[m_DeptLevel+1]);
        TRecBaseForm::muAddDetailClick(Sender);
        if(m_DeptLevel == 0)
        {
           m_DeptUpperCode="";
           labDeptUpper->Caption = "";
        }
        else
        {
            s = tvDept->Selected->Text;
            s = s.SubString(2,s.AnsiPos(")")-2);
            labDeptUpper->Caption=s;
            m_DeptUpperCode=s;
        }
        m_DeptLevel++;
     }
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::muEditDetailClick(TObject *Sender)
{
    AnsiString  s;
    m_DeptLevel=tvDept->Selected->Level;
    if(tvDept->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    TRecBaseForm::muEditDetailClick(Sender);
    s = tvDept->Selected->Parent->Text;
    if (tvDept->Selected->Parent->Level == 0)
        //当选择的节点的父节点是根节点时
        s = "";
    else
        s = s.SubString(2,s.AnsiPos(")")-2);
    m_DeptUpperCode=s;
    if(EnabledEnd(labDeptUpper->Caption+seDeptItem->Text))  //判断末级Enabled
      seDeptEnd->Enabled=true;
    else
      seDeptEnd->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::muDeleteDetailClick(TObject *Sender)
{
    if(tvDept->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

    if(tvDept->Selected->HasChildren)
    {
        if(::MessageBox(Handle,"该分类码下包含有子分类码，\n本操作将会删除它的全部子分类码。",
                      "注意", MB_YESNO|MB_ICONQUESTION) == IDYES)
        {
            TRecBaseForm::muDeleteDetailClick(Sender);
            //如果删除根节点下的所有部门
            if (tvDept->Items->Count > 1)
            {
               comServer->Query();
               FillGridWithData();
               comServer->MoveFirst();
               GetDataFromComObject();
            }
            else
               ClearControl(false);
            return;
        }
    }
    else
    {
      TRecBaseForm::muDeleteDetailClick(Sender);
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::muFirstClick(TObject *Sender)
{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::muPreviousClick(TObject *Sender)
{
    TRecBaseForm::muPreviousClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::muNextClick(TObject *Sender)
{
    TRecBaseForm::muNextClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------

void __fastcall TfrmDept::muSaveClick(TObject *Sender)
{
    AnsiString tempst;
    tempst= labDeptUpper->Caption+seDeptItem->Text;
    if(tempst.Length()>18)
    {
       ::MessageBox(Handle,"上级编码长度将超过18.","操作错误",MB_OK|MB_ICONSTOP);
    }
    else
    {
      TRecBaseForm::muSaveClick(Sender);
    }

}
//---------------------------------------------------------------------------
void __fastcall TfrmDept::InitTierLen()
{
 //从参数表sdparameter中获取分类码各层字符长度，并存入数组
 TComResultSet *pResultSet=NewResultSet();
 AnsiString strSQL,strItem,strValue,TempAsRes;
 strSQL="select moduleformname,modulecaption from sdmodule where moduleformname='"+this->Name+"'";
 try
 {
   pResultSet->Close();
   pResultSet->Open(strSQL,"");
   TempAsRes=pResultSet->FieldByName("modulecaption");
   pResultSet->Close();
   pResultSet->Open("select parametercode from sdparameter where parametername='"+TempAsRes+"'","");
   TempAsRes=pResultSet->FieldByName("parametercode");
   strSQL=" select parameteritem,parametervalue from sdparameter ";
   strSQL=strSQL+" where parametertype = 2 and parametercode like '"+TempAsRes+"%'";
   pResultSet->Close();
   pResultSet->Open(strSQL,"");
   //clear the TierLen Array
   for(int i=0;i<10;i++)
    TierLen[i]=0;
   pResultSet->MoveFirst();
   while(!pResultSet->Eof)
   {
    strItem=pResultSet->FieldByName("parameteritem");
    strValue=pResultSet->FieldByName("parametervalue");
    if ((strItem.ToIntDef(0) != 0)&&(strValue.ToIntDef(0) != 0))
    if ((strItem.ToInt()>0) && (strItem.ToInt()<18))
      TierLen[strItem.ToInt()]=strValue.ToInt();
     pResultSet->MoveNext();
   }
  }
  __finally
  {
    delete pResultSet;
  }
}
//---------------------------------------------------------------------------
int __fastcall TfrmDept::GetTierLen(int tiernum)
{
 //从数组中获取指定层的字符长度
 if ((tiernum>0)&&(tiernum<19)) //层数从1-18为有效
  return TierLen[tiernum];
 else
  return 0;
}
//---------------------------------------------------------------------------
bool  __fastcall TfrmDept::EnabledEnd( AnsiString Keycode)
{
  //如果有下一级则End 为false
     TComResultSet *TResultSet=NewResultSet();
     AnsiString strSQL;
     strSQL="select DeptUpperCode from sdDept where DeptUpperCode='"+Keycode+"'";
     TResultSet->Close();
     TResultSet->Open(strSQL,"");
     if(TResultSet->RecordCount>0)
     {
       delete TResultSet;
       return false;
     }
     else
     {
       delete TResultSet;
       return true;
     }  
}
//---------------------------------------------------------------------------