fause.cpp

速达开源ERP系统

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

#include <vcl.h>
#pragma hdrstop

#include "FaUse.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "RecBaseForm"
#pragma link "fpanel"
#pragma link "SDEdit"
#pragma link "SDGrid"
#pragma link "SDComboBox"
#pragma resource "*.dfm"
TfrmFaUse *frmFaUse;
//---------------------------------------------------------------------------
__fastcall TfrmFaUse::TfrmFaUse(TComponent* Owner)
        : TRecBaseForm(Owner,euSdFaUse,"")
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::InitEditControl()
{
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,true,true,false, Panel1,Panel1->Name);
    scFaUseType->AddItems("使用中","1");
    scFaUseType->AddItems("未使用","2");
    scFaUseType->AddItems("不需用","3");
}
//---------------------------------------------------------------------------
AnsiString __fastcall TfrmFaUse::GetFieldValue(int FieldIndex)
{
    WideString S;
    S = ReadFieldValue(comServer,FieldIndex);
    return(S);
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::ClearControl(bool BringToNext)
{
     if(!BringToNext)
    {
       seFaUseCode->Text="";
       scFaUseType->ItemIndex=-1;
       memFaUseDesc->Text="";
       seFaUseName->Text="";
       ckFaUseDepre->Checked=false;
    }
}

//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::GetDataFromComObject()
{
    seFaUseCode->Text=GetFieldValue(fiFaUseCode);
    scFaUseType->LocateKey(GetFieldValue(fiFaUseType));
    scFaUseType->Text=scFaUseType->ItemData[0];
    memFaUseDesc->Text=GetFieldValue(fiFaUseDesc);
    seFaUseName->Text=GetFieldValue(fiFaUseName);
    ckFaUseDepre->Checked=GetFieldValue(fiFaUseDepre)=="1";
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::SendDataToComObject()
{
    AnsiString i=scFaUseType->ItemData[0];
    WriteFieldValue(comServer,fiFaUseCode,seFaUseCode->Text);
    WriteFieldValue(comServer,fiFaUseType,scFaUseType->ItemData[1]);
    WriteFieldValue(comServer,fiFaUseDesc,memFaUseDesc->Text);
    WriteFieldValue(comServer,fiFaUseName,seFaUseName->Text);
    WriteFieldValue(comServer,fiFaUseDepre,ckFaUseDepre->Checked ? "1":"0");
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::WaitUserInput()
{
   seFaUseCode->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::RefreshGridData(int mAction)
{
    AnsiString  tempText;
    if (mAction == 0)         //增加
    {
       if(scFaUseType->ItemData[1]=="1")
       {
          tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
          tvFaUse->Items->AddChild(TempNode[0],tempText);
          TempNode[0]->Expanded = true;
       }
       if(scFaUseType->ItemData[1]=="2")
       {
          tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
          tvFaUse->Items->AddChild(TempNode[1],tempText);
          TempNode[1]->Expanded = true;
       }
       if(scFaUseType->ItemData[1]=="3")
       {
          tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
          tvFaUse->Items->AddChild(TempNode[2],tempText);
          TempNode[2]->Expanded = true;
       }
    }
    else if(mAction == 1) //修改
    {
       if(FlagChangeType==scFaUseType->ItemData[1])
       {
         tvFaUse->Selected->Text = "(" + GetFieldValue(fiFaUseCode) + ")"
              + GetFieldValue(fiFaUseName);
       }
       else
       {
         if(scFaUseType->ItemData[1]=="1")
         {
             tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
             tvFaUse->Items->AddChild(TempNode[0],tempText);
             TempNode[0]->Expanded = true;
          }
          if(scFaUseType->ItemData[1]=="2")
          {
             tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
             tvFaUse->Items->AddChild(TempNode[1],tempText);
             TempNode[1]->Expanded = true;
           }
          if(scFaUseType->ItemData[1]=="3")
          {
             tempText = "(" + seFaUseCode->Text + ")" + seFaUseName->Text;
             tvFaUse->Items->AddChild(TempNode[2],tempText);
             TempNode[2]->Expanded = true;
          }
         tvFaUse->Items->Delete(tvFaUse->Selected);
       }
    }
    else if(mAction == 2)         //删除
    {
        tvFaUse->Items->Delete(tvFaUse->Selected);
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::FillGridWithData()
{
     AnsiString  tempText,tempType;
     tvFaUse->Items->Clear();
     TempNode[0]=tvFaUse->Items->Add(NULL,"使用中");
     TempNode[1]=tvFaUse->Items->Add(NULL,"未使用");
     TempNode[2]=tvFaUse->Items->Add(NULL,"不需用");
     comServer->MoveFirst();
     while (comServer->Eof == 0)
     {
       tempType=GetFieldValue(fiFaUseType);
       if(tempType=="1")
       {
          tempText = "(" + GetFieldValue(fiFaUseCode) + ")" + GetFieldValue(fiFaUseName);
          tvFaUse->Items->AddChild(TempNode[0],tempText);
       }
       else if(tempType=="2")
       {
          tempText = "(" + GetFieldValue(fiFaUseCode) + ")" + GetFieldValue(fiFaUseName);
          tvFaUse->Items->AddChild(TempNode[1],tempText);
       }
       else//(tempType=="3")
       {
          tempText = "(" + GetFieldValue(fiFaUseCode) + ")" + GetFieldValue(fiFaUseName);
          tvFaUse->Items->AddChild(TempNode[2],tempText);
       }
       comServer->MoveNext();
     }
     tvFaUse->Selected=TempNode[0];
     if (tvFaUse->Items->Count > 0)
     {
        tvFaUse->FullExpand();
        comServer->MoveFirst();
        GetDataFromComObject();
     }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::FormShow(TObject *Sender)
{
     FillGridWithData();
}
//---------------------------------------------------------------------------

void __fastcall TfrmFaUse::tvFaUseChange(TObject *Sender, TTreeNode *Node)
{
    ClearControl(false);
    AnsiString s;
    if(Node == tvFaUse->Items->Item[0])
    {
        return;
    }
    s = Node->Text;
    s = s.SubString(2,s.AnsiPos(")")-2);
    comServer->LocateByKey(s);
    if (comServer->Eof == 0)
      GetDataFromComObject();
    if(s=="101"||s=="102"||s=="103"||s=="104")
    {
      tbEditHead->Enabled=false;
      tbDeleteHead->Enabled=false;
    }
    else
    {
      tbEditHead->Enabled=true;
      tbDeleteHead->Enabled=true;
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::muDeleteDetailClick(TObject *Sender)
{
    if(tvFaUse->Selected->Level == 0)
    {
        ::MessageBox(Handle,"当前是根节点，不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    TRecBaseForm::muDeleteDetailClick(Sender);

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

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

}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::TreeViewLocation()
{
    AnsiString s,c;
    s = GetFieldValue(fiFaUseCode);
    for(int i = 1 ; i < tvFaUse->Items->Count ; i ++)
    {
        c = tvFaUse->Items->Item[i]->Text;    //取关键字
        c = c.SubString(2,c.AnsiPos(")")-2);
        if(s == c)
        {
            tvFaUse->Selected = tvFaUse->Items->Item[i];
            break;
        }
    }
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::muFirstClick(TObject *Sender)
{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::muPreviousClick(TObject *Sender)
{
    TRecBaseForm::muPreviousClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::muNextClick(TObject *Sender)
{
    TRecBaseForm::muNextClick(Sender);
    TreeViewLocation();
}
//---------------------------------------------------------------------------
void __fastcall TfrmFaUse::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();

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