area.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Area.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "fpanel"
#pragma link "RecBaseForm"
#pragma link "SDEdit"
#pragma link "DateEdit"
#pragma resource "*.dfm"
#include "ParMat.h"
#include "QuForm.h"
TfrmArea *frmArea;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmArea::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
      labAreaUpperCode->Caption="";
      seAreaItem-> Text = "";
      seAreaName-> Text = "";
      memAreaDesc->Text = "";
      chkAreaEnd->Checked = false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmArea::GetDataFromComObject()
{
    labAreaUpperCode->Caption=GetFieldValue(fiAreaUpperCode);
    seAreaItem->Text  =  GetFieldValue(fiAreaItem);
    seAreaName->Text  =  GetFieldValue(fiAreaName);
    memAreaDesc->Text  =  GetFieldValue(fiAreaDesc);
    chkAreaEnd->Checked=   GetFieldValue(fiAreaEnd) == "1";
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::SendDataToComObject()
{
    AnsiString strLevel, strErr,strTemp;
    int Level;
    strLevel= tvArea->Selected->Level;
    Level=strLevel.ToInt();
    if(CurrentState==4)
      Level++;
     //输入的代码长度必须等于设定长度
    strTemp=seAreaItem->Text;
    if (strTemp.Length() != TierLen[Level])
    {
     strErr="本级编码长度必须为:  "+AnsiString(TierLen[Level]);
     throw Exception(strErr.c_str());
    }
    if((labAreaUpperCode->Caption+seAreaItem->Text).Length()>18)
         throw Exception("上级编码长度将超过18");
    WriteFieldValue(comServer,fiAreaUpperCode,m_AreaUpperCode);
    WriteFieldValue(comServer,fiAreaLevel,AnsiString(m_AreaLevel));
    WriteFieldValue(comServer,fiAreaItem,seAreaItem->Text);   // AreaItem
    WriteFieldValue(comServer,fiAreaName,seAreaName->Text);   // AreaName
    WriteFieldValue(comServer,fiAreaDesc,memAreaDesc->Text);  // AreaDesc
    WriteFieldValue(comServer,fiAreaEnd,chkAreaEnd->Checked ? "1":"0");
}
//---------------------------------------------------------------------------

void __fastcall TfrmArea::WaitUserInput()
{
    seAreaItem->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::RefreshGridData(int mAction)
{
    AnsiString  tempText;
    if (mAction == 0)       //增加
    {
        if(tvArea->Selected)
        {
            tempText = "(" + GetFieldValue(fiAreaCode) + ")" + GetFieldValue(fiAreaName);
            tvArea->Items->AddChild(tvArea->Selected,tempText);
            tvArea->Selected->Expanded = true;
        }
    }
    else if(mAction == 1)    //修改
    {
        tvArea->Selected->Text = "(" + GetFieldValue(fiAreaCode) + ")"
             + GetFieldValue(fiAreaName);
    }
    else if(mAction == 2)     //删除
    {
        tvArea->Items->Delete(tvArea->Selected);
    }

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

void __fastcall TfrmArea::FillGridWithData()
{
     AnsiString  tempText,Qucode,Qucodenext;
     static TTreeNode* TempNode[7];
     int mLevel;
     tvArea->Items->Clear();
     TempNode[0]=tvArea->Items->Add(NULL,"所有的区域");
     comServer->MoveFirst();
     while (comServer->Eof == 0)
     {

        mLevel  =   StrToInt(GetFieldValue(fiAreaLevel));
        if( (mLevel <= 0) || (mLevel > 7))
        {
            ::MessageBox(Handle,"区域层级的级别不能大于7。","错误",MB_OK|MB_ICONSTOP);
            comServer->MoveNext();
            continue;
        }
        tempText = "(" + GetFieldValue(fiAreaCode) + ")" + GetFieldValue(fiAreaName);
        TempNode[mLevel] = tvArea->Items->AddChild(TempNode[mLevel-1],tempText);
        comServer->MoveNext();
     }
     tvArea->Selected=TempNode[0];
     TempNode[0]->Expand(false);
}
//---------------------------------------------------------------------------

void __fastcall TfrmArea::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, Panel1,Panel1->Name);
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::TreeViewLocation()
{
    AnsiString s,c;
    s = GetFieldValue(fiAreaCode);
    for(int i = 1 ; i < tvArea->Items->Count ; i ++)
    {
        c = tvArea->Items->Item[i]->Text;    //取关键字
        c = c.SubString(2,c.AnsiPos(")")-2);
        if(s == c)
        {
            tvArea->Selected = tvArea->Items->Item[i];
            break;
        }
    }
}
//---------------------------------------------------------------------------

__fastcall TfrmArea::TfrmArea(TComponent* Owner)
       : TRecBaseForm(Owner,euSdArea,"")
{
    InitTierLen();
    m_AreaLevel=0;
    m_AreaUpperCode="";
}
//---------------------------------------------------------------------------

void __fastcall TfrmArea::FormShow(TObject *Sender)
{
    FillGridWithData();
    comServer->MoveFirst();
    labItemLength->Caption=AnsiString(TierLen[1]);
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::tvAreaChange(TObject *Sender,
      TTreeNode *Node)
{
    ClearControl(false);
    AnsiString s;
    if(Node == tvArea->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[tvArea->Selected->Level]);
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::muAddDetailClick(TObject *Sender)
{
    AnsiString  s;
    if(chkAreaEnd->Checked==true)
    {
       ::MessageBox(Handle,"当前是末级，不能增加下一级.","操作错误",MB_OK|MB_ICONSTOP);
       return;
    }
    else
    {
       m_AreaLevel = tvArea->Selected->Level;
       if(TierLen[m_AreaLevel+1]==0)
         throw Exception("地区代码不能超过'"+AnsiString(m_AreaLevel+1)+"'级");
       labItemLength->Caption=AnsiString(TierLen[m_AreaLevel+1]);
       TRecBaseForm::muAddDetailClick(Sender);
       if(m_AreaLevel == 0)
       {
           m_AreaUpperCode="";
           labAreaUpperCode->Caption = "";
       }
       else
       {
           s = tvArea->Selected->Text;
           s = s.SubString(2,s.AnsiPos(")")-2);
           labAreaUpperCode->Caption=s;
           m_AreaUpperCode=s;
       }
       m_AreaLevel++;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::muEditDetailClick(TObject *Sender)
{
    AnsiString  s;
    m_AreaLevel = tvArea->Selected->Level;
    if(tvArea->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    TRecBaseForm::muEditDetailClick(Sender);
    s = tvArea->Selected->Parent->Text;
    if (tvArea->Selected->Parent->Level == 0)
       //当选择的节点的父节点是根节点时
       s = "";
    else
       s = s.SubString(2,s.AnsiPos(")")-2);
    m_AreaUpperCode=s;
    if(EnabledEnd(labAreaUpperCode->Caption+seAreaItem->Text))  //判断末级Enabled
      chkAreaEnd->Enabled=true;
    else
      chkAreaEnd->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TfrmArea::muDeleteDetailClick(TObject *Sender)
{
    if(tvArea->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

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

void __fastcall TfrmArea::muFirstClick(TObject *Sender)
{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------

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

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

void __fastcall TfrmArea::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmArea::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 TfrmArea::GetTierLen(int tiernum)
{
 //从数组中获取指定层的字符长度
 if ((tiernum>0)&&(tiernum<19)) //层数从1-18为有效
  return TierLen[tiernum];
 else
  return 0;
}
//---------------------------------------------------------------------------
bool  __fastcall TfrmArea::EnabledEnd( AnsiString Keycode)
{
  //如果有下一级则End 为false
      TComResultSet *TResultSet=NewResultSet();
      AnsiString strSQL;
      strSQL="select AreaUpperCode from sdArea where AreaUpperCode='"+Keycode+"'";
      TResultSet->Close();
      TResultSet->Open(strSQL,"");
      if(TResultSet->RecordCount>0)
      {
        delete TResultSet;
        return false;
      }
      else
      {
        delete TResultSet;
        return true;
      }  
}
//---------------------------------------------------------------------------