treeview.~cpp

全面剖析人力资源管理的内容

    TEdit* edNewCode1 = new TEdit(this);
    edNewCode->Text = Edit4->Text;
    edNewCode1->Text = Edit1->Text;
    TList* MyList ;
    MyList = (TList*)(pNode->Data);
    delete MyList;
    MyList = new TList ;
    MyList->Add(edNewCode) ;
    MyList->Add(edNewCode1) ;
    pNode->Data = MyList ;
    TTreeNode* pTempNode = pNode;
    AnsiString szbh = ((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim();
    while(pTempNode->Parent)
    {
        pTempNode=pTempNode->Parent;
        szbh=((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim()+szbh;
    }
    edNewCode1->Text = szbh ;
    if( szbh.Length()>nBits )
    {
        pNode->Delete();
        ShowMessage("编码超长，已被删除！");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmTreeView::btAddEqlClick(TObject *Sender)
{
    if(Edit4->Text.Trim().Length()==0||Edit4->Text.Trim().Length()==0)
        return;
    TTreeNode* pNode = TreeView1->Selected;
    TEdit* edCode=new TEdit(this);
    edCode->Text=Edit4->Text;
    TEdit* edCode1=new TEdit(this);
    edCode1->Text=Edit1->Text;
    TList* MyList ;
    MyList = new TList ;
    MyList->Add(edCode) ;
    MyList->Add(edCode1) ;
    pNode=TreeView1->Items->AddObject(pNode,Edit5->Text,MyList);
    TTreeNode* pTempNode = pNode;
    AnsiString szbh = ((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim();
    while(pTempNode->Parent)
    {
        pTempNode=pTempNode->Parent;
        szbh=((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim()+szbh;
    }
    edCode1->Text= szbh ;
    if( szbh.Length()>nBits )
    {
        pNode->Delete();
        ShowMessage("编码超长，已被删除！");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmTreeView::btAddSubClick(TObject *Sender)
{
    if(Edit4->Text.Trim().Length()==0||Edit4->Text.Trim().Length()==0)
        return;
    TTreeNode* pNode = TreeView1->Selected;
    TEdit* edCode=new TEdit(this);
    edCode->Text=Edit4->Text;
    TEdit* edCode1=new TEdit(this);
    edCode1->Text=Edit1->Text;
    TList* MyList ;
    MyList = new TList ;
    MyList->Add(edCode) ;
    MyList->Add(edCode1) ;
    pNode = TreeView1->Items->AddChildObject(pNode,Edit5->Text,MyList);
    TTreeNode* pTempNode = pNode;
    AnsiString szbh = ((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim();
    while(pTempNode->Parent)
    {
        pTempNode=pTempNode->Parent;
        szbh=((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim()+szbh;
    }
    edCode1->Text=szbh ;
    if( szbh.Length()>nBits )
    {
        pNode->Delete();
        ShowMessage("编码超长，已被删除！");
    }
}
//---------------------------------------------------------------------------
void __fastcall TfmTreeView::btOKClick(TObject *Sender)
{
//    ShowMessage(Edit1->Text);
    if(bEdit)
        return;
    pSortEdit->SetTextBuf( Edit1->Text.c_str() ) ;
    ((TfmRecCard*)Owner)->EditFieldChange( pSortEdit) ;
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TfmTreeView::btAddBasClick(TObject *Sender)
{
    if(Edit4->Text.Trim().Length()==0||Edit4->Text.Trim().Length()==0)
        return;
    TEdit* edCode=new TEdit(this);
    edCode->Text=Edit4->Text;
    TEdit* edCode1=new TEdit(this);
    edCode1->Text=Edit1->Text;
    TList* MyList = new TList ;
    MyList->Add(edCode);
    MyList->Add(edCode1);
    TTreeNode* pNode = TreeView1->Items->AddObject(NULL,Edit5->Text,MyList);
    TTreeNode* pTempNode = pNode;
    /*
    for (int i = 0; i < MyList->Count; i++)
    {
        TEdit* pEdit = (TEdit*)MyList->Items[i];
    }
    */
    AnsiString szbh = ((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim() ;
    while(pTempNode->Parent)
    {
        pTempNode=pTempNode->Parent;
        szbh = ((TEdit*)((TList*)(pTempNode->Data))->Items[0])->Text.Trim() ;
    }
    edCode1->Text=szbh ;
    if( szbh.Length()>nBits )
    {
        pNode->Delete();
        ShowMessage("编码超长，已被删除！");
    }
}
//---------------------------------------------------------------------------

void __fastcall TfmTreeView::btDelClick(TObject *Sender)
{
    TTreeNode* pNode = TreeView1->Selected ;
    TList* MyList ;
    MyList = (TList*)(pNode->Data) ;
    delete MyList ;
    pNode->DeleteChildren() ;
    pNode->Delete() ;
}
//---------------------------------------------------------------------------
void __fastcall TfmTreeView::FormClose(TObject *Sender, TCloseAction &Action)
{
/*
    if(bEdit)
    {
        if(Application->MessageBox("是否保存？","提示",MB_YESNO)==IDYES)
            btSaveClick(NULL);
    }
*/
    for(int i=0;i<TreeView1->Items->Count;i++)
    {
        if(TreeView1->Items->Item[i]->Data)
            delete (TList*)(TreeView1->Items->Item[i]->Data);
    }
}
//---------------------------------------------------------------------------


void __fastcall TfmTreeView::Edit5KeyPress(TObject *Sender, char &Key)
{
    if(Key==13)
        Edit4->SetFocus();
}
//---------------------------------------------------------------------------

void __fastcall TfmTreeView::Edit4KeyPress(TObject *Sender, char &Key)
{
    if(Key==13)
        Edit5->SetFocus();
}
//---------------------------------------------------------------------------

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


void __fastcall TfmTreeView::TreeView1KeyUp(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    try{
        TTreeNode* pNode = TreeView1->Selected;
        if(!pNode)
            return;
        TEdit* edCode=new TEdit(this);
        edCode=((TEdit*)((TList*)(pNode->Data))->Items[0]) ;
        Edit4->Text=edCode->Text;
        Edit5->Text=pNode->Text;

        AnsiString szbh = edCode->Text.Trim();
        while(pNode->Parent)
        {
            pNode=pNode->Parent;
            edCode=((TEdit*)((TList*)(pNode->Data))->Items[0]) ;
            szbh=edCode->Text.Trim()+szbh;
        }
        Edit1->Text=szbh;
    }
    catch(...)
    {}    
}
//---------------------------------------------------------------------------

void __fastcall TfmTreeView::btReCalClick(TObject *Sender)
{
    for(int i=0;i<TreeView1->Items->Count;i++)
    {
        TTreeNode* pNode = TreeView1->Items->Item[i] ;
        TTreeNode* pNodeOld = pNode ;
        TEdit* edCode=new TEdit(this);
        edCode=((TEdit*)((TList*)(pNode->Data))->Items[0]) ;
        Edit4->Text=edCode->Text;
        AnsiString szbh = edCode->Text.Trim();
        while(pNode->Parent)
        {
            pNode=pNode->Parent;
            edCode=((TEdit*)((TList*)(pNode->Data))->Items[0]) ;
            szbh=edCode->Text.Trim()+szbh;
        }
        Edit1->Text=szbh;
        TEdit* edCode4=new TEdit(this);
        edCode4->Text=Edit4->Text;
        TEdit* edCode1=new TEdit(this);
        edCode1->Text=Edit1->Text;
        TList* Mylist = (TList*)(TreeView1->Items->Item[i]->Data) ;
        delete Mylist ;
        Mylist = new TList ;
        Mylist->Add(edCode4) ;
        Mylist->Add(edCode1) ;
        pNodeOld->Data = Mylist ;
    }
}
//---------------------------------------------------------------------------

void __fastcall TfmTreeView::TreeView1GetSelectedIndex(TObject *Sender,
      TTreeNode *Node)
{
    int i ;
    i = 0 ;    
}
//---------------------------------------------------------------------------