supply.cpp

一个以前收集的基于C/S架构的ERP客户端源代码

     delete RsArea;    
}

//---------------------------------------------------------------------------
void __fastcall TfrmSupply::FillGridWithData()
{

     FillTreeWithPtype();

     TTreeNode *TempNode;
     comServer->MoveFirst();
     while (comServer->Eof == 0)
     {
        AnsiString s,m;
        s = GetFieldValue("SupplyArea");
        TempNode=NULL;
        for(int i=1;i < tvSupply->Items->Count;i++)
        {
            m = tvSupply->Items->Item[i]->Text;
            m = m.SubString(2,m.AnsiPos(")")-2);
            if(m == s)
            {
                TempNode = tvSupply->Items->Item[i];
                break;
            }
        }
        if(TempNode == NULL)
         throw Exception("供应商所在地区未定义");
        TempNode= tvSupply->Items->AddChild(TempNode,"(" + GetFieldValue("SupplyCode") + ")" +GetFieldValue("SupplyName"));
        TempNode->StateIndex = 2;
        TempNode->SelectedIndex = 2;
        TempNode->Text="(" + GetFieldValue("SupplyCode") + ")" + GetFieldValue("SupplyName");
        comServer->MoveNext();
     }
}

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

void __fastcall TfrmSupply::InitEditControl()

{
    //
    ClientGroup->AddComponent(2,false,false,true, SupplyInfo,SupplyInfo->Name);
    ClientGroup->AddComponent(2,true,true,false,Panel1,Panel1->Name);
//    ClientGroup->AddComponent(2,false,false,false, seSupplyCode,seSupplyCode->Name);
    ClientGroup->AddComponent(2,true,true,true,seSupplyArea,seSupplyArea->Name);
    ClientGroup->AddComponent(2,true,true,true,seSupplyFreq,seSupplyFreq->Name);
    ClientGroup->AddComponent(2,true,true,true,seSupplyApAmt,seSupplyApAmt->Name);
    ClientGroup->AddComponent(2,true,true,true,deSupplyLtDate,deSupplyLtDate->Name);
    ClientGroup->AddComponent(2,true,true,true,seSupplyLtAmt,seSupplyLtAmt->Name);
    ClientGroup->AddComponent(2,true,true,true,deSupplyLpDate,deSupplyLpDate->Name);
    ClientGroup->AddComponent(2,true,true,true,seSupplyLpAmt,seSupplyLpAmt->Name);
    ClientGroup->AddComponent(2,true,true,true,deSupplyCancelDate,deSupplyCancelDate->Name);

     FillComboBox(Handle,scSupplyType,"Select Ptypename,PtypeCode from sdPtype order by Ptypecode","Ptypename","PtypeCode");
     FillComboBox(Handle,scSupplyTaxCode,"Select Taxname,TaxCode from sdTax order by Taxcode","Taxname","TaxCode");
     FillComboBox(Handle,scSupplyCredit,"Select CreditCode from sdCredit order by Creditcode","CreditCode");
     FillComboBox(Handle,scSupplyTrade,"Select Tradename,TradeCode from sdTrade order by Tradecode","Tradename","TradeCode");
     FillComboBox(Handle,scSupplyPmode,"select pmodename,pmodecode from sdpmode order by pmodecode","Pmodename","PmodeCode");
      FillComboBox(Handle,scSupplyBuyer,"Select Buyername,BuyerCode from sdBuyer order by buyercode","Buyername","BuyerCode");
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupply::TreeViewLocation()
{
    AnsiString s,m;
    s = GetFieldValue("SupplyCode");

    for(int i = 1 ; i < tvSupply->Items->Count ; i ++)
    {
        m = tvSupply->Items->Item[i]->Text;
        m = m.SubString(2,m.AnsiPos(")")-2);
        if(m == s)
        {
            tvSupply->Selected = tvSupply->Items->Item[i];
            break;
        }
    }
}

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

void __fastcall TfrmSupply::FormShow(TObject *Sender)
{
    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
}

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

void __fastcall TfrmSupply::tvSupplyChange(TObject *Sender,
      TTreeNode *Node)
{

    AnsiString m;
    if(Node == tvSupply->Items->Item[0])
      return;
    if(tvSupply->Selected->StateIndex != 2)
      return;
    m = Node->Text;
    m = m.SubString(2,m.AnsiPos(")")-2);
    comServer->LocateByKey(WideString(m));

    if (comServer->Eof == 0)
    {
        GetDataFromComObject();
    }
}

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

void __fastcall TfrmSupply::FormClose(TObject *Sender,
      TCloseAction &Action)
{

    TRecBaseForm::FormClose(Sender,Action);

}

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

void __fastcall TfrmSupply::muAddDetailClick(TObject *Sender)

{
    AnsiString s;

    if (tvSupply->Selected == NULL)
    {
        return;
    }
    if(tvSupply->Selected->StateIndex != 1)
    {
        ::MessageBox(Handle,"必须在末级的地区节点下增加供应商.","系统提示",MB_OK|MB_ICONSTOP);
        return;
    }
    s = tvSupply->Selected->Text;
    s = s.SubString(2,s.Pos(")")-2);
    seSupplyArea->Text = s;
    SupplyInfo->ActivePage=BaseInfo;
    TRecBaseForm::muAddDetailClick(Sender);
}

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

void __fastcall TfrmSupply::muEditDetailClick(TObject *Sender)
{
    if (tvSupply->Selected == NULL)
        return;
    if(tvSupply->Selected->StateIndex != 2)
    {
        ::MessageBox(Handle,"清选择供应商节点","系统提示",MB_OK|MB_ICONSTOP);
        return;
    }
    SupplyInfo->ActivePage=BaseInfo;
    TRecBaseForm::muEditDetailClick(Sender);
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupply::muDeleteDetailClick(TObject *Sender)
{
    if (tvSupply->Selected == NULL)
    {
        return;
    }
    if(tvSupply->Selected->StateIndex != 2)
    {
        ::MessageBox(Handle,"清选择供应商节点","系统提示",MB_OK|MB_ICONSTOP);
        return;
    }
    TRecBaseForm::DelDetailRecord();
}

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

void __fastcall TfrmSupply::muFirstClick(TObject *Sender)

{
    TRecBaseForm::muFirstClick(Sender);
    TreeViewLocation();
}

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

void __fastcall TfrmSupply::muPreviousClick(TObject *Sender)
{
    TRecBaseForm::muPreviousClick(Sender);
    TreeViewLocation();
}

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

void __fastcall TfrmSupply::muNextClick(TObject *Sender)
{
    TRecBaseForm::muNextClick(Sender);
    TreeViewLocation();
}

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

void __fastcall TfrmSupply::muLastClick(TObject *Sender)
{
    TRecBaseForm::muLastClick(Sender);
    TreeViewLocation();
}

//---------------------------------------------------------------------------
void __fastcall TfrmSupply::RefreshUpdateData(int MsgSrc,int MsgType)
{
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupply::seSupplyCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
    if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seSupplyCode->Text));
      GetDataFromComObject();
    }
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupply::chkSupplyCancelClick(TObject *Sender)
{
 if(chkSupplyCancel->Checked)
  deSupplyCancelDate->Text=g_sdCurDate;
 else
  deSupplyCancelDate->Text="";
}
//---------------------------------------------------------------------------

void __fastcall TfrmSupply::scSupplyTaxCodeExit(TObject *Sender)
{
 if(scSupplyTaxCode->ItemIndex == -1)
    seSupplyTaxNo->Text="";

}
//---