pmpc.cpp

速达开源ERP系统

//---------------------------------------------------------------------------
#include <vcl.h>
#include "Pmpc.h"
//---------------------------------------------------------------------------
#pragma hdrstop
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma resource "*.dfm"
#define ParaCode "10501"  //分类码各层字符长度参数代码头
TfrmPmpc *frmPmpc;
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmPmpc::GetFieldValue(int FieldIndex)
{
    AnsiString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::ClearControl(bool BringToNext)
{
    if(!BringToNext)
    {
        lblUpperCode->Caption="";
        sePmpcItem->Text = "";
        sePmpcName->Text = "";
        memPmpcDesc->Text = "";
        chkPmpcEnd->Checked=false;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::GetDataFromComObject()
{
    AnsiString strLevel;
    strLevel=GetFieldValue(fiPmpcLevel);
    //根据各层设定的代码长度，设置控件的最大字符数
    if (TierLen[strLevel.ToInt()] <= 0)
     sePmpcItem->MaxLength=18;
    else
     sePmpcItem->MaxLength=TierLen[strLevel.ToInt()];
    lblUpperCode->Caption=GetFieldValue(fiPmpcUpperCode);
    sePmpcItem->Text = GetFieldValue(fiPmpcItem);
    sePmpcName->Text = GetFieldValue(fiPmpcName);
    chkPmpcEnd->Checked=GetFieldValue(fiPmpcEnd)=="1";
    memPmpcDesc->Text = GetFieldValue(fiPmpcDesc);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::SendDataToComObject()
{
    AnsiString strLevel;
    AnsiString strErr,strTemp;
    if(CurrentState == caAddDetail)
     strLevel=IntToStr(tvPmPc->Selected->Level+1);
    if(CurrentState == caEditDetail)
     strLevel=IntToStr(tvPmPc->Selected->Level);
    //输入的代码长度必须等于设定长度
    if (TierLen[strLevel.ToInt()] <= 0)
    {
     throw Exception("本级编码长度参数无效！");
    }
    strTemp=sePmpcItem->Text;
    if (strTemp.Length() != TierLen[strLevel.ToInt()])
    {
     strErr="本级编码长度必须为"+AnsiString(TierLen[strLevel.ToInt()]);
     throw Exception(strErr.c_str());
    }
    WriteFieldValue(comServer,fiPmpcUpperCode,lblUpperCode->Caption);
    WriteFieldValue(comServer,fiPmpcItem,sePmpcItem->Text);   // PmPcItem
    WriteFieldValue(comServer,fiPmpcName,sePmpcName->Text);   // PmPcName
    WriteFieldValue(comServer,fiPmpcLevel,strLevel);
    WriteFieldValue(comServer,fiPmpcEnd,chkPmpcEnd->Checked?"1":"0");  // PmPcEnd
    WriteFieldValue(comServer,fiPmpcDesc,memPmpcDesc->Text);  // PmPcDesc
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::WaitUserInput()
{
    sePmpcItem->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::RefreshGridData(int mAction)
{
    AnsiString  tempText;
    TTreeNode *TempNode;
    if (mAction == 0)
    {
        if(tvPmPc->Selected)
        {
            tempText = "(" + GetFieldValue(fiPmpcCode) + ")" + GetFieldValue(fiPmpcName);
            TempNode=tvPmPc->Items->AddChild(tvPmPc->Selected,tempText);
            tvPmPc->Selected=TempNode;
            if(GetFieldValue(fiPmpcEnd)=="1")
            {
             TempNode->StateIndex=1;
             TempNode->SelectedIndex=1;
            }
            else
            {
             TempNode->StateIndex=-1;
             TempNode->SelectedIndex=-1;
            }
            tvPmPc->Selected->Expanded = true;
        }
    }
    else if(mAction == 1)
    {
        if(tvPmPc->Selected->HasChildren)
        {   //如果有子节点,则刷新一次.
            comServer->Query();
            FillGridWithData();
        }
        else
        {
            tvPmPc->Selected->Text = "(" + GetFieldValue(fiPmpcCode) + ")"
                + GetFieldValue(fiPmpcName);
            if(GetFieldValue(fiPmpcEnd)=="1")
            {
             tvPmPc->Selected->StateIndex=1;
             tvPmPc->Selected->SelectedIndex=1;
            }
            else
            {
             tvPmPc->Selected->StateIndex=-1;
             tvPmPc->Selected->SelectedIndex=-1;
            }
        }
    }
    else if(mAction == 2)
    {
        tvPmPc->Items->Delete(tvPmPc->Selected);
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::FillGridWithData()
{
     AnsiString  tempText;
     TTreeNode *TempNode[10];
     int mLevel;
     TreeFresh=true; //更新分类码树，不执行Change事件
     tvPmPc->Items->Clear();
     TreeFresh=false;
     TempNode[0]=tvPmPc->Items->Add(NULL,"所有的分类码");
     TempNode[0]->StateIndex=-1;
     TempNode[0]->SelectedIndex=-1;
     comServer->MoveFirst();

     while (comServer->Eof == 0)
     {
//        ShowMessage(GetFieldValue(fiPmpcCode));
//        ShowMessage(GetFieldValue(fiPmpcLevel));
        mLevel  =   StrToIntDef(GetFieldValue(fiPmpcLevel),-1);
        if((mLevel <= 0)||(mLevel > 18))
        {
            ::MessageBox(Handle,"分类码层级的级别必须在1和18之间。","错误",MB_OK|MB_ICONSTOP);
            comServer->MoveNext();
            continue;
        }

        tempText = "(" + GetFieldValue(fiPmpcCode) + ")" + GetFieldValue(fiPmpcName);
        TempNode[mLevel] = tvPmPc->Items->AddChild(TempNode[mLevel-1],tempText);
        if(GetFieldValue(fiPmpcEnd)=="1")
        {
         TempNode[mLevel]->StateIndex=1;
         TempNode[mLevel]->SelectedIndex=1;
        }
        else
        {
         TempNode[mLevel]->StateIndex=-1;
         TempNode[mLevel]->SelectedIndex=-1;
        }
        comServer->MoveNext();
     }
     //展开所有的节点。
     if (tvPmPc->Items->Count > 0)
     {
        tvPmPc->FullExpand();
        comServer->MoveFirst();
        GetDataFromComObject();
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmPmpc::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, Panel1,Panel1->Name);
}
//---------------------------------------------------------------------------

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

__fastcall TfrmPmpc::TfrmPmpc(TComponent* Owner)
       : TRecBaseForm(Owner,euSdPmpc,"")
{
 InitTierLen();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPmpc::FormShow(TObject *Sender)
{
    FillGridWithData();
}
//---------------------------------------------------------------------------
void __fastcall TfrmPmpc::tvPmPcChange(TObject *Sender,
      TTreeNode *Node)
{
    AnsiString s;
    if (TreeFresh)
        return;
    if(Node == tvPmPc->Items->Item[0])
    {
        return;
    }
/*
    if((CurrentState==caAddDetail)||(CurrentState==caEditDetail))
    {
        CancelChange();
    }
*/
    s = Node->Text;
    s = s.SubString(2,s.AnsiPos(")")-2);
    comServer->LocateByKey(WideString(s));
    if (comServer->Eof == 0)
    {
        GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::FormClose(TObject *Sender,
      TCloseAction &Action)
{
    TRecBaseForm::FormClose(Sender,Action);
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::muAddDetailClick(TObject *Sender)
{
    AnsiString  s;
    if(tvPmPc->Selected == NULL)
     return;
    if(tvPmPc->Selected->StateIndex == 1)
    {
     ::MessageBox(Handle,"当前编码已是末级不能增加下级编码","系统提示",MB_OK|MB_ICONINFORMATION);
     return;
    }
    TRecBaseForm::muAddDetailClick(Sender);
    int tempLevel = tvPmPc->Selected->Level;
    if(tempLevel <= 0)
    {
       lblUpperCode->Caption = "";
    }
    else
    {
        s = tvPmPc->Selected->Text;
        s = s.SubString(2,s.AnsiPos(")")-2);
        lblUpperCode->Caption=s;
    }
    //“增加”下一层时，要控件的最大字符数设置为下一层的字符长度
    if (TierLen[tempLevel+1] <= 0)
     sePmpcItem->MaxLength=18;
    else
     sePmpcItem->MaxLength=TierLen[tempLevel+1];
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::muEditDetailClick(TObject *Sender)
{
    AnsiString  s;
    if(tvPmPc->Selected == NULL)
     return;
    if(tvPmPc->Selected->Level == 0)
    {
        return;
    }
    TRecBaseForm::muEditDetailClick(Sender);
    if(tvPmPc->Selected->HasChildren)
     chkPmpcEnd->Enabled=false;
    else
     chkPmpcEnd->Enabled=true;
}
//---------------------------------------------------------------------------

void __fastcall TfrmPmpc::muDeleteDetailClick(TObject *Sender)
{
   if(tvPmPc->Selected == NULL)
     return;
   if(tvPmPc->Selected->HasChildren)
   {
     ::MessageBox(Handle,"该分类码下包含有子分类码，不允许删除！","操作错误", MB_OK|MB_ICONSTOP);
     return;
   }
   TRecBaseForm::muDeleteDetailClick(Sender);
   if (tvPmPc->Items->Count == 1)
   {
      ClearControl(false);
   }
}
//---------------------------------------------------------------------------

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

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

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

void __fastcall TfrmPmpc::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
int __fastcall TfrmPmpc::GetTierLen(int tiernum)
{
 //从数组中获取指定层的字符长度
 if ((tiernum>0)&&(tiernum<19)) //层数从1-18为有效
  return TierLen[tiernum];
 else
  return 0;
}
//---------------------------------------------------------------------------
void __fastcall TfrmPmpc::InitTierLen()
{
 //从参数表sdparameter中获取分类码各层字符长度，并存入数组
 TComResultSet *pResultSet=NewResultSet();
 AnsiString strSQL,strItem,strValue;
 strSQL=" select parameteritem,parametervalue from sdparameter ";
 strSQL=strSQL+" where parametertype = 2 and parametercode like '"+ParaCode+"%'";
 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()<20))
     TierLen[strItem.ToInt()]=strValue.ToInt();
   pResultSet->MoveNext();
 }
 delete pResultSet;
}
//---------------------------------------------------------------------------