fav.cpp

科思ERP部分源码及控件

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

#include <vcl.h>
#pragma hdrstop

#include "Fav.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmFav *frmFav;
//---------------------------------------------------------------------------
__fastcall TfrmFav::TfrmFav(TComponent* Owner, HWND chWnd, AnsiString MidCode,AnsiString WhereStr)
        : TRecBaseForm(Owner,chWnd,MidCode,WhereStr)
{
   InitRsGlkm("");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, tpFav,tpFav->Name);
    ClientGroup->AddComponent(2,true,true,false, Panel1,Panel1->Name);
    ClientGroup->AddComponent(2,false,false,false, seFavCode,seFavCode->Name);
    FillComboBox(Handle,scFavFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
    scFavType->AddItems("增加","1");
    scFavType->AddItems("减少","2");
    scFavType->AddItems("变动","3");
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
void __fastcall TfrmFav::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFavName->Text="";
       scFavFvct->Text="";
       srFavGlDir0->Checked=true;
       srFavGlDir1->Checked=false;
       seFavOppGlkm->Text="";
       seFavCode->Text="";
       scFavType->ItemIndex=0;
       seFavGlkm->Text="";
       seFavSummary->Text="";
       memFavDesc->Text="";
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmFav::GetDataFromComObject()
{
    seFavName->Text=GetFieldValue("FavName");
    scFavFvct->LocateKey(GetFieldValue("FavFvct"));
    scFavFvct->Text=scFavFvct->ItemData[0];
    if(GetFieldValue("FavGlDir")==1)
       srFavGlDir0->Checked =true;
    else
       srFavGlDir1->Checked =true;
    seFavOppGlkm->Text=GetFieldValue("FavOppGlkm");
    seFavCode->Text=GetFieldValue("FavCode");
    scFavType->LocateKey(GetFieldValue("FavType"));
    scFavType->Text   =scFavType->ItemData[0];
    seFavGlkm->Text=GetFieldValue("FavGlkm");
    seFavSummary->Text=GetFieldValue("FavSummary");
    memFavDesc->Text=GetFieldValue("FavDesc");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::SendDataToComObject()
{

    SetFieldValue("FavName",seFavName->Text);
    SetFieldValue("FavFvct",scFavFvct->ItemData[1]);
    SetFieldValue("FavGlDir",srFavGlDir0->Checked?"1":"-1");
    SetFieldValue("FavOppGlkm",seFavOppGlkm->Text);
    SetFieldValue("FavCode",seFavCode->Text);
    SetFieldValue("FavType",scFavType->ItemData[1]);
    SetFieldValue("FavGlkm",seFavGlkm->Text);
    SetFieldValue("FavSummary",seFavSummary->Text);
    SetFieldValue("FavDesc",memFavDesc->Text);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::WaitUserInput()
{
  tpFav->ActivePage=TabSheet1;
  seFavCode->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::RefreshGridData(int mAction)
{
    AnsiString  tempText;
    if (mAction == 0)         //增加
    {
       if(scFavType->ItemData[1]=="1")
       {
          tempText = "(" + seFavCode->Text + ")" + seFavName->Text;
          tvFav->Items->AddChild(TempNode[0],tempText);
          TempNode[0]->Expanded = true;
       }
       if(scFavType->ItemData[1]=="2")
       {
          tempText = "(" + seFavCode->Text + ")" + seFavName->Text;
          tvFav->Items->AddChild(TempNode[1],tempText);
          TempNode[1]->Expanded = true;
       }
       if(scFavType->ItemData[1]=="3")
       {
          tempText = "(" + seFavCode->Text + ")" + seFavName->Text;
          tvFav->Items->AddChild(TempNode[2],tempText);
          TempNode[2]->Expanded = true;
       }
    }
    else if(mAction == 1) //修改
    {
        AnsiString ff=scFavType->Text;
        ff=scFavType->ItemData[1];
       if(FlagChangeType==scFavType->ItemData[1])
       {
           tvFav->Selected->Text = "(" + GetFieldValue("FavCode") + ")"
                 + GetFieldValue("FavName");
       }
       else
       {
           if(scFavType->Text=="增加")
           {
              tempText = "(" + seFavCode->Text + ")" + seFavName->Text;
              tvFav->Items->AddChild(TempNode[0],tempText);
              TempNode[0]->Expanded = true;
           }
           if(scFavType->Text=="减少")
           {
              tempText = "(" + seFavCode->Text + ")" + seFavName->Text;
              tvFav->Items->AddChild(TempNode[1],tempText);
              TempNode[1]->Expanded = true;
           }
           if(scFavType->Text=="变动")
           {
              tempText = "(" +seFavCode->Text + ")" + seFavName->Text;
              tvFav->Items->AddChild(TempNode[2],tempText);
           TempNode[2]->Expanded = true;
           }
           tvFav->Items->Delete(tvFav->Selected);
       }
    }
    else if(mAction == 2)         //删除
    {
        tvFav->Items->Delete(tvFav->Selected);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::FillGridWithData()
{
     AnsiString  tempText,tempType;
     tvFav->Items->Clear();
     TempNode[0]=tvFav->Items->Add(NULL,"增加");
     TempNode[1]=tvFav->Items->Add(NULL,"减少");
     TempNode[2]=tvFav->Items->Add(NULL,"变动");
     comServer->MoveFirst();
     while (comServer->Eof == 0)
     {
       tempType=GetFieldValue("FavType");
       if(tempType=="1")
       {
          tempText = "(" + GetFieldValue("FavCode") + ")" + GetFieldValue("FavName");
          tvFav->Items->AddChild(TempNode[0],tempText);
       }
       else if(tempType=="2")
       {
          tempText = "(" + GetFieldValue("FavCode") + ")" + GetFieldValue("FavName");
          tvFav->Items->AddChild(TempNode[1],tempText);
       }
       else//(tempType=="3")
       {
          tempText = "(" + GetFieldValue("FavCode") + ")" + GetFieldValue("FavName");
          tvFav->Items->AddChild(TempNode[2],tempText);
       }
       comServer->MoveNext();
     }
     tvFav->Selected=TempNode[0];
     if (tvFav->Items->Count > 0)
     {
        tvFav->FullExpand();
        comServer->MoveFirst();
        GetDataFromComObject();
     }
}

//---------------------------------------------------------------------------
void __fastcall TfrmFav::FormShow(TObject *Sender)
{
     FillGridWithData();
        
}
//---------------------------------------------------------------------------

void __fastcall TfrmFav::tvFavChange(TObject *Sender, TTreeNode *Node)
{
    ClearControl(false);
    AnsiString s;
    if(Node == tvFav->Items->Item[0])
    {
        return;
    }
    s = Node->Text;
    s = s.SubString(2,s.AnsiPos(")")-2);
    comServer->LocateByKey(s);
    if (comServer->Eof == 0)
    {
        GetDataFromComObject();
    }

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

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

void __fastcall TfrmFav::muEditDetailClick(TObject *Sender)
{
    if(tvFav->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    FlagChangeType=scFavType->ItemData[1];   //修改前类型
    TRecBaseForm::muEditDetailClick(Sender);

}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::seFavGlkmButtonClick(TObject *Sender)
{
    if(OpenGlkmForm())
    {
        seFavGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
        if(GetGlkmValue(gtOpenForm, "GLKMDIR")=="1")
            srFavGlDir0->Checked =true;
        else
            srFavGlDir1->Checked =true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::seFavOppGlkmButtonClick(TObject *Sender)
{
   if(OpenGlkmForm())
     seFavOppGlkm->Text=GetGlkmValue(gtOpenForm, "GLKMCODE");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::RefreshUpdateData(int MsgSrc,int MsgType)
{
/*
      if(MsgSrc==euSdFvct)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(Query,scFavFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
      }
*/
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::TreeViewLocation()
{
    AnsiString s,c;
    s = GetFieldValue("FavCode");
    for(int i = 1 ; i < tvFav->Items->Count ; i ++)
    {
        c = tvFav->Items->Item[i]->Text;    //取关键字
        c = c.SubString(2,c.AnsiPos(")")-2);
        if(s == c)
        {
            tvFav->Selected = tvFav->Items->Item[i];
            break;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::muFirstClick(TObject *Sender)
{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::muPreviousClick(TObject *Sender)
{
    TRecBaseForm::muPreviousClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::muNextClick(TObject *Sender)
{
    TRecBaseForm::muNextClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------


void __fastcall TfrmFav::seFavCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(seFavCode->Text);
      GetDataFromComObject();
      TreeViewLocation();
    }

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

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