client.cpp

速达开源ERP系统

            if(m == s)
            {
                TempNode = tvClient->Items->Item[i];
                TempNode= tvClient->Items->AddChild(TempNode,"(" + GetFieldValue(fiClientCode) + ")" +GetFieldValue(fiClientName));
                TempNode->StateIndex = 1;
                TempNode->Text="(" + GetFieldValue(fiClientCode) + ")" + GetFieldValue(fiClientName);
                break;
            }
        }

        comServer->MoveNext();
     }
   }
   catch(...)
   {
   throw Exception("在插入客户资料时出错!");
   }
     comServer->MoveFirst();
     GetDataFromComObject();

}

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

void __fastcall TfrmClient::InitEditControl()

{
    FillComboBox(scClientTaxCode,"SELECT TaxName,TaxCode FROM sdTax","TaxName","TaxCode");
    FillComboBox(scClientSpt,"SELECT SptName,SptCode FROM sdSpt","SptName","SptCode");
    FillComboBox(scClientSmodeCode,"SELECT SmodeCode,SmodeName FROM sdSmode","SmodeName","SmodeCode");
    FillComboBox(scClientTradeCode,"select TradeName,TradeCode FROM sdTrade","TradeName","TradeCode");
    FillComboBox(cbClientCreditCode,"SELECT CreditCode,CreditDesc FROM sdCredit order by CreditCode","CreditDesc","CreditCode");
    FillEdit(seClientCurrency,"SELECT CurrencyCode,CurrencyName FROM sdCurrency order by CurrencyCode","CurrencyName","CurrencyCode");
    FillComboBox(scClientType,"SELECT StypeName,StypeCode FROM sdStype","StypeName","StypeCode");
    FillComboBox(scClientSalerCode,"select UserName,UserCode from sduser where userCode in (select Salercode from sdSaler) order by UserCode","UserName","UserCode");
    ClientGroup->AddComponent(2,false,false,true, FloatPanel1,FloatPanel1->Name);
    ClientGroup->AddComponent(2,false,false,true, FloatPanel2,FloatPanel2->Name);
    ClientGroup->AddComponent(2,true,true,false,ClientPanel,ClientPanel->Name);
    ClientGroup->AddComponent(2,false,false,false,seClientCode,seClientCode->Name);
    ClientGroup->AddComponent(2,true,true,true,seClientCurrency,seClientCurrency->Name);
    ClientGroup->AddComponent(2,false,true,true,deClientCreateDate,deClientCreateDate->Name);

}

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

void __fastcall TfrmClient::TreeViewLocation()
{
    AnsiString s,m;
    s = GetFieldValue(fiClientCode);

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

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

void __fastcall TfrmClient::FormShow(TObject *Sender)
{

    FillGridWithData();
    ClearControl(false);
    comServer->MoveFirst();
    muFirstClick(Sender);

}

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

void __fastcall TfrmClient::tvClientChange(TObject *Sender,
      TTreeNode *Node)
{

    AnsiString m;
    if(Node == tvClient->Items->Item[0])
    {
       ClearControl(false);
        return;
    }

    if(tvClient->Selected->StateIndex == 0 )
    {
       ClearControl(false);
        return;
    }

    m = Node->Text;
    m = m.SubString(2,m.AnsiPos(")")-2);
    comServer->LocateByKey(WideString(m));

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

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


void __fastcall TfrmClient::muAddDetailClick(TObject *Sender)

{
 try{

    if(tvClient->Selected->Level==0||tvClient->Selected->StateIndex == 1)
    {
        ::MessageBox(Handle,"该节点不是分类节点,不能增加.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(tvClient->Selected->Level==1)
    {
        ::MessageBox(Handle,"该节点不能增加.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
     AnsiString m;
    ClientInfo->ActivePage=BaseInfo;
    m=tvClient->Selected->Text;
    TRecBaseForm::muAddDetailClick(Sender);
    lbClientAreaCode->Caption = m.SubString(2,m.AnsiPos(")")-2);
    comServer->SetValue(fiClientArea,WideString(lbClientAreaCode->Caption));
    }
    catch(Exception &e)
    {
        SetObjedtToBrowseState();
        ClearControl(false);
        SetControlState(caSave);
        GetDataFromComObject();
       throw Exception(e.Message);
   }
}

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

void __fastcall TfrmClient::muEditDetailClick(TObject *Sender)
{
    if(tvClient->Selected->Level==0)
    {
        ::MessageBox(Handle,"该根结点不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

    if(tvClient->Selected->StateIndex == 0)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能修改.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }

    ClientInfo->ActivePage=BaseInfo;
    TRecBaseForm::muEditDetailClick(Sender);
}

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

void __fastcall TfrmClient::muDeleteDetailClick(TObject *Sender)
{
    if(tvClient->Selected->Level==0)
    {
        ::MessageBox(Handle,"该根结点不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
    if(tvClient->Selected->StateIndex == 0)
    {
        ::MessageBox(Handle,"该节点是分类节点,不能删除.","操作错误",MB_OK|MB_ICONSTOP);
        return;
    }
        ClientInfo->ActivePage=BaseInfo;
        TRecBaseForm::muDeleteDetailClick(Sender);
}

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






void __fastcall TfrmClient::seClientEmailKeyPress(TObject *Sender,
      char &Key)
{
  if(Key=='\0')
  {
   ClientInfo->ActivePage =FinaInfo;
   FloatPanel2->SetFocus();
   }
}
//---------------------------------------------------------------------------
void  __fastcall TfrmClient::RefreshUpdateData(int MsgSrc,int MsgType)
{
switch(MsgSrc)
     {
    case euSdTax:
       if(ShowUpdateMessage(MsgSrc,MsgType))
       {
        KeyCode=scClientTaxCode->ItemData[cbItem2];
         FillComboBox(scClientTaxCode,"SELECT TaxName,TaxCode FROM sdTax","TaxName","TaxCode");
         scClientTaxCode->LocateKey(KeyCode);
        }
        break;
    case euSdSpt:
       if(ShowUpdateMessage(MsgSrc,MsgType))
        {
         KeyCode=scClientSpt->ItemData[cbItem2];
          FillComboBox(scClientSpt,"SELECT SptName,SptCode FROM sdSpt","SptName","SptCode");
          scClientSpt->LocateKey(KeyCode);
         }
         break;
    case euSdSmode:
       if(ShowUpdateMessage(MsgSrc,MsgType))
         {
          KeyCode=scClientSmodeCode->ItemData[cbItem2];
         FillComboBox(scClientSmodeCode,"SELECT SmodeCode,SmodeName FROM sdSmode","SmodeName","SmodeCode");
         scClientSmodeCode->LocateKey(KeyCode);
         }
        break;
    case euSdTrade:
       if(ShowUpdateMessage(MsgSrc,MsgType))
        {
         KeyCode=scClientTradeCode->ItemData[cbItem2];
         FillComboBox(scClientTradeCode,"SELECT TradeName,TradeCode FROM sdTrade","TradeName","TradeCode");
         scClientTradeCode->LocateKey(KeyCode);
         }
        break;
    case euSdStype:
       if(ShowUpdateMessage(MsgSrc,MsgType))
        {
        KeyCode=scClientType->ItemData[cbItem2];
        FillComboBox(scClientType,"SELECT StypeName,StypeCode FROM sdStype","StypeName","StypeCode");
        scClientType->LocateKey(KeyCode);
        }
        break;
    case euSdSaler:
       if(ShowUpdateMessage(MsgSrc,MsgType))
       {
        KeyCode=scClientSalerCode->ItemData[cbItem2];
        FillComboBox(scClientSalerCode,"select UserName,UserCode from sduser where userCode in (select Salercode from sdSaler) order by UserCode","UserName","UserCode");
        scClientSalerCode->LocateKey(KeyCode);
        }
        break;
     }
}
void __fastcall TfrmClient::seClientCodeKeyDown(TObject *Sender, WORD &Key,
      TShiftState Shift)
{
     if(Key==13 && CurrentState==caNormal)
    {
      comServer->LocateByKey(WideString(seClientCode->Text));
      GetDataFromComObject();
    }

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


void __fastcall TfrmClient::chkClientCancelMouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   if(chkClientCancel->Checked)
       lbClientCancelDate->Caption=g_sdCurDate;
    else
       lbClientCancelDate->Caption="";

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