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)
        : TRecBaseForm(Owner,euSdFav,"")
{
}
//---------------------------------------------------------------------------
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(scFavFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
    scFavType->AddItems("增加","1");
    scFavType->AddItems("减少","2");
    scFavType->AddItems("变动","3");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFav::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

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

//---------------------------------------------------------------------------
void __fastcall TfrmFav::GetDataFromComObject()
{
    seFavName->Text=GetFieldValue(fiFavName);
    scFavFvct->LocateKey(GetFieldValue(fiFavFvct));
    scFavFvct->Text=scFavFvct->ItemData[0];
    if(GetFieldValue(fiFavGlDir)==1)
       srFavGlDir0->Checked =true;
    else
       srFavGlDir1->Checked =true;
    seFavOppGlkm->Text=GetFieldValue(fiFavOppGlkm);
    seFavCode->Text=GetFieldValue(fiFavCode);
    scFavType->LocateKey(GetFieldValue(fiFavType));
    scFavType->Text   =scFavType->ItemData[0];
    seFavGlkm->Text=GetFieldValue(fiFavGlkm);
    seFavSummary->Text=GetFieldValue(fiFavSummary);
    memFavDesc->Text=GetFieldValue(fiFavDesc);
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::SendDataToComObject()
{

    WriteFieldValue(comServer,fiFavName,seFavName->Text);
    WriteFieldValue(comServer,fiFavFvct,scFavFvct->ItemData[1]);
    WriteFieldValue(comServer,fiFavGlDir,srFavGlDir0->Checked?"1":"-1");
    WriteFieldValue(comServer,fiFavOppGlkm,seFavOppGlkm->Text);
    WriteFieldValue(comServer,fiFavCode,seFavCode->Text);
    WriteFieldValue(comServer,fiFavType,scFavType->ItemData[1]);
    WriteFieldValue(comServer,fiFavGlkm,seFavGlkm->Text);
    WriteFieldValue(comServer,fiFavSummary,seFavSummary->Text);
    WriteFieldValue(comServer,fiFavDesc,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(fiFavCode) + ")"
                 + GetFieldValue(fiFavName);
       }
       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(fiFavType);
       if(tempType=="1")
       {
          tempText = "(" + GetFieldValue(fiFavCode) + ")" + GetFieldValue(fiFavName);
          tvFav->Items->AddChild(TempNode[0],tempText);
       }
       else if(tempType=="2")
       {
          tempText = "(" + GetFieldValue(fiFavCode) + ")" + GetFieldValue(fiFavName);
          tvFav->Items->AddChild(TempNode[1],tempText);
       }
       else//(tempType=="3")
       {
          tempText = "(" + GetFieldValue(fiFavCode) + ")" + GetFieldValue(fiFavName);
          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)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
   {
     seFavGlkm->Text=GetGlkmValue("GLKMCODE");
     if(GetGlkmValue("GLKMDIR")=="1")
       srFavGlDir0->Checked =true;
    else
       srFavGlDir1->Checked =true;
   }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::seFavOppGlkmButtonClick(TObject *Sender)
{
   OpenGlkmQuery();
   if(QueryStatus==1)
     seFavOppGlkm->Text=GetGlkmValue("GLKMCODE");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::RefreshUpdateData(int MsgSrc,int MsgType)
{
      if(MsgSrc==euSdFvct)
      {
         if(ShowUpdateMessage(MsgSrc,MsgType))
           FillComboBox(scFavFvct,"select Fvctcode,Fvctname from sdFvct order By FvctCode","FvctName","FvctCode");
      }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFav::TreeViewLocation()
{
    AnsiString s,c;
    s = GetFieldValue(fiFavCode);
    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();
    }

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